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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACRFPPR

Package: Commitment Register

Routine: ACRFPPR


Information

ACRFPPR ;IHS/OIRM/DSD/THL,AEF - PROMPT PAYMENT REPORT; [ 10/27/2004 4:18 PM ]

Source Information

Source file <ACRFPPR.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 2

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 ; ACR*2.1*13.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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All