Routine: AFSLACHT

Information

AFSLACHT ;IHS/OIRM/DSD/JLG - WRITE TO TRAVEL-ACH FORMAT FILE; [ 09/26/2005 12:53 PM ]

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
NCR Financial System	5	(SHDR,WRTSTRL)^AFSLACH2 (ERROR,OPENHFS)^AFSLCK1 ^AFSLEMLU ^AFSLSKLU ($$SPACE,$$ZERO)^AFSLUTLM
VA Fileman	4	YX^%DTC ^DIC ^DIE ^DIR
Commitment Register	1	$$NAME2^ACRFUTL1
Kernel	1	^%ZISC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
NCR Financial System	1	AFSLDKG

Entry Points

Name	Comments	DBIA/ICR reference
EXITLP	;
READTFL	;rd tp fle
FINI3	;
FINI2	;
SETPREC	;set AFSLPREC(J)
FINI	;
SSNDUPS	;
ASKSSN	;
PMTREC	;*************** Create pmt rcd ***************
WRTALCC	;write alc ctl rcd
SKEND	;
WRTPRX	;
PIDLINE	;
NXAPN	;
FINDAST	;
WRTSCR	;write alc schd ctl rcd
WRTPMT	;
GETPIDX	;GET CORRECT ADDENDUM (PAYMENT IDENT INFO) FM PAYMENT
FRD	;EP
ASKACH	;
SKPSK	;
ALCC	;******Create Transmission Hdr Rcd & ALC Ctl rcd*******
GETPIDL	;GET CORRECT ADDENDUM (PAYMENT IDENT INFO) FM PAYMENT
QNXAPN	;
BLCC	;****** Create Agcy Billing Addr Ctl Rcd ******
NXVNLP	;
OPENFLS
READLP	;rd 1-14 pd-for rcds & create AFSLPREC(1-14)
ITEM	;process pmt data
SKLOOP	;
SKPPRM	;

External References

Name	Field # of Occurrence
YX^%DTC	WRTSCR+2
^%ZISC	FINI+3, FINI2+2, FINI3+1
$$NAME2^ACRFUTL1	EXITLP+4
SHDR^AFSLACH2	ALCC+1
WRTSTRL^AFSLACH2	FINI+1
ERROR^AFSLCK1	OPENFLS+5
OPENHFS^AFSLCK1	OPENFLS+4, SKPPRM+1
^AFSLEMLU	SKPSK+3
^AFSLSKLU	ASKSSN+1
$$SPACE^AFSLUTLM	PMTREC+2
$$ZERO^AFSLUTLM	PMTREC+2, PMTREC+3, WRTSCR+5, WRTSCR+6, WRTSCR+8
^DIC	QNXAPN+8, SSNDUPS+7
^DIE	QNXAPN+10, QNXAPN+11, QNXAPN+12, QNXAPN+13, QNXAPN+14, QNXAPN+15
^DIR	SKPSK+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: READTFL+1
Function Call: WRITE	Prompt: AFSLBLCC Line Location: BLCC+2
Function Call: WRITE	Prompt: !,"FOLLOW EXAMPLES GIVEN!",*7,! Line Location: SKPSK+1
Function Call: WRITE	Prompt: AFSLALCP Line Location: WRTPMT+9
Function Call: WRITE	Prompt: AFSLB50_$E(AFSLB50,1,27) Line Location: PIDLINE+1
Function Call: WRITE	Prompt: !,AFSERMSG Line Location: SKPPRM+2
Function Call: WRITE	Prompt: !,"UNABLE TO OPEN DISKETTE FILE FOR WRITE!" Line Location: SKPPRM+3
Function Call: WRITE	Prompt: !,"No HFS Device available...",! Line Location: SKPPRM+4
Function Call: WRITE	Prompt: !,"Trying to open a new file for read (R) mode...",! Line Location: SKPPRM+5
Function Call: WRITE	Prompt: !,"Passed fls by ref...",! Line Location: SKPPRM+6
Function Call: WRITE	Prompt: !,"Invalid fi length...",! Line Location: SKPPRM+7
Function Call: WRITE	Prompt: AFSLSHDR,AFSLALCC Line Location: SKPPRM+10
Function Call: WRITE	Prompt: AFSLRCTY_AFSLRECN_AFSLSCHD_" " Line Location: WRTPRX+1
Function Call: WRITE	Prompt: AFSLSCR Line Location: QNXAPN+1
Function Call: WRITE	Prompt: " " Line Location: QNXAPN+2
Function Call: WRITE	Prompt: AFSLSYMT Line Location: FINI3+3
Function Call: WRITE	Prompt: AFSLSYMT Line Location: FINI3+4
Function Call: WRITE	Prompt: !,"Can't find person: ",AFSLTNAM," in PERSON File anymore,",!,"or SSN/INFO been changed or person has been deleted!",!,"SKIPPING PAYMENT. " Line Location: ASKACH+2
Function Call: WRITE	Prompt: !,"Person: ",$E(AFSLTNAM,1,22)," doesn't yet have needed ACH information.",!,"PLEASE ENTER ALL REQUESTED INFO NOW...",!! Line Location: EXITLP+5
Function Call: WRITE	Prompt: !!,"NAME: ",AFSLTNAM,!,"SSN: ",AFSLTSSN,! Line Location: SSNDUPS+1
Function Call: WRITE	Prompt: !,"There is more than one person in PERSON file with this person's SSN." Line Location: SSNDUPS+2
Function Call: WRITE	Prompt: !,"So, I need you to select the one to get information from.",!! Line Location: SSNDUPS+3
Routine Call	DIE Line Location: QNXAPN+10 QNXAPN+11 QNXAPN+12 QNXAPN+13 QNXAPN+14 QNXAPN+15
Routine Call	DIC Line Location: QNXAPN+8 SSNDUPS+7
Routine Call	DIR Line Location: SKPSK+1

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACRAU - [#9002185.3]	SKPSK+5, SKPSK+8
^AFSLAFP - [#9002325]	SKLOOP+1, SKLOOP+2, SKLOOP+3, SKLOOP+4, SKLOOP+5, SKLOOP+7
^AFSLPRM(1	ITEM+5, ITEM+7, WRTALCC+2, WRTALCC+3
^VA(200 - [#200]	ASKACH+1, NXVNLP+1, NXVNLP+2, EXITLP+2

Label References

Name	Line Occurrences
ALCC	ITEM+8
ASKACH	SKPSK+5
ASKSSN	SKPSK+1
BLCC	ITEM+15
EXITLP	NXVNLP+1
FINDAST	GETPIDL+2
FINI	OPENFLS+5, OPENFLS+6, READTFL+1, ITEM+1, ITEM+2, READLP+3
FINI2	FINI+2
FINI3	FINI2+1
GETPIDL	SKPSK+14
NXAPN	NXAPN+2, NXAPN+10
NXVNLP	NXVNLP+4
PMTREC	READLP+4
QNXAPN	NXAPN+1
READLP	ITEM+44
READTFL	ITEM+2, ITEM+9, ITEM+11, ITEM+16, ITEM+24, ITEM+28, ITEM+33, ITEM+39, ITEM+45
SETPREC	READLP+3
SKEND	SKLOOP+1, SKLOOP+7
SKLOOP	SKLOOP+8
SKPPRM	WRTALCC+2
SSNDUPS	EXITLP+1
WRTALCC	ALCC+7
WRTSCR	FINI+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WRTSCR+3
%DEV	OPENFLS+7!, SKPPRM+9!, FINI3+1
>> %FN	OPENFLS, WRTALCC+1, WRTALCC+3*
>> %H	WRTSCR+1*
>> %IN	OPENFLS+1, WRTALCC+1
>> AFSERMSG	OPENFLS+5, SKPPRM+2
>> AFSEXFN	OPENFLS
>> AFSJFLG	OPENFLS+6, ITEM+2, SKPPRM+8*, FINI+1
>> AFSLACSY	ITEM+37*, SKEND+1
>> AFSLACT	WRTSCR+10, NXAPN+1, NXAPN+4, NXAPN+9*
>> AFSLADD1	ITEM+26*
>> AFSLADD2	ITEM+30*
>> AFSLADD3	ITEM+31*
>> AFSLADD4	ITEM+35*
>> AFSLADR1	ITEM+13*, BLCC+1
>> AFSLADR2	ITEM+14*, BLCC+1
>> AFSLAID	ITEM+5, ALCC+2, PMTREC+4*
>> AFSLALC	ITEM+4*, ALCC+6
>> AFSLALCC	ALCC+6*, SKPPRM+10
>> AFSLALCP	WRTPMT+1, WRTPMT+3, WRTPMT+9
>> AFSLANAM	ITEM+10, ITEM+12, BLCC+1
>> AFSLAPPN	SKLOOP+7, SKEND+1, WRTPMT+2*, WRTPMT+3, WRTPMT+6, WRTPMT+7, WRTPMT+8
>> AFSLASTX	FINDAST+1*, FINDAST+2, FINDAST+3, FINDAST+4
>> AFSLASTZ	FINDAST+4*, FINDAST+5
>> AFSLASY(	FRD+10*
>> AFSLASY(1	WRTPMT+8*
>> AFSLB50	ALCC+6, BLCC+1, PMTREC+4, SKPSK+11, WRTPMT+3, PIDLINE+1
>> AFSLB80	SKPSK+16, GETPIDL+4
>> AFSLBFL1	OPENFLS+2, ITEM+23, ITEM+24, ITEM+25*
>> AFSLBFL2	OPENFLS+2, ITEM+27, ITEM+28, ITEM+29*
>> AFSLBFL3	OPENFLS+2, ITEM+32, ITEM+33, ITEM+34*
>> AFSLBFL4	OPENFLS+2, ITEM+38, ITEM+39, ITEM+40*
>> AFSLBFL5	OPENFLS+2, ITEM+42
>> AFSLBLCC	BLCC+1*, BLCC+2
>> AFSLDAN	SKPSK+8, SKPSK+10, WRTPMT+3
>> AFSLENCD	ITEM+18, SKPSK+8, WRTPMT+1, WRTSCR+11
>> AFSLGFLG	OPENFLS+2*, READLP+3
>> AFSLIDN	SKPSK+5, SKPSK+7, SKPSK+8
>> AFSLKDEV	BLCC+2, BLCC+3, WRTPMT+9, PIDLINE+1, SKPPRM+9*, SKPPRM+10, WRTPRX+1, QNXAPN+1, QNXAPN+2, FINI2+1 , FINI2+2
>> AFSLMFLG	ITEM+2, ALCC+1
>> AFSLMMDD	WRTALCC+1, WRTALCC+3, WRTSCR+4*, QNXAPN+3
>> AFSLNOW	WRTSCR+3*, QNXAPN+4
>> AFSLNXAN	WRTSCR+10, NXAPN+2, NXAPN+5, NXAPN+6, NXAPN+7, NXAPN+8
>> AFSLNXDK	WRTALCC+1, WRTALCC+3, QNXAPN+3
>> AFSLNXPN	ASKSSN+2, SKLOOP+1, SKLOOP+2, SKLOOP+3, SKLOOP+4, SKLOOP+5, SKLOOP+7
>> AFSLNXTD	QNXAPN+3*
>> AFSLNXVX	ASKACH+4, NXVNLP+1, NXVNLP+2
>> AFSLPAMT	SKLOOP+5, SKLOOP+6, SKLOOP+7
>> AFSLPCNT	ITEM+41, READLP+1, WRTPMT+4
>> AFSLPFND	SKPSK+4
>> AFSLPID	SKPSK+2*, SKPSK+3
>> AFSLPIDL	SKPSK+15, SKPSK+16, WRTPMT+3, GETPIDL+3, GETPIDL+4
>> AFSLPIDX	GETPIDL+1, GETPIDL+2, GETPIDL+3, FINDAST+1, FINDAST+5
>> AFSLPNDX	SKLOOP+3, SKPSK+4, SKPSK+5, SKPSK+7
>> AFSLPNOD	SKPSK+4
>> AFSLPNOT	ALCC+3, ALCC+4, ALCC+5*, ALCC+6
AFSLPREC	ITEM+43!
AFSLPREC(	SETPREC+1*
AFSLPREC(1	GETPIDL+1
>> AFSLPSSN	SKLOOP+4*, SKLOOP+7
>> AFSLPTYP	ITEM+36*
>> AFSLPYID	SKPSK+12*, WRTPMT+1
>> AFSLPYNM	SKPSK+13*, WRTPMT+3
AFSLQFLG	SKPSK+6!, ASKACH+3*
>> AFSLRCT	FRD+7, ITEM+17, PMTREC+2, WRTSCR+5
>> AFSLRCTY	WRTPRX+1
>> AFSLRECN	ITEM+6, PMTREC+2, WRTPMT+1, WRTPRX+1, WRTSCR+7, WRTSCR+8, WRTSCR+9
>> AFSLRFC	ITEM+7*
>> AFSLRFLG	SKPSK+6*
>> AFSLRTN	SKPSK+8, SKPSK+9, WRTPMT+3
>> AFSLRTNX	SKPPRM+4, SSNDUPS+8
>> AFSLSAM(	FRD+10*
>> AFSLSAM(1	WRTPMT+8*
>> AFSLSAMT	FRD+7, ITEM+21, WRTSCR+6*, WRTSCR+9
>> AFSLSCHD	ITEM+3*, ITEM+9, ITEM+11, ALCC+6, BLCC+1, ASKSSN+1, WRTPMT+1, WRTPRX+1, WRTSCR+9
>> AFSLSCR	WRTSCR+9, NXAPN+3, NXAPN+8*, QNXAPN+1
>> AFSLSDEV	READLP+3, SKPSK+1, SKPPRM+2, SKPPRM+3, SKPPRM+4, SKPPRM+5, SKPPRM+6, SKPPRM+7, SKPPRM+11, QNXAPN+7 , ASKACH+2, EXITLP+5, SSNDUPS+1
>> AFSLSFND	SKLOOP+1, SKLOOP+2, SKLOOP+3, SKLOOP+4, SKLOOP+5, SKLOOP+7
>> AFSLSHDR	SKPPRM+10
>> AFSLSICT	WRTSCR+5*, WRTSCR+9
>> AFSLSKED	ASKSSN+1*
>> AFSLSPAC	FRD+9*
>> AFSLSYMT	WRTPMT+5*, WRTPMT+8, FINI3+3, FINI3+4
>> AFSLTAMT	ITEM+20, ITEM+21, PMTREC+3, SKLOOP+7, WRTPMT+3, WRTPMT+5, WRTPMT+7
>> AFSLTDEV	OPENFLS+7*, READTFL+1, READLP+2, FINI+2, FINI+3
AFSLTMPL	SKPSK+3*!
>> AFSLTMXX	OPENFLS+3*
>> AFSLTNAM	ITEM+22, PMTREC+2, SKPSK+13, ASKACH+2, EXITLP+5, SSNDUPS+1
>> AFSLTNOD	EXITLP+2*, EXITLP+4
>> AFSLTOT(	WRTPMT+6, WRTPMT+7, WRTSCR+11, NXAPN+2, NXAPN+5, NXAPN+6, NXAPN+7*, NXAPN+8
>> AFSLTSSN	ITEM+19, SKLOOP+7, SKPSK+1, SKPSK+2, SKPSK+11, SKPSK+12, ASKACH+1, NXVNLP+1, NXVNLP+2, EXITLP+2 , SSNDUPS+1, SSNDUPS+4
>> AFSLVCT	ASKACH+5, NXVNLP+3, EXITLP+1
>> AFSLVND	SKPSK+3*
>> AFSLXA	OPENFLS+3*
>> AFSLXC	OPENFLS+3*
>> AFSLXFLG	READLP+3, ALCC+3
>> AFSLXX	OPENFLS+3*
>> AFSLYNOD	SKLOOP+1, SKLOOP+2, SKLOOP+3, SKLOOP+4, SKLOOP+5, SKLOOP+7
>> AFSLZROS	FRD+8*
>> DA	QNXAPN+9*
>> DIC	QNXAPN+5, SSNDUPS+5
>> DIC(0	QNXAPN+6, SSNDUPS+6
>> DIE	QNXAPN+9*
DIR	SKPSK+1!
DIR("A"	SKPSK+1*
DIR(0	SKPSK+1*
>> DR	QNXAPN+10, QNXAPN+11, QNXAPN+12, QNXAPN+13, QNXAPN+14, QNXAPN+15
DTIME	READTFL+1, READLP+2
>> I	FRD+10*
IO	FINI+3, FINI2+2, FINI3+1*
>> J	READLP+1*, SETPREC+1
>> K	FINDAST+1*
>> M	QNXAPN+2*
U	ITEM+5, ITEM+7, SKLOOP+3, SKLOOP+4, SKLOOP+5, SKLOOP+7, SKPSK+8, WRTALCC+3, QNXAPN+9
>> X	READTFL+1, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+9, ITEM+10, ITEM+11, ITEM+12, ITEM+13 , ITEM+14, ITEM+16, ITEM+18, ITEM+19, ITEM+20, ITEM+22, ITEM+24, ITEM+26, ITEM+28, ITEM+30 , ITEM+31, ITEM+33, ITEM+35, ITEM+37, ITEM+39, ITEM+41, READLP+2, READLP+3, SETPREC+1, SKPSK+1 , WRTSCR+3, WRTSCR+4, QNXAPN+4, FINI+1, EXITLP+4, SSNDUPS+4*
>> Y	SKPPRM+3, SKPPRM+4, SKPPRM+5, SKPPRM+6, SKPPRM+7, SKPPRM+8, QNXAPN+9

Customize PDF page

Package: NCR Financial System

Routine: AFSLACHT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: