Routine: PRPFCD

Information

PRPFCD ;ALTOONA/CTB PATIENT FUNDS ACCOUNT CARD GENERATOR ;11/22/96 4:33 PM

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Integrated Patient Fund	2	LHDR^PRPFCD1 ^PRPFU1
VA FileMan	2	^DIWP ^DIWW

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: 8

Package	Total	Caller Graph
Integrated Patient Fund	8	PRPF CARD PRINT PRPF RANGE OF CARDS PRPF SUSPENSE DISPLAY PRPF SUSPENSE LIST PRPF TRANSACTION DISPLAY PRPF UNASSIGNED STATION LIST PRPFARC PRPFCD1

Entry Points

Name	Comments	DBIA/ICR reference
V	;;3.0;PATIENT FUNDS;3,6;JUNE 1, 1989
LHDR1
BODY	;PRINTS THE BODY OF THE PATIENT CARD
LINE	;PRINTS THE TRANSACTION LINE FOR THE CARD
LINE2
LINE3
EN2
END
END1
OUT	;EXIT LINE
TRAIL	; PRINTS THE TRAILER INFO FOR PAGE ONE OF THE CARD
T1	;
T2
S1
SHDR	;PRINTS THE SHORT HEADER USED ON CONTINUATION PAGES
PAGE
DATE	;CONVERT DATE TO SLASH FORMAT

External References

Name	Field # of Occurrence
^DIWP	T2
^DIWW	T2+1
LHDR^PRPFCD1	EN2
^PRPFU1	T1+4, S1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REFERENCE",?12,"MASTER # SOURCE",?32,"WITHDRAWALS",?47,"DEPOSITS",?57,"DATE/TIME",?67,"DEFERRED",?86,"BALANCE",?95,"REMARKS" Line Location: LHDR1+0
Function Call: WRITE	Prompt: !,LINE Line Location: BODY+1
Function Call: WRITE	Prompt: !,"BALCARFWD",?24,"GRAT",?45,$J(GBAL,10,2),?57,BDATE1,?83,$J(GBAL,10,2),?95,"Gratuitous Balance Carried Forward" Line Location: BODY+3
Function Call: WRITE	Prompt: !,"BALCARFWD",?24,"PRIV",?45,$J(PBAL,10,2),?57,BDATE1,?83,$J(BAL,10,2),?95,"Private Source Balance Carried Fwd" Line Location: BODY+4
Function Call: WRITE	Prompt: !,REF,?13,NU,?24,SOURCE,?33,WI,?45,DE,?57,DATE,?68,DEF,?83,JBAL,?95,REM Line Location: LINE2+6
Function Call: WRITE	Prompt: !,LINE Line Location: LINE3+0
Function Call: WRITE	Prompt: !!,"END OF CARD FOR: ",$P(DFN(0),U),?60,"ENDING BALANCE: $",$J(BAL,0,2) Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: "_" Line Location: END+3
Function Call: WRITE	Prompt: !,"REGIONAL OFFICE: ",$S($P(PDFN(0),U,9)]"":$P(^DIC(4,$P(PDFN(0),U,9),0),U),1:""),?40,"OTHER ASSET: ",$P(PDFN(0),U,10),?65,"PRIVATE SOURCE FUNDS IN BALANCE: " Line Location: T1+1
Function Call: WRITE	Prompt: $J($P(PDFN(1),U,5),9,2) Line Location: T1+2
Function Call: WRITE	Prompt: !!,"INCOME SOURCE",?27,"PAYEE",?52,"AMOUNT",?62,"FREQUENCY",?102,"MIN BALANCE",?120,"MAX BALANCE" Line Location: T1+2
Function Call: WRITE	Prompt: !,$P(XX,U),?27,$P(XX,U,2),?49,"$",$J($P(XX,U,3),9,2) Line Location: T1+4
Function Call: WRITE	Prompt: ?62,Y Line Location: T1+4
Function Call: WRITE	Prompt: ! Line Location: T2+0
Function Call: WRITE	Prompt: ! Line Location: S1+0
Function Call: WRITE	Prompt: $P(XX,U),?27,$P(XX,U,2),?49,"$",$J($P(XX,U,3),9,2) Condition for execution: N Line Location: S1+0
Function Call: WRITE	Prompt: ?62,Y Condition for execution: N Line Location: S1+0
Function Call: WRITE	Prompt: ?102,"$",$J($P(PDFN(2),U,IX),9,2),?120,"$",$J($P(PDFN(2),U,IX+1),9,2) Line Location: S1+0
Function Call: WRITE	Prompt: @IOF,!,"BENEFICIARY:",?32,"CLAIM #:",?48,"I.D. #",?64,"WARD",?75,"MIN BALANCE",?90,"MAX BALANCE" Line Location: SHDR+1
Function Call: WRITE	Prompt: !,$P(DFN(0),U),?32,"C-",$P(DFN(.31),U,3),?48,$P(DFN(0),U,9),?64,DFN(.1),?75,$J($P(PDFN(2),U),8,2),?90,$J($P(PDFN(2),U,2),8,2),!,?75,$J($P(PDFN(2),U,3),8,2),?90,$J($P(PDFN(2),U,4),8,2),!,LINE Line Location: SHDR+2
Function Call: WRITE	Prompt: !! Line Location: SHDR+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+0
Function Call: WRITE	Prompt: ?60,"PAGE ",PAGE Line Location: PAGE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	T1+1
^PRPF(470 - [#470]	BODY+2, BODY+6, BODY+7, OUT+1!*, T1+3, T1+4, T2, S1
^PRPF(470.1 - [#470.1]	LINE2

Label References

Name	Line Occurrences
BODY	EN2
DATE	LINE2+3, LINE2+5
END	EN2
LHDR1	SHDR+3
LINE	BODY+6, BODY+7
LINE2	LINE+1
LINE3	LINE+1, LINE+2, END+2
OUT	EN2
PAGE	LINE+1, LINE+2, END+4
S1	T1+3
SHDR	LINE+1, LINE+2
T2	T1+4
TRAIL	LINE+2, END+2

Naked Globals

Name	Field # of Occurrence
^(	BODY+2, BODY+7, T1+4, T2
^(0	BODY+2, BODY+6, BODY+7, LINE2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAL	BODY+1, BODY+2, BODY+3, BODY+4, LINE2+4*, END, OUT+2!
>> BDATE	BODY+2
>> BDATE1	BODY+3, BODY+4
C1	OUT+2!
D1	BODY+1, BODY+2, BODY+6, BODY+7*, OUT+2!
DATE	LINE2+3*, LINE2+6!, OUT+2!
>> DD	T1+4, S1
DE	LINE2+2, LINE2+4, LINE2+6!, OUT+2!
DEF	LINE2+5*, LINE2+6!, OUT+2!
DFN	BODY+2, BODY+6, BODY+7, OUT+1, OUT+2!, T1+3, T1+4, T2, S1
DFN(	SHDR+2
DFN(0	END, SHDR+2
DG1	OUT+2!
DGA1	OUT+2!
DIWF	T2*, T2+1!
DIWL	T2*, T2+1!
DIWR	T2*, T2+1!
DOA	OUT+2!
END	BODY+1, LINE+2, END+1, OUT+2!
>> F	T1+4, S1
GBAL	BODY+1, BODY+2, BODY+3, BODY+5!
HR	LINE2+6!
>> I	END+3, T2, PAGE*
II	END+1*, OUT+2!
IND	OUT+2!
IOF	SHDR+1
IOM	T2
IOP	OUT+2!
IX	T1+3, T1+4!, T2!, S1
JBAL	LINE2+4*, LINE2+6!, OUT+2!
LINE	BODY+1, LINE3, EN2!*, OUT+2!, SHDR+2
MIN	LINE2+6!
MONTH	OUT+2!
MTR	LINE2*, LINE2+1, LINE2+2, LINE2+3, LINE2+5, OUT+2!
>> N	T1+3, T1+4, T2*, S1
NU	LINE2+2*, LINE2+6!, OUT+2!
PAGE	BODY+1, LINE+1, LINE+2, END+2, OUT+2!, PAGE, PAGE+1
PBAL	BODY+1, BODY+2, BODY+4, BODY+5!
PDFN	OUT+2!
PDFN(0	T1+1
PDFN(1	T1+2
PDFN(2	S1, SHDR+2
POP	OUT+2!
PTR	BODY+2, BODY+6, BODY+7, LINE+1, LINE+2*, LINE2, LINE2+2, OUT+2!
PTRX	LINE+1!, LINE+2!
REF	LINE2+2*, LINE2+6!
REM	LINE2+2*, LINE2+6, OUT+2!
SOURCE	LINE2+1*, LINE2+6!, OUT+2!
TRAIL	END+3, OUT+2!
U	LINE2+1, LINE2+2, LINE2+3, LINE2+5, EN2*, END, T1+1, T1+2, T1+4, S1 , SHDR+2
WI	LINE2+2, LINE2+4, LINE2+6!, OUT+2!
X	LINE2+3, LINE2+5, OUT+2!, T1+4, T2, T2+1!, S1, DATE+1, DATE+2*
XREF	OUT+2!
XX	T1+4!, S1
Y	OUT+2!, T1+4, S1

Customize PDF page

Package: Integrated Patient Fund