sHelp
                                     ABS.DRG.RATE
       2
 main
   eff.dates
     by.facility
     death.cost.curve
     death.cost.val
     levels
       death.cost.curve.lev
       transfer.cost.curve.lev
     long.stay.cost.val
     signout.cost.curve
     signout.cost.val
     transfer.cost.curve
     transfer.cost.val

 Ì       2
main
[fin.class]
&(D)DEB[ggk]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fin.class                   10 FREE     L  MIS.FIN.CLASS  ggk                                                     
 Ì   €     2
eff.dates
[fin.class,  eff.date]
&(D)DEB[ggk]F[debD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 eff.date                     8 DATE     L                 debD                                                        
 death.level                  1 YN       L                 &(D)DEB[ggk]F[debD]LD|0                                     
 rate                        10 DEC      R                 &(D)DEB[ggk]F[debD]|0                                       
 signout.level                1 YN       L                 &(D)DEB[ggk]F[debD]LD|2                                     
 transfer.level               1 YN       L                 &(D)DEB[ggk]F[debD]LD|1                                     
 Ì   €     2
by.facility
[fin.class,eff.date,  facility]
&(D)DEB[ggk]F[debD]BF[gqb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 facility                    10 FREE     L  MIS.FACILITY   gqb                                                     
 facility.rate               10 DEC      R                 &(D)DEB[ggk]F[debD]BF[gqb]|0                                
 Ì   €     2
death.cost.curve
[fin.class,eff.date,  death.los]
&(D)DEB[ggk]F[debD]DC[debDC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 death.los                    3 INT      R                 debDC                                                       
 death.med                    7 DEC      R                 &(D)DEB[ggk]F[debD]DC[debDC]|2                              
 death.mult                   5 DEC      R                 &(D)DEB[ggk]F[debD]DC[debDC]|0                              
 death.surg                   7 DEC      R                 &(D)DEB[ggk]F[debD]DC[debDC]|1                              
 Ì   €     2
death.cost.val
[fin.class,eff.date,  death.cost.val.seq]
&(D)DEB[ggk]F[debD]D[debDV]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 death.cost.val.seq           2 PINT     R                 debDV                                                       
 death.cost.val.exp          75 FREE     L                 &(D)DEB[ggk]F[debD]D[debDV]|0                               
 Ì   €     2
levels
[fin.class,eff.date,  level]
&(D)DEB[ggk]F[debD]L[deaV]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 level                        1 INT      R                 deaV                                                        
 level.exists                 1 YN       L                 VAL=IF{+@transfer.cost.curve.lev[fin.class,eff.date,le      
                                                           VAL=vel,""]!(+@death.cost.curve.lev[fin.class,eff.date      
                                                           VAL=,level,""]) "Y";"N"}                                    
 level.yn                     1 YN       L                 &(D)DEB[ggk]F[debD]L[deaV]|0                                
 Ì   €     2
death.cost.curve.lev
[fin.class,eff.date,level,  death.level.los]
&(D)DEB[ggk]F[debD]L[deaV]DCL[debDC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 death.level.los              3 INT      R                 debDC                                                       
 death.level.med              7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]DCL[debDC]|2                      
 death.level.mult             5 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]DCL[debDC]|0                      
 death.level.surg             7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]DCL[debDC]|1                      
 Ì   €     2
transfer.cost.curve.lev
[fin.class,eff.date,level,  transfer.level.los]
&(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transfer.level.los           3 INT      R                 debTC                                                       
 transfer.level.min           7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|4                      
 transfer.level.mio           7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|6                      
 transfer.level.mout          7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|5                      
 transfer.level.mult          5 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|0                      
 transfer.level.sin           7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|1                      
 transfer.level.sio           7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|3                      
 transfer.level.sout          7 DEC      R                 &(D)DEB[ggk]F[debD]L[deaV]TCL[debTC]|2                      
 Ì   €     2
long.stay.cost.val
[fin.class,eff.date,  long.stay.cost.val.seq]
&(D)DEB[ggk]F[debD]O[debOL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 long.stay.cost.val.seq       2 PINT     R                 debOL                                                       
 long.stay.cost.val.exp      75 FREE     L                 &(D)DEB[ggk]F[debD]O[debOL]|0                               
 Ì   €     2
signout.cost.curve
[fin.class,eff.date,  signout.los]
&(D)DEB[ggk]F[debD]SC[debSC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 signout.los                  3 INT      R                 debSC                                                       
 signout.mult                 5 DEC      R                 &(D)DEB[ggk]F[debD]SC[debSC]|0                              
 Ì   €     2
signout.cost.val
[fin.class,eff.date,  signout.cost.val.seq]
&(D)DEB[ggk]F[debD]S[debSO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 signout.cost.val.seq         2 PINT     R                 debSO                                                       
 signout.cost.val.exp        75 FREE     L                 &(D)DEB[ggk]F[debD]S[debSO]|0                               
 Ì   €     2
transfer.cost.curve
[fin.class,eff.date,  transfer.los]
&(D)DEB[ggk]F[debD]TC[debTC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transfer.los                 3 INT      R                 debTC                                                       
 transfer.min                 7 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|4                              
 transfer.mio                 7 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|6                              
 transfer.mout                7 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|5                              
 transfer.mult                5 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|0                              
 transfer.sin                 7 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|1                              
 transfer.sio                 7 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|3                              
 transfer.sout                7 DEC      R                 &(D)DEB[ggk]F[debD]TC[debTC]|2                              
 Ì   €     2
transfer.cost.val
[fin.class,eff.date,  transfer.cost.val.seq]
&(D)DEB[ggk]F[debD]T[debTO]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 transfer.cost.val.seq        2 PINT     R                 debTO                                                       
 transfer.cost.val.exp       75 FREE     L                 &(D)DEB[ggk]F[debD]T[debTO]|0