sHelp
                                     PHA.MRI
     i   2
   allergy.x
   pha.medical.records.file
     allergen.group.exclusions
     pha.mri.ingred.allergy.codes
       pha.mri.ingred.aller.code.text
     pha.mri.audit.trail
       audit.trail.ag.exclusions
       pha.mri.audit.trail.class.adrs
         pha.mri.audit.class.adr.otext
         pha.mri.audit.class.adr.text
       pha.mri.audit.trail.classes
         pha.mri.audit.class.alg.otext
         pha.mri.audit.class.alg.text
       audit.trail.coded.algs
         pha.mri.audit.coded.alg.otext
         pha.mri.audit.coded.alg.text
       audit.trail.cs.exclusions
       audit.trail.di.exclusions
       pha.mri.disease.audit.trail
       pha.mri.audit.trail.gen.adrs
         pha.mri.audit.gen.adr.old.text
         pha.mri.audit.gen.adr.text
       pha.mri.audit.trail.generics
         pha.mri.audit.gen.alg.old.text
         pha.mri.audit.gen.alg.text
       pha.mri.audit.trail.ingred.adr
         pha.mri.audit.ingr.adr.otext
         pha.mri.audit.ingr.adr.text
       pha.mri.audit.trail.ingredient
         pha.mri.audit.ingr.alg.otext
         pha.mri.audit.ingr.alg.text
     pha.mri.class.adrs
       pha.mri.class.adrs.text
     pha.mri.class.allergies
       pha.mri.class.allergies.text
     coded.allergies
       coded.allergy.text
     pha.medical.rec.ingr.dosages
     pha.mri.diseases
     drug.ingred.exclusions
     pha.mri.external.comments
     pha.mri.generic.adrs
       pha.mri.generic.adrs.text
     pha.mri.generic.allergies
       pha.mri.generic.allergies.text
     pha.mri.ingredient.adrs
       pha.mri.ingredient.adrs.text
     pha.mri.internal.comments
     pha.mri.progress.notes
       pha.mri.progress.notes.at
       pha.mri.progrss.notes.text
     pha.mri.rxm.allergy.adr
     xsensitivity.exclusions
   pha.mri.xfer.log

 Ì     i   2
