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

Package: Commitment Register

Routine: ACRFPAYL


Information

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

Source Information

Source file <ACRFPAYL.m>

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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*
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