sHelp
                                     PHA.SEARCH
       2
   pha.search.last.run.index
   pha.search
     pha.search.pt.acct.status
     pha.search.queries
       pha.search.responses
     pha.search.rxs.found
     pha.search.selections

 Ì       2
pha.search.last.run.index    (last.run.x) 
[profile.2]
:TGL[tts]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 profile.2                   10 FREE     L  PHA.SRCH.DICT  tts                                                     
 last.date                    8 DATE     L                 :TGL[tts]|0                                                 
 last.time                    4 HHMM     L                 :TGL[tts]|1                                                 
 last.user                   10 FREE     L  MIS.USER       :TGL[tts]|2                                             
 Ì       2
pha.search    (main) 
[number]
:TG[tg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 number                       5 PINT     R                 tg                                                          
 act.inact.both               1 CHOICE   L                 :TG[tg]B|5                                                  
 days.to.keep                 4 PINT     R                 :TG[tg]B|4                                                  
 description                 50 FREE     L                 :TG[tg]B|1                                                  
 end.time                     9 PINT     R                 :TG[tg]|9                                                   
 fm.date                      8 DATE     L                 :TG[tg]|8                                                   
 fm.days                      4 PINT     R                 :TG[tg]|7                                                   
 from                        12 FREE     L                                                                             
 from.1                      12 FREE     L                 :TG[tg]A|4                                                  
 from.2                      12 FREE     L                 :TG[tg]A|6                                                  
 from.3                      12 FREE     L                 :TG[tg]A|8                                                  
 from.age                     9 AGE.SORT L                 :TG[tg]B|6                                                  
 from.age.ext                 9 FREE     L                 VAL=%Z.age.format.strip(@from.age)                          
 from.date                    8 DATE     L                 :TG[tg]A|1                                                  
 from.days                    4 INT      R                 :TG[tg]B|2                                                  
 from.dose                    8 DECZ     R                 :TG[tg]B|12                                                 
 med                         10 FREE     L  PHA.DRUG                                                               
 new.page                     1 CHOICE   L                 :TG[tg]B|15                                                 
 profile                     10 FREE     L  PHA.SRCH.DICT  :TG[tg]A|0                                              
 profile.active               1 YN       L                 :TG[tg]B|0                                                  
 pt.types                     3 CHOICE   L                 :TG[tg]B|14                                                 
 renumber                     1 YN       L                 :TG[tg]B|16                                                 
 restart.date                 8 DATE     L                 :TG[tg]|3                                                   
 restart.rx                  10 URN      L  PHA.RX         :TG[tg]|4                                               
 rxs.considered               7 PINT     R                 :TG[tg]|1                                                   
 rxs.rejected                 7 PINT     R                 VAL=@PHA.SEARCH.rxs.considered-@PHA.SEARCH.rxs.saved        
 rxs.saved                    7 PINT     R                 :TG[tg]|2                                                   
 search.priority              6 CHOICE   L                 :TG[tg]A|3                                                  
 sexes                        3 CHOICE   L                 :TG[tg]B|8                                                  
 sort.hdr.1                  70 FREE     L                 :TG[tg]SH|0                                                 
 sort.hdr.2                  70 FREE     L                 :TG[tg]SH|1                                                 
 sort.hdr.3                  70 FREE     L                 :TG[tg]SH|2                                                 
 sort1                       10 CHOICE   L                 :TG[tg]B|9                                                  
 sort2                       10 CHOICE   L                 :TG[tg]B|10                                                 
 sort3                       10 CHOICE   L                 :TG[tg]B|11                                                 
 status                      10 CHOICE   L                 :TG[tg]|0                                                   
 stop.user                   10 FREE     L  MIS.USER       :TG[tg]|10                                              
 thru                        12 FREE     L                                                                             
 thru.1                      12 FREE     L                 :TG[tg]A|5                                                  
 thru.2                      12 FREE     L                 :TG[tg]A|7                                                  
 thru.3                      12 FREE     L                 :TG[tg]A|9                                                  
 thru.age                     9 AGE.SORT L                 :TG[tg]B|7                                                  
 thru.age.ext                 6 FREE     L                 VAL=%Z.age.format.strip(@thru.age)                          
 thru.date                    8 DATE     L                 :TG[tg]A|2                                                  
 thru.days                    4 INT      R                 :TG[tg]B|3                                                  
 thru.dose                    8 DECZ     R                 :TG[tg]B|13                                                 
 time                         9 PINT     R                 :TG[tg]|5                                                   
 user                        10 FREE     L  MIS.USER       :TG[tg]|6                                               
 who                         30 FREE     L                 VAL=(%Z.date.out(%Z.date.in.magic(@PHA.SEARCH.time^TIM      
                                                           VAL=)),%Z.time.text(TIM),@PHA.SEARCH.user)                  
 who.end                     30 FREE     L                 VAL=IF{@PHA.SEARCH.end.time^TIM (%Z.date.out(%Z.date.i      
                                                           VAL=n.magic(TIM)),%Z.time.text(TIM),@stop.user)}            
 yn                           1 YN       L                                                                             
 Ì       2
pha.search.pt.acct.status    (pt.acct.status) 
[number, acct.status]
:TG[tg]PT[tas]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 acct.status                  8 FREE     L                 tas                                                         
 Ì       2
pha.search.queries    (queries) 
[number, query]
:TG[tg]Q[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 query                       10 FREE     L  MIS.QUERY      ggv                                                     
 Ì       2
pha.search.responses    (responses) 
[number,query, response]
:TG[tg]Q[ggv]R[ggvR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 response                    30 QRY.RESP L                 ggvR                                                        
 Ì       2
pha.search.rxs.found    (rxs) 
[number, key.1,key.2,key.3,rx.number]
:TG[tg]R[tg1,tg2,tg3,trN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 key.1                       30 FREE     L                 tg1                                                         
 key.2                       30 FREE     L                 tg2                                                         
 key.3                       30 FREE     L                 tg3                                                         
 rx.number                   11 FREE     L                 trN                                                         
 rx                          10 URN      L  PHA.RX         :TG[tg]R[tg1,tg2,tg3,trN]|0                             
 Ì       2
pha.search.selections    (selections) 
[number, sel.q]
:TG[tg]S[tgSQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 sel.q                        3 PINT     R                 tgSQ                                                        
 sel.type                    10 FREE     L                 :TG[tg]S[tgSQ]|0                                            
 sel.type.name               30 FREE     L                 VAL=/SEL[@sel.type]                                         
 sel.value                   20 FREE     L                 :TG[tg]S[tgSQ]|1