Routine: LRARCHIV

Package	Total	Call Graph
Lab Service	5	(CLEAN,KILL,PURGE)^LRAR01 SET^LRAR03 (RESTART,TAPE,TIME)^LRAR06 IO^LRWU (DD,DEM,STAMP)^LRX
VA Fileman	3	^%DTC YN^DICN ^DIR
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL
Kernel	1	($$CJ,$$RJ)^XLFSTR

Package

Total

Call Graph

Lab Service

(CLEAN,KILL,PURGE)^LRAR01 SET^LRAR03 (RESTART,TAPE,TIME)^LRAR06 IO^LRWU (DD,DEM,STAMP)^LRX

VA Fileman

^%DTC YN^DICN ^DIR

IHS Changes To Lab

$$ISPIMS^BLRUTIL

Kernel

($$CJ,$$RJ)^XLFSTR

Package	Total	Caller Graph
Lab Service	6	LRAR ARCHIVE CLEAR LRAR ARCHIVE PURGE LRAR ARCHIVE SEARCH LRAR01 LRAR04 LRAR06

Package

Total

Caller Graph

Lab Service

LRAR ARCHIVE CLEAR LRAR ARCHIVE PURGE LRAR ARCHIVE SEARCH LRAR01 LRAR04 LRAR06

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
SEARCH	;
PAT	; ; Entry for testing--------------------->
STEPOUT	;
AROUND
LRSUB1
PROCESS	;
QUE	;
PURGE	;
LST	;
QUES
LISTS	;
HEAD	;
INIT	;
END	;
T	;
CLEAN	;
DEVICE	;
MEET	;
CHKPG	;
DQ1	;

External References

