Routine: ACRFPPR

Package	Total	Call Graph
Commitment Register	5	(DIC,DIR)^ACRFDIC ($$FYBEG,$$FYEND)^ACRFPPR GATHER^ACRFPPR1 PAUSE^ACRFWARN ^ACRFZIS

Package	Total	Caller Graph
Commitment Register	2	ACRFPAY6 ACRFPPR

Entry Points

Name	Comments	DBIA/ICR reference
FYEND(ACRFY,ACRQT)	;EP; EXTRINSIC FUNCTION TO RETURN END DATE FOR LOOP ; ACR2.113.03 IM11657 ; ACRFY=4 digit fiscal year ; ACRQT=1,2,3,4 represents quarters of the Fiscal Year ; ACRQT=5 represents the full Fiscal Year
EN
ZIS	;SELECT OUTPUT DEVICE
CENTER(X)	;CENTER HEADER INFO
FYBEG(ACRFY,ACRQT)
PPR	;EP;TO SETUP PRINT OF THE PROMPT PAYMENT REPORT
PPR1	;EP;TO PRINT PROMPT PAYMENT REPORT
EXIT
PPRH	;PROMPT PAYMENT REPORT HEADER

External References

Name	Field # of Occurrence
DIC^ACRFDIC	PPR+10
DIR^ACRFDIC	PPR+16
$$FYBEG^ACRFPPR	PPR+19
$$FYEND^ACRFPPR	PPR+20
GATHER^ACRFPPR1	PPR1+1
PAUSE^ACRFWARN	PPR1+13, PPR1+23, PPR1+35, PPR1+45, PPR1+59, PPR1+69, PPR1+79, PPR1+87, PPR1+101, PPR1+119
^ACRFZIS	ZIS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PPR+9
Function Call: WRITE	Prompt: $E(ACREND,1,3)+1700 Line Location: PPR1+9
Function Call: WRITE	Prompt: !!!,"I. Invoices paid subject to the Prompt Payment Act and OMB Circular A-125:" Line Location: PPR1+10
Function Call: WRITE	Prompt: !!?4,"A. Dollar value of invoices",?50,$J($FN($G(ACRIA),"P,",2),14) Line Location: PPR1+11
Function Call: WRITE	Prompt: !?4,"B. Number of invoices",?50,$J($G(ACRIB),10) Line Location: PPR1+12
Function Call: WRITE	Prompt: !!!,"II. Invoices paid after the due date:" Line Location: PPR1+15
Function Call: WRITE	Prompt: !!?4,"A. Dollar value of invoices",?50,$J($FN($G(ACRIIA),"P,",2),14) Line Location: PPR1+16
Function Call: WRITE	Prompt: !?4,"B. Number of invoices (sum C.2 and F.1.b)",?50,$J($G(ACRNIIB),10) Line Location: PPR1+17
Function Call: WRITE	Prompt: !!?4,"C. Late Payment interest penalties paid:" Line Location: PPR1+18
Function Call: WRITE	Prompt: !!?9,"1. Dollar amount",?50,$J($FN($G(ACRIIC1),"P,",2),14) Line Location: PPR1+19
Function Call: WRITE	Prompt: !?9,"2. Number",?50,$J($G(ACRIIC2),10) Line Location: PPR1+20
Function Call: WRITE	Prompt: !?9,"3. Relative Frequency (II.C.2/IB)" Line Location: PPR1+21
Function Call: WRITE	Prompt: !?9,"4. Frequency distribution of late payment interest penalties paid" Line Location: PPR1+25
Function Call: WRITE	Prompt: !?9," this year (as reported on line 1 and 2 of this seciton)." Line Location: PPR1+26
Function Call: WRITE	Prompt: !!?40,"Number of",?55,"Dollars" Line Location: PPR1+27
Function Call: WRITE	Prompt: !?4,"Amount of Penalty",?40,"Payments",?55,"Paid" Line Location: PPR1+28
Function Call: WRITE	Prompt: !!?4,"$ 1.00 - $ 25.00",?40,$J($G(ACRIIC4(1)),5),?55,$J($FN($G(ACRIIC4(11)),"P,",2),10) Line Location: PPR1+29
Function Call: WRITE	Prompt: !!?4,"$ 25.01 - $ 500.00",?40,$J($G(ACRIIC4(2)),5),?55,$J($FN($G(ACRIIC4(22)),"P,",2),10) Line Location: PPR1+30
Function Call: WRITE	Prompt: !!?4,"$ 500.01 - $1000.00",?40,$J($G(ACRIIC4(3)),5),?55,$J($FN($G(ACRIIC4(33)),"P,",2),10) Line Location: PPR1+31
Function Call: WRITE	Prompt: !!?4,"$1000.01 - $2500.00",?40,$J($G(ACRIIC4(4)),5),?55,$J($FN($G(ACRIIC4(44)),"P,",2),10) Line Location: PPR1+32
Function Call: WRITE	Prompt: !!?4,"$2500.01 - $3000.00",?40,$J($G(ACRIIC4(5)),5),?55,$J($FN($G(ACRIIC4(55)),"P,",2),10) Line Location: PPR1+33
Function Call: WRITE	Prompt: !!?4,"$3000.01 - plus",?40,$J($G(ACRIIC4(6)),5),?55,$J($FN($G(ACRIIC4(66)),"P,",2),10) Line Location: PPR1+34
Function Call: WRITE	Prompt: !!?4,"D. Additional penalties paid for failure to pay interest penalties:" Line Location: PPR1+38
Function Call: WRITE	Prompt: !!?9,"1. Dollar amount",?50,$J($FN($G(ACRIID(1)),"P,",2),14) Line Location: PPR1+39
Function Call: WRITE	Prompt: !?9,"2. Number",?50,$J($G(ACRIID(2)),10) Line Location: PPR1+40
Function Call: WRITE	Prompt: !?9,"3. Relative Frequency" Line Location: PPR1+41
Function Call: WRITE	Prompt: !?9,"4. Number of minimum penalties",?50,$J($G(ACRIID(4)),14) Line Location: PPR1+43
Function Call: WRITE	Prompt: !?9,"5. Number of maximum penalties",?50,$J($G(ACRIID(5)),14) Line Location: PPR1+44
Function Call: WRITE	Prompt: !!?4,"E. Reasons why interest of other late payment penalties were incurred." Line Location: PPR1+47
Function Call: WRITE	Prompt: !?4," RANK from highest to lowest, according to frequency of occurences." Line Location: PPR1+48
Function Call: WRITE	Prompt: !!?9,"1. Delay in paying offices' receipt of:" Line Location: PPR1+49
Function Call: WRITE	Prompt: !!?14,"a. Receiving Report",?45,"( ",$J($G(ACRIIE1(1)),5)," )",?60,"( ",$J($G(ACRIIE1(11)),5)," )" Line Location: PPR1+50
Function Call: WRITE	Prompt: !?14,"b. Proper invoice",?45,"( ",$J($G(ACRIIE1(2)),5)," )",?60,"( ",$J($G(ACRIIE1(22)),5)," )" Line Location: PPR1+51
Function Call: WRITE	Prompt: !?14,"c. Purchase order or contract",?45,"( ",$J($G(ACRIIE1(3)),5)," )",?60,"( ",$J($G(ACRIIE1(33)),5)," )" Line Location: PPR1+52
Function Call: WRITE	Prompt: !!?9,"2. Delay or error by paying office in:" Line Location: PPR1+53
Function Call: WRITE	Prompt: !!?14,"a. Taking discount",?45,"( ",$J($G(ACRIIE2(1)),5)," )",?60,"( ",$J($G(ACRIIE2(11)),5)," )" Line Location: PPR1+54
Function Call: WRITE	Prompt: !?14,"b. Notifying vendor of",?45,"( ",$J($G(ACRIIE2(2)),5)," )",?60,"( ",$J($G(ACRIIE2(22)),5)," )" Line Location: PPR1+55
Function Call: WRITE	Prompt: !?14," defective invoice" Line Location: PPR1+56
Function Call: WRITE	Prompt: !?14,"c. Computer or other",?45,"( ",$J($G(ACRIIE2(3)),5)," )",?60,"( ",$J($G(ACRIIE2(33)),5)," )" Line Location: PPR1+57
Function Call: WRITE	Prompt: !?14," system processing" Line Location: PPR1+58
Function Call: WRITE	Prompt: !!?4,"F. Interest and other late payment penalties which were due but not paid:" Line Location: PPR1+61
Function Call: WRITE	Prompt: !?4," (use interest rate in effect on the date the obligation accrues)" Line Location: PPR1+62
Function Call: WRITE	Prompt: !!?9,"1. Total:" Line Location: PPR1+63
Function Call: WRITE	Prompt: !!?14,"a. Interest dollars",?45,"( ",$J($FN($G(ACRIIF1(1)),"P",2),10)," )",?60,"( ",$J($FN($G(ACRIIF1(11)),"P",2),10)," )" Line Location: PPR1+64
Function Call: WRITE	Prompt: !?14,"b. Number",?45,"( ",$J($G(ACRIIF1(2)),10)," )",?60,"( ",$J($G(ACRIIF1(2)),10)," )" Line Location: PPR1+65
Function Call: WRITE	Prompt: !!?9,"2. Because payments were less than $1.00" Line Location: PPR1+66
Function Call: WRITE	Prompt: !!?14,"a. Interest dollars",?45,"( ",$J($FN($G(ACRIIF2(1)),"P",2),10)," )",?60,"( ",$J($FN($G(ACRIIF2(11)),"P",2),10)," )" Line Location: PPR1+67
Function Call: WRITE	Prompt: !?14,"b. Number",?45,"( ",$J($G(ACRIIF2(2)),10)," )",?60,"( ",$J($G(ACRIIF2(22)),10)," )" Line Location: PPR1+68
Function Call: WRITE	Prompt: !!?9,"3. For other reasons" Line Location: PPR1+72
Function Call: WRITE	Prompt: !!?14,"a. Interest dollars",?45,"( ",$J($FN($G(ACRIIF3(1)),"P",2),10)," )",?60,"( ",$J($FN($G(ACRIIF3(11)),"P",2),10)," )" Line Location: PPR1+73
Function Call: WRITE	Prompt: !?14,"b. Number",?45,"( ",$J($G(ACRIIF3(2)),10)," )",?60,"( ",$J($G(ACRIIF3(22)),10)," )" Line Location: PPR1+74
Function Call: WRITE	Prompt: !?14,"c. Specify Reasons:" Line Location: PPR1+75
Function Call: WRITE	Prompt: !!?19,"__________________________________________________________" Line Location: PPR1+76
Function Call: WRITE	Prompt: !!?19,"__________________________________________________________" Line Location: PPR1+77
Function Call: WRITE	Prompt: !!?19,"__________________________________________________________" Line Location: PPR1+78
Function Call: WRITE	Prompt: !!!,"III. Invoices paid 1 - 15 days after the due date:" Line Location: PPR1+81
Function Call: WRITE	Prompt: !!?4,"A. Dollar amount",?50,$J($FN($G(ACRIIIA),"P,",2),14) Line Location: PPR1+82
Function Call: WRITE	Prompt: !?4,"B. Number",?50,$J($G(ACRIIIB),14) Line Location: PPR1+83
Function Call: WRITE	Prompt: !?4,"C. Relative Frequency: Current Year" Line Location: PPR1+84
Function Call: WRITE	Prompt: !?4," Prior Year",?52,$J($FN($G(ACRIIC(2)),"P",4),14) Line Location: PPR1+86
Function Call: WRITE	Prompt: !!!,"IV. Invoices paid 8 days or more before due date," Line Location: PPR1+89
Function Call: WRITE	Prompt: !!!," except where cash discounts are taken:" Line Location: PPR1+90
Function Call: WRITE	Prompt: !!?4,"A. Subject to a determination under section 4.1 of circular A-125:" Line Location: PPR1+91
Function Call: WRITE	Prompt: !!?9,"1. Dollar amount",?50,$J($FN($G(ACRIVA1),"P,",2),14) Line Location: PPR1+92
Function Call: WRITE	Prompt: !?9,"2. Number",?50,$J($G(ACRIVA2),14) Line Location: PPR1+93
Function Call: WRITE	Prompt: !?9,"3. Relative Frequency" Line Location: PPR1+94
Function Call: WRITE	Prompt: !!?4,"B. Without a determinaiton under section 4.1:" Line Location: PPR1+96
Function Call: WRITE	Prompt: !!?9,"1. Dollar amount",?50,$J($FN($G(ACRIVB1),"P,",2),14) Line Location: PPR1+97
Function Call: WRITE	Prompt: !?9,"2. Number",?50,$J($G(ACRIVB2),14) Line Location: PPR1+98
Function Call: WRITE	Prompt: !?9,"3. Relative Frequency" Line Location: PPR1+99
Function Call: WRITE	Prompt: !!!,"V. Discounts" Line Location: PPR1+104
Function Call: WRITE	Prompt: !!?4,"A. Number available",?50,$J($G(ACRVA(1)),10),?65,$J($FN($G(ACRVA(11)),"P,",2),14) Line Location: PPR1+105
Function Call: WRITE	Prompt: !?4,"B. Number taken",?50,$J($G(ACRVB(2)),10),?65,$J($FN($G(ACRVA(22)),"P,",2),14) Line Location: PPR1+106
Function Call: WRITE	Prompt: !?4,"C. Number not taken because not",?50,$J($G(ACRVB(3)),10),?65,$J($FN($G(ACRVB(33)),"P,",2),14) Line Location: PPR1+107
Function Call: WRITE	Prompt: !?4," economically justified" Line Location: PPR1+108
Function Call: WRITE	Prompt: !!?4,"D. Reason for failing to take discounts, in order of importance:" Line Location: PPR1+109
Function Call: WRITE	Prompt: !!?9,"1. ____________________________________" Line Location: PPR1+110
Function Call: WRITE	Prompt: !!?9,"2. ____________________________________" Line Location: PPR1+111
Function Call: WRITE	Prompt: !!?9,"3. ____________________________________" Line Location: PPR1+112
Function Call: WRITE	Prompt: !!?4,"E. Total third party draft payments subject to Prompt Payment Act" Line Location: PPR1+113
Function Call: WRITE	Prompt: !!?9,"Dollar Amount: ",$J($FN($G(ACRVE1),"P,",2),10) Line Location: PPR1+114
Function Call: WRITE	Prompt: !!?9,"Number : ",$J($G(ACRVE2),10) Line Location: PPR1+115
Function Call: WRITE	Prompt: !!?4,"F. Third party drafts which included",?50,$J($G(ACRVF(1)),10),?65,$J($FN($G(ACRVF(11)),"P,",2),14) Line Location: PPR1+116
Function Call: WRITE	Prompt: !?4," interest" Line Location: PPR1+117
Function Call: WRITE	Prompt: !!?4,"G. Amount of interest included in line F.",?50,$J($G(ACRVG(1)),10),?65,$J($FN($G(ACRVG(11)),"P,",2),14) Line Location: PPR1+118
Function Call: WRITE	Prompt: !?80-$L(X)/2,X Line Location: CENTER+1
Function Call: WRITE	Prompt: @IOF Line Location: PPRH+2
Function Call: WRITE	Prompt: !?65,"Page ",ACRDC Line Location: PPRH+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AFSLAFP - [#9002325]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRSYS(1	PPRH+3
^AFSLAFP - [#9002325]	PPR+13
^AUTTAREA - [#9999999.21]	PPRH+3
^DD("DD"	PPRH+7

Label References

Name	Line Occurrences
CENTER	PPRH+4, PPRH+5, PPRH+9
EXIT	EN, PPR+1
PPR	EN+1
PPRH	PPR1+3, PPR1+37, PPR1+71, PPR1+103
ZIS	PPR+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!
ACRBATDA	EXIT!
ACRBEGIN	EXIT!, PPR+19*
ACRDATE	EXIT!
ACRDC	PPR+3~, PPR1+2!, PPRH+1*, PPRH+10
ACREND	EXIT!, PPR+20*, PPR1+9
ACRFY	EXIT!, PPR+13*, PPR+19, PPR+20, FYBEG~, FYBEG+5, FYBEG+6, FYBEG+7, FYBEG+8, FYEND~ , FYEND+5, FYEND+6, FYEND+7, FYEND+8
ACRFYDA	EXIT!, PPR+3~, PPR+12*
ACRIA	EXIT!, PPR1+11
ACRIB	EXIT!, PPR1+12, PPR1+22, PPR1+42, PPR1+85, PPR1+95, PPR1+100
ACRIIA	EXIT!, PPR1+16
ACRIIB	EXIT!
ACRIIC	EXIT!
ACRIIC(2	PPR1+86
ACRIIC1	EXIT!, PPR1+19
ACRIIC2	EXIT!, PPR1+20, PPR1+22
ACRIIC3	EXIT!
ACRIIC4	EXIT!
ACRIIC4(1	PPR1+29
ACRIIC4(11	PPR1+29
ACRIIC4(2	PPR1+30
ACRIIC4(22	PPR1+30
ACRIIC4(3	PPR1+31
ACRIIC4(33	PPR1+31
ACRIIC4(4	PPR1+32
ACRIIC4(44	PPR1+32
ACRIIC4(5	PPR1+33
ACRIIC4(55	PPR1+33
ACRIIC4(6	PPR1+34
ACRIIC4(66	PPR1+34
ACRIID	EXIT!
ACRIID(1	PPR1+39
ACRIID(2	PPR1+40, PPR1+42
ACRIID(4	PPR1+43
ACRIID(5	PPR1+44
ACRIIE1	EXIT!
ACRIIE1(1	PPR1+50
ACRIIE1(11	PPR1+50
ACRIIE1(2	PPR1+51
ACRIIE1(22	PPR1+51
ACRIIE1(3	PPR1+52
ACRIIE1(33	PPR1+52
ACRIIE2	EXIT!
ACRIIE2(1	PPR1+54
ACRIIE2(11	PPR1+54
ACRIIE2(2	PPR1+55
ACRIIE2(22	PPR1+55
ACRIIE2(3	PPR1+57
ACRIIE2(33	PPR1+57
ACRIIF1	EXIT!
ACRIIF1(1	PPR1+64
ACRIIF1(11	PPR1+64
ACRIIF1(2	PPR1+65
ACRIIF2	EXIT!
ACRIIF2(1	PPR1+67
ACRIIF2(11	PPR1+67
ACRIIF2(2	PPR1+68
ACRIIF2(22	PPR1+68
ACRIIF3	EXIT!
ACRIIF3(1	PPR1+73
ACRIIF3(11	PPR1+73
ACRIIF3(2	PPR1+74
ACRIIF3(22	PPR1+74
ACRIIIA	EXIT!, PPR1+82
ACRIIIB	EXIT!, PPR1+83
ACRIIIC	EXIT!, PPR1+85
ACRIVA	EXIT+1!
ACRIVA1	EXIT+1!, PPR1+92
ACRIVA2	EXIT+1!, PPR1+93, PPR1+95
ACRIVB	EXIT+1!
ACRIVB1	EXIT+1!, PPR1+97
ACRIVB2	EXIT+1!, PPR1+98, PPR1+100
ACRNIIB	EXIT+1!, PPR1+17
ACROBJDA	EXIT!
ACROUT	EXIT!, PPR+2!
ACRQT	PPR+3~, PPR+18*, PPR+19, PPR+20, PPR1+4, PPR1+5, PPR1+6, PPR1+7, PPR1+8, FYBEG~ , FYBEG+5, FYBEG+6, FYBEG+7, FYBEG+8, FYEND~, FYEND+5, FYEND+6, FYEND+7, FYEND+8
ACRQUIT	EXIT!, PPR+2!, PPR1+14, PPR1+24, PPR1+36, PPR1+46, PPR1+60, PPR1+70, PPR1+80, PPR1+88 , PPR1+102
ACRRTN	EXIT!, PPR+21, ZIS+1
ACRSEQDA	EXIT!
ACRVA	EXIT+1!
ACRVA(1	PPR1+105
ACRVA(11	PPR1+105
ACRVA(22	PPR1+106
ACRVB	EXIT+1!
ACRVB(2	PPR1+106
ACRVB(3	PPR1+107
ACRVB(33	PPR1+107
ACRVC	EXIT+1!
ACRVE1	EXIT+1!, PPR1+114
ACRVE2	EXIT+1!, PPR1+115
ACRVF	EXIT+1!
ACRVF(1	PPR1+116
ACRVF(11	PPR1+116
ACRVG	EXIT+1!
ACRVG(1	PPR1+118
ACRVG(11	PPR1+118
>> DIC	PPR+4*
>> DIC("A"	PPR+6*
>> DIC("B"	PPR+7*
>> DIC("S"	PPR+8*
>> DIC(0	PPR+5*
>> DIR("A"	PPR+15*
>> DIR(0	PPR+14*
DT	PPR+7, PPRH+6
IOF	PPRH+2
U	PPR+13, PPRH+3
X	CENTER~, CENTER+1, PPRH+3, PPRH+4, PPRH+5, PPRH+8*, PPRH+9, FYBEG+4~, FYEND+4~
Y	PPR+11, PPR+12, PPR+13, PPR+17, PPR+18, PPRH+6, PPRH+8, FYBEG+4~, FYBEG+5, FYBEG+6* , FYBEG+7, FYBEG+8, FYBEG+9, FYEND+4~, FYEND+5, FYEND+6, FYEND+7, FYEND+8, FYEND+9
>> ZTDESC	PPR+22, ZIS+2
>> ZTRTN	PPR+21, ZIS+1

Customize PDF page

Package: Commitment Register

Routine: ACRFPPR

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: