Routine: ACRFZISH

Information

ACRFZISH ;IHS/OIRM/DSD/AEF/MRS - VARIOUS ZIS/ZISH UTILITY SUBROUTINES [ 10/27/2004 4:18 PM ]

Source file <ACRFZISH.m>

Package	Total	Call Graph
Commitment Register	1	JCMD^ACRFUTL
Kernel	1	($$DEL,$$LIST,$$OPEN,$$PWD,$$STATUS,CLOSE,OPEN)^%ZISH
VA Fileman	1	^DIR

Package	Total	Caller Graph
Commitment Register	10	ACRFFF1 ACRFFF2 ACRFIRSA ACRFIRSF ACRFODD ACRFSPL2 ACRFUFMR ACRFVLK2 ACRFXPT ACRFZIS

Name	Comments	DBIA/ICR reference
LIST(ZISH1,ZISH2,ZISH3)
CLOSE(X)	;EP;TO CLOSE DEVICE
SELDIR(PATH,OUT)
HFS(ZISH1,ZISH2,ZISH3,%FILE)	;EP ; VERBOSE & "FILE"
STATUS()	;EP;
DEL(ZISH1,ZISH2)	;EP; CALLS EXTRINSIC FUNCTION TO DELETE FILES
PWD(X)	;EP; Print working directory
OPEN1166	;EP; OLD 1166 APPROVALS FOR PAYMENT CHECKS
ASK	;
OPEN(ZISH1,ZISH2,ZISH3,%DEV)	;EP; OPEN UNIX FILES - VERBOSE & NO "FILE" ; ; INPUT: ; ZISH1 = DIRECTORY PATH STRING ; ZISH2 = FILENAME ; ZISH3 = OPEN MODE "R" = READ ONLY; "W" = WRITE
ASKPATHO(ACRPATH,ACROK)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CANNOT OPEN FILE "_ZISH1_ZISH2 Line Location: HFS+11
Function Call: WRITE	Prompt: !,"CANNOT OPEN FILE "_ZISH1_ZISH2 Line Location: OPEN+13
Function Call: WRITE	Prompt: !,"No such directory "_PATH Line Location: ASK+11
Function Call: WRITE	Prompt: !,"The file will be put into directory ",ACRPATH Line Location: ASKPATHO+6
Routine Call	DIR Line Location: ASK+6 ASKPATHO+10

Name	Line Occurrences (* Changed, ! Killed)
^AFSLPRM(1	OPEN1166+2, OPEN1166+8, OPEN1166+13

Name	Line Occurrences
ASK	ASK+10

Name	Field # of Occurrence
%DEV	OPEN~, OPEN+14*
%FILE	HFS~, HFS+12*
%ZIS	CLOSE+3!
ACROK	ASKPATHO~, ASKPATHO+4, ASKPATHO+12
ACRPATH	ASKPATHO~, ASKPATHO+5, ASKPATHO+6
>> AFSLCMD	OPEN1166+14
DIR	ASK+1~, ASKPATHO+3~
DIR("A"	ASK+4, ASKPATHO+8
DIR("B"	ASK+5, ASKPATHO+9
DIR(0	ASK+3, ASKPATHO+7
DIRUT	ASK+7, ASKPATHO+3~, ASKPATHO+11
DTOUT	ASK+7, ASKPATHO+3~, ASKPATHO+11
DUOUT	ASK+7, ASKPATHO+3~, ASKPATHO+11
IO	HFS+12, OPEN+14
IO(0	HFS+11
IOP	CLOSE+3!
IOPAR	CLOSE+3!
OUT	SELDIR~, ASK+2, ASK+7
PATH	SELDIR~, ASK+5, ASK+8*, ASK+9, ASK+11
>> POP	HFS+10
U	OPEN1166+8, OPEN1166+13
X	HFS+8~, OPEN1166+14*, PWD~, PWD+1, CLOSE~, CLOSE+2
Y	HFS+8~, DEL+5~, DEL+6, OPEN+10~, OPEN+11, OPEN+12, OPEN1166+5, OPEN1166+11, OPEN1166+13*, OPEN1166+14 , ASK+1~, ASK+8, ASK+9, ASK+10, ASKPATHO+12
ZISH1	HFS~, HFS+9, HFS+11, DEL~, DEL+6, OPEN~, OPEN+11, OPEN+13, LIST~, LIST+6
ZISH2	HFS~, HFS+9, HFS+11, DEL~, DEL+6, OPEN~, OPEN+11, OPEN+13, LIST~, LIST+6
ZISH3	HFS~, HFS+9, OPEN~, OPEN+11, LIST~, LIST+6
ZTQUEUED	CLOSE+3!
ZTREQ	CLOSE+3!
ZTSK	CLOSE+3!