sHelp
                                     LAB.C.REQ.OE
     i   2
   lab.c.req.oe
     lab.c.req.oe.oe.comments
     lab.c.req.oe.process.queries
       lab.c.req.oe.proc.queries.mult
     lab.c.req.oe.pth.ordered.procs
       lab.c.req.oe.pth.ord.proc.quer
     lab.c.req.oe.pth.specimens
   lab.c.req.oe.process

 Ì     i   2
lab.c.req.oe    (main) 
[urn]
?SCRZ[scr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 urn                         10 URN      L                 scr                                                         
 age                          8 FREE     L                 VAL=%Z.age(@LAB.C.PAT.computed.birthdate,@pth.recv.dat      
                                                           VAL=e)                                                      
 age.sex                      9 FREE     L                 VAL=(@age_"/"_@LAB.C.PAT.sex)                               
 client                      10 FREE     L  MIS.DOC.DICT   ?SCRZ[scr]|2                                            
 oe.number                   10 FREE     L                 ?SCRZ[scr]DATA|1                                            
 oe.quantity                  3 PINT     R                 ?SCRZ[scr]DATA|2                                            
 oe.spec.type                10 FREE     L  LAB.P.STYPE    ?SCRZ[scr]DATA|3                                        
 oe.subs1                    10 FREE     L                 ?SCRZ[scr]DATA|4                                            
 oe.subs2                    10 FREE     L                 ?SCRZ[scr]DATA|5                                            
 oe.urn                      10 PDEC     R                 ?SCRZ[scr]DATA|0                                            
 patient                     30 FREE     L  LAB.C.PAT      ?SCRZ[scr]|1                                            
 spec.type.abbrev            10 FREE     L                 VAL=@LAB.P.STYPE.abbrev[@pth.spec.type]                     
 spec.type.name              30 FREE     L                 VAL=@LAB.P.STYPE.name[@pth.spec.type]                       
 subm.doc.name               30 FREE     L                 VAL=IF{@LAB.C.REQ.OE.subm.doc.non.dict.name;@MIS.DOC.D      
                                                           VAL=ICT.name[@LAB.C.REQ.OE.subm.doctor]}                    
 subm.doc.non.dict.name      30 FREE     L                 ?SCRZ[scr]|10                                               
 subm.doctor                 10 FREE     L  MIS.DOC.DICT   ?SCRZ[scr]|2                                            
 Ì     i   2
lab.c.req.oe.oe.comments    (oe.comments) 
[urn, oe.comment.q]
?SCRZ[scr]OEC[oeq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 oe.comment.q                 3 PINT     R                 oeq                                                         
 oe.comment.line             92 FREE     L                 ?SCRZ[scr]OEC[oeq]|0                                        
 Ì     i   2
lab.c.req.oe.process.queries    (order.queries) 
[urn, order.query]
?SCRZ[scr]Q[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 order.query                 10 FREE     L  MIS.QUERY      ggv                                                     
 order.answer                75 QRY.RESP L                 ?SCRZ[scr]Q[ggv]|0                                          
 order.query.map.date         8 DATE     L                 ?SCRZ[scr]Q[ggv]INIT                                        
 order.query.text            60 FREE     L                 VAL=@MIS.QUERY.text[LAB.C.REQ.order.query]                  
 Ì     i   2
lab.c.req.oe.proc.queries.mult    (order.queries.mult) 
[urn,order.query, order.query.seq.no]
?SCRZ[scr]Q[ggv]M[ggvN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 order.query.seq.no           3 PINT     R                 ggvN                                                        
 order.query.response        75 QRY.RESP L                 ?SCRZ[scr]Q[ggv]M[ggvN]|0                                   
 Ì     i   2
lab.c.req.oe.pth.ordered.procs    (pth.ordered.procs) 
[urn, pth.proc]
?SCRZ[scr]J[spt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pth.proc                    10 URN      L  LAB.P.TERM     spt                                                     
 pth.proc.count               2 PINT     R                 ?SCRZ[scr]J[spt]|0                                          
 pth.proc.cume.charge        10 MONEY    R                 ?SCRZ[scr]J[spt]|1                                          
 pth.proc.logic               0 FREE     L                 ?SCRZ[scr]J[spt]x                                           
 pth.proc.subm.doctor        10 FREE     L  MIS.DOC.DICT   ?SCRZ[scr]J[spt]|2                                      
 Ì     i   2
lab.c.req.oe.pth.ord.proc.quer    (pth.ordered.proc.queries) 
[urn,pth.proc, pth.proc.query]
?SCRZ[scr]J[spt]Q[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pth.proc.query              10 FREE     L  MIS.QUERY      ggv                                                     
 pth.proc.query.def           1 FREE     L                 ?SCRZ[scr]J[spt]Q[ggv]|0                                    
 Ì     i   2
lab.c.req.oe.pth.specimens    (pth.specimens) 
[urn, pth.spec.q]
?SCRZ[scr]H[scrP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pth.spec.q                   1 PINT     R                 scrP                                                        
 pth.spec.cancelled           1 YN       L                 ?SCRZ[scr]H[scrP]|1                                         
 pth.spec.urn                30 URN      L  LAB.P.SPEC     ?SCRZ[scr]H[scrP]|0                                     
 Ì     i   2
lab.c.req.oe.process    (process) 
/.SCRZP

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pr.rebuild                   1 FREE     L                 /.SCRZP|1                                                   
 pr.scrn.height               2 PINT     R                 /.SCRZP|2                                                   
 pr.scrn.multiple            15 FREE     L                 /.SCRZPPSM                                                  
 pr.scrn.width                2 PINT     R                 /.SCRZP|3                                                   
 pr.specs                    10 PINT     R                 /.SCRZP|0                                                   
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 lab.c.req.oe.number.x              [ee.ord] = urn
   oe.number.x                        ?SCRZO[scrON]

 lab.c.req.oe.patient.x             [patient] = urn
   patient.x                          ?SCRZP[aa]