Routine: AFSLDKG2

Information

AFSLDKG2 ;IHS/OIRM/DSD/JDM,HJT - WRITE TO ECS-CHECKS FORMAT FILE; [ 10/27/2004 4:21 PM ]

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
NCR Financial System	4	(ERROR,OPENHFS)^AFSLCK1 ^AFSLCKZC (SHDR,WRTSTRL)^AFSLDKG3 ($$SPACE,$$ZERO)^AFSLUTLM
VA Fileman	3	YX^%DTC ^DIC ^DIE
Commitment Register	2	$$ARMSDIR^ACRFSYS PAUSE^ACRFWARN
Kernel	1	CLOSE^%ZISH

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
NCR Financial System	1	AFSLDKG

Entry Points

Name	Comments	DBIA/ICR reference
READTFL	;rd tp fle
FINI3	;
FINI2	;
SETPREC	;set AFSLPREC(J)
BLCC	;create Agcy Billing Addr Ctl Rcd
PMTREC	;create pmt rcd
WRTPRX	;
WRTALCC	;write alc ctl rcd
WRTPLINS	;write pmt lns 1-14
PIDLINE	;
NXAPN	;
WRTSCR	;write alc schd ctl rcd
WRTPMT	;
FRD	;EP-open & rd tape file & send to ascii formatted file
ALCC	;create ALC ctl rcd
B01	;EVALUATE 'B01' RECORDS AND SET VARIABLES ACCORDING TO WHETHER THE
QNXAPN	;
FINI	;
OPENFLS
READLP	;rd 1-14 pd-for rcds & create AFSLPREC(1-14)
ITEM	;process pmt data
SKPPRM	;

External References

Name	Field # of Occurrence
YX^%DTC	WRTSCR+2
CLOSE^%ZISH	FINI+3, FINI2+2
$$ARMSDIR^ACRFSYS	WRTALCC+1
PAUSE^ACRFWARN	SKPPRM+4
ERROR^AFSLCK1	OPENFLS+5
OPENHFS^AFSLCK1	OPENFLS+4, SKPPRM+1
^AFSLCKZC	READTFL+2, READLP+2
SHDR^AFSLDKG3	ALCC+1
WRTSTRL^AFSLDKG3	FINI+1
$$SPACE^AFSLUTLM	PMTREC+3
$$ZERO^AFSLUTLM	PMTREC+4, PMTREC+5, WRTSCR+5, WRTSCR+6, WRTSCR+7
^DIC	QNXAPN+10
^DIE	QNXAPN+12, QNXAPN+13, QNXAPN+14, QNXAPN+15, QNXAPN+16, QNXAPN+17

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: READTFL+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: READLP+2
Function Call: WRITE	Prompt: AFSLBLCC Line Location: BLCC+2
Function Call: WRITE	Prompt: AFSLALCP Line Location: WRTPMT+10
Function Call: WRITE	Prompt: AFSLB50_$E(AFSLB50,1,38) Line Location: PIDLINE+2
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: AFSLPREC(L) Line Location: WRTPLINS+4
Function Call: WRITE	Prompt: $E(AFSLB50,1,45) Line Location: WRTPLINS+5
Function Call: WRITE	Prompt: AFSLB50_$E(AFSLB50,1,38) Line Location: WRTPLINS+6
Function Call: WRITE	Prompt: AFSLRCTY_AFSLRECN_AFSLSCHD_" " Line Location: WRTPRX+1
Function Call: WRITE	Prompt: AFSLSCR Line Location: QNXAPN+3
Function Call: WRITE	Prompt: " " Line Location: QNXAPN+4
Routine Call	DIE Line Location: QNXAPN+12 QNXAPN+13 QNXAPN+14 QNXAPN+15 QNXAPN+16 QNXAPN+17
Routine Call	DIC Line Location: QNXAPN+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSLPRM(1	ITEM+5, ITEM+7, WRTALCC+3, WRTALCC+4

Label References

Name	Line Occurrences
ALCC	ITEM+8
BLCC	ITEM+15
FINI	OPENFLS+5, OPENFLS+6, READTFL+3, ITEM+1, ITEM+2, READLP+3
FINI2	FINI+2
FINI3	FINI2+1
NXAPN	NXAPN+2, NXAPN+7
PMTREC	READLP+4
QNXAPN	NXAPN+1
READLP	B01+27
READTFL	ITEM+2, ITEM+9, ITEM+11, B01+28
SETPREC	READLP+3
SKPPRM	WRTALCC+3
WRTALCC	ALCC+5
WRTPLINS	PIDLINE+1
WRTPRX	WRTPLINS+1, WRTPLINS+2
WRTSCR	FINI+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WRTSCR+3
%DEV	OPENFLS+7, OPENFLS+8!, SKPPRM+9!
>> %FN	OPENFLS, WRTALCC+1, WRTALCC+2, WRTALCC+4
>> %H	WRTSCR+1*
>> %IN	OPENFLS+1, WRTALCC+2
>> AFSERMSG	OPENFLS+5, SKPPRM+2
>> AFSEXFN	OPENFLS
>> AFSJFLG	OPENFLS+6, ITEM+2, SKPPRM+8*, FINI+1
>> AFSLACSY	B01+21*, WRTPMT+1, WRTPMT+2
>> AFSLACT	WRTSCR+9, NXAPN+1, NXAPN+2, NXAPN+6*, QNXAPN+1
>> AFSLADD1	B01+12*, WRTPMT+1
>> AFSLADD2	B01+15*, WRTPMT+1
>> AFSLADD3	B01+16*, WRTPMT+1
>> AFSLADD4	B01+19*, WRTPMT+1
>> AFSLADR1	ITEM+13*, BLCC+1
>> AFSLADR2	ITEM+14*, BLCC+1
>> AFSLAID	ITEM+5, ALCC+3, PMTREC+6*, WRTPMT+1
>> AFSLALC	ITEM+4*, ALCC+4
>> AFSLALCC	ALCC+4*, SKPPRM+10
>> AFSLALCP	WRTPMT+1, WRTPMT+4, WRTPMT+10
>> AFSLANAM	ITEM+10, ITEM+12, BLCC+1
>> AFSLAPPN	WRTPMT+2*, WRTPMT+6, WRTPMT+7, WRTPMT+8
>> AFSLASY(	FRD+4*
>> AFSLASY(1	WRTPMT+8*
>> AFSLASY(2	QNXAPN+2
>> AFSLB50	ALCC+4, BLCC+1, PMTREC+6, PMTREC+7, WRTPMT+1, PIDLINE+2, WRTPLINS+3, WRTPLINS+5, WRTPLINS+6
>> AFSLBFL1	OPENFLS+2, B01+3, B01+10, B01+11, B01+13, B01+14, B01+17, B01+18, B01+22, B01+23 , B01+25
>> AFSLBFL2	OPENFLS+2*
>> AFSLBFL3	OPENFLS+2*
>> AFSLBFL4	OPENFLS+2*
>> AFSLBFL5	OPENFLS+2*
>> AFSLBLCC	BLCC+1*, BLCC+2
>> AFSLENCD	B01+5*, WRTPMT+1
>> AFSLGFLG	OPENFLS+2*, READLP+3
>> AFSLKDEV	BLCC+2, BLCC+3, WRTPMT+10, PIDLINE+2, SKPPRM+9*, SKPPRM+10, WRTPLINS+4, WRTPLINS+5, WRTPLINS+6, WRTPRX+1 , QNXAPN+3, QNXAPN+4, FINI2+1
>> AFSLMFLG	ITEM+2, ALCC+2
>> AFSLMMDD	WRTALCC+2, WRTALCC+4, WRTSCR+4*, QNXAPN+5
>> AFSLNOW	WRTSCR+3*, QNXAPN+6
>> AFSLNXAN	WRTSCR+9, NXAPN+2, NXAPN+3, NXAPN+4, NXAPN+5, NXAPN+6
>> AFSLNXDK	WRTALCC+2, WRTALCC+4, QNXAPN+5
>> AFSLNXTD	QNXAPN+5*
>> AFSLPCNT	B01+24, READLP+1, WRTPMT+3, WRTPMT+4
AFSLPREC	B01+26!
AFSLPREC(	SETPREC+1, WRTPLINS+3, WRTPLINS+4
>> AFSLPTYP	B01+20*, WRTPMT+1
>> AFSLPYID	PMTREC+1, PMTREC+2, WRTPMT+1
>> AFSLRCT	FRD+1, B01+4, PMTREC+4, WRTSCR+5
>> AFSLRCTY	WRTPLINS+1, WRTPLINS+2, WRTPRX+1
>> AFSLRECN	ITEM+6, PMTREC+4, WRTPMT+1, WRTPRX+1, WRTSCR+7*, WRTSCR+8
>> AFSLRFC	ITEM+7*
>> AFSLSAM(	FRD+4*
>> AFSLSAM(1	WRTPMT+9*
>> AFSLSAM(2	QNXAPN+2
>> AFSLSAMT	FRD+1, B01+8, WRTSCR+6*, WRTSCR+8
>> AFSLSCHD	ITEM+3*, ITEM+9, ITEM+11, ALCC+4, BLCC+1, WRTPMT+1, WRTPRX+1, WRTSCR+8
>> AFSLSCR	WRTSCR+8, NXAPN+2, NXAPN+6, QNXAPN+2, QNXAPN+3
>> AFSLSDEV	SKPPRM+2, SKPPRM+3, SKPPRM+4, SKPPRM+5, SKPPRM+6, SKPPRM+7, QNXAPN+9
>> AFSLSHDR	SKPPRM+10
>> AFSLSICT	WRTSCR+5*, WRTSCR+8
>> AFSLSPAC	FRD+3*
>> AFSLSYMT	WRTPMT+5*, WRTPMT+9
>> AFSLTAMT	B01+7, B01+8, PMTREC+5, WRTPMT+1, WRTPMT+5, WRTPMT+7
>> AFSLTDEV	OPENFLS+7*, READTFL+1, READLP+2, FINI+2
>> AFSLTMXX	OPENFLS+3*
>> AFSLTOT(	WRTPMT+6, WRTPMT+7, NXAPN+2, NXAPN+3, NXAPN+4, NXAPN+5, NXAPN+6
>> AFSLVEIN	B01+6, PMTREC+1, PMTREC+7
>> AFSLVNAM	B01+9, PMTREC+3, WRTPMT+1
>> AFSLXA	OPENFLS+3*
>> AFSLXC	OPENFLS+3*
>> AFSLXFLG	OPENFLS+2*, READLP+3
>> AFSLXX	OPENFLS+3*
>> AFSLZROS	FRD+2*
>> DA	QNXAPN+11*
>> DIC	QNXAPN+7*
>> DIC(0	QNXAPN+8*
>> DIE	QNXAPN+11*
>> DR	QNXAPN+12, QNXAPN+13, QNXAPN+14, QNXAPN+15, QNXAPN+16, QNXAPN+17
DTIME	READTFL+1, READLP+2
>> E	QNXAPN+1*, QNXAPN+2
>> I	FRD+4*
IO(0	READLP+3, SKPPRM+11
>> J	READLP+1*, SETPREC+1
>> L	PIDLINE+1*, WRTPLINS+1, WRTPLINS+2, WRTPLINS+3, WRTPLINS+4, WRTPLINS+5, WRTPLINS+6
>> M	QNXAPN+2, QNXAPN+4
U	ITEM+5, ITEM+7, WRTALCC+4, QNXAPN+11
>> X	READTFL+1, READTFL+3, ITEM+1, ITEM+2, ITEM+3, ITEM+4, ITEM+9, ITEM+10, ITEM+11, ITEM+12 , ITEM+13, ITEM+14, B01+3, B01+5, B01+6, B01+7, B01+9, B01+11, B01+12, B01+14 , B01+15, B01+16, B01+18, B01+19, B01+21, B01+23, B01+24, READLP+2, READLP+3, SETPREC+1 , WRTSCR+3, WRTSCR+4, QNXAPN+6*, FINI+1
>> Y	SKPPRM+3, SKPPRM+4, SKPPRM+5, SKPPRM+6, SKPPRM+7, SKPPRM+8, QNXAPN+11

Customize PDF page

Package: NCR Financial System

Routine: AFSLDKG2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: