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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACRFPAYR

Package: Commitment Register

Routine: ACRFPAYR


Information

ACRFPAYR ;IHS/OIRM/DSD/THL,AEF - INTEREST PENALY REPORT; [ 07/23/2002 2:22 PM ]

Source Information

Source file <ACRFPAYR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Commitment Register 8 DATES^ACRFDATE  DIR^ACRFDIC  SETDOC^ACRFEA1  WHICHP^ACRFPAY6  ^ACRFQ  RRNO^ACRFRRPT  PAUSE^ACRFWARN  ^ACRFZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Commitment Register 1 ACRFPAY6  

Entry Points

Name Comments DBIA/ICR reference
IPPR ;EP;TO SET UP PRINT OF INTEREST REPORT
IPEN
IP ;EP;TO PRINT INTEREST PENALTY REPORT
IPH ;HEADER
RR
SETDOC ;
IPEXIT
PO
CENTER(X) ;CENTER HEADER INFO
IPGET ;
IPDISP ;DISPLAY EACH INTEREST PENALTY
IPAMT ;SPECIFY DOLLAR AMOUNT RANGE
L1
RRNO ;SELECT RECEIVING REPORT NUMBER FOR EACH DOCUMENT
IDATES
PORR ;EP;TO SETUP PRINT OF THE PURCHASE ORDER OR RECEIVING REPORT
IPDATA ;FIND RECORDS TO INCLUDE
PORR1 ;EP;TO PRINT PO AND/OR RECEIVING REPORT
ZIS ;SELECT OUTPUT DEVICE

External References

Name Field # of Occurrence
DATES^ACRFDATE IDATES
DIR^ACRFDIC IPEN+7, IPAMT+5, IPAMT+11, PORR+10
SETDOC^ACRFEA1 SETDOC+5
WHICHP^ACRFPAY6 PORR+3
^ACRFQ PO, RR+3
RRNO^ACRFRRPT RRNO+6
PAUSE^ACRFWARN IPEN+13, IPDATA+15, IPGET+12
^ACRFZIS IPAMT+17, ZIS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IPEN+0
Function Call: WRITE
  • Prompt: !?10,"Interest Payment Report"
  • Line Location: IPEN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: IPEN+6
Function Call: WRITE
  • Prompt: !,"Both BEGINNING and ENDING dates required."
  • Line Location: IDATES+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IPH+1
Function Call: WRITE
  • Prompt: !?10,"INTEREST PENALTY REPORT"
  • Line Location: IPH+2
Function Call: WRITE
  • Prompt: !?10,"-----------------------"
  • Line Location: IPH+3
Function Call: WRITE
  • Prompt: !?10,"FISCAL YEAR: ",ACRFY
  • Line Location: IPH+4
Function Call: WRITE
  • Prompt: !?10,"REPORT FROM: "
  • Line Location: IPH+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: IPH+8
Function Call: WRITE
  • Prompt: !?10,"REPORT TO..: "
  • Line Location: IPH+9
Function Call: WRITE
  • Prompt: Y
  • Line Location: IPH+12
Function Call: WRITE
  • Prompt: !?10,"REPORT DATE: "
  • Line Location: IPH+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: IPH+16
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,?35,"TOTAL PAYMENTS: ",$J($FN(ACRT2,"P,",2),14)
  • Line Location: IPDATA+11
Function Call: WRITE
  • Prompt: !,?35,"TOTAL INTEREST: ",$J($FN(ACRT1,"P,",2),14)
  • Line Location: IPDATA+12
Function Call: WRITE
  • Prompt: !,?35,"TOTAL DOCUMENTS "
  • Line Location: IPDATA+13
Function Call: WRITE
  • Prompt: !,?35,"WITH INTEREST.: ",$J(ACRJ,13)
  • Line Location: IPDATA+14
Function Call: WRITE
  • Prompt: !!,"FY......: ",ACRFY,?22,"BATCH NO.: ",ACRBATNO
  • Line Location: IPDISP+1
Function Call: WRITE
  • Prompt: !,"DOCUMENT: ",$P(W,U,20),?22,"REF CODE.: ",$P(W,U,5),?41,"SEQ. NO.: ",$P(W,U),?57,"GRS. PMT: ",$J($FN($P(W,U,11),"P,",2),10)
  • Line Location: IPDISP+2
Function Call: WRITE
  • Prompt: !,"DOCUMENT: ",$P(X,U,20),?22,"REF CODE.: ",$P(X,U,6),?41,"SEQ. NO.: ",$P(X,U),?57,"INT. PMT: ",$J($FN($P(X,U,11),"P,",2),10)
  • Line Location: IPDISP+3
Function Call: WRITE
  • Prompt: !,"VENDOR..: ",$E($P($G(^AUTTVNDR(+$P(X,U,10),0)),U),1,20)
  • Line Location: IPDISP+4
Function Call: WRITE
  • Prompt: !,"PAID FOR: ",$P(X,U,14)
  • Line Location: IPDISP+5
Function Call: WRITE
  • Prompt: !,"CAN.....: ",$P($G(^AUTTCAN(+$P(X,U,7),0)),U),?22,"OBJECT CD: ",$P($G(^AUTTOBJC(+$P(X,U,8),0)),U),?41,"FED CODE: ",$P(X,U,15),?57,"PIG-P/F.: ",$P(Y,U,19),?71,"WKLD: ",$P(X,U,17)
  • Line Location: IPDISP+6
Function Call: WRITE
  • Prompt: !?80-$L(X)/2,X
  • Line Location: CENTER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PORR+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACRDOC - [#9002196] SETDOC+6
^AFSLAFP - [#9002325] IPDATA+6, IPDATA+8, IPGET+2, IPGET+3, IPGET+5, IPGET+6, IPGET+7, IPGET+8, SETDOC+3
^AFSLAFP("B" IPEN+10
^AUTTCAN - [#9999999.57] IPDISP+6
^AUTTDOCR - [#9999999.63] SETDOC+7
^AUTTOBJC - [#9999999.59] IPDISP+6
^AUTTOBJC("B" IPDATA+2
^AUTTVNDR - [#9999999.11] IPDISP+4
^DD("DD" IPH+7, IPH+11, IPH+15
^TMP("ACRPAY" PORR1+2, SETDOC+1, RRNO+2

Label References

Name Line Occurrences
IDATES IDATES+2
IPAMT IPAMT+13
IPDATA IP+2
IPDISP IPGET+10
IPEN IPPR+1
IPGET IPDATA+9
IPH IP+1, IPGET+12
L1 IPDATA+10
PO PORR1+5, PORR1+6, PORR1+8
RR PORR1+7, PORR1+9
RRNO PORR+13
SETDOC PORR1+3, RRNO+4
ZIS PORR+6, PORR+14

Naked Globals

Name Field # of Occurrence
^(0 IPGET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACRBATDA IPEXIT!, IPDATA+7*, IPDATA+8*, IPGET+2, IPGET+3, IPGET+5, IPGET+6, IPGET+7, IPGET+8, SETDOC+3
ACRBATNO IPEXIT!, IPGET+3*, IPDISP+1
ACRBEGIN IPEXIT!, IDATES+1, IPH+6, IPDATA+5
>> ACRBTYP PORR+6
ACRDATE IPEXIT!, IPDATA+1~, IPDATA+5*, IPDATA+6*, IPDATA+8
ACRDOCDA PORR1+1~, PORR1+4, SETDOC+3*, SETDOC+4, SETDOC+6, RRNO+1~, RRNO+5
ACREND IPEXIT!, IDATES+2, IPH+10, IPDATA+6
ACRFR IPEXIT!, IPAMT+7*, IPGET+2
ACRFY IPEXIT!, IPEN+9*, IPH+4, IPDISP+1
ACRFYDA IPEXIT!, IPEN+10*, IPEN+11, IPDATA+6, IPDATA+8, IPGET+2, IPGET+3, IPGET+5, IPGET+6, IPGET+7
, IPGET+8, SETDOC+3
ACRJ IPEXIT!, IPDATA+4*, IPDATA+14, IPGET+11*, PORR1+1~, PORR1+2*, RRNO+1~, RRNO+2*
ACROBJDA IPDATA+1~, IPDATA+2*, IPDATA+3, IPGET+2, IPGET+9
ACROUT IPEXIT!, IPAMT+13!
ACRQUIT IPEXIT!, IPEN+8*, IDATES+1*, IPAMT+6*, IPAMT+12, IPAMT+13!, IPDATA+6, IPGET+2, IPGET+12, PORR+2!
, PORR+4
>> ACRREF SETDOC+7*
>> ACRREFDA SETDOC+6*, SETDOC+7
>> ACRREFX RR+2*, SETDOC+7*
>> ACRRR( RR, RRNO+8*
ACRRRNO PORR1+1~, RR*, RR+1, RRNO+7, RRNO+8
ACRRTN IPEXIT!, IPAMT+15*, ZIS+1*
ACRSEQDA IPEXIT!, IPGET+1*, IPGET+2*, IPGET+5, IPGET+6, IPGET+7, IPGET+8, PORR1+1~, SETDOC+1*, SETDOC+2
, SETDOC+3, RRNO+1~
ACRSEQNO IPEXIT!
ACRT1 IPEXIT!, IPDATA+4*, IPDATA+12, IPDISP+7*
ACRT2 IPEXIT!, IPDATA+4*, IPDATA+11, IPDISP+8*
ACRTO IPEXIT!, IPAMT+14*, IPGET+2
ACRX RRNO+1~, RRNO+2*, RRNO+3, RRNO+8
ACRXX PORR+1~, PORR+5*, PORR1+2, RRNO+2
ACRXXX PORR+1~, PORR+6*, PORR+12*, PORR+13, PORR1+5, PORR1+6, PORR1+7
>> ACRY PORR+5
>> DIR("A" IPEN+3*, IPEN+4*, IPAMT+2*, IPAMT+3*, IPAMT+9*, IPAMT+10*, PORR+8*
>> DIR("B" IPEN+5*, IPAMT+4*
>> DIR(0 IPEN+2*, IPAMT+1*, IPAMT+8*, PORR+7*
DT IPEN+5, IPH+14
IOF IPEN, IPH+1
IOSL IPGET+12
U IPGET+2, IPGET+3, IPGET+9, IPDISP+2, IPDISP+3, IPDISP+4, IPDISP+5, IPDISP+6, IPDISP+7, IPDISP+8
, SETDOC+3, SETDOC+6, SETDOC+7
W IPGET+4~, IPGET+8*, IPGET+9*, IPDISP+2, IPDISP+8
X IPGET+4~, IPGET+5*, IPGET+9, IPDISP+3, IPDISP+4, IPDISP+5, IPDISP+6, IPDISP+7, CENTER~, CENTER+1
, PORR1+1~, PORR1+2*, RR, SETDOC+1, RRNO+3*
Y IPEN+8, IPEN+9, IPEN+10, IPEN+12, IPAMT+6, IPAMT+7, IPAMT+13, IPAMT+14, IPH+6*, IPH+8
, IPH+10*, IPH+12, IPH+14*, IPH+16, IPGET+4~, IPGET+6*, IPDISP+6, PORR+11, PORR+12
Z IPGET+4~, IPGET+7*
>> ZTDESC IPAMT+16*, ZIS+2*
>> ZTRTN IPAMT+15*, ZIS+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All