RMPORMB ;HIN/RVD - Home Oxygen Monthly Billing Report ;12/13/99
Source file <RMPORMB.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;
|
|
SITE | ;Intialize site variables.
|
|
FROM | ; Get billing month
; specify start/end site & bill month |
|
DEV | ||
PROC | ;
|
|
EXIT | ;clean-up local variables and close device
|
|
NAME | ;Write out the name
|
|
LINE | ;Process entire line (one for each patient)
|
|
;print report
|
||
SETRV | ;
|
|
AMTS(C,Y,Z,S) | ; Amounts
|
|
AMT(C) | ; Format Amounts
|
|
PAGE | ;Print page
|
|
RPTHDR | ; Print out the report header
|
|
DND | ; Print REPORT totals
|
|
GTOTAL | ; Print REPORT totals for all VENDORS.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | PROC+4 |
>> %ZIS | DEV* |
C | AMTS~, AMTS+1, AMTS+5, AMT~, AMT+1*, AMT+2*, AMT+3*, AMT+4 |
DFN | START+1!, LINE+4* |
DIR | PROC+18!, PAGE+2!, DND+14!, GTOTAL+12! |
DIR("A" | PROC+18*, PAGE+2*, DND+14*, GTOTAL+12* |
DIR(0 | PROC+18*, PAGE+2*, DND+14*, GTOTAL+12* |
>> I | PROC+6*, SETRV+1*, SETRV+2* |
IO | DEV |
IO("Q" | DEV, DEV+1! |
IOF | RPTHDR+3 |
ION | DEV+1 |
IOP | DEV! |
IOSL | PRINT+4, PAGE+1 |
IOST | PROC+17, LINE+1, PAGE+1, RPTHDR+3, DND+13, GTOTAL+11 |
>> POP | DEV |
QUIT | START+2!, FROM+2 |
RA | RPTHDR+1!, RPTHDR+2*, RPTHDR+4, DND+1!, DND+2*, DND+3, GTOTAL+1! |
>> RACPT | LINE+6*, LINE+15 |
RAMT | START+2! |
RAMT( | PROC+6*, LINE+8*, LINE+14*, LINE+18, LINE+19, LINE+20, LINE+21, SETRV+1* |
RCNT | START+1!, PROC+3*, PRINT+2*, PRINT+4*, PAGE+1, RPTHDR+2* |
>> RCOST | LINE+11* |
>> RD | LINE+10*, LINE+11 |
RDASH | START+1!, PROC+3*, RPTHDR+9 |
>> RFCP | LINE+11*, LINE+12*, LINE+13, LINE+14 |
>> RFCPI | PROC+7*, PROC+8*, PROC+9, PROC+13 |
>> RFCPIEN | PROC+9*, PROC+10 |
RFCPT | PROC+7! |
RFCPT( | PROC+13*, LINE+13*, LINE+14 |
>> RI | LINE+9*, LINE+10, GTOTAL+6*, GTOTAL+7, GTOTAL+8 |
RLINE | START+2!, NAME+1*, NAME+2*, LINE+15*, LINE+16*, LINE+17*, LINE+25, AMTS+1*, AMTS+2*, AMTS+3* , AMTS+4*, AMTS+5*, DND+2*, DND+7, GTOTAL+3*, GTOTAL+10 |
RMEND | START+2!, PROC+1*, PROC+16, PROC+19*, PRINT+3, PRINT+4, PAGE+3*, PAGE+4, RPTHDR+1, DND+1 , DND+15*, GTOTAL+1, GTOTAL+13* |
RMNADFN | START+1!, LINE+25* |
>> RMPO("NAME" | RPTHDR+2 |
>> RMPODATE | FROM+2, PROC+2, LINE+2, LINE+6, LINE+7, LINE+9, LINE+10 |
>> RMPODCNT | PROC+1*, LINE+3*, DND+10*, DND+11 |
>> RMPOEXP | LINE+3*, LINE+5 |
>> RMPORPT | PROC+1* |
>> RMPOXITE | SITE+1, PROC+8, PROC+9, PROC+10, LINE+2, LINE+6, LINE+7, LINE+9, LINE+10 |
RMPR | EXIT+2~ |
RMPRSITE | EXIT+2~ |
>> RMT1 | LINE+18*, LINE+22, LINE+23 |
>> RMT2 | LINE+19*, LINE+22, LINE+23 |
>> RMT3 | LINE+20*, LINE+22, LINE+24 |
>> RMTP | LINE+21*, LINE+22, LINE+24 |
>> RMTSP | DND+5*, DND+6, GTOTAL+4*, GTOTAL+8*, GTOTAL+9 |
>> RMTT9 | DND+4*, DND+6, GTOTAL+4*, GTOTAL+7*, GTOTAL+9 |
>> RMTTO | DND+4*, DND+6, GTOTAL+4*, GTOTAL+7*, GTOTAL+9 |
>> RMTTS | DND+4*, DND+6, GTOTAL+4*, GTOTAL+7*, GTOTAL+9 |
>> RN | LINE+2*, LINE+3, LINE+4, LINE+6, LINE+7, LINE+9, LINE+10, LINE+25, PRINT+3*, PRINT+4 |
RNAM | START+1!, NAME+1, NAME+2, LINE+5*, LINE+25 |
ROVNDR | START+2! |
RPAGE | START+1!, PROC+1*, RPTHDR+2*, RPTHDR+3, RPTHDR+4 |
>> RPCNT | PROC+1*, PRINT+2*, PRINT+4*, DND+8*, DND+9, DND+12* |
>> RPSASFLG | PROC+10*, PROC+13 |
>> RPSTD | LINE+7*, LINE+15 |
RPTDT | START+1!, PROC+5*, RPTHDR+4 |
RQUIT | START+1! |
RSHODT | START+1!, PROC+2*, RPTHDR+5 |
RSP | START+1!, PROC+3*, NAME+1, NAME+2, LINE+16, LINE+17, AMTS+1, AMTS+2, AMTS+3, AMTS+4 |
>> RSUSP | LINE+11*, LINE+14 |
>> RTMT( | LINE+23*, LINE+24*, SETRV+2*, DND+2, DND+4, DND+5, GTOTAL+6, GTOTAL+7, GTOTAL+8 |
>> RTOTAL | LINE+11*, LINE+14 |
>> RV | LINE+2*, LINE+6, LINE+7, LINE+8, LINE+9, LINE+10, LINE+14, LINE+17, LINE+18, LINE+19 , LINE+20, LINE+21, LINE+23, LINE+24, LINE+25, PRINT+3*, PRINT+4, SETRV+1, SETRV+2, DND+2 , DND+4, DND+5 |
>> RVCNT | PROC+1*, PROC+17, SETRV+3*, DND+13, GTOTAL+5 |
>> RVPRCNT | PROC+1*, PROC+17, PRINT+2*, DND+12*, DND+13 |
>> RX | LINE+14* |
S | AMTS~, AMTS+4 |
U | PROC+10, PROC+19, NAME+1, NAME+2, LINE+6, LINE+7, LINE+11, LINE+17, PAGE+3, DND+15 , GTOTAL+13 |
VA | START+1!, LINE+4! |
VA("PID" | LINE+5 |
VADM | START+1!, LINE+4! |
VADM(1 | LINE+5 |
>> X | PROC+19, PAGE+3, DND+15, GTOTAL+13 |
Y | START+2!, PROC+2*, PROC+4*, PROC+5, AMTS~, AMTS+2, AMTS+5 |
Z | AMTS~, AMTS+3, AMTS+5 |
>> ZTDESC | DEV+1* |
>> ZTIO | DEV+1* |
>> ZTRTN | DEV+1* |
>> ZTSAVE("RMPO(""NAME"")" | DEV+2* |
>> ZTSAVE("RMPO(""STA"")" | DEV+1* |
>> ZTSAVE("RMPODATE" | DEV+1* |
>> ZTSAVE("RMPOXITE" | DEV+1* |
>> ZTSK | DEV+3 |