Routine: ACRFPAYL

Information

ACRFPAYL ;IHS/DSD/THL,AEF - PAY LETTER [ 10/27/2004 4:15 PM ]

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Commitment Register	5	(DIC,DIR)^ACRFDIC FYBAT^ACRFPAY2 $$EXPDN^ACRFUTL PAUSE^ACRFWARN ^ACRFZIS
VA Fileman	1	C^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Commitment Register	1	ACRFPAY6

Entry Points

Name	Comments	DBIA/ICR reference
PHEADER	;PAYMENT LETTER HEADER
DOC(D0,D1,D2)
EN	;EP;TO PRINT VENDOR PAYMENT LETTERS
VENDOR	;PRINT VENDOR'S ADDRESS
FINANCE	;PRINT FINANCE ADDRESS
ONEV	;TO SELECT PRINT FOR ONE VENDOR ONLY
FY	;EP;SELECT FY & BATCH
GATHER	;CREATE TEMP ARRAY OF VENDORS TO BE PAID FROM PAYMENT BATCH/SCHEDULE
EN1	;
EXIT
PAYMENTS	;LIST ALL PAYMENTS
LETTER	;BODY OF LETTER
PRINT	;EP;PRINT CONTENT OF EACH LETTER
PAGE2	;HEADER FOR PAGES 2 - X
ZIS	;EP;SELECT DEVICE

