Routine: LRMIZAP

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

Entry Points

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

External References

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

Interaction Calls

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

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	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: