sHelp
                                     LAB.C.PAT
     i   2
 copies.to
 extended.summaries.x
 lmb.data
   anti.rx.isolated
   extended.summaries
   infect.ctrl
     infect.ctrl.queries
       infect.ctrl.queries.mult
   orgs.isolated
   summaries
 main
 pml.x
 sum.copies.to

 Ì     i   2
copies.to
[copies.to.patient,copies.to.doctor]
/SAACO[aa,gggNM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 copies.to.patient           30 FREE     L  LAB.C.PAT      aa                                                      
 copies.to.doctor            30 FREE     L                 gggNM                                                       
 copies.to.doctor.name       30 FREE     L                 /SAACO[aa,gggNM]                                            
 not.this.doctor              1 FREE     L                 VAL=/SS#/DOC'=@copies.to.doctor                             
 Ì     i   2
extended.summaries.x
[ext.sum.x.date,ext.sum.x.rpt,ext.sum.x.pat,ext.sum.x.sort]
*(S)SAAE[saaed,saaer,aa,saaes]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ext.sum.x.date               8 DATE     L                 saaed                                                       
 ext.sum.x.rpt               10 FREE     L                 saaer                                                       
 ext.sum.x.pat               30 FREE     L  LAB.C.PAT      aa                                                      
 ext.sum.x.sort              11 FREE     L                 saaes                                                       
 ext.sum.x.value              1 PINT     R                 *(S)SAAE[saaed,saaer,aa,saaes]                              
 Ì     i   2
lmb.data
[lmb.patient]
*(S)SAA[aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 lmb.patient                 30 URN      L  ADM.PAT        aa                                                      
 bbk.donor.urn               30 URN      L  LAB.B.DONOR    *(S)SAA[aa]|6                                           
 bbk.unit.urn                10 URN      L  LAB.B.UNIT     *(S)SAA[aa]|7                                           
 bbk.wristband.num           10 FREE     L                 *(S)SAA[aa]|1                                               
 cds.logic                    0 FREE     L                                                                             
 client                      10 FREE     L  MIS.DOC        *(S)SAA[aa]|3                                           
 exp.deliv.date               8 DATE     L                 VAL=IF{@LAB.PARAM.exp.deliv.date.query^XX_.=. "";@ADM.      
                                                           VAL=PAT.ccdqr.response[XX];@ADM.PAT.cd.response[XX]}        
 hold.from.purge              8 DATE     L                 *(S)SAA[aa]|0                                               
 hx.urn                      10 URN      L  LAB.B.HX       *(S)SAA[aa]|2                                           
 id                          15 FREE     L                 *(S)SAA[aa]|4                                               
 pt.species                  10 FREE     L  LAB.C.SPECIES  *(S)SAA[aa]|8                                           
 temp.location               10 FREE     L  MIS.LOCN       *(S)SAA[aa]|5                                           
 Ì   €   i   2
anti.rx.isolated
[lmb.patient,  ri.source,ri.organism,ri.susc.proc,ri.antibiotic,ri.reaction,ri.spec,ri.proc,ri.
*(S)SAA[aa]RI[smt,smo,smps,sma,smpRX,sms,smp,smoID]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ri.source                   10 FREE     L  LAB.M.SRC      smt                                                     
 ri.organism                 10 FREE     L  LAB.M.ORG      smo                                                     
 ri.susc.proc                 9 PDEC5    R  LAB.M.PROC     smps                                                    
 ri.antibiotic                9 PDEC5    R  LAB.M.ANTI     sma                                                     
 ri.reaction                  6 FREE     L                 smpRX                                                       
 ri.spec                     30 URN      L  LAB.M.SPEC     sms                                                     
 ri.proc                      9 PDEC5    R  LAB.M.PROC     smp                                                     
 ri.org.id                   15 FREE     L                 smoID                                                       
 ri.counted                   1 YN       L                 VAL=IF{+@LAB.C.PAT.anti.rx.isolated[LAB.C.PAT.urn,LAB.      
                                                           VAL=C.PAT.ri.source,LAB.C.PAT.ri.organism,LAB.C.PAT.ri      
                                                           VAL=.susc.proc,LAB.C.PAT.ri.antibiotic,LAB.C.PAT.ri.re      
                                                           VAL=action,""] "Y";"N"}                                     
 ri.defined                   1 PINT     R                 *(S)SAA[aa]RI[smt,smo,smps,sma,smpRX,sms,smp,smoID]         
 Ì   €   i   2
extended.summaries
[lmb.patient,  ext.sum.rpt,ext.sum.sort]
*(S)SAA[aa]ES[saaer,saaes]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ext.sum.rpt                 10 FREE     L                 saaer                                                       
 ext.sum.sort                11 FREE     L                 saaes                                                       
 ext.sum.last.batch.date      8 DATE     L                 *(S)SAA[aa]ES[saaer,saaes]|0                                
 ext.sum.prev.batch.date      8 DATE     L                 *(S)SAA[aa]ES[saaer,saaes]|1                                
 Ì   €   i   2
infect.ctrl
[lmb.patient,  module.org.or.test]
*(S)SAA[aa]IC[aaIF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 module.org.or.test          11 FREE     L                 aaIF                                                        
 first.isolated.date          8 DATE     L                 *(S)SAA[aa]IC[aaIF]|0                                       
 first.location              10 FREE     L  MIS.LOCN       *(S)SAA[aa]IC[aaIF]|1                                   
 first.specimen              15 FREE     L                 *(S)SAA[aa]IC[aaIF]|2                                       
 ifc.screen                  15 FREE     L  MIS.SCREEN     *(S)SAA[aa]IC[aaIF]|3                                   
 org.or.test.abbrev          15 FREE     L                 VAL=IF{LAB.C.PAT.module.org.or.test^XX#0="L" @LAB.L.TE      
                                                           VAL=ST.abbrev[XX%0];XX#0="M" @LAB.M.ORG.abbrev[XX%0];X      
                                                           VAL=X#0="B" @LAB.B.TEST.abbrev[XX%0]}                       
 reg.vs.iso.days              3 SINT     R                 VAL=IF{Q(@LAB.C.PAT.register.date,@LAB.C.PAT.first.iso      
                                                           VAL=lated.date)^XX#0P&XX|1 %Z.date.sub(XX|1,XX|0)}          
 Ì   €   i   2
infect.ctrl.queries
[lmb.patient,module.org.or.test,  ifc.query]
*(S)SAA[aa]IC[aaIF]Q[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ifc.query                   10 FREE     L  MIS.QUERY      ggv                                                     
 ifc.response                70 FREE     L                 *(S)SAA[aa]IC[aaIF]Q[ggv]|0                                 
 Ì   €   i   2
infect.ctrl.queries.mult
[lmb.patient,module.org.or.test,ifc.query,  ifc.qry.mul.q]
*(S)SAA[aa]IC[aaIF]Q[ggv]M[ggvMQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ifc.qry.mul.q                3 PINT     R                 ggvMQ                                                       
 ifc.qry.mul.response        75 FREE     L                 *(S)SAA[aa]IC[aaIF]Q[ggv]M[ggvMQ]|0                         
 Ì   €   i   2
orgs.isolated
[lmb.patient,  oi.source,oi.org,oi.spec,oi.proc]
*(S)SAA[aa]OI[smt,smo,sms,smp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 oi.source                   10 FREE     L  LAB.M.SRC      smt                                                     
 oi.org                      10 FREE     L  LAB.M.ORG      smo                                                     
 oi.spec                     30 URN      L  LAB.M.SPEC     sms                                                     
 oi.proc                      9 PDEC5    R  LAB.M.PROC     smp                                                     
 oi.counted                   1 YN       L                 VAL=IF{+@LAB.C.PAT.orgs.isolated[LAB.C.PAT.urn,LAB.C.P      
                                                           VAL=AT.oi.source,LAB.C.PAT.oi.org,""] "Y";"N"}              
 oi.defined                   1 PINT     R                 *(S)SAA[aa]OI[smt,smo,sms,smp]                              
 Ì   €   i   2
summaries
[lmb.patient,  sum.report]
*(S)SAA[aa]S[sch]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 sum.report                  10 FREE     L  LAB.C.RPT      sch                                                     
 sum.seconds                  9 PINT     R                 *(S)SAA[aa]S[sch]                                           
 Ì   €   i   2
main
[patient]
$(A)AA[aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 patient                     30 FREE     L                 aa                                                          
 acct.number                 12 FREE     L                 VAL=@ADM.PAT.acct.number                                    
 address                     96 FREE     L                 VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2      
                                                           VAL=_","_AD|3_" "_AD|4'=",, ")                              
 address.and.phone          115 FREE     L                 VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2      
                                                           VAL=_","_AD|3_" "_AD|4_" "_AD|5'=",,  ")                    
 admit.date                   8 DATE     L                 VAL=@ADM.PAT.admit.date                                     
 admit.doctor                10 FREE     L  MIS.DOC        VAL=@ADM.PAT.admit.doctor                               
 age                          7 AGE.SORT L                 VAL=@ADM.PAT.current.age                                    
 age.at.discharge             7 AGE.SORT L                 VAL=IF{%LAB.C.PAT.end.date(urn)^XX %Z.age(@computed.bi      
                                                           VAL=rthdate,XX)}                                            
 age.at.discharge.and.sex     9 FREE     L                 VAL=@LAB.C.PAT.age.at.discharge_"/"_@ADM.PAT.sex            
 age.sex                      9 FREE     L                 VAL=@ADM.PAT.current.age_"/"_@ADM.PAT.sex'="/"              
 any.isolation.comments       1 YN       L                 VAL=IF{'@isolation.response.mnemon "N";'@LAB.PARAM.no.      
                                                           VAL=isolations[@isolation.response.mnemon] "Y";"N"}         
 attend.doctor               10 FREE     L  MIS.DOC        VAL=@ADM.PAT.attend.doctor                              
 bed                          3 FREE     L                 VAL=@ADM.PAT.bed                                            
 birthdate                   10 BDATE    L                 VAL=@ADM.PAT.birthdate                                      
 birthdate.out               10 FREE     L                 VAL=@ADM.PAT.birthdate.out                                  
 city.state.zip              34 FREE     L                 VAL=(@ADM.PAT.pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")        
 computed.birthdate           8 DATE     L                 VAL=@ADM.PAT.computed.birthdate                             
 diagnosis.or.reas.for.vis   75 FREE     L                 VAL=%LAB.C.PAT.dx.query.and.resp(LAB.C.PAT.urn,1,1)         
 diagnosis.or.rfv.q.and.r   137 FREE     L                 VAL=%LAB.C.PAT.dx.query.and.resp(LAB.C.PAT.urn,"",1)        
 diagnosis.query             10 FREE     L  MIS.QUERY      VAL=@LAB.PARAM.diagnosis.query                          
 diagnosis.query.and.resp   137 FREE     L                 VAL=%LAB.C.PAT.dx.query.and.resp(LAB.C.PAT.urn)             
 diagnosis.query.text        60 FREE     L                 VAL=@MIS.QUERY.text[@LAB.PARAM.diagnosis.query]             
 diagnosis.response.mnemon   75 FREE     L                 VAL=@ADM.PAT.ccdqr.response[@LAB.PARAM.diagnosis.query      
                                                           VAL=]                                                       
 diagnosis.response.text     75 FREE     L                 VAL=IF{@ADM.PAT.ccdqr.response[@LAB.PARAM.diagnosis.qu      
                                                           VAL=ery^XXQ]^XXR_.=. "";@MIS.GROUP.RESP.element.respon      
                                                           VAL=se[@MIS.QUERY.group.resp[XXQ],XXR];XXR}                 
 discharge.date               8 DATE     L                 VAL=IF{@ADM.PAT.discharge.date;@ADM.PAT.recur.discharg      
                                                           VAL=e.date}                                                 
 emp.addr.phone.out         125 FREE     L                 VAL=(@ADM.PAT.pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_      
                                                           VAL=","_AD|5_" "_AD|6_" "_AD|7'=",,  ")                     
 emp.address.out            106 FREE     L                 VAL=(@ADM.PAT.pt.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_      
                                                           VAL=","_AD|5_" "_AD|6'=",, ")                               
 emp.city.state.zip.o        44 FREE     L                 VAL=(@ADM.PAT.pt.emp^AD#4P_","_AD|5_" "_AD|6'=", ")         
 emp.name.out                30 FREE     L                 VAL=IF{@MIS.EMPLR.name[@ADM.PAT.employer];@ADM.PAT.emp      
                                                           VAL=loyer}                                                  
 emp.streets.out             61 FREE     L                 VAL=(@ADM.PAT.pt.emp^AD#2P_" "_AD|3'=" ")                   
 er.depart.date               8 DATE     L                 VAL=@ADM.PAT.er.depart.date                                 
 er.doctor                   10 FREE     L  MIS.DOC        VAL=@ADM.PAT.er.doctor                                  
 facility                    10 FREE     L  MIS.FACILITY   VAL=@ADM.PAT.facility                                   
 family.doctor               10 FREE     L  MIS.DOC        VAL=@ADM.PAT.family.doctor                              
 financial.class             10 FREE     L  MIS.FIN.CLASS  VAL=@ADM.PAT.financial.class                            
 guar.addr.phone.out        115 FREE     L                 VAL=(@ADM.PAT.guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_",      
                                                           VAL="_AD|5_" "_AD|6_" "_AD|7'=",,  ")                       
 guar.address.out            96 FREE     L                 VAL=(@ADM.PAT.guar^AD#2P_IF{AD|3 " "_AD|3}_","_AD|4_",      
                                                           VAL="_AD|5_" "_AD|6'=",, ")                                 
 guar.city.state.zip.o       34 FREE     L                 VAL=(@ADM.PAT.guar^AD#4P_","_AD|5_" "_AD|6'=", ")           
 guar.emp.addr.phone.out    125 FREE     L                 VAL=(@ADM.PAT.guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|      
                                                           VAL=4_","_AD|5_" "_AD|6_" "_AD|7'=",,  ")                   
 guar.emp.address.out       106 FREE     L                 VAL=(@ADM.PAT.guar.emp^AD#2P_IF{AD|3 " "_AD|3}_","_AD|      
                                                           VAL=4_","_AD|5_" "_AD|6'=",, ")                             
 guar.emp.city.state.zip.o   44 FREE     L                 VAL=(@ADM.PAT.guar.emp^AD#4P_","_AD|5_" "_AD|6'=", ")       
 guar.emp.name.out           30 FREE     L                 VAL=IF{@MIS.EMPLR.name[@ADM.PAT.guar.employer];@ADM.PA      
                                                           VAL=T.guar.employer}                                        
 guar.emp.streets.out        61 FREE     L                 VAL=(@ADM.PAT.guar.emp.street_" "_@ADM.PAT.guar.emp.st      
                                                           VAL=reet2'=" ")                                             
 guar.streets.out            61 FREE     L                 VAL=(@ADM.PAT.guar.street_" "_@ADM.PAT.guar.street2'="      
                                                           VAL= ")                                                     
 health.care.number          14 FREE     L                 VAL=@ADM.PAT.health.care.number                             
 ins.addr.phone.out          85 FREE     L                 VAL=(IF{"Y"'=@MIS.INS.other.type @MIS.INS.main^AD#2P_"      
                                                           VAL=,"_AD|3_","_AD|4_" "_AD|5_" "_AD|6;@ADM.PAT.insura      
                                                           VAL=nces^AD#0P_","_AD|1_","_AD|2_" "_AD|3_" "_AD|4}'="      
                                                           VAL=,,  ")                                                  
 ins.address.out             65 FREE     L                 VAL=(IF{"Y"'=@MIS.INS.other.type @MIS.INS.main^AD#2P_"      
                                                           VAL=,"_AD|3_","_AD|4_" "_AD|5;@ADM.PAT.insurances^AD#0      
                                                           VAL=P_","_AD|1_","_AD|2_" "_AD|3}'=",, ")                   
 ins.city.out                20 FREE     L                 VAL=IF{@ADM.PAT.insurance.city;@MIS.INS.city}               
 ins.mnemonic.1              10 FREE     L                 VAL=@ADM.PAT.insurance.mnemonic[1]^insurance                
 ins.mnemonic.2              10 FREE     L                 VAL=@ADM.PAT.insurance.mnemonic[2]^insurance                
 ins.mnemonic.3              10 FREE     L                 VAL=@ADM.PAT.insurance.mnemonic[3]^insurance                
 ins.mnemonic.4              10 FREE     L                 VAL=@ADM.PAT.insurance.mnemonic[4]^insurance                
 ins.name.out                30 FREE     L                 VAL=IF{@MIS.INS.other.type="Y" @ADM.PAT.insurance.othe      
                                                           VAL=r.name;@MIS.INS.name}                                   
 ins.name.out.1              30 FREE     L                 VAL=IF{@ADM.PAT.ins.mnemonic.1 @ins.name.out}               
 ins.name.out.2              30 FREE     L                 VAL=IF{@ADM.PAT.ins.mnemonic.2 @ins.name.out}               
 ins.name.out.3              30 FREE     L                 VAL=IF{@ADM.PAT.ins.mnemonic.3 @ins.name.out}               
 ins.name.out.4              30 FREE     L                 VAL=IF{@ADM.PAT.ins.mnemonic.4 @ins.name.out}               
 ins.phone.out               18 PHONE    L                 VAL=IF{@ADM.PAT.insurance.phone;@MIS.INS.phone}             
 ins.state.out                2 FREE     L                 VAL=IF{@ADM.PAT.insurance.state;@MIS.INS.state}             
 ins.street.out              30 FREE     L                 VAL=IF{@ADM.PAT.insurance.street;@MIS.INS.address}          
 ins.zip.out                 10 FREE     L                 VAL=IF{@ADM.PAT.insurance.zip;@MIS.INS.zip}                 
 isolation.flag               1 FREE     L                 VAL=IF{'@isolation.response.mnemon "";'@LAB.PARAM.no.i      
                                                           VAL=solations[@isolation.response.mnemon] "*"}              
 isolation.query             10 FREE     L  MIS.QUERY      VAL=@LAB.PARAM.isolation.query                          
 isolation.query.and.resp   137 FREE     L                 VAL=%LAB.C.PAT.isolation.query.and.resp(LAB.C.PAT.urn)      
 isolation.query.text        60 FREE     L                 VAL=@MIS.QUERY.text[@LAB.PARAM.isolation.query]             
 isolation.response.mnemon   75 FREE     L                 VAL=@ADM.PAT.ccdqr.response[@LAB.PARAM.isolation.query      
                                                           VAL=]                                                       
 isolation.response.text     75 FREE     L                 VAL=IF{@ADM.PAT.ccdqr.response[@LAB.PARAM.isolation.qu      
                                                           VAL=ery^XXQ]^XXR_.=. "";@MIS.GROUP.RESP.element.respon      
                                                           VAL=se[@MIS.QUERY.group.resp[XXQ],XXR];XXR}                 
 isolation.screen.flag        5 FREE     L                 VAL=IF{'@isolation.response.mnemon "";'@LAB.PARAM.no.i      
                                                           VAL=solations[@isolation.response.mnemon] @Color.backg      
                                                           VAL=round(@Z.color.red)_" ISO "_@Color.background(255)      
                                                           VAL=}                                                       
 isolation.screen.frag.flg    5 FREE     L                 VAL=IF{'@isolation.response.mnemon "";'@LAB.PARAM.no.i      
                                                           VAL=solations[@isolation.response.mnemon] @Color.backg      
                                                           VAL=round(@Z.color.red)_" ISO "_@Color.background(255)      
                                                           VAL=}                                                       
 location                    10 FREE     L  MIS.LOCN       VAL=@ADM.PAT.location                                   
 marital.status              10 FREE     L  MIS.MAR.STATUS VAL=@ADM.PAT.marital.status                             
 mri.urn                     25 URN      L  MRI.PAT        VAL=@ADM.PAT.mri.urn                                    
 name                        30 FREE     L                 VAL=@ADM.PAT.name                                           
 new.patient                 30 URN      L  ADM.PAT                                                                
 nok.addr.phone.out         138 FREE     L                 VAL=(@ADM.PAT.next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_      
                                                           VAL=AD|3_","_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD|7      
                                                           VAL= " B:"_AD|7}'=",, ")                                    
 nok.address.out             96 FREE     L                 VAL=(@ADM.PAT.next.of.kin^AD#1P_IF{AD|2 " "_AD|2}_","_      
                                                           VAL=AD|3_","_AD|4_" "_AD|5'=",, ")                          
 nok.city.state.zip.o        34 FREE     L                 VAL=(@ADM.PAT.next.of.kin^AD#3P_","_AD|4_" "_AD|5'=",       
                                                           VAL=")                                                      
 nok.streets.out             61 FREE     L                 VAL=(@ADM.PAT.nok.street_" "_@ADM.PAT.nok.street2'=" "      
                                                           VAL=)                                                       
 notify.addr.phone.out      138 FREE     L                 VAL=(@ADM.PAT.per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_",      
                                                           VAL="_AD|3_","_AD|4_" "_AD|5_IF{AD|6 " H:"_AD|6}_IF{AD      
                                                           VAL=|7 " B:"_AD|7}'=",, ")                                  
 notify.address.out          96 FREE     L                 VAL=(@ADM.PAT.per.to.notify^AD#1P_IF{AD|2 " "_AD|2}_",      
                                                           VAL="_AD|3_","_AD|4_" "_AD|5'=",, ")                        
 notify.city.state.zip.o     34 FREE     L                 VAL=(@ADM.PAT.per.to.notify^AD#3P_","_AD|4_" "_AD|5'="      
                                                           VAL=, ")                                                    
 notify.streets.out          61 FREE     L                 VAL=(@ADM.PAT.notify.street_" "_@ADM.PAT.notify.street      
                                                           VAL=2'=" ")                                                 
 oe.ht.in.cm                  6 DEC2     R                 VAL=%Z.strip.trailing.zeros(@OE.PAT.ht.in.cm:2D)            
 oe.ht.in.ft                  1 INT      R                 VAL=%Z.calc.display({@OE.PAT.ht.in.ft,@OE.PAT.ht.in.in      
                                                           VAL=},12,2)#1S                                              
 oe.ht.inches                 5 DEC2     R                 VAL=%Z.calc.display({@OE.PAT.ht.in.ft,@OE.PAT.ht.in.in      
                                                           VAL=},12,2)#2S                                              
 oe.wt.in.kg                  7 DEC3     R                 VAL=%Z.strip.trailing.zeros(@OE.PAT.wt.in.kg:3D)            
 oe.wt.in.lbs                 4 INT      R                 VAL=%Z.calc.display({@OE.PAT.wt.in.lb,@OE.PAT.wt.in.oz      
                                                           VAL=},16,2)#1S                                              
 oe.wt.ozs                    5 DEC2     R                 VAL=%Z.calc.display({@OE.PAT.wt.in.lb,@OE.PAT.wt.in.oz      
                                                           VAL=},16,2)#2S                                              
 other.doctor                10 FREE     L  MIS.DOC        VAL=@ADM.PAT.other.doctor                               
 patient.address.out         96 FREE     L                 VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2      
                                                           VAL=_","_AD|3_" "_AD|4'=",, ")                              
 patient.address.phone.out  115 FREE     L                 VAL=(@ADM.PAT.pt.addr^AD#0P_IF{AD|1 " "_AD|1}_","_AD|2      
                                                           VAL=_","_AD|3_" "_AD|4_" "_AD|5'=",,  ")                    
 patient.city.state.zip.o    34 FREE     L                 VAL=(@ADM.PAT.pt.addr^AD#2P_","_AD|3_" "_AD|4'=", ")        
 patient.header.line         90 FREE     L                 VAL=%LAB.C.PAT.hdr.line(IF{LAB.C.PAT.urn;/LAB.C.PAT.ur      
                                                           VAL=n})                                                     
 patient.header.line.name    90 FREE     L                 VAL=%LAB.C.PAT.hdr.line(IF{LAB.C.PAT.urn;/LAB.C.PAT.ur      
                                                           VAL=n},"N")                                                 
 patient.streets.out         61 FREE     L                 VAL=(@ADM.PAT.pat.street_" "_@ADM.PAT.pat.street2'=" "      
                                                           VAL=)                                                       
 race                        10 FREE     L  MIS.RACE       VAL=@ADM.PAT.race                                       
 rcr.discharge.date           8 DATE     L                 VAL=@ADM.PAT.recur.discharge.date                           
 reason.for.visit            60 FREE     L                 VAL=@ADM.PAT.reason.for.visit                               
 reg.category                10 FREE     L  MIS.CAN.REGCAT VAL=@ADM.PAT.reg.cat                                    
 register.date                8 DATE     L                 VAL=%LAB.C.PAT.register.date(LAB.C.PAT.urn)                 
 responsible.doctor          10 FREE     L  MIS.DOC        VAL=IF{@ADM.PAT.attend.doctor;@ADM.PAT.er.doctor;@ADM.  
                                                           VAL=PAT.admit.doctor}                                       
 responsible.doctor.name     30 FREE     L                 VAL=@MIS.DOC.name[IF{@ADM.PAT.attend.doctor;@ADM.PAT.e      
                                                           VAL=r.doctor;@ADM.PAT.admit.doctor}]                        
 room                        10 FREE     L  MIS.ROOM       VAL=@ADM.PAT.room                                       
 room.bed                    14 FREE     L                 VAL=@ADM.PAT.room_"-"_@ADM.PAT.bed'="-"                     
 service                     10 FREE     L  MIS.SVC        VAL=@ADM.PAT.service                                    
 service.date                 8 DATE     L                 VAL=@ADM.PAT.service.date                                   
 sex                          1 CHOICE   L                 VAL=@ADM.PAT.sex                                            
 soc.sec.number              12 FREE     L                 VAL=@ADM.PAT.soc.sec.number                                 
 status                       8 FREE     L                 VAL=@ADM.PAT.status.w.flags                                 
 status.part1                 3 FREE     L                 VAL=@ADM.PAT.status#0A                                      
 status.part2                 3 FREE     L                 VAL=@ADM.PAT.status#2A                                      
 status.wo.obs                7 FREE     L                 VAL=@ADM.PAT.status                                         
 streets                     61 FREE     L                 VAL=(@ADM.PAT.pat.street_" "_@ADM.PAT.pat.street2'=" "      
                                                           VAL=)                                                       
 subm.doctor                 10 FREE     L  MIS.DOC        VAL=IF{@ADM.PAT.attend.doctor;@ADM.PAT.er.doctor;@ADM.  
                                                           VAL=PAT.admit.doctor}                                       
 temp.prefix                  2 FREE     L                 VAL=A                                                       
 temporary.location          10 FREE     L  MIS.LOCN       VAL=@ADM.PAT.temporary.location                         
 unit.number                 10 FREE     L                 VAL=@ADM.PAT.unit.number                                    
 unit.number.pfx              2 FREE     L                 VAL=IF{@LAB.C.PAT.unit.number$2?2A;@LAB.C.PAT.unit.num      
                                                           VAL=ber#0?1A;.}                                             
 unit.number.tdo             10 FREE     L                 VAL=%MIS.PARAM.unit.number.tdo(@LAB.C.PAT.unit.number,      
                                                           VAL=@LAB.C.PAT.unit.number.pfx)                             
 urn                         30 URN      L  ADM.PAT                                                                
 vip                          1 YN       L                 VAL=@ADM.PAT.vip                                            
 vip.comment                 50 FREE     L                 VAL=@ADM.PAT.vip.comment                                    
 Ì     i   2
pml.x
[pml.date,pml.pt.name,pml.pt.acct,pml.module,pml.spec.number]
*(S)SAAP[saaPD,saaPN,saaPA,saaPM,saaPS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 pml.date                     8 DATE     L                 saaPD                                                       
 pml.pt.name                 25 FREE     L                 saaPN                                                       
 pml.pt.acct                 12 FREE     L                 saaPA                                                       
 pml.module                   1 CHOICE   L                 saaPM                                                       
 pml.spec.number             15 FREE     L                 saaPS                                                       
 pml.pt.dob                  10 BDATE    L                 *(S)SAAP[saaPD,saaPN,saaPA,saaPM,saaPS]|0                   
 pml.spec.urn                 9 FREE     L                 *(S)SAAP[saaPD,saaPN,saaPA,saaPM,saaPS]|1                   
 Ì     i   2
sum.copies.to
[sum.copies.to.patient,sum.copies.to.doctor]
/SAACO[aa,gggNM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 sum.copies.to.patient       30 FREE     L  LAB.C.PAT      aa                                                      
 sum.copies.to.doctor        30 FREE     L                 gggNM                                                       
 not.this.doctor.sum          1 FREE     L                 VAL=/SS#/DOC'=@sum.copies.to.doctor                         
 sum.copies.to.doctor.name   30 FREE     L                 /SAACO[aa,gggNM]                                            

 Index Files                        Subscripts/Physical Base

 bbk.wristband.x                    [bbk.wristband.num] = lmb.patient
                                      ?(S)SAABW[sbsWB]

 client.x                           [client,lmb.patient]
                                      ?(S)SAAC[ggg,aa]

 location.x                         [location,patient] = status
                                      ?(S)SAAL[ggn,aa]

 pt.id.x                            [client,id,lmb.patient]
                                      ?(S)SAAI[ggg,sAAID,aa]