Routine: RCBMILL4

Information

RCBMILL4 ;WISC/RFJ-millennium bill report (print history for date range) ; 27 Jun 2001 11:10 AM

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Accounts Receivable	1	PAUSE^RCRJRTR1
Generic Code Sheet	1	KEYLOOK^GECSSGET
VA FileMan	1	DD^%DT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Accounts Receivable	1	RCBMILL

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; print history for date range
Q	; quit report
H	; print heading

External References

Name	Field # of Occurrence
DD^%DT	PRINT+40
KEYLOOK^GECSSGET	PRINT+52
PAUSE^RCRJRTR1	PRINT+38, PRINT+73, PRINT+82

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y,?10," \|",$J($G(^TMP("RCBMILL4",$J,RCDATE,"TO MCCF")),12,2)," \|" Line Location: PRINT+42
Function Call: WRITE	Prompt: $J($G(^TMP("RCBMILL4",$J,RCDATE,"TO HSIF")),12,2) Line Location: PRINT+44
Function Call: WRITE	Prompt: $J($G(^TMP("RCBMILL4",$J,RCDATE,"PAID TO HSIF")),12,2) Line Location: PRINT+46
Function Call: WRITE	Prompt: $J($G(^TMP("RCBMILL4",$J,RCDATE,"TO HSIF"))-$G(^TMP("RCBMILL4",$J,RCDATE,"PAID TO HSIF")),12,2)," \|" Line Location: PRINT+48
Function Call: WRITE	Prompt: $J(RCAMOUNT,12,2) Line Location: PRINT+63
Function Call: WRITE	Prompt: !,"===============================================================================" Line Location: PRINT+76
Function Call: WRITE	Prompt: !,"TOTALS",?10," \|",$J($G(RCTOTAL(1)),12,2)," \|",$J($G(RCTOTAL(2)),12,2),$J($G(RCTOTAL(3)),12,2),$J($G(RCTOTAL(2))-$G(RCTOTAL(3)),12,2)," \|",$J($G(RCTOTAL(5)),12,2) Line Location: PRINT+77
Function Call: WRITE	Prompt: !,"===============================================================================" Line Location: PRINT+78
Function Call: WRITE	Prompt: !,"Column 2 is the dollar amount of RX-Copayments that is split to MCCF." Line Location: PRINT+85
Function Call: WRITE	Prompt: !,"Column 3 is the dollar amount of RX-Copayments that is split to HSIF." Line Location: PRINT+86
Function Call: WRITE	Prompt: !,"Column 4 is the dollar amount of HSIF payments that is paid to HSIF in FMS." Line Location: PRINT+87
Function Call: WRITE	Prompt: !,"Column 5 is the dollar difference between columns 3 and 4. This is the amount" Line Location: PRINT+88
Function Call: WRITE	Prompt: !," owed (needs to be transferred from MCCF) to HSIF." Line Location: PRINT+89
Function Call: WRITE	Prompt: !,"Column 6 is the dollar amount transferred from MCCF to HSIF taken from the" Line Location: PRINT+90
Function Call: WRITE	Prompt: !," monthly (TR)ansfer document." Line Location: PRINT+91
Function Call: WRITE	Prompt: @IOF Line Location: H+1
Function Call: WRITE	Prompt: $C(13),"PAYMENTS SPLIT TO HSIF/MCCF HISTORY REPORT",?(79-$L(%)),% Line Location: H+2
Function Call: WRITE	Prompt: !," FROM MONTH/YEAR: ",RCMOYR," TO MONTH/YEAR: ",RCMOYRTO Line Location: H+4
Function Call: WRITE	Prompt: !,?10," \|",$J("PAYMENTS",12)," \|",$J("PAYMENTS",12),$J("PAID TO",12),$J("OWED TO",12)," \|",$J("DOCUMENT",12) Line Location: H+5
Function Call: WRITE	Prompt: !,"MONTH/YEAR",?10," \|",$J("TO MCCF",12)," \|",$J("TO HSIF",12),$J("HSIF",12),$J("HSIF",12)," \|",$J("AMT TO HSIF",12) Line Location: H+6
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: H+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(433 - [#433]	PRINT+13
^TMP("RCBMILL4"	PRINT+4!, PRINT+30, PRINT+31, PRINT+32*, PRINT+36, PRINT+42, PRINT+44, PRINT+46, PRINT+48, PRINT+66 , PRINT+67, PRINT+68, Q+1!
^TMP($J	PRINT+7, PRINT+10, PRINT+26

Label References

Name	Line Occurrences
H	PRINT+34, PRINT+38, PRINT+73, PRINT+82
Q	PRINT+72, PRINT+81

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	H+1*, H+2
DATA	PRINT+1~, PRINT+26, PRINT+30, PRINT+31, PRINT+32, PRINT+57, PRINT+58, PRINT+59, PRINT+60, PRINT+61
DATA1	PRINT+1~, PRINT+13*, PRINT+14, PRINT+17, PRINT+30, PRINT+31, PRINT+32
GECSDATA	PRINT+1~, PRINT+51!, PRINT+55, PRINT+56, PRINT+57
GECSDATA(	PRINT+56, PRINT+57
IO	PRINT+34
IOF	H+1
IOSL	PRINT+38, PRINT+73, PRINT+82
RCAMOUNT	PRINT+1~, PRINT+54, PRINT+61, PRINT+63, PRINT+69
RCBILLDA	PRINT+1~, PRINT+7*, PRINT+10, PRINT+26
>> RCDATBEG	PRINT+17
RCDATE	PRINT+1~, PRINT+36*, PRINT+40, PRINT+42, PRINT+44, PRINT+46, PRINT+48, PRINT+52, PRINT+66, PRINT+67 , PRINT+68
>> RCDATEND	PRINT+17
RCLINE	PRINT+1~, PRINT+56*, PRINT+57
>> RCMOYR	H+4
>> RCMOYRTO	H+4
>> RCNOW	H+1
>> RCPAGE	H+1*
>> RCRJFLAG	PRINT+36, PRINT+38, PRINT+72, PRINT+73, PRINT+81, PRINT+82
>> RCSCREEN	PRINT+38, PRINT+73, PRINT+82, H+1
RCTOTAL	PRINT+1~
RCTOTAL(1	PRINT+66*, PRINT+77
RCTOTAL(2	PRINT+67*, PRINT+77
RCTOTAL(3	PRINT+68*, PRINT+77
RCTOTAL(5	PRINT+69*, PRINT+77
RCTRANDA	PRINT+1~, PRINT+10*, PRINT+13, PRINT+26
TYPE	PRINT+1~, PRINT+14*, PRINT+20
Y	PRINT+1~, PRINT+40*, PRINT+42

Customize PDF page

Package: Accounts Receivable