allergy.x    (allergy.x) 
[allergy.x.type,allergy.x.allergy,allergy.x.patient]
?TMAX[tmaxT,tmaxA,ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 allergy.x.type               1 CHOICE   L                 tmaxT                                                       
 allergy.x.allergy           15 FREE     L                 tmaxA                                                       
 allergy.x.patient           25 URN      L  MRI.PAT        ea                                                      
 allergy.x.value              1                            ?TMAX[tmaxT,tmaxA,ea]                                       
 Ì     i   2
pha.medical.records.file    (main) 
[urn]
?TM[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 urn                         25 URN      L  MRI.PAT        ea                                                      
 age                          7 AGE      R                 VAL=@t.MRI.PAT.age                                          
 allergy.last.update         10 PINT     R                 ?TM[ea]|2                                                   
 allergy.version              3 FREE     L                 ?TM[ea]AD|0                                                 
 birthdate                    8 BDATE    L                 VAL=@t.MRI.PAT.birthdate                                    
 body.surface.area            6 DEC2     R                 ?TM[ea]PHA|6                                                
 current.age                  7 FREE     L                 VAL=%MIS.PAT.current.age(IF{PHA.PAT.patient;/PHA.PAT.p      
                                                           VAL=atient;+@PHA.PAT.mri.x[,""]})                           
 discharge.disposition       10 FREE     L  MIS.DIS.DICT   VAL=@t.MRI.PAT.discharge.disposition                    
 expire.date                  8 DATE     L                 VAL=IF{@MRI.PAT.exp.date;"Y"'=@MIS.DIS.DICT.expired[@M      
                                                           VAL=RI.PAT.discharge.disposition] "";@MRI.PAT.visit.di      
                                                           VAL=scharge.date[+@MRI.PAT.visits[urn,""]^XX];99999999      
                                                           VAL=-(XX#"0|"$8)}                                           
 last.update                  9 PINT     R                 ?TM[ea]|0                                                   
 mri.patient                 40 URN      L                                                                             
 pha.ht.in.cm                 6 DEC2     R                 ?TM[ea]PHA|2                                                
 pha.ht.in.ft                 1 INT      R                 ?TM[ea]PHA|0                                                
 pha.ht.in.in                 5 DEC2     R                 ?TM[ea]PHA|1                                                
 pha.wt.in.kg                 7 DEC3     R                 ?TM[ea]PHA|5                                                
 pha.wt.in.lb                 4 INT      R                 ?TM[ea]PHA|3                                                
 pha.wt.in.oz                 5 DEC2     R                 ?TM[ea]PHA|4                                                
 sex                          1 CHOICE   L                 VAL=@t.MRI.PAT.sex                                          
 unit.number                 10 FREE     L                 VAL=@t.MRI.PAT.px.unit.number[PHA.MRI.urn,@.mri.pfx]        
 update.home.meds             1 YN       L                 ?TM[ea]|1                                                   
 Ì     i   2
allergen.group.exclusions    (allergen.group.exclusions) 
[urn, allergen.group.exclusion]
?TM[ea]AGEXCL[gelag]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 allergen.group.exclusion    10 FREE     L  MIS.ALL.AG     gelag                                                   
 allergen.group.excl.upd     10 PINT     R                 ?TM[ea]AGEXCL[gelag]                                        
 Ì     i   2
pha.mri.ingred.allergy.codes    (allergy.codes) 
[urn, allergy.code]
?TM[ea]AC[tta]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 allergy.code                10 FREE     L  PHA.ALLERGY    tta                                                     
 allergy.code.date            8 DATE     L                 VAL=IF{@allergy.code.entered^XX %Z.date.in.magic(XX)}       
 allergy.code.entered         9 PINT     R                 ?TM[ea]AC[tta]|0                                            
 allergy.code.sev             1 FREE     L                 ?TM[ea]AC[tta]|2                                            
 allergy.code.time            4 HHMM     L                 VAL=IF{@allergy.code.entered^XX %Z.time.out(XX)}            
 allergy.code.user           10 FREE     L  MIS.USER       ?TM[ea]AC[tta]|1                                        
 Ì     i   2
pha.mri.ingred.aller.code.text    (allergy.codes.text) 
[urn,allergy.code, allergy.code.text.q]
?TM[ea]AC[tta]R[ttaR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 allergy.code.text.q          2 PINT     R                 ttaR                                                        
 allergy.code.text           75 FREE     L                 ?TM[ea]AC[tta]R[ttaR]                                       
 Ì     i   2
pha.mri.audit.trail    (audit.trail) 
[urn, audit.trail.changed,audit.trail.type]
?TM[ea]AU[tmauA,tmauT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.changed          9 PINT     R                 tmauA                                                       
 audit.trail.type             1 CHOICE   L                 tmauT                                                       
 audit.trail.date             8 DATE     L                 VAL=%Z.date.in.magic(@audit.trail.changed)                  
 audit.trail.ht.flag          1 FREE     L                 ?TM[ea]AU[tmauA,tmauT]PHA|6                                 
 audit.trail.ht.in.cm         6 DEC2     R                 ?TM[ea]AU[tmauA,tmauT]PHA|2                                 
 audit.trail.ht.in.ft         1 INT      R                 ?TM[ea]AU[tmauA,tmauT]PHA|0                                 
 audit.trail.ht.in.in         5 DEC2     R                 ?TM[ea]AU[tmauA,tmauT]PHA|1                                 
 audit.trail.text            12 FREE     L                 VAL="ADDED,DELETED,MERGED,UNMERGED,SWITCHED,BYPASSED,A      
                                                           VAL=CKNOWLEDGED,CHANGED,REVIEWED,NO CHANGES,NOT FILED"      
                                                           VAL=#(L("ADMUSBKCRNE",audit.trail.type$1)_",")              
 audit.trail.time             4 HHMM     L                 VAL=%Z.time.out(@audit.trail.changed)                       
 audit.trail.user            10 FREE     L  MIS.USER       ?TM[ea]AU[tmauA,tmauT]|0                                
 audit.trail.wt.flag          1 FREE     L                 ?TM[ea]AU[tmauA,tmauT]PHA|7                                 
 audit.trail.wt.in.kg         7 DEC3     R                 ?TM[ea]AU[tmauA,tmauT]PHA|5                                 
 audit.trail.wt.in.lb         4 INT      R                 ?TM[ea]AU[tmauA,tmauT]PHA|3                                 
 audit.trail.wt.in.oz         5 DEC2     R                 ?TM[ea]AU[tmauA,tmauT]PHA|4                                 
 Ì     i   2
audit.trail.ag.exclusions    (audit.trail.ag.exclusions) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.ag.exclusion]
?TM[ea]AU[tmauA,tmauT]MAGX[gelag]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.ag.exclusion    10 FREE     L  MIS.ALL.AG     gelag                                                   
 Ì     i   2
pha.mri.audit.trail.class.adrs    (audit.trail.class.adrs) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.class.adr]
?TM[ea]AU[tmauA,tmauT]CR[tdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.class.adr       10 FREE     L  PHA.CLASS      tdc                                                     
 Ì     i   2
pha.mri.audit.class.adr.otext    (audit.class.adr.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.class.adr, audit.class.adr.old.txt.q]
?TM[ea]AU[tmauA,tmauT]CR[tdc]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.class.adr.old.txt.q    3 PINT     R                 tmaOQ                                                       
 audit.class.adr.old.txtln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]CR[tdc]OT[tmaOQ]                      
 Ì     i   2
pha.mri.audit.class.adr.text    (audit.trail.class.adr.txt) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.class.adr, audit.class.adr.text.q]
?TM[ea]AU[tmauA,tmauT]CR[tdc]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.class.adr.text.q       3 PINT     R                 tmaTQ                                                       
 audit.class.adr.text.line   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]CR[tdc]T[tmaTQ]                       
 Ì     i   2
pha.mri.audit.trail.classes    (audit.trail.classes) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.class]
?TM[ea]AU[tmauA,tmauT]C[tdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.class           10 FREE     L  PHA.CLASS      tdc                                                     
 Ì     i   2
pha.mri.audit.class.alg.otext    (audit.class.alg.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.class, audit.class.alg.old.txt.q]
?TM[ea]AU[tmauA,tmauT]C[tdc]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.class.alg.old.txt.q    3 PINT     R                 tmaOQ                                                       
 audit.class.alg.old.txtln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]C[tdc]OT[tmaOQ]                       
 Ì     i   2
