Routine: LRMIZAP

Package	Total	Call Graph
Lab Service	1	(XX,ZZ)^LRMIZAP1
VA Fileman	1	YN^DICN

Package

Total

Call Graph

(XX,ZZ)^LRMIZAP1

YN^DICN

Name	Field # of Occurrence
YN^DICN	CONVERT+5, XREF+1
XX^LRMIZAP1	CONVERT, CONVERT+7
ZZ^LRMIZAP1	UNZAP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: "NOTHING NEEDED TO BE CHANGED",! Line Location: END+0
Function Call: WRITE	Prompt: !!,"THE CONVERSION WILL PICKUP WHERE IT LEFT OFF",!,"STARTING WITH LRDFN ",LRDFN,! Line Location: CONVERT+0
Function Call: WRITE	Prompt: !,"If you are using the microbiology portion of the lab package to report",!,"microbiology results, you will need to run this conversion program",!,"in order to convert previous patient microbiology results to be compatible" Line Location: CONVERT+1
Function Call: WRITE	Prompt: !,"with the current lab software.",!!,"The program will go thru all lab patients and make any needed changes.",!,"The lab patient number (LRDFN) will be displayed on every hundredth patient.",!,"If you must stop this program from running," Line Location: CONVERT+2
Function Call: WRITE	Prompt: " the next time it is started",!,"it will begin where it left off. It will display 'ALL DONE' when finished." Line Location: CONVERT+3
Function Call: WRITE	Prompt: !!,"THIS PROGRAM SHOULD BE RUN DURING OFF-HOURS.",! Line Location: CONVERT+4
Function Call: WRITE	Prompt: !!,"Do you wish to run this program" Line Location: CONVERT+5
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: CONVERT+5
Function Call: WRITE	Prompt: !,"CONVERTING PATIENT DATA",! Line Location: CONVERT+7
Function Call: WRITE	Prompt: "CONVERTING PATIENT DATA",! Line Location: UNZAP+1
Function Call: WRITE	Prompt: !,"STARTING WITH LRDFN ",LRDFN,! Condition for execution: LRDFN Line Location: UNZAP+1
Function Call: WRITE	Prompt: !,"This will reindex the cross reference used by the INFECTION CONTROL SURVEY." Line Location: XREF+1
Function Call: WRITE	Prompt: !,"Do you want to reindex" Line Location: XREF+1
Function Call: WRITE	Prompt: !,"Do you want to reindex" Line Location: XREF+1
Function Call: WRITE	Prompt: !,"...THIS WILL TAKE AWHILE...",! Line Location: XREF+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.06 - [#62.06]	X, AC, AC+2
^LRO(68 - [#68]	XREF+3, SETAD*
^TMP("LRMIZAP"	ZAP, ZAP+1!, END, END+1!, AC+1, AC+2, UNZAP, UNZAP+1!

Name	Line Occurrences
AC	X
CONVERT	ZAP+1
END	UNZAP+2
SETAD	XREF+3
X	ZAP+1, UNZAP+1

Name	Field # of Occurrence
^(	X, XREF+3!, SETAD
^("UNZAP"	UNZAP
^("ZAP"	ZAP
^(0	X

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!, CONVERT+5, CONVERT+6, XREF+1, XREF+2, XREF+4!
B	END+1!
C	END+1!
C2	END+1!
C4	END+1!
C6	END+1!
I	END+1!, X, CONVERT+5, XREF+1, XREF+3, XREF+4!, SETAD*
J	ZAP, END+1!, UNZAP
L	END+1!, CONVERT, CONVERT+7, UNZAP+1*
LRAA	XREF+3*, XREF+4!, SETAD
LRAD	XREF+3*, XREF+4!, SETAD
LRAN	XREF+4!, SETAD*
LRBN	END+1!
LRBUGN	END+1!
LRCHECK	END+1!
LRCNT	END+1!
LRDFN	ZAP, END+1!, CONVERT, CONVERT+7, UNZAP, UNZAP+1
LREND	ZAP, END, END+1!, CONVERT+6, UNZAP*
LRIDT	END+1!
LRINTP	END+1!, X*, AC, AC+1, AC+2
LRISR	END+1!
LRN	END+1!, X*, AC+1, AC+2
LRORIDE	END+1!
LROVERR	END+1!
LRRES	END+1!, X*, AC, AC+1, AC+2
LRSUB	END+1!, X*, AC, AC+2
LRSUB1	END+1!, X*, AC, AC+2
LRTEST	XREF+4!, SETAD*
LRTK	XREF+4!, SETAD*
N	END+1!
T	END+1!
U	ZAP, X, AC+2, UNZAP, XREF+1*, XREF+3, SETAD
X	END+1!
Y	END+1!

Customize PDF page

Package: Lab Service

Routine: LRMIZAP

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
AC
XREF	;reindex the "AD" x-ref for micro accessions
END
CONVERT
SETAD
X
UNZAP
ZAP