Routine: ACRFPAY

Information

ACRFPAY ;IHS/OIRM/DSD/THL,AEF - CERTIFY AND EXPORT PAYMENT BATCH; [ 02/13/2007 9:19 AM ]

Source Information

Source file <ACRFPAY.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Commitment Register	16	(DDS,DIR)^ACRFDIC (EXIT,N1166)^ACRFIV11 ($$COUNT,AIRLINE)^ACRFIV12 EPMT^ACRFODOC $$CKLK^ACRFPAY (326,COMBINE,DOCX,NONARMS)^ACRFPAY1 (BATCHL,DBATCH,EXPORT,PAY,PAY1)^ACRFPAY3 (ADD,REOPEN)^ACRFPAY4 (BATCHD,REPORTS)^ACRFPAY6 BSTATUS^ACRFPAY8 ^ACRFPAYU ^ACRFPR (ACRIV,REOPEN)^ACRFRR ^ACRFTA $$DOL^ACRFUTL PAUSE^ACRFWARN
VA Fileman	1	HLP^DDSUTL

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Commitment Register	5	ACRFPAY ACRFPAY3 ACRFPAY4 ACRFPAY6 ACRFPAYU

Entry Points

Name	Comments	DBIA/ICR reference
NEWSEQ1
CERTIFY	;EP;TO LIST AND SELECT BATCHES TO BE CERTIFIED
BATCHS	;EP - SELECT BATCH
SREV	;EP;REVIEW SELECTED PAYMENTS
NEWSEQ	;EP;CREATE NEW SEQUENCE
ADDPAY	;EP;ADD PAYMENT
CONTRACT	;ALLOW ADD OF MULTIPLE NEW CONTRACT PAYMENTS
NEXT	;EP
EN1
C1
PAYE	;EP;EDIT PAYMENT INFO
BANKINFO	;EP;TO ENTER BANK INFO
EN
R1
AP	;EP;TO ADD PAYMENT INFO
BADSRN	;BAD SUB-ROUTING NUMBER - MESSAGE USED BY ACR BANK INFORMATION SCREEN
FMA	;CHECK FILE MAN ACCESS CODES
CKLK(X,Y,DUZ)	;EP; EXTRINSIC FUNCTION TO CHECK FOR BLOCKS ; ACR2.116.01 IM14473
UPODOC(ACRFYDA,ACRBATDA,ACRSEQDA)
BADRN	;BAD ROUTING NUMBER - MESSAGE USED BY ACR BANK INFORMATION SCREEN
REVIEW
EXIT

External References

Name	Field # of Occurrence
DDS^ACRFDIC	PAYE+7, BANKINFO+5
DIR^ACRFDIC	EN1+8, BATCHS+17, AP+6, NEXT+5, CONTRACT+7
EXIT^ACRFIV11	NEWSEQ1+15
N1166^ACRFIV11	NEWSEQ1+14
$$COUNT^ACRFIV12	ADDPAY+1
AIRLINE^ACRFIV12	EN1+26
EPMT^ACRFODOC	UPODOC+31
$$CKLK^ACRFPAY	EN1+29, EN1+32, EN1+35, EN1+39, EN1+44, EN1+49
326^ACRFPAY1	CONTRACT+15
COMBINE^ACRFPAY1	EN1+37
DOCX^ACRFPAY1	CONTRACT+12
NONARMS^ACRFPAY1	NEWSEQ+1
BATCHL^ACRFPAY3	R1
DBATCH^ACRFPAY3	EN1+45
EXPORT^ACRFPAY3	EN1+33
PAY^ACRFPAY3	C1+7
PAY1^ACRFPAY3	C1+8
ADD^ACRFPAY4	EN1+36
REOPEN^ACRFPAY4	EN1+40
BATCHD^ACRFPAY6	R1+3, C1+15
REPORTS^ACRFPAY6	EN1+42
BSTATUS^ACRFPAY8	EN1+47
^ACRFPAYU	EN1+51
^ACRFPR	EN1+46
ACRIV^ACRFRR	EN1+25
REOPEN^ACRFRR	EN1+41
^ACRFTA	EN1+50
$$DOL^ACRFUTL	UPODOC+20
PAUSE^ACRFWARN	BATCHS+3, ADDPAY+5, CERTIFY+4, C1+11, FMA+6, FMA+13, CKLK+12
HLP^DDSUTL	BADRN+3, BADRN+4, BADSRN+3, BADSRN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+1
Function Call: WRITE	Prompt: !!?10,"Select the Payment Function" Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: EN1+7
Function Call: WRITE	Prompt: ! Line Location: BATCHS+12
Function Call: WRITE	Prompt: ! Line Location: AP+5
Function Call: WRITE	Prompt: ! Line Location: NEXT+4
Function Call: WRITE	Prompt: ! Line Location: CONTRACT+6
Function Call: WRITE	Prompt: !!,"DOCUMENT NUMBER.....: ",ACRDOCX Line Location: CONTRACT+9
Function Call: WRITE	Prompt: !,"CONTRACTOR..........: ",$P($G(^AUTTVNDR(+$G(ACRVDAX),0)),U) Line Location: CONTRACT+10
Function Call: WRITE	Prompt: *7 Line Location: BADRN+2
Function Call: WRITE	Prompt: *7 Line Location: BADSRN+2

