sHelp
                                     PRV.PAT
     i   2
 main
   dxs
   dx.pointers
   insure.data
   insure.order
   receipt.txns

 Ì   €   i   2
main
[patient]
$(HF1)HFZ[aa]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 patient                     30 URN      L  ADM.PAT        aa                                                      
 acct.number                 12 FREE     L                 $(HF1)HFZ[aa]|0                                             
 admit.date                   8 DATE     L                 $(HF1)HFZ[aa]|6                                             
 admit.doctor                10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]DR|0                                       
 admit.doctor.name           30 FREE     L                 VAL=@MIS.DOC.name[@admit.doctor]                            
 age                          7 AGE      R                 VAL=@MRI.PAT.age[@mri.urn]                                  
 age.and.sex                 12 FREE     L                 VAL=(@MRI.DRC.current.age[@mri.urn]_" "_@MRI.DRC.sex[@      
                                                           VAL=mri.urn])                                               
 amt.pd                       9 MONEY    R                 $(HF1)HFZ[aa]|12                                            
 attend.doctor               10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]DR|1                                       
 attend.doctor.name          30 FREE     L                 VAL=@MIS.DOC.name[@attend.doctor]                           
 birthdate                   10 BDATE    L                 VAL=@MRI.PAT.birthdate[@mri.urn]                            
 computed.birthdate          10 BDATE    L                 VAL=@MRI.PAT.computed.birthdate[@mri.urn]                   
 confidential                 1 YN       L                 $(HF1)HFZ[aa]|10                                            
 copay.total                 10 SMONEY   R                 VAL=%PRV.BATCH.patient.total(patient,@.today)               
 date                         8 DATE     L                 VAL=ADM.PAT.date                                            
 diagnosis.provider          10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]P|0                                        
 diagnosis.provider.name     30 FREE     L                 VAL=@MIS.DOC.name[@diagnosis.provider]                      
 discharge.date               8 DATE     L                 $(HF1)HFZ[aa]|8                                             
 er.doctor                   10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]DR|4                                       
 er.doctor.name              30 FREE     L                 VAL=@MIS.DOC.name[@er.doctor]                               
 facility                    10 FREE     L  MIS.FACILITY   $(HF1)HFZ[aa]|9                                         
 family.doctor               10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]DR|3                                       
 family.doctor.name          30 FREE     L                 VAL=@MIS.DOC.name[@family.doctor]                           
 grouper.version             10 FREE     L                 $(HF1)HFZ[aa]DX|0                                           
 id                          30 URN      L  ADM.PAT        VAL=(@ADM.PAT.acct.number_"  "_@ADM.PAT.name:0S)        
 ins.mnemonic.1              10 FREE     L  MIS.INS        VAL=@PRV.PAT.insurance.mnemonic[1]                      
 keep.visit.dx.order          1 YN       L                 $(HF1)HFZ[aa]P|2                                            
 location                    10 FREE     L  MIS.LOCN       $(HF1)HFZ[aa]|5                                         
 mri.urn                     25 URN      L  MRI.PAT        $(HF1)HFZ[aa]|3                                         
 name                        30 FREE     L                 VAL=@MRI.PAT.name[@mri.urn]                                 
 number.and.name             44 FREE     L                 VAL=(@PRV.PAT.acct.number_"  "_@MRI.PAT.name[@mri.urn]      
                                                           VAL=:0S)                                                    
 number.name.and.status      55 FREE     L                 VAL=@acct.number_"  "_@MRI.PAT.name[@mri.urn]_"  ["_@s      
                                                           VAL=tatus.w.flags_"]":0S                                    
 observation.patient          1 FREE     L                 $(HF1)HFZ[aa]|11                                            
 other.doctor                10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]DR|2                                       
 other.doctor.name           30 FREE     L                 VAL=@MIS.DOC.name[@other.doctor]                            
 outpatient.location         10 FREE     L  MIS.LOCN       VAL=@ADM.PAT.outpatient.location                        
 override.ins.benefit        10 FREE     L  MIS.INS.BENE   $(HF1)HFZ[aa]P|1                                        
 pat.city                    20 FREE     L                 VAL=@MRI.DRC.pat.city[@mri.urn]                             
 pat.home.phone              18 PHONE    L                 VAL=@MRI.DRC.pat.home.phone[@mri.urn]                       
 pat.name.fl                 30 FREE     L                 VAL=(%PRV.ENC.pt.fields("","NMFL",@mri.urn))                
 pat.state                    2 FREE     L                 VAL=@MRI.DRC.pat.state[@mri.urn]                            
 pat.street                  30 FREE     L                 VAL=@MRI.DRC.pat.street[@mri.urn]                           
 pat.street2                 30 FREE     L                 VAL=@MRI.DRC.pat.street2[@mri.urn]                          
 pat.zip                     10 ZIP.POST L                 VAL=@MRI.DRC.pat.zip[@mri.urn]                              
 patient.city.state.zip.o    30 FREE     L                 VAL=(@MRI.DRC.pt.addr[@mri.urn]^AD#2P_", "_AD|3_"  "_A      
                                                           VAL=D|4'=",   ")                                            
 patient.id.name             30 FREE     L                                                                             
 patient.id.num.and.name     44 FREE     L                                                                             
 prim.care.doctor            10 FREE     L  MIS.DOC        $(HF1)HFZ[aa]DR|5                                       
 prim.care.doctor.name       30 FREE     L                 VAL=@MIS.DOC.name[@prim.care.doctor]                        
 registration.date            8 DATE     L                 VAL=IF{@PRV.PAT.admit.date;@PRV.PAT.service.date}           
 respon.doctor               10 FREE     L  MIS.DOC        VAL=IF{@PRV.PAT.attend.doctor;@PRV.PAT.er.doctor}       
 respon.doctor.name          30 FREE     L                 VAL=@MIS.DOC.name[@respon.doctor]                           
 service                     10 FREE     L  MIS.SVC        $(HF1)HFZ[aa]|4                                         
 service.date                 8 DATE     L                 $(HF1)HFZ[aa]|7                                             
 sex                          1 FREE     L                 VAL=@MRI.PAT.sex[@mri.urn]                                  
 status                       8 FREE     L                 $(HF1)HFZ[aa]|1                                             
 status.type                  5 FREE     L                 VAL=@ADM.PAT.status.type                                    
 status.w.flags               8 FREE     L                 VAL=%PRV.PAT.status.w.flags(patient)                        
 status.w.obsv                8 FREE     L                 VAL=(@PRV.PAT.status_IF{@PRV.PAT.observation.patient="      
                                                           VAL=Y" "o"})                                                
 time                         4 TIME     L                 VAL=@ADM.PAT.time                                           
 unit.number                 10 FREE     L                 $(HF1)HFZ[aa]|2                                             
 Ì   €   i   2
dxs
[patient,  dx.seq.no]
$(HF1)HFZ[aa]DX[aaDN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dx.seq.no                    2 PINT     R                 aaDN                                                        
 dx.alt.name                 60 FREE     L                 $(HF1)HFZ[aa]DX[aaDN]|1                                     
 dx.code                      7 FREE     L                 $(HF1)HFZ[aa]DX[aaDN]|0                                     
 Ì   €   i   2
dx.pointers
[patient,  dx.ptr.code]
$(HF1)HFZ[aa]DXP[gi9d]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dx.ptr.code                  7 FREE     L                 gi9d                                                        
 dx.ptr.seq.no                2 PINT     R                 $(HF1)HFZ[aa]DXP[gi9d]|0                                    
 Ì   €   i   2
insure.data
[patient,  insurance]
$(HF1)HFZ[aa]I[ggm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 insurance                   10 FREE     L  MIS.INS        ggm                                                     
 insurance.benefit.plan      10 FREE     L  MIS.INS.BENE   $(HF1)HFZ[aa]I[ggm]|9                                   
 insurance.cov.no            20 FREE     L                 $(HF1)HFZ[aa]I[ggm]|7                                       
 insurance.eff.date           8 DATE     L                 $(HF1)HFZ[aa]I[ggm]|5                                       
 insurance.exp.date           8 DATE     L                 $(HF1)HFZ[aa]I[ggm]|6                                       
 insurance.treat.auth.num    18 FREE     L                 $(HF1)HFZ[aa]I[ggm]|8                                       
 insured.group.name          30 FREE     L                 $(HF1)HFZ[aa]I[ggm]|4                                       
 insured.group.number        15 FREE     L                 $(HF1)HFZ[aa]I[ggm]|3                                       
 insured.name                30 FREE     L                 $(HF1)HFZ[aa]I[ggm]|0                                       
 insured.policy.number       30 FREE     L                 $(HF1)HFZ[aa]I[ggm]|2                                       
 insured.relationship        10 FREE     L  MIS.RELAT      $(HF1)HFZ[aa]I[ggm]|1                                   
 Ì   €   i   2
insure.order
[patient,  ins.seq.no]
$(HF1)HFZ[aa]IO[aaIN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ins.seq.no                   1 PINT     R                 aaIN                                                        
 insurance.mnemonic          10 FREE     L  MIS.INS        $(HF1)HFZ[aa]IO[aaIN]|0                                 
 Ì   €   i   2
receipt.txns
[patient,  rcpt.seq.no]
$(HF1)HFZ[aa]RT[hfzRT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 rcpt.seq.no                 12 FREE     L                 hfzRT                                                       
 rcpt.amt                     9 SMONEY   R                 $(HF1)HFZ[aa]RT[hfzRT]|7                                    
 rcpt.bch.date                8 DATE     L                 $(HF1)HFZ[aa]RT[hfzRT]|0                                    
 rcpt.bch.no                  4 PINT     R                 $(HF1)HFZ[aa]RT[hfzRT]|1                                    
 rcpt.bch.proc               10 FREE     L  PRV.CR.PROC    $(HF1)HFZ[aa]RT[hfzRT]|4                                
 rcpt.bch.txn.urn             4 PINT     R                 $(HF1)HFZ[aa]RT[hfzRT]|3                                    
 rcpt.bch.urn                 5 PINT     R  PRV.BATCH      $(HF1)HFZ[aa]RT[hfzRT]|2                                
 rcpt.mpi                    25 URN      L  MRI.PAT        $(HF1)HFZ[aa]RT[hfzRT]|9                                
 rcpt.mpi.ptr                 5 PINT     R                 $(HF1)HFZ[aa]RT[hfzRT]|10                                   
 rcpt.no                     12 FREE     L                 $(HF1)HFZ[aa]RT[hfzRT]|8                                    
 rcpt.practice               10 FREE     L  PRV.PRACTICE   $(HF1)HFZ[aa]RT[hfzRT]|6                                
 rcpt.svc.date                8 DATE     L                 $(HF1)HFZ[aa]RT[hfzRT]|5                                    

 Index Files                        Subscripts/Physical Base

 adm.reg.index                      [ADM.PAT.facility,ADM.PAT.status.type,ADM.PAT.date,ADM.PAT.time,ADM.PAT.urn]
                                      ?(A)AAEI[gqb,aaST,aaDT,aaTM,aa]

 mpi.x                              [mri.urn,patient]
                                      ?(HF)HFZMPI[ea,aa]

 unapplied.x                        [patient,rcpt.seq.no]
                                      ?(HF)HFZU[aa,hfzRT]

 urn.x                              [patient]
                                      ?(HF)HFZURN[aa]