Routine: LRCAPD

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	EN^DIQ ^DIR

Package	Total	Caller Graph
Lab Service	4	LR7OU4 LR7OU5 LR7OU641 LRCAPD

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
EN	;
HEAD3	;
HEAD2	;
ERR
NAME	;
PRNT	;
NLTPRT
START	;
PAUSE	;
CLEAN
PCC3	;
PCC2	;
PCC	;
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	EN+2
^%ZISC	EN+3, CLEAN+2
^%ZTLOAD	EN+3
EN^DIQ	START+25, NLTPRT+9
^DIR	PAUSE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"I will produce a list of WKLD codes in your file 60 " Line Location: EN+1
Function Call: WRITE	Prompt: !!?10,"Report Queued to "_ION,! Line Location: EN+3
Function Call: WRITE	Prompt: @IOF Line Location: START+13
Function Call: WRITE	Prompt: !!?5,"NONE",! Line Location: START+16
Function Call: WRITE	Prompt: @IOF Line Location: NLTPRT+6
Function Call: WRITE	Prompt: @IOF Line Location: PRNT+4
Function Call: WRITE	Prompt: ?5,"National VA Lab Code: ",$P($G(^LAM(+LRCC,0)),U,2)_" "_$P(^(0),U),! Line Location: PRNT+8
Function Call: WRITE	Prompt: ?15 Line Location: PRNT+9
Function Call: WRITE	Prompt: ! Line Location: PRNT+9
Function Call: WRITE	Prompt: "[ CPT ",N," ] " Line Location: PRNT+10
Function Call: WRITE	Prompt: ?5,"Result NLT Code: ",$P($G(^LAM(+LRCC,0)),U,2)_" "_$P(^(0),U),! Line Location: PRNT+13
Function Call: WRITE	Prompt: ?15,"Verify",! Line Location: PRNT+16
Function Call: WRITE	Prompt: ?15,"Accession",! Line Location: PRNT+22
Function Call: WRITE	Prompt: ?15,"Sample",! Line Location: PRNT+28
Function Call: WRITE	Prompt: @IOF Line Location: PCC+5
Function Call: WRITE	Prompt: ?15,"Verify",! Line Location: PCC+5
Function Call: WRITE	Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),! Line Location: PCC+7
Function Call: WRITE	Prompt: @IOF Line Location: PCC2+5
Function Call: WRITE	Prompt: ?15,"Accession",! Line Location: PCC2+5
Function Call: WRITE	Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),! Line Location: PCC2+7
Function Call: WRITE	Prompt: @IOF Line Location: PCC3+5
Function Call: WRITE	Prompt: ?15,"Sample",! Line Location: PCC3+5
Function Call: WRITE	Prompt: ?10,$S($D(^LAM(LRCC,0))#2:$S($P(^(0),U,5):"+"_$P(^(0),U),1:$P(^(0),U)),1:""),?50,$P(LRX,U,2),?73,$S($P(LRX,U,3):$P(LRX,U,3),1:"1"),! Line Location: PCC3+7
Function Call: WRITE	Prompt: !!?21,"LIST OF FILE 60 WKLD CODES",?70,"Page ",$J(LRPAG,3),! Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"IEN",?15,"WKLD Code [TYPE] ",?50,"WKLD Number",?73,"X",!,LRLINE,! Line Location: HEAD+4
Function Call: WRITE	Prompt: !!?10,"Alphabetical Listing of WKLD Codes Defined" Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?72,"Page ",$J(LRPAG,3),! Line Location: HEAD2+4
Function Call: WRITE	Prompt: !!?10,"Alphabetical Listing of NLT or Result NLT Codes Defined" Line Location: HEAD3+3
Function Call: WRITE	Prompt: ?72,"Page ",$J(LRPAG,3),! Line Location: HEAD3+4
Function Call: WRITE	Prompt: !?10,$C(7)," Error in WKLD Code pointer (",$G(LRCC),") ***** ",! Line Location: ERR+0
Function Call: WRITE	Prompt: !! Line Location: CLEAN+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: CLEAN+1
Routine Call	DIR Line Location: PAUSE+3
Routine Call	%ZIS Line Location: EN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	START+7, START+8, START+9, PRNT+5, PRNT+7, PRNT+12, PRNT+15, PRNT+17, PRNT+18, PRNT+20 , PRNT+23, PRNT+24, PRNT+26, PRNT+29, PRNT+30, PCC+2, PCC2+2, PCC3+2, NAME+1
^LAM - [#64]	PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+13, PRNT+14, PCC+2, PCC+7, PCC2+2, PCC2+7 , PCC3+2, PCC3+7
^TMP("LR"	START+1!, START+15, START+19, NLTPRT, NLTPRT+3, PRNT+11, PRNT+14, PCC+2, PCC2+2, PCC3+2* , CLEAN+5!

Label References

Name	Line Occurrences
CLEAN	EN+2, EN+3, DQ+2
ERR	PRNT+11, PRNT+14, PCC+2, PCC2+2, PCC3+2
HEAD	START+5, PRNT+4, PCC+5, PCC2+5, PCC3+5
HEAD2	START+14, START+23
HEAD3	NLTPRT+1, NLTPRT+7
NAME	PRNT+8, PRNT+13, PRNT+16, PRNT+22, PRNT+28, PCC+5, PCC2+5, PCC3+5
PAUSE	START+11, START+21, NLTPRT+5, NLTPRT+11, PRNT+3, PCC+4, PCC2+4, PCC3+4
PCC	PRNT+17, PRNT+18
PCC2	PRNT+23, PRNT+24
PCC3	PRNT+29, PRNT+30
PRNT	START+9
START	DQ+1

Naked Globals

Name	Field # of Occurrence
^(	START+19, NLTPRT+3
^(0	PRNT+8, PRNT+11, PRNT+13, PRNT+14, PCC+2, PCC+7, PCC2+2, PCC2+7, PCC3+2, PCC3+7
^(64	PRNT+7, PRNT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CLEAN+4!
%ZIS	EN+2!*, CLEAN+3!
%ZIS("A"	EN+2*
DA	START+19, NLTPRT+3, CLEAN+3!
DIC	START+18, NLTPRT+2, CLEAN+3!
DIR	PAUSE+3!, CLEAN+4!
DIR(0	PAUSE+3*
DIRUT	CLEAN+4!
DR	START+18, NLTPRT+2, CLEAN+3!
DTOUT	PAUSE+4, CLEAN+4!
DUOUT	PAUSE+4, CLEAN+4!
DX	EN+2!, CLEAN+4!
>> I	START+15*, START+16
IO	EN+3
IO("Q"	EN+3
IO(0	EN+3
IOF	START+4, START+13, START+22, NLTPRT, NLTPRT+6, PRNT+4, PCC+5, PCC2+5, PCC3+5, CLEAN+1
IOM	START+2
ION	EN+3
IOSL	START+20, NLTPRT+4, PRNT+2, PCC+3, PCC2+3, PCC3+3
IOST	START+4, NLTPRT, PAUSE+2, CLEAN+1
LRCC	PRNT+7, PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13, PRNT+14, PCC+2, PCC+7 , PCC2+2, PCC2+7, PCC3+2*, PCC3+7, ERR, CLEAN+4!
LREND	START+2, START+7, START+10, START+16, START+19, START+21, START+24, START+26, NLTPRT+3, NLTPRT+4 , NLTPRT+5, NLTPRT+8, NLTPRT+10, PRNT+1, PRNT+2, PRNT+3, PRNT+10, PRNT+15, PRNT+18, PRNT+19 , PRNT+22, PRNT+24, PRNT+25, PRNT+30, PCC+1, PCC+4, PCC+6, PCC2+1, PCC2+4, PCC2+6 , PCC3+1, PCC3+4, PCC3+6, HEAD+1, HEAD2+1, HEAD3+1, PAUSE+1, PAUSE+4*, CLEAN+4!
LRHED	CLEAN+3!
LRI	START+18, START+19, NLTPRT+2, NLTPRT+3, CLEAN+3!
LRJ	PRNT+15, PRNT+17, PRNT+18, PRNT+20, PRNT+21, PRNT+23, PRNT+24, PRNT+26, PRNT+27, PRNT+29 , PRNT+30, PCC+2, PCC2+2, PCC3+2, CLEAN+3!
LRK	PRNT+18, PRNT+24, PRNT+30*, CLEAN+3!
LRLINE	START+2*, HEAD+4, CLEAN+3!
LRPAG	START+2, HEAD+2, HEAD+3, HEAD2+2, HEAD2+4, HEAD3+2, HEAD3+4, CLEAN+4!
LRTS	START+2, START+8, START+9, PRNT+5, PRNT+7, PRNT+12, PRNT+15, PRNT+17, PRNT+18, PRNT+20 , PRNT+23, PRNT+24, PRNT+26, PRNT+29, PRNT+30, PCC+2, PCC2+2, PCC3+2, NAME+1, CLEAN+3!
LRTSN	START+6, START+7, START+8, START+9, CLEAN+3!
>> LRTY	NAME+1*
LRX	PCC+2, PCC+7, PCC2+2, PCC2+7, PCC3+2*, PCC3+7, CLEAN+3!
>> N	PRNT+10*
NAME	PRNT+6*, CLEAN+3!
NAME1	PRNT+6, PCC+5, PCC2+5, PCC3+5, NAME+1, NAME+2*, CLEAN+3!
>> POP	EN+2
S	START+25, NLTPRT+9, CLEAN+4!
U	PRNT+8, PRNT+11, PRNT+12, PRNT+13, PRNT+14, PCC+2, PCC+7, PCC2+2, PCC2+7, PCC3+2 , PCC3+7, NAME+1
X	PAUSE+3!, CLEAN+4!
Y	PAUSE+3!, CLEAN+4!
>> ZTDESC	EN+3*
>> ZTIO	EN+3*
>> ZTQUEUED	CLEAN
>> ZTREQ	CLEAN*
>> ZTRTN	EN+3*
ZTSK	CLEAN+4!

Customize PDF page

Package: Lab Service

Routine: LRCAPD

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: