Routine: AFSLCK1

Information

AFSLCK1 ; IHS/OIRM/DSD/JDM-OPEN HFS/FILES; [ 10/27/2004 4:21 PM ]

Source file <AFSLCK1.m>

Package	Total	Call Graph
Commitment Register	1	HFS^ACRFUTL
Kernel	1	CLOSE^%ZISH

Package	Total	Caller Graph
NCR Financial System	5	AFSLACHT AFSLDKG AFSLDKG2 AFSLLDO1 AFSLLDO2

Name	Comments	DBIA/ICR reference
M11	;;DEFAULT PRINTER PORT NOT CORRECTLY DEFINED
OPENHFS	;EP
ERROREX
M4	;;REMOTE NUMBER NOT DEFINED FOR THIS COMPUTER CENTER"
M9	;;PROGRAM AND/OR FUNCTION CANCELLED BY OPERATOR
M2	;;IHS COMM PARAMETERS NOT SET FOR THIS LOCATION
M13	;;EXPORT AND/OR APPLICATION PARAMETERS NOT SET CORRECTLY
M14	;;PACKAGE PREFIX NOT FOUND
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
OHFSDOC	;;VARIABLES REQUIRED FOR OPENHFS CALL
M3	;;3780 TELECOMMUNICATIONS PORT NOT DEFINED
ERROR	;EP
CLOSE	;EP;TO CLOSE %ZISH OPENED DEVICE *** ACR2.113.01 IM13574
M12	;;PRINTER SET-UP ERROR -- NOTIFY SUPERVISOR
PADWRITE	; ENTRY POINT.
M8	;;ALL UNIX HFS DEVICES ARE BUSY
M10	;;OPEN FAILURE ON UNIX HFS FILE

Name	Field # of Occurrence
CLOSE^%ZISH	CLOSE+1
HFS^ACRFUTL	OPENHFS+18

Name	Line Occurrences
Function Call: WRITE	Prompt: X,! Line Location: PADWRITE+1
Function Call: WRITE	Prompt: !!!,"PROPER TERMINAL ATTRIBUTES MISSING - NOTIFY SITE MANAGER",!! Line Location: BTRMDEF+1

Name	Line Occurrences
ERROREX	ERROR+1

Name	Field # of Occurrence
>> %DEV	PADWRITE+1, OPENHFS+18, OPENHFS+19
>> %FN	OPENHFS+13, OPENHFS+14, OPENHFS+15, OPENHFS+16
>> %IN	OPENHFS+17
%ZIS	CLOSE+2!
AFSERMSG	OPENHFS+19*, ERROR+1, ERROREX!
>> AFSJFLG	ERROREX*
AFSLDEL	OPENHFS+12~, OPENHFS+13*, OPENHFS+14, OPENHFS+15, OPENHFS+16
AFSLN	OPENHFS+12~, OPENHFS+14*, OPENHFS+15, OPENHFS+16
IOP	CLOSE+2!
IOPAR	CLOSE+2!
>> X	PADWRITE+1, ERROR+2*
>> ZISH1	OPENHFS+15*, OPENHFS+18
>> ZISH2	OPENHFS+16*, OPENHFS+18
>> ZISH3	OPENHFS+17*, OPENHFS+18
ZTQUEUED	CLOSE+2!
ZTREQ	CLOSE+2!
ZTSK	CLOSE+2!

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