Routine: BLRALAC

Package	Total	Call Graph
VA Fileman	7	EN^DDIOL ^DIC ^DIE ^DIK $$EXTERNAL^DILFD ($$GET1,EN,GETS)^DIQ ^DIR
Kernel	3	($$OPEN,CLOSE)^%ZISH $$VERSION^%ZOSV ($$DT,$$FMADD,$$NOW)^XLFDT
Health Level Seven	1	$$HLDATE^HLFNC

Package

Total

Call Graph

EN^DDIOL ^DIC ^DIE ^DIK $$EXTERNAL^DILFD ($$GET1,EN,GETS)^DIQ ^DIR

($$OPEN,CLOSE)^%ZISH $$VERSION^%ZOSV ($$DT,$$FMADD,$$NOW)^XLFDT

$$HLDATE^HLFNC

Name	Comments	DBIA/ICR reference
EN	; Determine archive filename,path, and last date run ; Check for parameters in Audit sub-file, if null QUIT.
FORM	;EP - Check format of directory pathname
KILLX	; EP
EN2	;EP
EXIT
DEL	; Delete Records by date
FIL	; Set file
DDD	;DATE PORTION OF ROUTINE

Name	Field # of Occurrence
$$OPEN^%ZISH	FIL+2
CLOSE^%ZISH	FIL+7
$$VERSION^%ZOSV	FORM+2, KILLX+1
EN^DDIOL	EN2+16, EN2+17, EN2+26, EN2+27, EN2+29, EN2+30, EN2+31, FORM+5, FORM+8, KILLX+3 , KILLX+5
^DIC	EN2+11
^DIE	EN2+24
^DIK	DEL+6
$$EXTERNAL^DILFD	EN2+15
$$GET1^DIQ	EN2+25
EN^DIQ	EN2+18
GETS^DIQ	DDD+4
^DIR	EN2+23
$$HLDATE^HLFNC	EN+8
$$DT^XLFDT	EN+7, EN+8
$$FMADD^XLFDT	EN+7
$$NOW^XLFDT	FIL+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Unable to open Host File Server to create archive file" Line Location: FIL+2
Function Call: WRITE	Prompt: "ACCESSION#^DATE/TIME STAMP^MENU OPTION^PATIENT^USER" Line Location: FIL+3
Function Call: WRITE	Prompt: ! Line Location: FIL+5
Function Call: WRITE	Prompt: @BGLOB@(IEN,FLD),"^" Line Location: FIL+6
Function Call: WRITE	Prompt: ! Line Location: FIL+7
Function Call: WRITE	Prompt: @IOF Line Location: EN2+8
Routine Call	DIE Line Location: EN2+24
Routine Call	DIC Line Location: EN2+11
Routine Call	DIR Line Location: EN2+23

FileNo	Call Tags
^BLRALAB(9009027 - [#9009027]	Classic Fileman Calls, GETS^DIQ
^BLRALAB(9009027.2 - [#9009027.2]	Classic Fileman Calls, EXTERNAL^DILFD, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BLRALAB(9009027 - [#9009027]	DDD+2, DDD+3, DEL+4, DEL+6
^BLRALAB(9009027.2 - [#9009027.2]	EN+2, EN+3, EN+4, EN+5, FIL+8*
^TMP("BLRZ"	EN+10!, EXIT+2!
^TMP($J	EN+10!, EXIT+2!

Name	Line Occurrences
EXIT	EN+2, EN+3, EN+4

Name	Field # of Occurrence
%DT	EXIT!
BDTM	DEL+2, DEL+4, DEL+5, DEL+6, EXIT+1!
BGLOB	FIL+1*, FIL+4, FIL+5, FIL+6, EXIT+1!
>> BLRADAYS	EN+5, EN+6, EN+7
BLRADT	EN+8*, EN+9, EXIT!
BLRAEDT	EN+7*, DDD+2, DEL+4, EXIT+1!
BLRAFIL	EN2+5~, EN2+15*
BLRAMVER	FORM+2, FORM+3, FORM+9!, KILLX+1, KILLX+2, KILLX+6!
BLRANME	EN+9*, FIL+2, EXIT!
BLRAPTH	EN+4*, FIL+2, EXIT!
BLRAY	FIL+2*, FIL+7, EXIT+1!
DA	DEL+1!, DEL+5, DEL+6, EXIT!, EN2+6!, EN2+14*, EN2+25, EN2+32!
DA(1	DEL+5*
DDD1	DDD+1, DDD+2, DDD+3, EXIT+1!
DIC	EXIT+1!, EN2+6!, EN2+9*, EN2+24, EN2+32!
DIC(0	EN2+10*
DIE	EN2+6!, EN2+24*, EN2+32!
DIK	DEL+1!, DEL+3*, EXIT!
DIR	EXIT!, EN2+6!, EN2+32!
DIR("A"	EN2+21*
DIR("B"	EN2+22*
DIR(0	EN2+20*
DR	EN2+6!, EN2+18, EN2+24, EN2+32!
FLD	FIL+5*, FIL+6, EXIT+1!
IEN	FIL+4*, FIL+5, FIL+6, EXIT!
IO	FIL+3, FIL+5, FIL+6, FIL+7
IOF	EN2+8
PID1	DDD+1, DDD+3, DDD+4, EXIT+1!
U	EN+3, EN+4, EN+5, FIL+8, EN2+14, EN2+15
X	EXIT!, FORM+4!, FORM+7!
Y	EXIT!, EN2+5~, EN2+12, EN2+14, EN2+15, EN2+24

Information