pha.mri.audit.class.alg.text    (audit.trail.class.alg.txt) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.class, audit.class.alg.text.q]
?TM[ea]AU[tmauA,tmauT]C[tdc]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.class.alg.text.q       3 PINT     R                 tmaTQ                                                       
 audit.class.alg.text.line   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]C[tdc]T[tmaTQ]                        
 Ì     i   2
audit.trail.coded.algs    (audit.trail.coded.algs) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.coded.alg]
?TM[ea]AU[tmauA,tmauT]CMA[gel]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.coded.alg       15 FREE     L  MIS.ALLERGY    gel                                                     
 audit.trail.coded.alg.id    40 FREE     L                 ?TM[ea]AU[tmauA,tmauT]CMA[gel]|2                            
 audit.trail.coded.sev        1 CHOICE   L                 ?TM[ea]AU[tmauA,tmauT]CMA[gel]|1                            
 audit.trail.coded.type       7 CHOICE   L                 ?TM[ea]AU[tmauA,tmauT]CMA[gel]|0                            
 Ì     i   2
pha.mri.audit.coded.alg.otext    (audit.coded.alg.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.coded.alg, audit.coded.alg.old.txt.q]
?TM[ea]AU[tmauA,tmauT]CMA[gel]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.coded.alg.old.txt.q    3 PINT     R                 tmaOQ                                                       
 audit.coded.alg.old.txtln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]CMA[gel]OT[tmaOQ]                     
 Ì     i   2