Name	Line Occurrences (* Changed, ! Killed)
^ACRAPL("AC"	CERTIFY+2
^ACRAU - [#9002185.3]	FMA+8
^AFSLAFP - [#9002325]	BATCHS+25, BATCHS+26, BATCHS+27, PAYE+10, C1+5, UPODOC+8, UPODOC+10, UPODOC+14, UPODOC+22
^AFSLAFP("CERT"	C1+4, C1+7
^AFSLODOC(	UPODOC+26, UPODOC+28
^AFSLODOC("B"	UPODOC+24
^AUTTVNDR - [#9999999.11]	CONTRACT+4, CONTRACT+10, UPODOC+21
^TMP("ACRBAT"	BATCHS+20
^TMP("ACRBI"	EXIT+2!
^TMP("ACREFTR"	EXIT+2!
^TMP("ACREXP"	EXIT+2!
^TMP("ACRINV"	EXIT+2!
^TMP("ACRINVR"	EXIT+2!
^TMP("ACRIV"	EXIT+2!
^TMP("ACRNORR"	EXIT+2!
^TMP("ACRPAY"	BATCHS+21, BATCHS+22, SREV+3
^TMP("ACRPAYL"	EXIT+2!
^TMP("ACRRR"	EXIT+2!
^TMP("ACRSYNC"	EXIT+2!
^VA(200 - [#200]	UPODOC+21
^XUSEC(	CKLK+9
^XUSEC("ACRFZ EDIT EFT"	BANKINFO+1
^XUSEC("ACRFZ NO CERTIFY"	CERTIFY+2
^XUSEC("ACRFZ VIEW EFT"	BANKINFO+1

Name	Line Occurrences
ADDPAY	AP+8
BATCHS	R1+1, C1+13
C1	CERTIFY+5
CERTIFY	EN1+30
CONTRACT	NEWSEQ1+16
EN1	EN
EXIT	ACRFPAY+4, EN1
FMA	ACRFPAY+3
NEWSEQ	ADDPAY+6
NEWSEQ1	CONTRACT+17
NEXT	SREV+3
PAYE	ADDPAY+9, SREV+3
R1	REVIEW
REVIEW	EN1+27
UPODOC	PAYE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!, C1+1!
ACR0	EXIT!
ACR1	EXIT!
ACR2	EXIT!
ACRACH	EXIT!, PAYE+9
ACRAMT	UPODOC+7~, UPODOC+19, UPODOC+20, UPODOC+30
ACRBAT	EXIT+1!, BATCHS+28!
ACRBATCH	UPODOC+7~, UPODOC+11*, UPODOC+12, UPODOC+28, UPODOC+30
ACRBATDA	EXIT!, BATCHS+23, BATCHS+25, BATCHS+27, ADDPAY+1, PAYE+2, PAYE+8, PAYE+10, C1+6, C1+7* , UPODOC~, UPODOC+10, UPODOC+14, UPODOC+22
ACRBATNO	EXIT!
ACRBSCH	EXIT!, BATCHS+27*
ACRBTYP	EXIT!, PAYE+6, PAYE+11, BANKINFO+2, BANKINFO+3
>> ACRCANDA	NEWSEQ1
ACRCERT	EXIT!, BATCHS+11, C1+2*
ACRDATE	UPODOC+7~, UPODOC+13*, UPODOC+30
ACRDEST	EXIT!
ACRDOC	EXIT!, CONTRACT+13, UPODOC+7~, UPODOC+15*, UPODOC+16, UPODOC+26
ACRDOCX	NEWSEQ1+17!, CONTRACT+3, CONTRACT+9, CONTRACT+11
ACRESIG	EXIT!
>> ACREXP	BATCHS+11, BATCHS+13
ACRFY	EXIT!, BATCHS+26, C1+5, UPODOC+7~, UPODOC+8*, UPODOC+9, UPODOC+24
ACRFYDA	EXIT!, BATCHS+24, BATCHS+25, BATCHS+26, BATCHS+27, ADDPAY+1, PAYE+1, PAYE+8, PAYE+10, C1+3 , C1+4*, C1+5, C1+7, UPODOC~, UPODOC+8, UPODOC+10, UPODOC+14, UPODOC+22
ACRFYX	EXIT!
ACRIV	EXIT+1!, EN1+41*!
>> ACRIVPAY(	NEWSEQ1
ACRJ	EXIT!, SREV+3*
ACRJJ	EXIT!
ACRMAX	EXIT!, BATCHS+1, C1+1!, C1+9
ACRNEXT	ADDPAY+10*, AP+2, AP+4!
>> ACROBJDA	NEWSEQ1*, NEWSEQ1+1
ACROUT	EN, EXIT!, REVIEW, R1+2, R1+3, ADDPAY+7, NEWSEQ+2, CERTIFY+5, C1+14, C1+15 , CONTRACT+16
ACRPAY	EXIT!, C1+1!
ACRPAYEE	EXIT!
ACRPDFOR	UPODOC+7~, UPODOC+23*, UPODOC+30
ACRQUIT	ACRFPAY+4, EN, EXIT!, EN1+9, EN1+25!, EN1+26!, EN1+27!, EN1+28!, EN1+31!, EN1+34! , EN1+37!, EN1+38!, EN1+41!, EN1+42!, EN1+43!, EN1+47!, EN1+48!, EN1+51!, REVIEW, REVIEW+1! , R1+2, R1+3, R1+4!, BATCHS+4, BATCHS+18, BATCHS+21, BATCHS+25, ADDPAY+7!, NEWSEQ+2, SREV+3 , SREV+4!, NEXT+6, CERTIFY+5, CERTIFY+6!, C1+12, C1+14, C1+15, C1+16!, FMA+7, FMA+14* , CONTRACT+8, CONTRACT+13, CONTRACT+16
ACRREF	EXIT!
ACRREFX	AP+8, NEWSEQ1+16, NEWSEQ1+17!
ACRS	EXIT!
ACRSBAT	EXIT!
ACRSCHNO	UPODOC+7~, UPODOC+22*, UPODOC+30
ACRSEQ	UPODOC+7~, UPODOC+17*, UPODOC+18, UPODOC+28, UPODOC+30
ACRSEQDA	EXIT!, SREV+3*, PAYE+3, PAYE+8, PAYE+10, UPODOC~, UPODOC+14
ACRSEQNO	EXIT!
ACRSFY	EXIT!
ACRSNO	EXIT+1!
ACRSS	EXIT!
ACRSSN	UPODOC+7~, UPODOC+21*, UPODOC+30
ACRTOT	EXIT!
>> ACRVDA	CONTRACT+14*
ACRVDAT	EXIT+1!
ACRVDAX	NEWSEQ1+17!, CONTRACT+4, CONTRACT+10, CONTRACT+14
ACRXALL	EXIT!, BATCHS+6!, BATCHS+19*
ACRXX	EXIT!, SREV+2*, SREV+3
ACRY	EXIT!, SREV+2
D0	UPODOC+7~, UPODOC+24*, UPODOC+25, UPODOC+26, UPODOC+28, UPODOC+31
D1	UPODOC+7~, UPODOC+26*, UPODOC+27, UPODOC+28, UPODOC+31
D2	UPODOC+7~, UPODOC+28*, UPODOC+29, UPODOC+31
>> DA	PAYE+3, PAYE+13
>> DA(1	PAYE+2*
>> DA(2	PAYE+1*
DATA	UPODOC+7~, UPODOC+10, UPODOC+11, UPODOC+13, UPODOC+14, UPODOC+15, UPODOC+17, UPODOC+19, UPODOC+21, UPODOC+23 , UPODOC+30*, UPODOC+31
>> DDSFILE	BANKINFO+3*
>> DDSFILE(1	PAYE+5*
>> DIE	PAYE+4, BANKINFO+2
>> DIR("?"	BATCHS+9, BATCHS+10
>> DIR("A"	EN1+6, BATCHS+8, BATCHS+11, AP+2, NEXT+2, CONTRACT+2, CONTRACT+3, CONTRACT+4
>> DIR("B"	AP+3, NEXT+3, CONTRACT+5*
>> DIR(0	EN1+3, EN1+4, EN1+5, BATCHS+7, AP+1, NEXT+1, CONTRACT+1*
>> DR	PAYE+6, BANKINFO+4
DUZ	EN1+29, EN1+32, EN1+35, EN1+39, EN1+44, EN1+49, BANKINFO+1, CERTIFY+2, FMA+8, CKLK~ , CKLK+9
DUZ(0	FMA+1
IOF	EN1+1
J	C1~
U	BATCHS+23, BATCHS+24, BATCHS+26, BATCHS+27, PAYE+11, C1+5, FMA+8, CONTRACT+4, CONTRACT+10, UPODOC+8 , UPODOC+11, UPODOC+13, UPODOC+15, UPODOC+17, UPODOC+19, UPODOC+21, UPODOC+22, UPODOC+23, UPODOC+30
X	BATCHS+5~, BATCHS+22, BATCHS+23, BATCHS+24, SREV+1~, SREV+3, PAYE+10, PAYE+11, PAYE+12, PAYE+13 , C1~, CONTRACT+11*, CKLK~, CKLK+9
Y	EN1+9, EN1+25, EN1+26, EN1+27, EN1+28, EN1+31, EN1+34, EN1+37, EN1+38, EN1+41 , EN1+42, EN1+43, EN1+46, EN1+47, EN1+48, EN1+51, BATCHS+18, BATCHS+19, BATCHS+20*, BATCHS+21 , BATCHS+22, AP+7, NEXT+6, C1~, CONTRACT+8, CKLK~, CKLK+11
Z	CKLK+8~, CKLK+9*, CKLK+10, CKLK+13

Customize PDF page

Package: Commitment Register

Routine: ACRFPAY

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: