Routine: AFSLLDO1

Package	Total	Call Graph
NCR Financial System	5	OPENHFS^AFSLCK1 (,HOSTCMD)^AFSLCKZC CRTSETUP^AFSLCRTS ^AFSLHASL ^AFSLLDO2
Commitment Register	3	DIR^ACRFDIC $$ARMSDIR^ACRFSYS PAUSE^ACRFWARN
VA Fileman	2	NOW^%DTC IXALL^DIK
IHS VA Utilities	1	^XBCLS
Kernel	1	CLOSE^%ZISH

Package	Total	Caller Graph
Commitment Register	2	ACRFODD ACRFPAYU

Entry Points

Name	Comments	DBIA/ICR reference
INFO
LOGIT	;
CONT	;
VKILL	;
SETTBL	;EP
RDFLE	; RDFLE REWRITTEN ;ACR2.113.02 IM13574 and ACR2.113.06 IM14144
SELECT	;

External References

Name	Field # of Occurrence
NOW^%DTC	INFO
CLOSE^%ZISH	RDFLE+17, CONT+21
DIR^ACRFDIC	CONT+15
$$ARMSDIR^ACRFSYS	SELECT+8
PAUSE^ACRFWARN	INFO+20, CONT+8
OPENHFS^AFSLCK1	RDFLE+14
^AFSLCKZC	RDFLE+16
HOSTCMD^AFSLCKZC	SELECT+11
CRTSETUP^AFSLCRTS	INFO
^AFSLHASL	SELECT+1
^AFSLLDO2	CONT+22
IXALL^DIK	LOGIT+2
^XBCLS	INFO

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @AFSLRVON,"IHS 1166 APPROVALS FOR PAYMENT SYSTEM",@AFSLRVOF Line Location: INFO+2
Function Call: WRITE	Prompt: @AFSLRVON,"IMPORT H.A.S. OBLIGATIONS DOWNLOAD FILE",@AFSLRVOF Line Location: INFO+3
Function Call: WRITE	Prompt: @AFSLRVON," ",@AFSLRVOF Line Location: INFO+4
Function Call: WRITE	Prompt: "This import process will completely replace all data" Line Location: INFO+6
Function Call: WRITE	Prompt: "currently stored in your local obligations document" Line Location: INFO+7
Function Call: WRITE	Prompt: "file with the current obligations data on file in the" Line Location: INFO+8
Function Call: WRITE	Prompt: "Health Accounting System at Parklawn Computer Center." Line Location: INFO+9
Function Call: WRITE	Prompt: "There should have been NO payment data entered into" Line Location: INFO+10
Function Call: WRITE	Prompt: "the IHS 1166 APPROVALS FOR PAYMENT system since the" Line Location: INFO+11
Function Call: WRITE	Prompt: "last DHR Data Entry splitout & transmission to PCC." Line Location: INFO+12
Function Call: WRITE	Prompt: "Otherwise, that data must be re-entered after this" Line Location: INFO+13
Function Call: WRITE	Prompt: "import process is completed. IT IS RECOMMENDED THAT" Line Location: INFO+14
Function Call: WRITE	Prompt: "YOU REQUEST YOUR ADP SITE MANAGER SAVE THE GLOBAL" Line Location: INFO+15
Function Call: WRITE	Prompt: "^AFSLODOC BEFORE YOU CONTINUE WITH THIS PROCESS." Line Location: INFO+16
Function Call: WRITE	Prompt: @AFSLRVON," ",@AFSLRVOF Line Location: INFO+17
Function Call: READ	Prompt: "CONTINUE (Y/N) N//" Timeout: 300 Variable: AFSLCONT Line Location: INFO+18
Function Call: WRITE	Prompt: $J("",80) Line Location: SELECT+3
Function Call: WRITE	Prompt: @AFSLRVON,"LOOKING FOR FILE:",@AFSLRVOF," "_AFSLIDIR_"/",%FN Line Location: SELECT+4
Function Call: WRITE	Prompt: @AFSLRVON,"LOOKING FOR FILE:",@AFSLRVOF," "_AFSLIDIR,%FN Line Location: SELECT+5
Function Call: WRITE	Prompt: !!?25,*7,"NO FILES FOUND" Line Location: RDFLE+3
Function Call: READ	Timeout: 60 Variable: X Line Location: RDFLE+4
Function Call: WRITE	Prompt: @AFSLRVON,"FOUND:",@AFSLRVOF," ",AFSLXFND(AFSLFFND) Line Location: RDFLE+7
Function Call: WRITE	Prompt: *7,@AFSLRVON,"NOT FOUND",@AFSLRVOF Line Location: RDFLE+8
Function Call: WRITE	Prompt: "NOT FOUND" Line Location: RDFLE+8
Function Call: WRITE	Prompt: @AFSLRVON,"THE CONCATENATED DOWNLOADFILE MUST HAVE PATHNAME: "_AFSLIDIR_"/pccspc.nnn",@AFSLRVOF Line Location: RDFLE+9
Function Call: WRITE	Prompt: !!?25,*7,"NO FILES FOUND" Line Location: RDFLE+15
Function Call: READ	Timeout: 60 Variable: X Line Location: RDFLE+16
Function Call: WRITE	Prompt: @AFSLRVON,"FOUND:",@AFSLRVOF," ",AFSLXFND(AFSLFFND) Line Location: RDFLE+19
Function Call: WRITE	Prompt: *7,@AFSLRVON,"NOT FOUND",@AFSLRVOF Line Location: RDFLE+20
Function Call: WRITE	Prompt: "NOT FOUND" Line Location: RDFLE+20
Function Call: WRITE	Prompt: @AFSLRVON," DOWNLOAD FILE MUST HAVE PATHNAME: "_AFSLIDIR_"pccspc.nnn",@AFSLRVOF Line Location: RDFLE+21
Function Call: READ	Prompt: "CONTINUE (Y/N) N//" Timeout: 300 Variable: AFSLCONT Line Location: CONT+1
Function Call: WRITE	Prompt: " ",@AFSLRVON,"CANNOT IMPORT FILE AT THIS TIME",@AFSLRVOF Line Location: CONT+2
Function Call: READ	Timeout: 300 Variable: AFSLCONT Line Location: CONT+3
Function Call: WRITE	Prompt: @AFSLRVON,"ARE YOU SURE? (Y/N) N//" Line Location: CONT+3
Function Call: WRITE	Prompt: @AFSLRVOF Line Location: CONT+3
Function Call: WRITE	Prompt: @AFSLRVON Line Location: CONT+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSLHASL(	LOGIT+2*
^AFSLHASL(0	LOGIT+2*

Label References

Name	Line Occurrences
LOGIT	CONT+22
SELECT	SELECT+9
SETTBL	INFO+1
VKILL	INFO+21, SELECT+2, RDFLE+15, CONT+6, CONT+10, CONT+18, CONT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INFO!
%DEV	VKILL+1!
%FN	SELECT+5, SELECT+11, RDFLE+13*, VKILL+1!
%FO	VKILL+1!
%H	INFO!
%I	INFO!
%IN	RDFLE+14*, VKILL+1!
%ZA	VKILL+1!
>> ACROUT	INFO+21
>> ACRQUIT	INFO+21
>> ACRY	INFO+21, INFO+22, CONT+9, CONT+16
>> AFSERMSG	RDFLE+12*, RDFLE+15
>> AFSEXFN	CONT+20*
AFSLACRL	VKILL+2!
AFSLAPIN	VKILL+1!
AFSLAPN	VKILL+2!
AFSLCMD	SELECT+11*, VKILL+1!
AFSLCOMP	VKILL+2!
AFSLCONT	INFO+22, SELECT+2, CONT+9, CONT+10, CONT+16*, CONT+18, CONT+19, VKILL+1!
AFSLCRDT	VKILL+2!
AFSLDSBT	VKILL+2!
AFSLDT	INFO*, VKILL+1!
AFSLDVC	VKILL+2!
AFSLE	VKILL+1!
AFSLFFND	INFO, RDFLE+18, RDFLE+19, RDFLE+20, RDFLE+21, CONT+20, VKILL+1!
AFSLFNM	VKILL+2!
AFSLFOK	VKILL+1!
AFSLI	RDFLE+16*, VKILL+1!
>> AFSLIDIR	SELECT+5, SELECT+11, RDFLE+21
AFSLIMN	VKILL+2!
AFSLINC	VKILL+2!
AFSLLADT	VKILL+2!
>> AFSLLOGX	LOGIT+1, LOGIT+2
AFSLNZA	VKILL+2!
AFSLNZC	RDFLE+16, VKILL+2!
AFSLOBDT	VKILL+2!
AFSLOFLN	VKILL+2!
AFSLOK	RDFLE+19, RDFLE+21, CONT+6, CONT+11, VKILL+1!
AFSLRED	VKILL+2!
AFSLRVOF	INFO+2, INFO+3, INFO+4, INFO+17, SELECT+5, RDFLE+19, RDFLE+20, RDFLE+21, CONT+7, CONT+17 , VKILL+1!
AFSLRVON	INFO+2, INFO+3, INFO+4, INFO+17, SELECT+5, RDFLE+19, RDFLE+20, RDFLE+21, CONT+7, CONT+12 , VKILL+1!
AFSLSAD	VKILL+1!
AFSLTBL	VKILL+2!
AFSLTBL("A"	SETTBL+2*
AFSLTBL("B"	SETTBL+2*
AFSLTBL("C"	SETTBL+2*
AFSLTBL("D"	SETTBL+2*
AFSLTBL("E"	SETTBL+2*
AFSLTBL("F"	SETTBL+2*
AFSLTBL("G"	SETTBL+2*
AFSLTBL("H"	SETTBL+2*
AFSLTBL("I"	SETTBL+2*
AFSLTBL("J"	SETTBL+3*
AFSLTBL("K"	SETTBL+3*
AFSLTBL("L"	SETTBL+3*
AFSLTBL("M"	SETTBL+3*
AFSLTBL("N"	SETTBL+3*
AFSLTBL("O"	SETTBL+3*
AFSLTBL("P"	SETTBL+3*
AFSLTBL("Q"	SETTBL+3*
AFSLTBL("R"	SETTBL+3*
AFSLTBL(0	SETTBL+1*
AFSLTLFG	VKILL+2!
AFSLTLNM	VKILL+2!
AFSLX	VKILL+2!
AFSLXAST	VKILL+1!
AFSLXFND	VKILL+1!
AFSLXFND(	RDFLE+16*, RDFLE+18, RDFLE+19, CONT+20
AFSLXLOC	LOGIT+1, LOGIT+4, VKILL+1!
AFSLXZ3	VKILL+1!
ARMSDIR	SELECT+7~, SELECT+8*, SELECT+9, SELECT+11, RDFLE+13
DIC	VKILL+1!
>> DIK	LOGIT+2*
>> DIR("A"	CONT+14*
>> DIR("B"	CONT+14*
>> DIR(0	CONT+13*
DX	INFO+2, INFO+3, INFO+4, INFO+5, INFO+17, SELECT+3, SELECT+5, RDFLE+19, RDFLE+20, RDFLE+21 , VKILL+1!
DY	INFO+2, INFO+3, INFO+4, INFO+6, INFO+7, INFO+8, INFO+9, INFO+10, INFO+11, INFO+12 , INFO+13, INFO+14, INFO+15, INFO+16, INFO+17, SELECT+3, SELECT+5, RDFLE+19, RDFLE+20, RDFLE+21 , CONT+12*, VKILL+1!
I	SELECT+3, RDFLE+18, RDFLE+20*, VKILL+1!
IO	RDFLE+16
IO(0	SELECT+3
K	VKILL+2!
U	LOGIT+2
X	INFO!, RDFLE+16, LOGIT+2, LOGIT+3!, VKILL+1!
XY	INFO+2, INFO+3, INFO+4, INFO+6, INFO+7, INFO+8, INFO+9, INFO+10, INFO+11, INFO+12 , INFO+13, INFO+14, INFO+15, INFO+16, INFO+17, SELECT+3, SELECT+5, RDFLE+19, RDFLE+20, RDFLE+21 , CONT+12, VKILL+2!
ZX	VKILL+2!
ZY	VKILL+2!

Customize PDF page

Package: NCR Financial System

Routine: AFSLLDO1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: