sHelp
                                     PCM.CODE
     i   2
   main
     code.events
       code.events.bullets
         code.events.bul.queries
           code.events.bul.resps
       code.events.categories
         code.events.cat.queries
           code.events.cat.resps
       code.events.sugg.lvc
     comment.lines
     documents
     responses.exams.1995
     responses.history.complaint
     responses.history.hpi
     responses.history.pfsh
     responses.history.ros

 Ì     i   2
main    (main) 
[urn]
:HTC[htc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 urn                         10 URN      L                 htc                                                         
 adm.db                      12 FREE     L  MIS.APPL       VAL=%PCM.CODE.get.db(urn,"ADM")                         
 adm.urn                     30 URN      L  PCM.PAT        :HTC[htc]|1                                             
 box                         10 FREE     L  MIS.PD.BOX                                                             
 bullet                      10 FREE     L  MIS.PD.BULLET                                                          
 code                         5 PINT     R  MIS.PD.LVC     :HTC[htc]|3                                             
 code.cat                    15 FREE     L  MIS.PD.CC                                                              
 date                         8 DATE     L                 :HTC[htc]|0                                                 
 exam                        10 FREE     L  MIS.PD.EXAM                                                            
 exam.1995.score              2 PINT     R                 :HTC[htc]R|4                                                
 facility                    10 FREE     L  MIS.FACILITY   :HTC[htc]|2                                             
 group.ele                   10 FREE     L                                                                             
 group.resp                  10 FREE     L  MIS.GROUP.RESP                                                         
 history.complaint.score      1 PINT     R                 :HTC[htc]R|0                                                
 history.hpi.score            1 PINT     R                 :HTC[htc]R|1                                                
 history.pfsh.score           1 PINT     R                 :HTC[htc]R|3                                                
 history.ros.score            2 PINT     R                 :HTC[htc]R|2                                                
 last.update                 10 FREE     L                 :HTC[htc]UPD|0                                              
 last.update.date             8 DATE     L                 VAL=%Z.date.in.magic(@last.update)                          
 last.update.date.time       15 FREE     L                 VAL=%Z.date.out(@last.update.date,"",10)_"-"_@last.upd      
                                                           VAL=ate.time'="-"                                           
 last.update.time             4 HHMM     L                 VAL=%Z.time.out(@last.update)                               
 last.update.user            10 FREE     L  MIS.USER       :HTC[htc]UPD|1                                          
 last.update.user.out        30 FREE     L                 VAL=%Z.convert.to.mixed.case(@MIS.USER.name[@last.upda      
                                                           VAL=te.user],"",1)                                          
 mri.db                      12 FREE     L  MIS.APPL       VAL=%PCM.CODE.get.db(urn,"MRI")                         
 mri.urn                     25 URN      L  MRI.PAT        VAL=%PCM.CODE.pt.mri.urn(urn)                           
 new.flag                     1 YN       L                 :HTC[htc]|5                                                 
 provider                    10 FREE     L  MIS.DOC.DICT   :HTC[htc]|4                                             
 query                       10 FREE     L  MIS.QUERY                                                              
 template                    15 URN      L  MIS.PD.TMPL                                                            
 Ì     i   2
code.events    (code.events) 
[urn, ce.seq]
:HTC[htc]C[htcE]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.seq                       3 PINT     R                 htcE                                                        
 ce.date                      8 DATE     L                 VAL=%Z.date.in.magic(@ce.seconds)                           
 ce.date.time                15 FREE     L                 VAL=%Z.date.out(@ce.date,"",10)_"-"_@ce.time'="-"           
 ce.encounter                15 URN      L  MIS.PD.ENC     :HTC[htc]C[htcE]M|2                                     
 ce.event.date                8 DATE     L                 :HTC[htc]C[htcE]M|0                                         
 ce.event.time               20 FREE     L                 :HTC[htc]C[htcE]M|1                                         
 ce.exam.1995.lvl            25                            :HTC[htc]C[htcE]E|1                                         
 ce.exam.1997.exam           10 FREE     L  MIS.PD.EXAM    :HTC[htc]C[htcE]E|3                                     
 ce.exam.1997.lvl                                          :HTC[htc]C[htcE]E|2                                         
 ce.exam.guide.pref           4 CHOICE   L                 :HTC[htc]C[htcE]E|0                                         
 ce.exam.higher.lvl           4 CHOICE   L                 :HTC[htc]C[htcE]E|4                                         
 ce.primary.diagnosis         7 FREE     L  MIS.MED.PROB   :HTC[htc]C[htcE]M|3                                     
 ce.procedure                 8 FREE     L  ABS.CPT        :HTC[htc]C[htcE]M|5                                     
 ce.provider                 10 FREE     L  MIS.DOC.DICT   :HTC[htc]C[htcE]|8                                      
 ce.secondary.diagnosis       7 FREE     L  MIS.MED.PROB   :HTC[htc]C[htcE]M|4                                     
 ce.seconds                  10 PINT     R                 :HTC[htc]C[htcE]|0                                          
 ce.sel.care.lvl              5 PINT     R  MIS.PD.LVC     :HTC[htc]C[htcE]|7                                      
 ce.sel.decision.lvl         20 CHOICE   L                 :HTC[htc]C[htcE]|6                                          
 ce.sel.exam.lvl             25 CHOICE   L                 :HTC[htc]C[htcE]|5                                          
 ce.sel.history.lvl          25 CHOICE   L                 :HTC[htc]C[htcE]|4                                          
 ce.sugg.decision.lvl        25 CHOICE   L                 :HTC[htc]C[htcE]|3                                          
 ce.sugg.exam.lvl            25 CHOICE   L                 :HTC[htc]C[htcE]|2                                          
 ce.sugg.history.lvl         25 CHOICE   L                 :HTC[htc]C[htcE]|1                                          
 ce.time                      4 HHMM     L                 VAL=%Z.time.out(@ce.seconds)                                
 Ì     i   2
code.events.bullets    (code.events.bullets) 
[urn,ce.seq, ce.bullet]
:HTC[htc]C[htcE]BB[gpdu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.bullet                   10 FREE     L  MIS.PD.BULLET  gpdu                                                    
 Ì     i   2
code.events.bul.queries    (code.events.bul.queries) 
[urn,ce.seq,ce.bullet, ce.bul.q]
:HTC[htc]C[htcE]BB[gpdu]Q[htcCB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.bul.q                     3 PINT     R                 htcCB                                                       
 ce.bul.doc                   9 URN      L  PCM.DOC        :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|0                      
 ce.bul.gelement             10 FREE     L                 :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|9                          
 ce.bul.gresp                10 FREE     L  MIS.GROUP.RESP :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|8                      
 ce.bul.image                15 FREE     L  MIS.PICTURE    :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|5                      
 ce.bul.image.urn             5 URN      L                 :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|6                          
 ce.bul.mult.repeat.urn       3 PINT     R                 :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|4                          
 ce.bul.mult.urn             15 FREE     L  MIS.PD.MULT    :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|3                      
 ce.bul.query                10 FREE     L  MIS.QUERY      :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|7                      
 ce.bul.section              15 URN      L  MIS.PD.SECTION :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|1                      
 ce.bul.user                 10 FREE     L  MIS.USER       :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]|2                      
 Ì     i   2
code.events.bul.resps    (code.events.bul.resps) 
[urn,ce.seq,ce.bullet,ce.bul.q, ce.bul.resp.q]
:HTC[htc]C[htcE]BB[gpdu]Q[htcCB]R[htcBR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.bul.resp.q                3 PINT     R                 htcBR                                                       
 ce.bul.resp                 80 FREE     L                 :HTC[htc]C[htcE]BB[gpdu]Q[htcCB]R[htcBR]|0                  
 Ì     i   2
code.events.categories    (code.events.categories) 
[urn,ce.seq, ce.category]
:HTC[htc]C[htcE]CC[gpdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.category                 15 FREE     L  MIS.PD.CC      gpdc                                                    
 Ì     i   2
code.events.cat.queries    (code.events.cat.queries) 
[urn,ce.seq,ce.category, ce.cat.q]
:HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.cat.q                     3 PINT     R                 htcCQ                                                       
 ce.cat.doc                   9 URN      L  PCM.DOC        :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|0                      
 ce.cat.image                15 FREE     L  MIS.PICTURE    :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|5                      
 ce.cat.image.urn             5 URN      L                 :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|6                          
 ce.cat.mult.repeat.urn       3 PINT     R                 :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|4                          
 ce.cat.mult.urn             15 FREE     L  MIS.PD.MULT    :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|3                      
 ce.cat.query                10 FREE     L  MIS.QUERY      :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|7                      
 ce.cat.section              15 URN      L  MIS.PD.SECTION :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|1                      
 ce.cat.user                 10 FREE     L  MIS.USER       :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]|2                      
 Ì     i   2
code.events.cat.resps    (code.events.cat.resps) 
[urn,ce.seq,ce.category,ce.cat.q, ce.cat.resp.q]
:HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]R[htcQR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.cat.resp.q                3 PINT     R                 htcQR                                                       
 ce.cat.resp                 80 FREE     L                 :HTC[htc]C[htcE]CC[gpdc]Q[htcCQ]R[htcQR]|0                  
 Ì     i   2
code.events.sugg.lvc    (code.events.sugg.lvc) 
[urn,ce.seq, ce.sugg.care.lvl]
:HTC[htc]C[htcE]S[gPDLC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ce.sugg.care.lvl             5 PINT     R  MIS.PD.LVC     gPDLC                                                   
 Ì     i   2
comment.lines    (comment.lines) 
[urn, cl.seq]
:HTC[htc]CL[htcL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cl.seq                       3 PINT     R                 htcL                                                        
 cl.text                     80 FREE     L                 :HTC[htc]CL[htcL]                                           
 Ì     i   2
documents    (documents) 
[urn, document]
:HTC[htc]D[docU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 document                     9 URN      L  PCM.DOC        docU                                                    
 Ì     i   2
responses.exams.1995    (exams.1995) 
[urn, exams.1995.code]
:HTC[htc]R["E",gpdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 exams.1995.code             15 FREE     L  MIS.PD.CC      gpdc                                                    
 exams.1995.query            10 FREE     L  MIS.QUERY      :HTC[htc]R["E",gpdc]|0                                  
 Ì     i   2
responses.history.complaint    (history.complaint) 
[urn, history.complaint.code]
:HTC[htc]R["C",gpdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 history.complaint.code      15 FREE     L  MIS.PD.CC      gpdc                                                    
 history.complaint.edm        1 YN       L                 :HTC[htc]R["C",gpdc]|1                                      
 history.complaint.query     10 FREE     L  MIS.QUERY      :HTC[htc]R["C",gpdc]|0                                  
 Ì     i   2
responses.history.hpi    (history.hpi) 
[urn, history.hpi.code]
:HTC[htc]R["H",gpdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 history.hpi.code            15 FREE     L  MIS.PD.CC      gpdc                                                    
 history.hpi.query           10 FREE     L  MIS.QUERY      :HTC[htc]R["H",gpdc]|0                                  
 Ì     i   2
responses.history.pfsh    (history.pfsh) 
[urn, history.pfsh.code]
:HTC[htc]R["P",gpdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 history.pfsh.code           15 FREE     L  MIS.PD.CC      gpdc                                                    
 history.pfsh.query          10 FREE     L  MIS.QUERY      :HTC[htc]R["P",gpdc]|0                                  
 Ì     i   2
responses.history.ros    (history.ros) 
[urn, history.ros.code]
:HTC[htc]R["R",gpdc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 history.ros.code            15 FREE     L  MIS.PD.CC      gpdc                                                    
 history.ros.query           10 FREE     L  MIS.QUERY      :HTC[htc]R["R",gpdc]|0                                  
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 adm.x                              [adm.urn,urn]
   adm.x                              :HTCA[aa,htc]

 date.provider.x                    [date,provider,urn]
   date.provider.x                    :HTCDP[htcD,ggg,htc]

 date.x                             [date,urn]
   date.x                             :HTCDT[htcD,htc]

 document.index                     [document,urn]
   document.x                         :HTCD[docU,htc]