pha.mri.audit.coded.alg.text    (audit.trail.coded.alg.txt) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.coded.alg, audit.coded.alg.text.q]
?TM[ea]AU[tmauA,tmauT]CMA[gel]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.coded.alg.text.q       3 PINT     R                 tmaTQ                                                       
 audit.coded.alg.text.line   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]CMA[gel]T[tmaTQ]                      
 Ì     i   2
audit.trail.cs.exclusions    (audit.trail.cs.exclusions) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.cs.exclusion]
?TM[ea]AU[tmauA,tmauT]MCSX[gelFX]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.cs.exclusion    10 FREE     L  MIS.ALL.AG     gelFX                                                   
 Ì     i   2
audit.trail.di.exclusions    (audit.trail.di.exclusions) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.di.exclusion]
?TM[ea]AU[tmauA,tmauT]MDIX[geldi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.di.exclusion    10 FREE     L  MIS.ALL.DI     geldi                                                   
 Ì     i   2
pha.mri.disease.audit.trail    (audit.trail.diseases) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.disease]
?TM[ea]AU[tmauA,tmauT]D[ted]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.disease         10 FREE     L  PHA.DIS        ted                                                     
 Ì     i   2
pha.mri.audit.trail.gen.adrs    (audit.trail.generic.adrs) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.generic.adr]
?TM[ea]AU[tmauA,tmauT]GR[tdg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.generic.adr     10 FREE     L  PHA.GENERIC    tdg                                                     
 Ì     i   2
pha.mri.audit.gen.adr.old.text    (audit.gen.adr.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.generic.adr, audit.gen.adr.old.text.q]
?TM[ea]AU[tmauA,tmauT]GR[tdg]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.gen.adr.old.text.q     3 PINT     R                 tmaOQ                                                       
 audit.gen.adr.old.text.ln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]GR[tdg]OT[tmaOQ]                      
 Ì     i   2
pha.mri.audit.gen.adr.text    (audit.trail.gen.adr.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.generic.adr, audit.gen.adr.text.q]
?TM[ea]AU[tmauA,tmauT]GR[tdg]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.gen.adr.text.q         3 PINT     R                 tmaTQ                                                       
 audit.gen.adr.text.line     80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]GR[tdg]T[tmaTQ]                       
 Ì     i   2
pha.mri.audit.trail.generics    (audit.trail.generics) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.generic]
?TM[ea]AU[tmauA,tmauT]G[tdg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.generic         10 FREE     L  PHA.GENERIC    tdg                                                     
 Ì     i   2
pha.mri.audit.gen.alg.old.text    (audit.gen.alg.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.generic, audit.gen.alg.old.text.q]
?TM[ea]AU[tmauA,tmauT]G[tdg]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.gen.alg.old.text.q     3 PINT     R                 tmaOQ                                                       
 audit.gen.alg.old.text.ln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]G[tdg]OT[tmaOQ]                       
 Ì     i   2
pha.mri.audit.gen.alg.text    (audit.trail.gen.alg.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.generic, audit.gen.alg.text.q]
?TM[ea]AU[tmauA,tmauT]G[tdg]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.gen.alg.text.q         3 PINT     R                 tmaTQ                                                       
 audit.gen.alg.text.line     80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]G[tdg]T[tmaTQ]                        
 Ì     i   2
pha.mri.audit.trail.ingred.adr    (audit.trail.ingred.adrs) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.ingred.adr]
?TM[ea]AU[tmauA,tmauT]IR[tta]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.ingred.adr      10 FREE     L  PHA.ALLERGY    tta                                                     
 Ì     i   2
pha.mri.audit.ingr.adr.otext    (audit.ingr.adr.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.ingred.adr, audit.ingr.adr.old.text.q]
?TM[ea]AU[tmauA,tmauT]IR[tta]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.ingr.adr.old.text.q    3 PINT     R                 tmaOQ                                                       
 audit.ingr.adr.old.textln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]IR[tta]OT[tmaOQ]                      
 Ì     i   2
pha.mri.audit.ingr.adr.text    (audit.trail.ingr.adr.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.ingred.adr, audit.ingr.adr.text.q]
?TM[ea]AU[tmauA,tmauT]IR[tta]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.ingr.adr.text.q        3 PINT     R                 tmaTQ                                                       
 audit.ingr.adr.text.line    80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]IR[tta]T[tmaTQ]                       
 Ì     i   2
pha.mri.audit.trail.ingredient    (audit.trail.ingredients) 
[urn,audit.trail.changed,audit.trail.type, audit.trail.ingredient]
?TM[ea]AU[tmauA,tmauT]I[tta]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.trail.ingredient      10 FREE     L  PHA.ALLERGY    tta                                                     
 Ì     i   2
pha.mri.audit.ingr.alg.otext    (audit.ingr.alg.old.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.ingredient, audit.ingr.alg.old.text.q]
?TM[ea]AU[tmauA,tmauT]I[tta]OT[tmaOQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.ingr.alg.old.text.q    3 PINT     R                 tmaOQ                                                       
 audit.ingr.alg.old.textln   80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]I[tta]OT[tmaOQ]                       
 Ì     i   2
pha.mri.audit.ingr.alg.text    (audit.trail.ingr.alg.text) 
[urn,audit.trail.changed,audit.trail.type,audit.trail.ingredient, audit.ingr.alg.text.q]
?TM[ea]AU[tmauA,tmauT]I[tta]T[tmaTQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 audit.ingr.alg.text.q        3 PINT     R                 tmaTQ                                                       
 audit.ingr.alg.text.line    80 FREE     L                 ?TM[ea]AU[tmauA,tmauT]I[tta]T[tmaTQ]                        
 Ì     i   2
pha.mri.class.adrs    (class.adrs) 
[urn, class.adr]
?TM[ea]CAR[tdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 class.adr                   10 FREE     L  PHA.CLASS      tdc                                                     
 class.adr.date               8 DATE     L                 VAL=IF{@class.adr.entered^XX %Z.date.in.magic(XX)}          
 class.adr.entered            9 PINT     R                 ?TM[ea]CAR[tdc]|0                                           
 class.adr.sev                1 FREE     L                 ?TM[ea]CAR[tdc]|2                                           
 class.adr.time               4 HHMM     L                 VAL=IF{@class.adr.entered^XX %Z.time.out(XX)}               
 class.adr.user              10 FREE     L  MIS.USER       ?TM[ea]CAR[tdc]|1                                       
 Ì     i   2
pha.mri.class.adrs.text    (class.adrs.text) 
[urn,class.adr, class.adr.text.q]
?TM[ea]CAR[tdc]R[tdcR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 class.adr.text.q             2 PINT     R                 tdcR                                                        
 class.adr.text              75 FREE     L                 ?TM[ea]CAR[tdc]R[tdcR]                                      
 Ì     i   2
pha.mri.class.allergies    (class.allergies) 
[urn, class.allergy]
?TM[ea]CA[tdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 class.allergy               10 FREE     L  PHA.CLASS      tdc                                                     
 class.allergy.date           8 DATE     L                 VAL=IF{@class.allergy.entered^XX %Z.date.in.magic(XX)}      
 class.allergy.entered        9 PINT     R                 ?TM[ea]CA[tdc]|0                                            
 class.allergy.sev            1 FREE     L                 ?TM[ea]CA[tdc]|2                                            
 class.allergy.time           4 HHMM     L                 VAL=IF{@class.allergy.entered^XX %Z.time.out(XX)}           
 class.allergy.user          10 FREE     L  MIS.USER       ?TM[ea]CA[tdc]|1                                        
 Ì     i   2
pha.mri.class.allergies.text    (class.allergies.text) 
[urn,class.allergy, class.allergy.text.q]
?TM[ea]CA[tdc]R[tdcR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 class.allergy.text.q         2 PINT     R                 tdcR                                                        
 class.allergy.text          75 FREE     L                 ?TM[ea]CA[tdc]R[tdcR]                                       
 Ì     i   2
coded.allergies    (coded.allergies) 
[urn, coded.allergy]
?TM[ea]CMA[gel]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 coded.allergy               15 FREE     L  MIS.ALLERGY    gel                                                     
 coded.allergy.date           8 DATE     L                 ?TM[ea]CMA[gel]|2                                           
 coded.allergy.id            40 FREE     L                 ?TM[ea]CMA[gel]|6                                           
 coded.allergy.pt.reaction   60 FREE     L                 ?TM[ea]CMA[gel]|4                                           
 coded.allergy.severity       1 CHOICE   L                 ?TM[ea]CMA[gel]|1                                           
 coded.allergy.time.stamp    10 PINT     R                 ?TM[ea]CMA[gel]|5                                           
 coded.allergy.type           7 CHOICE   L                 ?TM[ea]CMA[gel]|0                                           
 coded.allergy.verified       1 YN       L                 ?TM[ea]CMA[gel]|3                                           
 Ì     i   2
coded.allergy.text    (coded.allergy.text) 
[urn,coded.allergy, coded.alg.text.q]
?TM[ea]CMA[gel]T[tmcmQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 coded.alg.text.q             3 PINT     R                 tmcmQ                                                       
 coded.alg.text.line         60 FREE     L                 ?TM[ea]CMA[gel]T[tmcmQ]                                     
 Ì     i   2
pha.medical.rec.ingr.dosages    (cumulative.ingr.dosages) 
[urn, cumulative.ingr,cumulative.ingr.secs,cumulative.ingr.urn,cumulative.ingr.generic]
?TM[ea]DS[tid,cis,tr,tdg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cumulative.ingr             10 FREE     L  PHA.INGR.DOSE  tid                                                     
 cumulative.ingr.secs         9 PINT     R                 cis                                                         
 cumulative.ingr.urn         10 URN      L  PHA.RX         tr                                                      
 cumulative.ingr.generic     10 FREE     L  PHA.GENERIC    tdg                                                     
 cumulative.ingr.dosage       8 DECZ     R                 ?TM[ea]DS[tid,cis,tr,tdg]|0                                 
 Ì     i   2
pha.mri.diseases    (diseases) 
[urn, disease]
?TM[ea]D[ted]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 disease                     10 FREE     L  PHA.DIS        ted                                                     
 disease.date                 8 DATE     L                 VAL=IF{@disease.entered^XX %Z.date.in.magic(XX)}            
 disease.entered              9 PINT     R                 ?TM[ea]D[ted]|0                                             
 disease.time                 4 HHMM     L                 VAL=IF{@disease.entered^XX %Z.time.out(XX)}                 
 disease.user                10 FREE     L  MIS.USER       ?TM[ea]D[ted]|1                                         
 Ì     i   2
drug.ingred.exclusions    (drug.ingred.exclusions) 
[urn, drug.ingred.exclusion]
?TM[ea]DIEXCL[geldi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 drug.ingred.exclusion       10 FREE     L  MIS.ALL.DI     geldi                                                   
 drug.ingred.excl.upd        10 PINT     R                 ?TM[ea]DIEXCL[geldi]                                        
 Ì     i   2
pha.mri.external.comments    (ext.comments) 
[urn, ext.com.q]
?TM[ea]C[tmc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ext.com.q                    2 PINT     R                 tmc                                                         
 ext.comment                 75 FREE     L                 ?TM[ea]C[tmc]                                               
 Ì     i   2
pha.mri.generic.adrs    (generic.adrs) 
[urn, generic.adr]
?TM[ea]GAR[tdg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 generic.adr                 10 FREE     L  PHA.GENERIC    tdg                                                     
 generic.adr.date             8 DATE     L                 VAL=IF{@generic.adr.entered^XX %Z.date.in.magic(XX)}        
 generic.adr.entered          9 PINT     R                 ?TM[ea]GAR[tdg]|0                                           
 generic.adr.sev              1 FREE     L                 ?TM[ea]GAR[tdg]|2                                           
 generic.adr.time             4 HHMM     L                 VAL=IF{@generic.adr.entered^XX %Z.time.out(XX)}             
 generic.adr.user            10 FREE     L  MIS.USER       ?TM[ea]GAR[tdg]|1                                       
 Ì     i   2
pha.mri.generic.adrs.text    (generic.adrs.text) 
[urn,generic.adr, generic.adr.text.q]
?TM[ea]GAR[tdg]R[tdgR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 generic.adr.text.q           2 PINT     R                 tdgR                                                        
 generic.adr.text            75 FREE     L                 ?TM[ea]GAR[tdg]R[tdgR]                                      
 Ì     i   2
pha.mri.generic.allergies    (generic.allergies) 
[urn, generic.allergy]
?TM[ea]GA[tdg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 generic.allergy             10 FREE     L  PHA.GENERIC    tdg                                                     
 generic.allergy.date         8 DATE     L                 VAL=IF{@generic.allergy.entered^XX %Z.date.in.magic(XX      
                                                           VAL=)}                                                      
 generic.allergy.entered      9 PINT     R                 ?TM[ea]GA[tdg]|0                                            
 generic.allergy.sev          1 FREE     L                 ?TM[ea]GA[tdg]|2                                            
 generic.allergy.time         4 HHMM     L                 VAL=IF{@generic.allergy.entered^XX %Z.time.out(XX)}         
 generic.allergy.user        10 FREE     L  MIS.USER       ?TM[ea]GA[tdg]|1                                        
 Ì     i   2
pha.mri.generic.allergies.text    (generic.allergies.text) 
[urn,generic.allergy, generic.allergy.text.q]
?TM[ea]GA[tdg]R[tdgR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 generic.allergy.text.q       2 PINT     R                 tdgR                                                        
 generic.allergy.text        75 FREE     L                 ?TM[ea]GA[tdg]R[tdgR]                                       
 Ì     i   2
pha.mri.ingredient.adrs    (ingredient.adrs) 
[urn, ingredient.adr]
?TM[ea]ACR[tta]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ingredient.adr              10 FREE     L  PHA.ALLERGY    tta                                                     
 ingredient.adr.date          8 DATE     L                 VAL=IF{@ingredient.adr.entered^XX %Z.date.in.magic(XX)      
                                                           VAL=}                                                       
 ingredient.adr.entered       9 PINT     R                 ?TM[ea]ACR[tta]|0                                           
 ingredient.adr.sev           1 FREE     L                 ?TM[ea]ACR[tta]|2                                           
 ingredient.adr.time          4 HHMM     L                 VAL=IF{@ingredient.adr.entered^XX %Z.time.out(XX)}          
 ingredient.adr.user         10 FREE     L  MIS.USER       ?TM[ea]ACR[tta]|1                                       
 Ì     i   2
pha.mri.ingredient.adrs.text    (ingredient.adrs.text) 
[urn,ingredient.adr, ingredient.adr.text.q]
?TM[ea]ACR[tta]R[tdcR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ingredient.adr.text.q        2 PINT     R                 tdcR                                                        
 ingredient.adr.text         75 FREE     L                 ?TM[ea]ACR[tta]R[tdcR]                                      
 Ì     i   2
pha.mri.internal.comments    (int.comments) 
[urn, int.com.q]
?TM[ea]I[tmi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 int.com.q                    2 PINT     R                 tmi                                                         
 int.comment                 75 FREE     L                 ?TM[ea]I[tmi]                                               
 Ì     i   2
pha.mri.progress.notes    (progress.notes) 
[urn, notes.q]
?TM[ea]P[tmP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 notes.q                      3 PINT     R                 tmP                                                         
 notes.category              10 FREE     L  PHA.NCAT       ?TM[ea]P[tmP]|3                                         
 notes.date                   8 DATE     L                 ?TM[ea]P[tmP]|0                                             
 notes.status                 1 CHOICE   L                 ?TM[ea]P[tmP]|4                                             
 notes.status.name            9 FREE     L                 VAL=IF{@notes.status^XX="A" "Active";XX="I" "Inactive"      
                                                           VAL=}                                                       
 notes.time                   4 HHMM     L                 ?TM[ea]P[tmP]|1                                             
 notes.user                  10 FREE     L  MIS.USER       ?TM[ea]P[tmP]|2                                         
 notes.user.name             30 FREE     L                 VAL=@MIS.USER.name[@notes.user]                             
 Ì     i   2
pha.mri.progress.notes.at    (progress.notes.at) 
[urn,notes.q, notes.at.q]
?TM[ea]P[tmP]AT[tmAT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 notes.at.q                   3 PINT     R                 tmAT                                                        
 notes.at.activity            1 CHOICE   L                 ?TM[ea]P[tmP]AT[tmAT]|3                                     
 notes.at.activity.name      10 FREE     L                 VAL=IF{@notes.at.activity^XX="A" "Activate";XX="I" "In      
                                                           VAL=activate";"Enter"}                                      
 notes.at.date                8 DATE     L                 ?TM[ea]P[tmP]AT[tmAT]|0                                     
 notes.at.terminal           20 FREE     L                 ?TM[ea]P[tmP]AT[tmAT]|4                                     
 notes.at.time                4 HHMM     L                 ?TM[ea]P[tmP]AT[tmAT]|1                                     
 notes.at.user               10 FREE     L  MIS.USER       ?TM[ea]P[tmP]AT[tmAT]|2                                 
 notes.at.user.name          30 FREE     L                 VAL=@MIS.USER.name[@notes.at.user]                          
 Ì     i   2
pha.mri.progrss.notes.text    (progress.notes.text) 
[urn,notes.q, notes.text.q]
?TM[ea]P[tmP]T[tmPT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 notes.text.q                 3 PINT     R                 tmPT                                                        
 notes.text                  80 FREE     L                 ?TM[ea]P[tmP]T[tmPT]                                        
 Ì     i   2
pha.mri.rxm.allergy.adr    (rxm.allergy.adr) 
[urn, all.adr.q]
?TM[ea]RAA[adrq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 all.adr.q                   10 PINT     R                 adrq                                                        
 all.adr.new                  1 FREE     L                 ?TM[ea]RAA[adrq]|1                                          
 all.adr.updated              9 PINT     R                 ?TM[ea]RAA[adrq]|0                                          
 Ì     i   2
xsensitivity.exclusions    (xsensitivity.exclusions) 
[urn, xsensitivity.exclusion]
?TM[ea]XSEXCL[gelFX]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 xsensitivity.exclusion      10 FREE     L  MIS.ALL.AG     gelFX                                                   
 xsensitivity.excl.upd       10 PINT     R                 ?TM[ea]XSEXCL[gelFX]                                        
 Ì     i   2
pha.mri.xfer.log    (xfer.log) 
[xfer.log.date,xfer.log.time,xfer.log.q]
?TML[tmlDT,tmlTM,tmlQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 xfer.log.date                8 DATE     L                 tmlDT                                                       
 xfer.log.time                4 HHMM     L                 tmlTM                                                       
 xfer.log.q                   4 PINT     R                 tmlQ                                                        
 xfer.log.new.mri            25 URN      L  MRI.PAT        ?TML[tmlDT,tmlTM,tmlQ]|2                                
 xfer.log.old.mri            25 URN      L  MRI.PAT        ?TML[tmlDT,tmlTM,tmlQ]|1                                
 xfer.log.patient            30 URN      L  ADM.PAT        ?TML[tmlDT,tmlTM,tmlQ]|3                                
 xfer.log.type                7 CHOICE   L                 ?TML[tmlDT,tmlTM,tmlQ]|0                                    
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pha.mri.progress.notes.x           [notes.date,notes.time,urn,notes.q]
   progress.notes.x                   ?TMD[tmPD,tmPT,ea,tmP]