Name	Field # of Occurrence
^%DTC	DQ1+9
$$ISPIMS^BLRUTIL	QUIT+4
YN^DICN	MEET+10
^DIR	LISTS+5, CHKPG+2
CLEAN^LRAR01	CLEAN+1
KILL^LRAR01	QUIT+4
PURGE^LRAR01	PURGE+1
SET^LRAR03	PROCESS+7
RESTART^LRAR06	SEARCH+23
TAPE^LRAR06	SEARCH+28, MEET+3
TIME^LRAR06	DQ1+8
IO^LRWU	QUE+4
DD^LRX	DQ1+5
DEM^LRX	LST+12
STAMP^LRX	DQ1+7
$$CJ^XLFSTR	AROUND+2
$$RJ^XLFSTR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please finish the Clear and Purge steps first." Line Location: SEARCH+26
Function Call: WRITE	Prompt: @IOF,!!,"Welcome to The Search Option for the New Archive Modual",! Line Location: MEET+1
Function Call: WRITE	Prompt: !,"A file entry IS NOT present" Line Location: MEET+4
Function Call: WRITE	Prompt: !,"Shall I prepare a list of patients that will have data archived" Line Location: MEET+9
Function Call: WRITE	Prompt: !,"Answering YES to this question will produce" Line Location: QUES+0
Function Call: WRITE	Prompt: "a list of patients that will have data archived." Line Location: QUES+1
Function Call: WRITE	Prompt: !,"Tape name not defined. Please start again." Line Location: T+1
Function Call: WRITE	Prompt: @IOF,!,"LAB DATA ARCHIVE for data before ",Y Line Location: DQ1+6
Function Call: WRITE	Prompt: ". on " Line Location: DQ1+7
Function Call: WRITE	Prompt: !!,"Number of Days To be searched: ",X Line Location: DQ1+10
Function Call: WRITE	Prompt: @IOF Line Location: LST+1
Function Call: WRITE	Prompt: !! Line Location: LST+6
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: LST+12
Function Call: WRITE	Prompt: !!,PNM," LRDFN # "_LRDFN_" Has Been Deleted from ^LR( ",!,$C(7),"SSN = Unknown",! Line Location: LST+14
Function Call: WRITE	Prompt: @IOF Line Location: AROUND+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR($S(LRQ["LRBAD":"Entries with bad Data",LRQ["LRUNV":"Entries that were not verified",1:"Entries with no data"),IOM),!! Line Location: AROUND+2
Function Call: WRITE	Prompt: !,@LRQ Line Location: AROUND+3
Function Call: WRITE	Prompt: @IOF Line Location: CHKPG+3
Function Call: WRITE	Prompt: $$RJ^XLFSTR("Page "_LRPAGE,IOM),! Line Location: HEAD+1
Routine Call	DIR Line Location: LISTS+5 CHKPG+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PRIORITY"	DQ1+7
^DD(63.04	LRSUB1+1, LRSUB1+2, LRSUB1+3
^DD(63.999904	LRSUB1+2, LRSUB1+4, LRSUB1+5
^LAB(69.9 - [#69.9]	SEARCH+28, T+4, T+5, QUIT+8
^LAR("DHZ"	PROCESS+3!
^LAR("NAME"	LST+6, LST+8
^LR - [#63]	LST+9, LST+11, LST+13
^TMP("LRBAD"	INIT+4!, QUIT+10!
^TMP("LRNOD"	INIT+4!, QUIT+10!
^TMP("LRT2"	PROCESS+5!
^TMP("LRUNV"	INIT+4!, QUIT+10!

Name	Line Occurrences
@(	QUIT+4
AROUND	LISTS+2, LISTS+3
CHKPG	LST+12, AROUND+3
DEVICE	T+8
END	SEARCH+24, MEET+3
HEAD	LST+5, CHKPG+6
LRSUB1	T+8
MEET	SEARCH+22
PAT	QUES
QUIT	SEARCH+26, SEARCH+30, END+1

Name	Field # of Occurrence
^(3	LRSUB1+3, LRSUB1+4*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MEET+10*, QUES, QUES+3
>> %ZIS	DEVICE+1*
>> DA	SEARCH+30
>> DFN	LST+11*
DIR	CHKPG+2!
DIR(0	LISTS+5, CHKPG+2
>> DTOUT	CHKPG+4
>> DUOUT	CHKPG+4
F1	SEARCH+22, SEARCH+23, SEARCH+26, SEARCH+28, QUIT+4!
IO	DQ1+3, LST+3
IO(0	QUIT+4
IOF	MEET+1, DQ1+6, LST+1, AROUND+1, CHKPG+3
IOM	AROUND+2, HEAD+1
IOSL	CHKPG+2, CHKPG+6
IOST	LISTS+3, LISTS+5, CHKPG+2, CHKPG+6
L1	LRSUB1+6!
L2	LRSUB1+6!
>> LR(1	DQ1+4, DQ1+9
LRC1	DQ1+4*, QUIT+4!
LRC2	DQ1+4*, QUIT+4!
LRC3	DQ1+4*, QUIT+4!
>> LRDFN	LST+7, LST+8, LST+9, LST+11, LST+13, LST+14
>> LRDPF	LST+9*
>> LREDT3	DQ1+8, DQ1+9
LRI	DQ1+2!
>> LRP1	T+7*, QUIT+8
>> LRPAGE	LST+4, CHKPG+6, HEAD+1
>> LRPAT	QUES+3*, LST+6
>> LRQ	AROUND, AROUND+2, AROUND+3
>> LRSUB	LRSUB1, LRSUB1+1, LRSUB1+2, LRSUB1+3, LRSUB1+4, LRSUB1+5
>> LRX0	LRSUB1+3*, LRSUB1+4, LRSUB1+5
>> LRX3	LRSUB1+3*, LRSUB1+4
OK	SEARCH+1, SEARCH+23, SEARCH+24, MEET+3, DQ1+2!, LST+2, LST+8, LST+10, LST+12, LISTS+2* , LISTS+4, AROUND+3, CHKPG+1, CHKPG+4, CHKPG+5
>> P1	SEARCH+30, MEET+3, T+1, T+4, T+5, T+7
PNM	LST+6*, LST+8, LST+9~, LST+12, LST+14
>> SSN	LST+12
U	T+5, LRSUB1+5, QUIT+8
X	T+6, DQ1+7, DQ1+10, LRSUB1+6!
>> X1	DQ1+9*
>> X2	DQ1+9*
Y	DQ1+4*, DQ1+6, LRSUB1+6!
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("LR*"	QUE+1, QUE+2
>> ZTSAVE("^TMP(""LR9"""	QUE+3*

Customize PDF page

Package: Lab Service

Routine: LRARCHIV

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: