sHelp
                                     NUR.TIMECARD
     i   2
   nur.timecards
     nur.payrolls
       nur.timecard.dates
         nur.timecard.employees
           rejection.reasons
           nur.timecard.signatures
           nur.timecard.work.dates
             nur.timecard.data
   pp.retrieval
     pp.retrieve.prev.status
       pp.retrieve.employee

 Ì     i   2
nur.timecards    (main) 
[pp.database]
:JZ.N[iaD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pp.database                 12 FREE     L  MIS.APPL       iaD                                                     
 next.in.loc                  1 CHOICE   L                                                                             
 Ì     i   2
nur.payrolls    (payrolls) 
[pp.database, payroll]
:JZ.N[iaD]P[ja]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 payroll                      8 FREE     L  PP.PAYROLL     ja                                                      
 Ì     i   2
nur.timecard.dates    (timcard.dates) 
[pp.database,payroll, tc.date]
:JZ.N[iaD]P[ja]D[jzD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 tc.date                      8 DATE     L                 jzD                                                         
 Ì     i   2
nur.timecard.employees    (employees) 
[pp.database,payroll,tc.date, employee,init]
:JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 employee                    42 URN      L  PP.PER         jy                                                      
 init                        10 FREE     L  NUR.NURSE      gu                                                      
 att.data.did.exist           1 YN       L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|6                             
 dft.dept                    15 FREE     L  MIS.GL.DEPT    :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|3                         
 dft.jc                      10 FREE     L  PP.JOB         :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|1                         
 dft.sft                      1 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|2                             
 emp.num                     14 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|5                             
 initials                    10 FREE     L  NUR.NURSE      :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|4                         
 prev.status                 10 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|7                             
 status                      10 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]|0                             
 Ì     i   2
rejection.reasons    (rejection.reasons) 
[pp.database,payroll,tc.date,employee,init, rj.line.num]
:JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]RJ[eln]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 rj.line.num                  3 PINT     R                 eln                                                         
 rj.line                     92 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]RJ[eln]                        
 Ì     i   2
nur.timecard.signatures    (signatures) 
[pp.database,payroll,tc.date,employee,init, sign.num]
:JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]S[jznS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 sign.num                     2 PINT     R                 jznS                                                        
 device                      12 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]S[jznS]|4                      
 initial                     10 FREE     L  MIS.USER       :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]S[jznS]|1                  
 sign.date                    8 DATE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]S[jznS]|2                      
 sign.time                    4 HHMM     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]S[jznS]|3                      
 signature                   20 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]S[jznS]|0                      
 Ì     i   2
nur.timecard.work.dates    (work.dates) 
[pp.database,payroll,tc.date,employee,init, work.date]
:JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 work.date                    8 DATE     L                 jtxT                                                        
 Ì     i   2
nur.timecard.data    (timecard.data) 
[pp.database,payroll,tc.date,employee,init,work.date, counter]
:JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 counter                      2 INT      R                 retC                                                        
 code                         3 FREE     L  NUR.SCHED.CODES:JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|9           
 dept                        15 FREE     L  MIS.GL.DEPT    :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|4           
 earn.mnemonic                8 FREE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|11              
 earning                      8 PDEC     L  PP.EARN        :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|0           
 edit                         1 YN       L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|10              
 hours                        6 DEC3     R                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|1               
 job.code                    10 FREE     L  PP.JOB         :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|3           
 location                    10 FREE     L  MIS.LOCN.DICT  :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|8           
 pay.date                     8 DATE     L                 VAL=@Chg.prefix(PP.PAY.SCH,&,?),@PP.PAY.SCH.check.date      
 shift                        1 PINT     R                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|2               
 tc.line                      2 INT      R                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|7               
 tc.pointer                   8 URN      L  PP.PAY         :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|6           
 timecard.date                8 DATE     L                 :JZ.N[iaD]P[ja]D[jzD]Z[jy,gu]T[jtxT]E[retC]|5               
 Ì     i   2
pp.retrieval    (retrieve) 
[stat.pp.db,stat.payroll,stat.tc.date]
:JZ.NSTAT[iaD,ja,jzD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 stat.pp.db                  12 FREE     L  MIS.APPL       iaD                                                     
 stat.payroll                 8 FREE     L  PP.PAYROLL     ja                                                      
 stat.tc.date                 8 DATE     L                 jzD                                                         
 stat.count                   6 PINT     R                 :JZ.NSTAT[iaD,ja,jzD]|0                                     
 Ì     i   2
pp.retrieve.prev.status    (retrieve.prev.stat) 
[stat.pp.db,stat.payroll,stat.tc.date, stat.prev.status]
:JZ.NSTAT[iaD,ja,jzD]P[prev]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 stat.prev.status             8 FREE     L                 prev                                                        
 stat.prev.count              5 PINT     R                 :JZ.NSTAT[iaD,ja,jzD]P[prev]|0                              
 Ì     i   2
pp.retrieve.employee    (retrieve.employee) 
[stat.pp.db,stat.payroll,stat.tc.date,stat.prev.status, stat.employee,stat.initials]
:JZ.NSTAT[iaD,ja,jzD]P[prev]E[jy,gu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 stat.employee               42 URN      L  PP.PER         jy                                                      
 stat.initials               10 FREE     L  NUR.NURSE      gu                                                      
 stat.index                   1 PINT     R                 :JZ.NSTAT[iaD,ja,jzD]P[prev]E[jy,gu]                        
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 nur.timecards.initial.index        [initials,pp.database,payroll,tc.date] = employee
   initials.x                         :JZ.NI[gu,iaD,ja,jzD]

 nur.timecard.rejections.index      [location,initials,tc.date,pp.database,payroll,employee]
   rejections.x                       :JZ.NRI[ggn,gu,jzD,iaD,ja,jy]

 nur.timecard.index                 [initials,tc.date,pp.database,payroll,employee]
   timecard.x                         :JZ.NTI[gu,jzD,iaD,ja,jy]