Routine: AFSHTCK1

Information

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

Source file <AFSHTCK1.m>

Name	Comments	DBIA/ICR reference
CCTRID	;EP
OPENHFS	;PEP; OPENS FLAT FILE IN GIVEN DIRECTORY
M5	;;USER ID OR USER PASSWORD NOT DEFINED
BTRMDEF	;EP
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
M9	;;PROGRAM AND/OR FUNCTION CANCELLED BY OPERATOR
M8	;;ALL UNIX HFS DEVICES ARE BUSY
ERROREX
CCTRIDR	;EP
OHFSDOC	;;VARIABLES REQUIRED FOR OPENHFS CALL
ERROR	;PEP
UXFILKIL	;EP
M4	;;REMOTE NUMBER NOT DEFINED FOR THIS COMPUTER CENTER"
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	;PEP
PADWRITE	; ENTRY POINT.

Name	Line Occurrences
Function Call: WRITE	Prompt: X,! Line Location: PADWRITE+1
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	PADWRITE+1, OPENHFS+9*
>> %FN	OPENHFS+3, OPENHFS+4
>> %FO	OPENHFS+2*
>> %IN	OPENHFS+1*, OPENHFS+5
>> AFSCCTR	CCTRID+1, CCTRID+2, CCTRIDR+1
>> AFSCCTRN	CCTRID+2*
>> AFSCMD	UXFILKIL+1, UXFILKIL+2, UXFILKIL+3, UXFILKIL+4
AFSERMSG	OPENHFS+8*, ERROR+1, ERROREX!
AFSHCMDR	UXFILKIL+2!, UXFILKIL+4!
>> AFSHRVOF	CRTSETUP+10*
>> AFSHRVON	CRTSETUP+9*
>> AFSJFLG	ERROREX*
>> AFSLE	CRTSETUP+7, CRTSETUP+8
>> AFSRRTYP	CCTRIDR+1*
>> AFSUXFNM	CCTRID+1*
DIR	ERROR+4!
DIR("A"	ERROR+4*
DIR(0	ERROR+4*
IO	OPENHFS+9
IO(0	ERROR+3
>> IOS	CRTSETUP+3, CRTSETUP+4, CRTSETUP+5
IOST(0	CRTSETUP+1, CRTSETUP+2, CRTSETUP+6, CRTSETUP+7, CRTSETUP+9, CRTSETUP+10
>> X	PADWRITE+1, ERROR+2, ERROR+3, CRTSETUP+11
>> XY	CRTSETUP+2*
>> Y	CCTRIDR+1, OPENHFS+6, OPENHFS+8
>> ZISH1	OPENHFS+3*, OPENHFS+6
>> ZISH2	OPENHFS+4*, OPENHFS+6
>> ZISH3	OPENHFS+5*, OPENHFS+6

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