IBCRLS ;ALB/ARH - RATES: DISPLAY SCHEDULES ; 16-MAY-1996
Source file <IBCRLS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBCR RATE SCHEDULE
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| BLD | ; build LM array for rate schedule display
|
|
| SET(X,RTBTLN) | ; set up list manager screen array (if RTBTLN, the line is the first line of the rate tpe-bill type section)
|
|
| SORTRS | ; sort rate schedules by rate type name, bill type
; ^TMP($J,"IBCRRS", rate type, bill type)= rate type ifn ^ bill type ; ^TMP($J,"IBCRRS", rate type, bill type, rate schedule IFN)="" |
|
| DATE(X) | ; date in external format
|
|
| BTYPE(X) | ; return abbreviated form of Bill Type
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|