Routine: AFSLCKSQ

Package	Total	Call Graph
NCR Financial System	8	CRTSETUP^AFSLCRTS ENDIT^AFSLKEDT ^AFSLPYCR ^AFSLSCLU ^AFSLSQLU READCHRS^AFSLSRDR $$ZERO^AFSLUTLM ^AFSLYRLU
Commitment Register	1	$$NAME2^ACRFUTL1
IHS VA Utilities	1	^XBCLS

Name	Comments	DBIA/ICR reference
CKSEQ1B	;PAY-ID
CKSEQ1A	;PAY NAME
LOOK	;
CKSEQ2	;
CKSEQ1	;SSN
NDEYR	;
NDE	;
PMTLOOP2	;
EN1	; EP; ENTRY POINT FOR CALLING ROUTINES
PRESS	;
LOOPS	;
PMTLOOP	;
CKPYX	;
CKSEQ	;EIN
ENDIT	;

Name	Field # of Occurrence
$$NAME2^ACRFUTL1	CKSEQ1+5
CRTSETUP^AFSLCRTS	EN1+10
ENDIT^AFSLKEDT	ENDIT+1
^AFSLPYCR	CKPYX+47
^AFSLSCLU	LOOK+3
^AFSLSQLU	PMTLOOP2+7
READCHRS^AFSLSRDR	NDEYR+21, NDEYR+52
$$ZERO^AFSLUTLM	NDEYR+57, NDEYR+67, NDEYR+73, PMTLOOP+1
^AFSLYRLU	LOOK+1
^XBCLS	EN1+2, EN1+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"We must do the following checks on the payment batch(es):" Line Location: EN1+3
Function Call: WRITE	Prompt: !!,"1 ... Check all payments if corrupt or not recorded in the document." Line Location: EN1+4
Function Call: WRITE	Prompt: !,"2 ... Check all payments for PAY NAME vs. PAY-ID" Line Location: EN1+5
Function Call: WRITE	Prompt: !,"3 ... List and verify 'hash' totals for each batch." Line Location: EN1+6
Function Call: WRITE	Prompt: !,"4 ... Check each batch for blank/incomplete payments.",! Line Location: EN1+7
Function Call: WRITE	Prompt: @AFSLRVON,"1166 AFP DATA ENTRY",@AFSLRVOF Line Location: EN1+15
Function Call: WRITE	Prompt: @AFSLRVON,"PAYMENT RECORD CHECK PROCESS",@AFSLRVOF Line Location: EN1+19
Function Call: WRITE	Prompt: AFSLDDX Line Location: EN1+23
Function Call: WRITE	Prompt: " " Line Location: NDEYR+5
Function Call: WRITE	Prompt: @AFSLRVON,AFSLFYR,@AFSLRVOF Line Location: NDEYR+44
Function Call: WRITE	Prompt: " BATCH: ******" Line Location: NDEYR+48
Function Call: WRITE	Prompt: @AFSLRVON,AFSLSCHD,@AFSLRVOF Line Location: NDEYR+61
Function Call: WRITE	Prompt: @AFSLRVON,AFSLSQNO,@AFSLRVOF Line Location: NDEYR+77
Function Call: WRITE	Prompt: @AFSLRVON,AFSLSQNO,@AFSLRVOF Line Location: PMTLOOP2+6
Function Call: WRITE	Prompt: "FOUND FYR: ",AFSLFYR," BATCH: ",AFSLSCHD," SEQUENCE: ",AFSLSQNO Line Location: CKSEQ2+4
Function Call: WRITE	Prompt: "DOC REF: ",$P(AFSLNZRO,U,5) Line Location: CKSEQ2+11
Function Call: WRITE	Prompt: "DOCUMENT: ",$P(AFSLNZRO,U,20) Line Location: CKSEQ2+14
Function Call: WRITE	Prompt: "OTH REF: ",$P(AFSLNZRO,U,6) Line Location: CKSEQ2+17
Function Call: WRITE	Prompt: "OTH DOC#: ",$P(AFSLNZRO,U,21) Line Location: CKSEQ2+20
Function Call: WRITE	Prompt: "CAN NUM: ",AFSLCAN Line Location: CKSEQ2+27
Function Call: WRITE	Prompt: "OBJ CLAS: ",AFSLOBJ Line Location: CKSEQ2+30
Function Call: WRITE	Prompt: "DOC TYP: ",AFSLDTY Line Location: CKSEQ2+37
Function Call: WRITE	Prompt: "AMOUNT: ",$P(AFSLNZRO,U,11) Line Location: CKSEQ2+40
Function Call: WRITE	Prompt: "PAY TYPE: ",AFSLPTY Line Location: CKSEQ2+43
Function Call: WRITE	Prompt: " " Line Location: CKPYX+4
Function Call: WRITE	Prompt: " " Line Location: CKPYX+7
Function Call: WRITE	Prompt: " " Line Location: CKPYX+10
Function Call: WRITE	Prompt: " " Line Location: CKPYX+13
Function Call: WRITE	Prompt: "NAME: ",AFSLPNAM Line Location: CKPYX+16
Function Call: WRITE	Prompt: "ID: ",AFSLPID Line Location: CKPYX+19
Function Call: WRITE	Prompt: "VN-EIN: ",AFSLVEIN Line Location: CKPYX+22
Function Call: WRITE	Prompt: "TV-SSN: ",AFSLSSN Line Location: CKPYX+25
Function Call: WRITE	Prompt: @AFSLRVON,"PRESS RETURN",@AFSLRVOF Line Location: PRESS+3
Function Call: WRITE	Prompt: " " Line Location: PRESS+6
Function Call: WRITE	Prompt: " " Line Location: PRESS+9