Name	Field # of Occurrence
C^%DTC	LETTER+7
DIC^ACRFDIC	ONEV+13
DIR^ACRFDIC	ONEV+6
FYBAT^ACRFPAY2	FY+1, ZIS+2
$$EXPDN^ACRFUTL	DOC+15
PAUSE^ACRFWARN	LETTER+22, PAYMENTS+14, PAYMENTS+18
^ACRFZIS	ZIS+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!?5,"The purpose of this letter is to inform you that" Line Location: LETTER+1
Function Call: WRITE	Prompt: !?5,"the payment(s) listed below were sent to Treasury" Line Location: LETTER+2
Function Call: WRITE	Prompt: !?5,"for direct deposit into your ",$G(ACRACT)," account." Line Location: LETTER+3
Function Call: WRITE	Prompt: !!?5,"The payment(s) is scheduled for direct deposit to your" Line Location: LETTER+4
Function Call: WRITE	Prompt: !?5,ACRACT," account on ",Y," or the next business day" Line Location: LETTER+10
Function Call: WRITE	Prompt: !?5,"if this is a weekend or holiday." Line Location: LETTER+11
Function Call: WRITE	Prompt: !!?5,"If you have any questions concerning this payment," Line Location: LETTER+12
Function Call: WRITE	Prompt: !?5,"please call the Accounts Payable Section, Division of" Line Location: LETTER+13
Function Call: WRITE	Prompt: !?5,"Financial Management at the number listed above." Line Location: LETTER+14
Function Call: WRITE	Prompt: "Therefore, the TOTAL AMOUNT will be made as ONE deposit." Line Location: LETTER+19
Function Call: WRITE	Prompt: "Therefore, each amount will be made as a separate deposit." Line Location: LETTER+20
Function Call: WRITE	Prompt: ! Line Location: LETTER+21
Function Call: WRITE	Prompt: @IOF Line Location: PAYMENTS+19
Function Call: WRITE	Prompt: !!!?5,X Line Location: VENDOR+7
Function Call: WRITE	Prompt: !?5,"ATTN: Accounts Receivable" Line Location: VENDOR+8
Function Call: WRITE	Prompt: !?5,$S($P(Z,U)]"":$P(Z,U),1:$P(Y,U)) Line Location: VENDOR+9
Function Call: WRITE	Prompt: !?5,$S($P(Z,U,2)]"":$P(Z,U,2),1:$P(Y,U,10)) Line Location: VENDOR+10
Function Call: WRITE	Prompt: !?5,$S($P(Z,U,3)]"":$P(Z,U,3),1:$P(Y,U,2)) Line Location: VENDOR+11
Function Call: WRITE	Prompt: ", ",$P($G(^DIC(5,+S,0)),U,2)," " Line Location: VENDOR+13
Function Call: WRITE	Prompt: $S($P(Z,U,5)]"":$P(Z,U,5),1:$P(Y,U,4)) Line Location: VENDOR+14
Function Call: WRITE	Prompt: !!!!?35,"DEPARTMENT OF HEALTH AND HUMAN SERVICES" Line Location: FINANCE+5
Function Call: WRITE	Prompt: !?35,"INDIAN HEALTH SERVICE" Line Location: FINANCE+6
Function Call: WRITE	Prompt: !?35,$P(X,U) Line Location: FINANCE+7
Function Call: WRITE	Prompt: !?35,$P(Y,U) Line Location: FINANCE+8
Function Call: WRITE	Prompt: !?35,$P(Y,U,3),", ",$P($G(^DIC(5,+$P(Y,U,4),0)),U,2)," ",$P(Y,U,5) Line Location: FINANCE+10
Function Call: WRITE	Prompt: !?35,$P(Y,U,6) Line Location: FINANCE+11
Function Call: WRITE	Prompt: @IOF Line Location: PAGE2+2
Function Call: WRITE	Prompt: !?55,"Page: ",$G(ACRDC)+1 Line Location: PAGE2+3
Function Call: WRITE	Prompt: !!,"Batch not yet exported." Line Location: FY+3
Function Call: WRITE	Prompt: !!,"Select the printer for the VENDOR PAYMENT NOTIFICATION LETTERS" Line Location: ZIS+7
Function Call: WRITE	Prompt: ! Line Location: ONEV+5
Function Call: WRITE	Prompt: ! Line Location: ONEV+12

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRPO(1	FINANCE+2
^AFSLAFP - [#9002325]	EN1+3, EN1+4, GATHER+3, GATHER+4, PAYMENTS+4, PAYMENTS+5, PAYMENTS+6, FY+3, DOC+13, DOC+14
^AUTTPRG - [#9999999.62]	FINANCE+3, FINANCE+4
^AUTTVNDR - [#9999999.11]	VENDOR+2, VENDOR+3, VENDOR+4, VENDOR+5
^DD("DD"	LETTER+9
^DIC(5 - [#5]	VENDOR+13, FINANCE+10
^TMP("ACRPAYL"	EN+1!, EXIT+1!, EN1+6, EN1+9, GATHER+7*, LETTER+15, LETTER+16, PAYMENTS+3

Name	Line Occurrences
$$DOC	PAYMENTS+8
EN1	EN+2
EXIT	ZIS+1
FINANCE	PHEADER+1
GATHER	EN1+5
LETTER	PRINT+2
ONEV	ZIS+5
PAGE2	PAYMENTS+14
PAYMENTS	PRINT+3
PHEADER	PRINT+1
PRINT	EN1+9
VENDOR	PHEADER+2
ZIS	FY+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!
ACRACT	EXIT!, LETTER+3, LETTER+10, VENDOR+5, VENDOR+6
ACRBATDA	EXIT!, EN1+1, EN1+3, EN1+4, GATHER+3, GATHER+4, PAYMENTS+4, PAYMENTS+5, PAYMENTS+6, PAYMENTS+8 , FY+2, FY+3, ZIS+4
ACRDC	EXIT!, PAGE2+1*, PAGE2+3
ACRDUE	EXIT!, EN1+4*, LETTER+5
ACRFYDA	EXIT!, EN1+1, EN1+3, EN1+4, GATHER+3, GATHER+4, PAYMENTS+4, PAYMENTS+5, PAYMENTS+6, PAYMENTS+8 , FY+2, FY+3, ZIS+4
ACRJ	EXIT!, PAYMENTS+1~, PAYMENTS+2, PAYMENTS+7, PAYMENTS+8, PAYMENTS+15
ACROUT	EXIT!
ACRPTYPE	EN1+2~, EN1+3*, LETTER+17, LETTER+19
ACRQUIT	EXIT!, EN1+9, PRINT+3, PAYMENTS+3, PAYMENTS+14!, FY+3*, ZIS+3, ZIS+6, ONEV+7
>> ACRRTN	ZIS+8*
ACRSEQDA	GATHER+1~, GATHER+2, GATHER+3, GATHER+4, GATHER+7, PAYMENTS+2, PAYMENTS+3, PAYMENTS+4, PAYMENTS+5, PAYMENTS+6 , PAYMENTS+8
ACRTOT	EXIT!, PAYMENTS+2, PAYMENTS+13, PAYMENTS+17
ACRVDA	EN1+7~, EN1+8, EN1+9, LETTER+15, LETTER+16, PAYMENTS+3, VENDOR+2, VENDOR+3, VENDOR+4, VENDOR+5
ACRVDAX	EXIT!, GATHER+6, ONEV+15*
ACRY	EXIT!
D0	DOC~, DOC+13, DOC+14
D1	DOC~, DOC+13, DOC+14
D2	DOC~, DOC+13, DOC+14
>> DIC	ONEV+8*
>> DIC("A"	ONEV+10*
>> DIC("S"	ONEV+11*
>> DIC(0	ONEV+9*
>> DIR("A"	ONEV+2, ONEV+3
>> DIR("B"	ONEV+4*
>> DIR(0	ONEV+1*
IOF	PAYMENTS+19, PAGE2+2
IOSL	PAYMENTS+14
S	VENDOR+1~, VENDOR+12*, VENDOR+13
U	EN1+3, EN1+4, GATHER+4, PAYMENTS+8, PAYMENTS+9, PAYMENTS+13, VENDOR+2, VENDOR+5, VENDOR+9, VENDOR+10 , VENDOR+11, VENDOR+12, VENDOR+13, VENDOR+14, FINANCE+2, FINANCE+7, FINANCE+8, FINANCE+9, FINANCE+10, FINANCE+11 , DOC+13, DOC+14
X	GATHER+4, GATHER+5, GATHER+6, GATHER+7, LETTER+8, LETTER+15, LETTER+16, PAYMENTS+1~, PAYMENTS+4, PAYMENTS+8 , PAYMENTS+13, VENDOR+1~, VENDOR+2, VENDOR+7, FINANCE+1~, FINANCE+2, FINANCE+3, FINANCE+4, FINANCE+7, DOC+12~ , DOC+14, DOC+15, DOC+16
>> X1	LETTER+5*
>> X2	LETTER+6*
Y	LETTER+8, LETTER+10, PAYMENTS+1~, PAYMENTS+5, VENDOR+1~, VENDOR+3, VENDOR+9, VENDOR+10, VENDOR+11, VENDOR+12 , VENDOR+14, FINANCE+1~, FINANCE+3, FINANCE+8, FINANCE+9, FINANCE+10, FINANCE+11, ONEV+7, ONEV+14, ONEV+15 , DOC+12~, DOC+13, DOC+16, DOC+17
Z	PAYMENTS+1~, PAYMENTS+6, PAYMENTS+9, PAYMENTS+10, PAYMENTS+11, PAYMENTS+12, VENDOR+1~, VENDOR+4*, VENDOR+9, VENDOR+10 , VENDOR+11, VENDOR+12, VENDOR+14
>> ZTDESC	ZIS+9*
>> ZTRTN	ZIS+8*

Customize PDF page

Package: Commitment Register

Routine: ACRFPAYL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: