Routine: AZAGNED

Information

BMEGNED ; IHS/PHXAO/TMJ - UNIX GENERIC FILE READER ; [ 06/11/03 3:25 PM ]

Source file <AZAGNED.m>

Package	Total	Call Graph
Kernel	3	^%ZISC ($$STATUS,OPEN)^%ZISH $$NOW^XLFDT
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
Local Area Programs	1	AZANLOAD

Name	Comments	DBIA/ICR reference
END	; -- close the device here a kill variables
PROCESS	;Process file here
OPENAZAG	; -- this uses the device and reads in the records from the file
FIRST1	;Called from First
MAIN	; -- this is the main program loop
AZAG	; -- this sets up the device and sets the file name
FIRST	;FILENAME FOR 1ST TIME RUN AT FACILTY - HARD CODED

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Last File Name does NOT exist in Log. Contact Site Manager!" Line Location: AZAG+6
Function Call: WRITE	Prompt: !,"Can't open Host File Server" Line Location: OPENAZAG+3
Function Call: WRITE	Prompt: !,"Reading this file",! Line Location: OPENAZAG+4

Name	Line Occurrences (* Changed, ! Killed)
^AZAGMED(	MAIN+4!, OPENAZAG+9*
^AZAMEDLG - [#1180006]	AZAG+5
^AZAMEDLG(0	AZAG+3

Name	Field # of Occurrence
%FN	END+4!
>> AZAERROR	MAIN+1, MAIN+5, AZAG+6
AZAGI	OPENAZAG+7*, OPENAZAG+9, END+1, END+4!
>> AZAGITOT	END+1*
AZAGPTR	END+4!
AZAGX	END+4!
>> AZALSTN	AZAG+1, AZAG+3, AZAG+4, AZAG+5, FIRST+2
>> AZALSTNM	AZAG+2, AZAG+5, AZAG+6, PROCESS+1
>> BEGTIME	MAIN+2, MAIN+6, MAIN+10
>> ENDTIME	MAIN+2, MAIN+9, MAIN+10
>> FILE	FIRST+2, PROCESS+5, OPENAZAG+2
IO	OPENAZAG+8
IO(0	OPENAZAG+3, OPENAZAG+4
>> MM	PROCESS+1, PROCESS+2, PROCESS+3*, PROCESS+4
>> NEXTFDT	PROCESS+4*, PROCESS+5
PATH	FIRST1+1*, OPENAZAG+2, END+4!
>> POP	OPENAZAG+3
U	AZAG+3, AZAG+5
>> UNIXTIME	MAIN+2, MAIN+10
X	OPENAZAG+8*, OPENAZAG+9, END+4!
>> YY	PROCESS+1, PROCESS+2, PROCESS+4