Routine: LRIPRE1

Package	Total	Call Graph
VA Fileman	3	YN^DICN EN^DIQ EN^DIU2
Kernel	2	^%ZIS ^%ZISC

Package

Total

Call Graph

VA Fileman

YN^DICN EN^DIQ EN^DIU2

Kernel

^%ZIS ^%ZISC

Package	Total	Caller Graph
Lab Service	1	LRIPRE

Package

Total

Caller Graph

Lab Service

LRIPRE

Name	Comments	DBIA/ICR reference
PRE
LAM
EN	;
ERR
PRNT	;
LRO	;
HLP
QUE	;
CLEAN	;I $G(LRVR)>5.11 D ^LRIPRE2
PCC	;

Name	Field # of Occurrence
^%ZIS	EN+5
^%ZISC	QUE+5, CLEAN+1
YN^DICN	EN+3
EN^DIQ	QUE+2
EN^DIU2	LAM+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10," I see you already have a list of CAP codes ",!,"from LABORATORY TEST file. ",!!,"Would you like another" Line Location: EN+3
Function Call: WRITE	Prompt: !!?5,"I will produce a list of CAP codes in your file LABORATORY TEST (#60) " Line Location: EN+4
Function Call: WRITE	Prompt: @IOF,!!?10,"Alphabetical Listing of All CAP [WKLD] Codes In Use",! Line Location: QUE+2
Function Call: WRITE	Prompt: !!?10,"Purging Obsolete CAP CODES from ^LAB(60)",! Line Location: LRO+2
Function Call: WRITE	Prompt: !?10,"Also checking for broken pointers to ^DD(63.04, ",! Line Location: LRO+3
Function Call: WRITE	Prompt: ! Line Location: LRO+4
Function Call: WRITE	Prompt: !,"Removing bad Data Name pointer for lab test ",$P(^(0),U) Line Location: LRO+7
Function Call: WRITE	Prompt: !?10,"Purging the CAP CODE file:",! Line Location: LAM+0
Function Call: WRITE	Prompt: !?25,"^LAM( HAS BEEN PURGED ",!! Line Location: LAM+3
Function Call: WRITE	Prompt: @IOF,!!!,?23,"LIST OF CAP [WKLD] CODES",?65,"Pg ",LRPG,!!,"TEST",?15,"CAP Code",?50,"Cap Number",! Line Location: PRNT+3
Function Call: WRITE	Prompt: !,$P(^LAB(60,LRTS,0),U),! Line Location: PRNT+5
Function Call: WRITE	Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$P(^LAM(LRCC,0),U,1),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3)=1:"DEF",1:""),! Line Location: PCC+2
Function Call: WRITE	Prompt: !!,"During the installation process of V5.2, your CAP entries in the Laboratory Test file will be deleted.",!," A record maybe useful when setting up the files for V 5.2 " Line Location: HLP+0
Function Call: WRITE	Prompt: !?10,$C(7)," Error in CAP Code pointer "_LRCC,! Line Location: ERR+0
Routine Call	%ZIS Line Location: EN+5

FileNo	Call Tags
^LAM - [#64]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	LRO+7
^DD(64	LAM+2
^LAB(60 - [#60]	EN+3, QUE+1, LRO+4, LRO+5, LRO+6!, LRO+7!, LRO+8!, PRNT+1, PRNT+2, PRNT+4 , PRNT+5, PRNT+6, PCC+1
^LAM - [#64]	LAM+1!, PCC+1, PCC+2
^LAM(0	LAM+1, LAM+2*
^XTMP($J	EN+5!, QUE+2, QUE+3!, PCC+1*, CLEAN+1!

Name	Line Occurrences
CLEAN	EN+2, QUE+4, PRE
EN	EN+3
ERR	PCC+1
HLP	EN+3
PCC	PRNT+6
PRE	EN+3, EN+5
PRNT	QUE+1

Name	Field # of Occurrence
^(	QUE+2, LRO+6, LRO+8
^(0	LRO+5, LRO+7, LRO+8*, PCC+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+3*, CLEAN+1!
%ZIS	EN+5!*, CLEAN+1!
%ZIS("A"	EN+5*
>> A	LRO+7*
DA	QUE+2*, CLEAN+1!
DIC	QUE+2*, CLEAN+1!
>> DIFQ	EN+1
DIU	LAM+2*!
DIU(0	LAM+2*
DR	QUE+2*, CLEAN+1!
I	QUE+2, LRO+4, LRO+5, LRO+6, LRO+7, LRO+8, LAM+1*, CLEAN+1!
IO	EN+5
IOF	QUE+2, QUE+5, PRNT+3
IOSL	PCC+2
IOST	QUE+5
>> J	LRO+8*
LRCC	PCC+1*, PCC+2, ERR, CLEAN+1!
LRDD	LRO+1~, LRO+6*, LRO+7
LRHED	QUE+1, PRNT+3, PCC+2*, CLEAN+1!
LRI	CLEAN+1!
LRJ	PRNT+4, PRNT+6, PCC+1, CLEAN+1!
LRK	PRNT+6*, CLEAN+1!
>> LRNAM	QUE+1*
>> LRPG	QUE+1, PRNT+3
LRSAVE	LAM+1*, LAM+2!
LRTS	QUE+1*, PRNT+1, PRNT+2, PRNT+4, PRNT+5, PRNT+6, PCC+1, CLEAN+1!
>> LRVR	EN+2, QUE+4, PRE
LRX	PCC+1*, PCC+2, CLEAN+1!
>> POP	EN+5
U	LRO+5, LRO+7, LRO+8, LAM+1, PRNT+2, PRNT+5, PCC+1, PCC+2
>> ZTQUEUED	QUE+5
>> ZTREQ	QUE+5*
ZTSK	CLEAN+1!

Customize PDF page

Package: Lab Service

Routine: LRIPRE1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: