Routine: AFSHCK1

Information

AFSHCK1 ; IHS/OIRM/DSD/JDM -PART 2 OF GENERIC VARIABLE CHECK PROGRAM ; [ 10/27/2004 4:20 PM ]

Source file <AFSHCK1.m>

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ($$OPEN,CLOSE)^%ZISH
VA Fileman	1	^DIR

Package	Total	Caller Graph
NCR Financial System	2	AFSHARC0 AFSHTBUP

Name	Comments	DBIA/ICR reference
CCTRID	;EP
ERROREX
OPENHFS(ZISH1,ZISH2,%DEV)	;PEP - OPEN A SPECIFIC UNIX FILE
M5	;;USER ID OR USER PASSWORD NOT DEFINED
M4	;;REMOTE NUMBER NOT DEFINED FOR THIS COMPUTER CENTER"
M7	;;ALL 3780 COMMUNICATION PORTS ARE BUSY
M6	;;DEFAULT 3780 COMMUNICATION PORT IN USE
M1	;;COMPUTER CENTER FOR TELECOMMUNICATIONS NOT CORRECTLY DEFINED
M3	;;3780 TELECOMMUNICATIONS PORT NOT DEFINED
M2	;;IHS COMM PARAMETERS NOT SET FOR THIS LOCATION
CCTRIDR	;EP
M8	;;ALL UNIX HFS DEVICES ARE BUSY
M9	;;PROGRAM AND/OR FUNCTION CANCELLED BY OPERATOR
OHFSDOC	;;VARIABLES REQUIRED FOR OPENHFS CALL
CLOSE	;EP;TO CLOSE %ZISH OPENED DEVICE ;ACR2.113.01 IM13574
ERROR	;EP
BTRMDEF	;EP
M11	;;DEFAULT PRINTER PORT NOT CORRECTLY DEFINED
M10	;;OPEN FAILURE ON UNIX HFS FILE
M13	;;EXPORT AND/OR APPLICATION PARAMETERS NOT SET CORRECTLY
M12	;;PRINTER SET-UP ERROR -- NOTIFY SUPERVISOR
M14	;;PACKAGE PREFIX NOT FOUND
CRTSETUP	;EP; ;ACR2.113.02 IM13574

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,?(80-$L(X)/2),X,! Line Location: ERROR+3
Function Call: WRITE	Prompt: !!!,"PROPER TERMINAL ATTRIBUTES MISSING - NOTIFY SITE MANAGER",!! Line Location: BTRMDEF+1
Routine Call	%ZIS Line Location: CRTSETUP+1
Routine Call	DIR Line Location: ERROR+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	CRTSETUP+3, CRTSETUP+4, CRTSETUP+5
^%ZIS(2 - [#3.2]	CRTSETUP+2, CRTSETUP+6, CRTSETUP+7, CRTSETUP+9, CRTSETUP+10
^%ZOSF("RM"	CRTSETUP+11

Name	Line Occurrences
BTRMDEF	CRTSETUP+3, CRTSETUP+4, CRTSETUP+5, CRTSETUP+6
ERROREX	ERROR+1

Name	Field # of Occurrence
%DEV	OPENHFS~, OPENHFS+16*
>> %FO	OPENHFS+4*
>> %IN	OPENHFS+3*, OPENHFS+13
%ZIS	CLOSE+2!
>> AFSCCTR	CCTRID+1, CCTRID+2, CCTRIDR+1
>> AFSCCTRN	CCTRID+2*
AFSERMSG	OPENHFS+15*, ERROR+1, ERROREX!
>> AFSJFLG	ERROREX*
>> AFSLE	CRTSETUP+7, CRTSETUP+8
>> AFSRRTYP	CCTRIDR+1*
>> AFSRVOF	CRTSETUP+10*
>> AFSRVON	CRTSETUP+9*
>> AFSUXFNM	CCTRID+1*
DIR	ERROR+4!
DIR("A"	ERROR+4*
DIR(0	ERROR+4*
IO	OPENHFS+16
IO(0	ERROR+3
IOP	CLOSE+2!
IOPAR	CLOSE+2!
>> IOS	CRTSETUP+3, CRTSETUP+4, CRTSETUP+5
IOST(0	CRTSETUP+1, CRTSETUP+2, CRTSETUP+6, CRTSETUP+7, CRTSETUP+9, CRTSETUP+10
N	OPENHFS+2~
>> X	ERROR+2, ERROR+3, CRTSETUP+11
>> XY	CRTSETUP+2*
Y	OPENHFS+2~, OPENHFS+14, OPENHFS+15, CCTRIDR+1
ZISH1	OPENHFS~, OPENHFS+14
ZISH2	OPENHFS~, OPENHFS+14
ZISH3	OPENHFS+2~, OPENHFS+13*, OPENHFS+14
ZTQUEUED	CLOSE+2!
ZTREQ	CLOSE+2!
ZTSK	CLOSE+2!

Name	Field # of Occurrence
$T(@AFSERMSG	ERROR+2