sHelp
                                     SCH.INV
     i   2
 main
   audit
   log.implants
 reqs
   comments.text
   reqs.ordered
   reqs.received
   reqs.received.audit

 Ì   €   i   2
main
[inv,inv.item]
*(W)HSI[hsin,hsii]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inv                         10 FREE     L  SCH.INV.DICT   hsin                                                    
 inv.item                    10 FREE     L                 hsii                                                        
 group                       10 FREE     L  SCH.APPT.GROUP                                                         
 inv.in.stock                 6 INT      R                 *(W)HSI[hsin,hsii]|0                                        
 inv.on.order                 6 INT      R                 *(W)HSI[hsin,hsii]|1                                        
 inv.type                    10 FREE     L  SCH.INV.TYPE   VAL=@SCH.INV.ITEM.inv.type                              
 supplier                    11 FREE     L  MIS.VEN                                                                
 temp.in.stock                6 FREE     L                 VAL=@inv.in.stock[t.inv,inv.item]                           
 temp.on.order                6 FREE     L                 VAL=@inv.on.order[t.inv,inv.item]                           
 temp.reason                 40 FREE     L                                                                             
 Ì   €   i   2
audit
[inv,inv.item,  inv.audit.urn]
*(W)HSI[hsin,hsii]AUD[hsiau]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inv.audit.urn                4 URN      L                 hsiau                                                       
 inv.audit.date               8 DATE     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|0                              
 inv.audit.in.stock.dif       6 FREE     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|6                              
 inv.audit.old.in.stock       6 FREE     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|4                              
 inv.audit.old.on.order       6 FREE     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|5                              
 inv.audit.on.order.dif       6 FREE     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|7                              
 inv.audit.reason            40 FREE     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|3                              
 inv.audit.time               4 HHMM     L                 *(W)HSI[hsin,hsii]AUD[hsiau]|1                              
 inv.audit.user              10 FREE     L  MIS.USER       *(W)HSI[hsin,hsii]AUD[hsiau]|2                          
 Ì   €   i   2
log.implants
[inv,inv.item,  log.urn]
*(W)HSI[hsin,hsii]LOG[hsiLU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 log.urn                      3 URN      L                 hsiLU                                                       
 log.batch.number            15 FREE     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|3                              
 log.comment                 70 FREE     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|9                              
 log.comment.exists           2 FREE     L                 VAL=IF{@t.log.comment @Z.check.mark.data;"  "}              
 log.comment.yn               1 YN       L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|10                             
 log.date                     8 DATE     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|6                              
 log.lot.number              15 FREE     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|1                              
 log.manufacturer            10 FREE     L  MIS.MFR        *(W)HSI[hsin,hsii]LOG[hsiLU]|0                          
 log.quantity                 3 INT      R                 *(W)HSI[hsin,hsii]LOG[hsiLU]|5                              
 log.serial.number           15 FREE     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|2                              
 log.size                     5 FREE     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|4                              
 log.time                     4 HHMM     L                 *(W)HSI[hsin,hsii]LOG[hsiLU]|7                              
 log.user                    10 FREE     L  MIS.USER       *(W)HSI[hsin,hsii]LOG[hsiLU]|8                          
 Ì     i   2
reqs
[req]
*(W)HSIR[hsirq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 req                         10 URN      L                 hsirq                                                       
 entered.by                  10 FREE     L  MIS.USER       *(W)HSIR[hsirq]|9                                       
 entered.date                 8 DATE     L                 *(W)HSIR[hsirq]|10                                          
 entered.time                 4 HHMM     L                 *(W)HSIR[hsirq]|11                                          
 number.of.copies             2 PINT     R                                                                             
 req.cost.center              6 FREE     L                 *(W)HSIR[hsirq]|4                                           
 req.hospital.number         11 FREE     L                 *(W)HSIR[hsirq]|2                                           
 req.inv                     10 FREE     L  SCH.INV.DICT   *(W)HSIR[hsirq]|0                                       
 req.status                  10 FREE     L                 *(W)HSIR[hsirq]|3                                           
 req.supplier                11 FREE     L  MIS.VEN        *(W)HSIR[hsirq]|1                                       
 req.tp                       6 FREE     L                 *(W)HSIR[hsirq]|5                                           
 req.transmit                 1 YN       L                 *(W)HSIR[hsirq]|12                                          
 requested.by                10 FREE     L  MIS.USER       *(W)HSIR[hsirq]|6                                       
 requested.date               8 DATE     L                 *(W)HSIR[hsirq]|7                                           
 requested.time               4 HHMM     L                 *(W)HSIR[hsirq]|8                                           
 Ì   €   i   2
comments.text
[req,  comment.text.line]
*(W)HSIR[hsirq]CX[hsiln]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 comment.text.line            1 URN      L                 hsiln                                                       
 comment.edit                 1 YN       L                 *(W)HSIR[hsirq]CX[hsiln]|1                                  
 comment.text                70 FREE     L                 *(W)HSIR[hsirq]CX[hsiln]                                    
 comment.text.exists         12 FREE     L                 VAL=IF{+@t.comments.text[req,""] "EXIST";"DO NOT EXIST      
                                                           VAL="}                                                      
 Ì   €   i   2
reqs.ordered
[req,  ordered.urn]
*(W)HSIR[hsirq]ORD[hsior]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ordered.urn                  2 URN      L                 hsior                                                       
 ordered.inv                 10 FREE     L  SCH.INV.DICT   *(W)HSIR[hsirq]ORD[hsior]|0                             
 ordered.item                10 FREE     L                 *(W)HSIR[hsirq]ORD[hsior]|1                                 
 ordered.name                30 FREE     L                 *(W)HSIR[hsirq]ORD[hsior]|3                                 
 ordered.quantity             6 INT      R                 *(W)HSIR[hsirq]ORD[hsior]|2                                 
 Ì   €   i   2
reqs.received
[req,  received.urn]
*(W)HSIR[hsirq]REC[hsirc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 received.urn                 2 INT      R                 hsirc                                                       
 received.inv                10 FREE     L  SCH.INV.DICT   *(W)HSIR[hsirq]REC[hsirc]|0                             
 received.item               10 FREE     L                 *(W)HSIR[hsirq]REC[hsirc]|1                                 
 received.name               30 FREE     L                 *(W)HSIR[hsirq]REC[hsirc]|3                                 
 received.ordered             6 INT      R                 *(W)HSIR[hsirq]REC[hsirc]|2                                 
 received.quantity            6 FREE     L                 *(W)HSIR[hsirq]REC[hsirc]|6                                 
 received.quantity.total      6 INT      R                 *(W)HSIR[hsirq]REC[hsirc]|5                                 
 received.to.follow           6 INT      R                 *(W)HSIR[hsirq]REC[hsirc]|7                                 
 received.to.follow.flag      1 FREE     L                 *(W)HSIR[hsirq]REC[hsirc]|8                                 
 Ì   €   i   2
reqs.received.audit
[req,  req.audit.urn]
*(W)HSIR[hsirq]AUD[hsirA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 req.audit.urn                2 URN      L                 hsirA                                                       
 req.audit.date               8 DATE     L                 *(W)HSIR[hsirq]AUD[hsirA]|0                                 
 req.audit.time               4 HHMM     L                 *(W)HSIR[hsirq]AUD[hsirA]|1                                 
 req.audit.user              10 FREE     L  MIS.USER       *(W)HSIR[hsirq]AUD[hsirA]|2                             

 Index Files                        Subscripts/Physical Base

 hospital.number.x                  [req.hospital.number,req]
                                      ?(W)HSIH[hsihn,hsirq]

 log.x                              [log.date,inv,inv.item,log.urn]
                                      ?(W)HSIL[hsiLD,hsin,hsii,hsiLU]