sHelp
                                     PBR.APT.CHG.TKT
     i   2
 main

 Ì   €   i   2
main
[ticket]
*(HP6)HPST[pst]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ticket                       8 PINT     R                 pst                                                         
 account                     44 URN      L  PBR.ACT        *(HP6)HPST[pst]|1                                       
 appointment                  8 URN      L  PBR.APT        *(HP6)HPST[pst]|2                                       
 appt.date                    8 DATE     L                 *(HP6)HPST[pst]|3                                           
 appt.dr.res                  6 FREE     L  PBR.APT.SRSC   *(HP6)HPST[pst]|9                                       
 appt.location                8 FREE     L  PBR.LOCATION   *(HP6)HPST[pst]|10                                      
 appt.ohcp                    8 FREE     L  PBR.DOCTOR     *(HP6)HPST[pst]|14                                      
 appt.ref.dr                 10 FREE     L  MIS.DOC        *(HP6)HPST[pst]|15                                      
 epi.seq                      5 URN      L                 *(HP6)HPST[pst]|12                                          
 id                           8 PINT     R  PBR.APT.CHG.TKTVAL=@PBR.APT.CHG.TKT.ticket.number                      
 mt.acct.num                 12 FREE     L                 *(HP6)HPST[pst]|11                                          
 mt.sch.urn                  10 FREE     L  SCH.APPT       *(HP6)HPST[pst]|13                                      
 status                       1 CHOICE   L                 *(HP6)HPST[pst]|4                                           
 status.date                  8 DATE     L                 *(HP6)HPST[pst]|5                                           
 status.time                  5 HHMM     L                 *(HP6)HPST[pst]|6                                           
 status.user                 10 FREE     L  MIS.USER       *(HP6)HPST[pst]|7                                       
 status.void.reason          20 FREE     L                 *(HP6)HPST[pst]|8                                           
 ticket.number                8 PINT     R                 *(HP6)HPST[pst]|0                                           

 Index Files                        Subscripts/Physical Base

 mt.actnum.x                        [mt.acct.num,ticket]
                                      ?(HP)HPSTM[aaA,pst]

 number.x                           [ticket.number] = ticket
                                      ?(HP)HPSTN[stN]