Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPORMB

Package: Prosthetics

Routine: RMPORMB


Information

RMPORMB ;HIN/RVD - Home Oxygen Monthly Billing Report ;12/13/99

Source Information

Source file <RMPORMB.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
Prosthetics 2 MONTH^RMPOBIL0  HOSITE^RMPOUTL0  
Registration 1 ^VADPT  

Entry Points

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 ;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.

External References

Name Field # of Occurrence
DD^%DT PROC+2
NOW^%DTC PROC+4
^%ZIS DEV
^%ZISC EXIT+1
^%ZTLOAD DEV+3
^DIR PROC+19, PAGE+3, DND+15, GTOTAL+13
MONTH^RMPOBIL0 FROM+2
HOSITE^RMPOUTL0 SITE+1
^VADPT LINE+4
KILL^XUSCLEAN EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"***** No RECORDS to Print *****"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: RPTDT,?(40-($L(RA)/2)),RA,?68,"Page: "_RPAGE
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: !?10,RSHODT_" Monthly Home Oxygen Billing",?50,"'*' denotes deceased patient",!
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: ?45,"Station",!?45,"Fund Control"
  • Line Location: RPTHDR+6
Function Call: WRITE
  • Prompt: !,"ACC",?4,"Name",?18,"SSN",?24,"Vendor"
  • Line Location: RPTHDR+7
Function Call: WRITE
  • Prompt: ?37,"910 Point Other Susp Total"
  • Line Location: RPTHDR+8
Function Call: WRITE
  • Prompt: !,RDASH
  • Line Location: RPTHDR+9
Function Call: WRITE
  • Prompt: !,?20,"Totals: ",RLINE
  • Line Location: DND+7
Function Call: WRITE
  • Prompt: !!,?29,"Total Patients: ",RPCNT
  • Line Location: DND+9
Function Call: WRITE
  • Prompt: !!,?20,"Total Deceased Patients: ",RMPODCNT
  • Line Location: DND+11
Routine Call
  • DIR
  • Line Location:
    • PROC+19
    • PAGE+3
    • DND+15
    • GTOTAL+13
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PROC+4
^DPT - [#2] LINE+3
^PRC(440 - [#440] LINE+17
^RMPO(665.72 - [#665.72] LINE+2, LINE+6, LINE+7, LINE+9, LINE+10
^RMPR(669.9 - [#669.9] PROC+8, PROC+9, PROC+10
^TMP($J START+2!, EXIT+1!, LINE+25*, PRINT+1, PRINT+3, PRINT+4

Label References

Name Line Occurrences
$$AMT AMTS+1, AMTS+2, AMTS+3, AMTS+4, AMTS+5
AMTS LINE+22, DND+6, GTOTAL+9
DND PRINT+3
EXIT DEVDEV+3, PROC+16
GTOTAL PRINT+5
LINE PROC+15
NAME LINE+16
PAGE PRINT+4
PRINT PROC+16
PROC DEV
RPTHDR PRINT+3, PAGE+4
SETRV LINE+2

Local Variables

Legend:

>> 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" DEVDEV+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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All