Name	Line Occurrences (* Changed, ! Killed)
^AFSLAFP - [#9002325]	PMTLOOP2+1, PMTLOOP2+2
^AFSLPTYP(	CKSEQ2+32
^AUTTCAN - [#9999999.57]	CKSEQ2+22
^AUTTOBJC - [#9999999.59]	CKSEQ2+24
^AUTTVNDR - [#9999999.11]	CKSEQ+3, CKSEQ+4, CKSEQ+5
^VA(200 - [#200]	CKSEQ1+3

Name	Line Occurrences
CKSEQ1	CKSEQ+2
CKSEQ1A	CKSEQ1+2, CKSEQ1+3
CKSEQ2	CKSEQ+3
EN1	LOOK+2, LOOK+4, PMTLOOP2+8
ENDIT	NDE+3, NDEYR+23, NDEYR+54, NDEYR+63, NDEYR+69
NDEYR	NDEYR+24, NDEYR+33
PMTLOOP	LOOPS+5
PMTLOOP2	CKPYX+45, CKPYX+48
PRESS	CKSEQ1A+6, CKPYX+32, CKPYX+38, CKPYX+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFSLANSD	NDE+4, NDEYR+23, NDEYR+54, NDEYR+63, NDEYR+69*, LOOPS+1, LOOPS+4, LOOPS+6!
>> AFSLCAN	CKSEQ2+5, CKSEQ2+21, CKSEQ2+22*, CKSEQ2+27
>> AFSLCHRS	NDEYR+19, NDEYR+50
AFSLDDX	EN1+11, EN1+23, EN1+25, LOOK+2, LOOK+4, PMTLOOP2+8*, PRESS+7!
>> AFSLDELX	CKPYX+26*
>> AFSLDTY	CKSEQ2+8, CKSEQ2+34, CKSEQ2+37
>> AFSLEINO	CKSEQ+1*, CKSEQ+2, CKSEQ+3, CKSEQ+4, CKSEQ+5
>> AFSLFYR	NDEYR+22*, NDEYR+23, NDEYR+24, NDEYR+33, NDEYR+44, CKSEQ2+4
>> AFSLHERR	CKSEQ1A+2, CKPYX+28, CKPYX+34, CKPYX+40
>> AFSLLNTH	NDEYR+55, NDEYR+64, NDEYR+65, NDEYR+70*, NDEYR+71
>> AFSLNOD1	CKSEQ1A+1, CKSEQ1A+6*, CKSEQ1A+7, CKSEQ1B+1, CKPYX+27, CKPYX+33
>> AFSLNXT	NDE+1, NDE+2, NDE+3
>> AFSLNZRO	PMTLOOP2+9*, CKSEQ+1, CKSEQ1+1, CKSEQ2+11, CKSEQ2+14, CKSEQ2+17, CKSEQ2+20, CKSEQ2+21, CKSEQ2+23, CKSEQ2+31 , CKSEQ2+34, CKSEQ2+40, CKPYX+27, CKPYX+39
>> AFSLOBJ	CKSEQ2+6, CKSEQ2+23, CKSEQ2+24*, CKSEQ2+30
>> AFSLPEIN	CKSEQ+2, CKSEQ+4, CKSEQ+6
>> AFSLPID	CKSEQ1B+1*, CKPYX+19
>> AFSLPNAM	CKSEQ1A+7*, CKPYX+16, CKPYX+46
>> AFSLPSFX	CKSEQ+5*, CKSEQ+6
>> AFSLPTY	CKSEQ2+7, CKSEQ2+31, CKSEQ2+32*, CKSEQ2+33, CKSEQ2+43
>> AFSLPTYP	CKSEQ2+33*
>> AFSLRTNX	EN1+8, PRESS+3
>> AFSLRVOF	EN1+15, EN1+19, NDEYR+28, NDEYR+36, NDEYR+44, NDEYR+61, NDEYR+77, PMTLOOP2+6, CKSEQ1A+6, CKPYX+31 , CKPYX+37, CKPYX+43, PRESS+3
>> AFSLRVON	EN1+15, EN1+19, NDEYR+28, NDEYR+36, NDEYR+44, NDEYR+61, NDEYR+77, PMTLOOP2+6, CKSEQ1A+6, CKPYX+31 , CKPYX+37, CKPYX+43, PRESS+3
>> AFSLSCHD	NDEYR+53, NDEYR+54, NDEYR+55, NDEYR+58, NDEYR+61, NDEYR+62, CKSEQ2+4
>> AFSLSCHE	NDEYR+62, NDEYR+63, NDEYR+64, NDEYR+68
>> AFSLSNOD	PMTLOOP2+1, PMTLOOP2+2
>> AFSLSQNO	NDEYR+1, NDEYR+69, NDEYR+70, NDEYR+74, NDEYR+77, LOOPS+2, LOOPS+3, PMTLOOP+1, PMTLOOP2+1, PMTLOOP2+2 , PMTLOOP2+6, CKSEQ2+4
>> AFSLSSN	CKSEQ1+2, CKSEQ1+3, CKSEQ1+5*, CKPYX+25
>> AFSLSSNO	CKSEQ1+1*, CKSEQ1+2, CKSEQ1+3, CKSEQ1+5
>> AFSLTYPE	CKSEQ2+31*
>> AFSLVEIN	CKSEQ+6, CKPYX+1, CKPYX+22, CKPYX+45
>> AFSLVOUT	NDEYR+22, NDEYR+53
>> AFSLYNOD	PMTLOOP2+1, PMTLOOP2+2
>> AFSLZFIL	NDEYR+57, NDEYR+58, NDEYR+67, NDEYR+68, NDEYR+73*, NDEYR+74
>> AFSLZLTH	NDEYR+55, NDEYR+56, NDEYR+57, NDEYR+65, NDEYR+66, NDEYR+67, NDEYR+71*, NDEYR+72, NDEYR+73
>> AFSLZROS	EN1+1*
>> DX	EN1+13, EN1+17, EN1+21, NDEYR+3, NDEYR+7, NDEYR+13, NDEYR+25, NDEYR+34, NDEYR+42, NDEYR+46 , NDEYR+49, NDEYR+59, NDEYR+75, PMTLOOP2+4, CKSEQ1A+4, CKSEQ2+2, CKSEQ2+9, CKSEQ2+12, CKSEQ2+15, CKSEQ2+18 , CKSEQ2+25, CKSEQ2+28, CKSEQ2+35, CKSEQ2+38, CKSEQ2+41, CKPYX+2, CKPYX+5, CKPYX+8, CKPYX+11, CKPYX+14 , CKPYX+17, CKPYX+20, CKPYX+23, CKPYX+29, CKPYX+35, CKPYX+41, PRESS+1, PRESS+4, PRESS+8*
>> DY	EN1+12, EN1+16, EN1+20, NDEYR+2, NDEYR+6, NDEYR+45, PMTLOOP2+3, CKSEQ1A+3, CKSEQ2+1, CKSEQ2+9 , CKSEQ2+15, CKSEQ2+25, CKSEQ2+35, CKPYX+2, CKPYX+11, CKPYX+14, CKPYX+23, CKPYX+29, CKPYX+35, CKPYX+41 , PRESS+1, PRESS+8
>> M	CKPYX+4, CKPYX+7, CKPYX+10, CKPYX+13
U	PMTLOOP2+9, CKSEQ+1, CKSEQ+4, CKSEQ+5, CKSEQ1+1, CKSEQ1A+7, CKSEQ1B+1, CKSEQ2+11, CKSEQ2+14, CKSEQ2+17 , CKSEQ2+20, CKSEQ2+21, CKSEQ2+22, CKSEQ2+23, CKSEQ2+24, CKSEQ2+31, CKSEQ2+32, CKSEQ2+34, CKSEQ2+40, CKPYX+33 , CKPYX+39
>> X	CKPYX+46*
>> XY	EN1+14, EN1+18, EN1+22, NDEYR+4, NDEYR+8, NDEYR+20, NDEYR+26, NDEYR+30, NDEYR+35, NDEYR+40 , NDEYR+43, NDEYR+47, NDEYR+51, NDEYR+60, NDEYR+76, PMTLOOP2+5, CKSEQ1A+5, CKSEQ2+3, CKSEQ2+10, CKSEQ2+13 , CKSEQ2+16, CKSEQ2+19, CKSEQ2+26, CKSEQ2+29, CKSEQ2+36, CKSEQ2+39, CKSEQ2+42, CKPYX+3, CKPYX+6, CKPYX+9 , CKPYX+12, CKPYX+15, CKPYX+18, CKPYX+21, CKPYX+24, CKPYX+30, CKPYX+36, CKPYX+42, PRESS+2, PRESS+5 , PRESS+9
>> Y	LOOK+2, LOOK+4, PMTLOOP2+8

Customize PDF page

Package: NCR Financial System

Routine: AFSLCKSQ

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: