Routine: AFSHUT4

Package	Total	Call Graph
NCR Financial System	3	DAT1^AFSHCALL (DSPVRT4,SBRS)^AFSHPRT1 USRCHK^AFSTUT3
Commitment Register	1	$$ARMSDIR^ACRFSYS
IHS VA Utilities	1	^XBCLS
Kernel	1	^%ZIS

Package

Total

Call Graph

DAT1^AFSHCALL (DSPVRT4,SBRS)^AFSHPRT1 USRCHK^AFSTUT3

$$ARMSDIR^ACRFSYS

^%ZIS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"What PRINTER do you want to USE : "_AFSSPRT_"// " Line Location: B4A+0
Function Call: WRITE	Prompt: !!,*7,?10,"INVALID PRINTER NUMBER -- TRY AGAIN" Line Location: B4C+0
Function Call: WRITE	Prompt: !!,*7,"PRINTER NOT AVAILABLE -- TRY LATER" Line Location: B4C+1
Function Call: WRITE	Prompt: *7,!!,AFSERMSG,!,?10,"ENTER <RETURN> TO EXIT" Line Location: JCANCEL+0
Routine Call	%ZIS Line Location: B4C+1

Name	Line Occurrences (* Changed, ! Killed)
^AUTTTEL - [#9999999.71]	B0, B0+1, B2, B2+1
^DIC(9.4 - [#9.4]	A4+1, A7+1

Name	Line Occurrences
A7	PARMCHK+12, PARMCHK+13, PARMCHK+14, PARMCHK+15, PARMCHK+16
A9	A7+3
B2	B2+2
B2B	B2
B4A	B4A+3, B4C, B4C+1
CNVRT	PARMCHK+11
JCANCEL	B0, B4A+1, PARMCHK+2, PARMCHK+3, PARMCHK+5, PARMCHK+6, PARMCHK+17, CNVRT+1, A4+1

Name	Field # of Occurrence
>> %F	JCANCEL*
>> %L	JCANCEL*
>> %SDIR	PARMCHK+8, PARMCHK+9
>> AFSCCTR	PARMCHK+2
>> AFSDPRT	B0+1*, PTRSEL+1, B4A+2
>> AFSERMSG	B0, B4A+1, JCANCEL, PARMCHK+2, PARMCHK+3, PARMCHK+6, PARMCHK+17, CNVRT+1, A4+1
>> AFSHDTNM	PARMCHK+11, PARMCHK+13, PARMCHK+14, PARMCHK+15, PARMCHK+16, PARMCHK+17, CNVRT, A4*, A7+2
AFSJFLG	B0, B4A+1, JCANCEL*, PARMCHK+1!, PARMCHK+5
>> AFSLPK1	PARMCHK+15
>> AFSPKGNM	PARMCHK+3, PARMCHK+10, PARMCHK+12, PARMCHK+13, PARMCHK+14, PARMCHK+15, PARMCHK+16, PARMCHK+17, A7+2
>> AFSPKGPT	A4+1, A7+1
>> AFSQ	B0+2, B2, B2+1
>> AFSSPRT	PTRSEL+1*, B4A
>> AFSSPTR	B4C+1*
>> AFSTXNAM	A7+1, A7+2, A7+3*
>> AFSUXFPF	PARMCHK+6, PARMCHK+9
>> AFSVPRT(	B0+2, B2+1, PTRSEL+1, B4C
>> DLOUT	B4A+2
>> DQOUT	B4A+3
>> DTOUT	B4A+1
>> DUOUT	B4A+1
DUZ(2	B0, B0+1, B2, B2+1
>> DX	JCANCEL*
>> DY	JCANCEL*
IO	B4C+1
IO(0	JCANCEL, A7
>> IOP	B4C+1*
>> X	B0+1, B0+2, B2+1, CNVRT, CNVRT+1, A4, A7+2, A7+3
>> Y	B4A+2*, B4C, B4C+1

Information

Name	Comments	DBIA/ICR reference
CNVRT
B4C
B2B
PTRSEL	;EP -- SELECT A DEFINED PRINTER
B4A
PARMCHK	;EP; Subroutine moved from AFSTUT4 ACR2.113.06 IM14144
B2
A7
A9
B0
JCANCEL
PTRDEF	;EP -- DEFINE PRINTERS AVAILABLE TO PROGRAM
A4