Routine: LRCAPF

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Kernel	1	$$CJ^XLFSTR

Package	Total	Caller Graph
Lab Service	1	LRCAPF

Entry Points

Name	Comments	DBIA/ICR reference
ETIO	;
OK
AD
SHOW	;
DOC	;
DEL	;
EN	;
PURG
ASK
STUF
MULT	;
END	;

External References

Name	Field # of Occurrence
^DIC	DOC+7, ASK+1
YN^DICN	AD+1, PURG, OK+2
^DIE	STUF+4
$$CJ^XLFSTR	DOC+1, DOC+2, DOC+3, DOC+4, DOC+5, DOC+6, ASK+3, OK, OK+1, OK+3 , STUF+5, STUF+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Someone else is editing ^LRO(61.2) file ",! Line Location: EN+1
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("You must have already defined and ran a search template for the",IOM) Line Location: DOC+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ETIOLOGY FIELD (#61.2). This option will use the results of that search",IOM) Line Location: DOC+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("and automatically stuff WKLD Codes for those organisms. If you wish to edit",IOM) Line Location: DOC+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("a single organism, use FileMan enter/edit option.",IOM) Line Location: DOC+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("This option will automatically add WKLD codes to your",IOM) Line Location: DOC+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("ETIOLOGY FILE (#61.2).",IOM),!! Line Location: DOC+6
Function Call: WRITE	Prompt: !!,?10,"Select WKLD Code(s) to be added " Line Location: ASK+0
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("No WKLD Codes Selected - Continue to purge existing codes. ",IOM),!,$C(7) Line Location: ASK+3
Function Call: WRITE	Prompt: !!?10,"Wish to delete any selection(s) " Line Location: AD+1
Function Call: WRITE	Prompt: !!,"Shall I purge already existing Wkld Codes " Line Location: PURG+0
Function Call: READ	Prompt: "Multiply Factor: 1 // " Formatting: !!?10 Timeout: DTIME Variable: X Line Location: MULT+2
Function Call: WRITE	Prompt: !!,$C(7),"Enter a whole number between 1-20",! Line Location: MULT+4
Function Call: READ	Timeout: 2 Variable: X Line Location: OK+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("PRESS RETURN TO STOP PROCESS",IOM),$C(7),!! Line Location: OK+3
Function Call: READ	Timeout: 1 Variable: LRSTOP Line Location: STUF+1
Function Call: WRITE	Prompt: !?5,"Purging WKLD Code(s) from ",$P($G(^LAB(61.2,DA,0)),U) Line Location: STUF+1
Function Call: WRITE	Prompt: !,"Adding WKLD Codes to : ",$P(^(0),U) Line Location: STUF+2
Function Call: READ	Timeout: 1 Variable: LRSTOP Line Location: STUF+3
Function Call: WRITE	Prompt: "." Line Location: STUF+4
Function Call: WRITE	Prompt: !!?10,"You have selected ",!! Line Location: SHOW+1
Function Call: WRITE	Prompt: !,CNT,?5,$P(LRCAPX(I),U,2),?20,$P(LRCAPX(I),U) Line Location: SHOW+2
Function Call: READ	Timeout: DTIME Variable: LRDEL Line Location: DEL+1
Function Call: WRITE	Prompt: !!?20,"Positive number only ",$C(7) Line Location: DEL+2
Function Call: WRITE	Prompt: !!?10,"Invalid Number Retry Please ",$C(7),! Line Location: DEL+3
Routine Call	DIE Line Location: STUF+4
Routine Call	DIC Line Location: DOC+7 ASK+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	STUF
^LAB(61.2 - [#61.2]	STUF+1!, STUF+2, STUF+3
^LRO(61.2	EN+1, END+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AD+1, PURG, OK+2*
CNT	SHOW+2!*, END+3!
CNT(	SHOW+2*, DEL+3, DEL+4!
DA	STUF!*, STUF+1, STUF+2, STUF+3, END+3!
DIC	DOC+7!, ETIO+1!, ASK!, ASK+1, STUF+4!*, END+3!
DIC("A"	DOC+7, ASK+1
DIC("S"	DOC+7*
DIC(0	DOC+7, ASK+1, STUF+4*
DIE	STUF+4!*, END+3!
DLAYGO	STUF+4*!, END+3!
DR	STUF+4!*, END+3!
DR(2	STUF+4*
DTIME	MULT+2, DEL+1
>> DTOUT	ASK+2
>> DUOUT	ASK+2
>> I	SHOW+2*
IOM	DOC+1, DOC+2, DOC+3, DOC+4, DOC+5, DOC+6, ASK+3, OK, OK+1, OK+3 , STUF+5, STUF+6
LRCAPX	ETIO+1!*, END+3!
LRCAPX(	ASK+1*, STUF+3, SHOW+2, DEL+4!
LRCAPX(0	ASK+3, MULT+1, OK, OK+1, STUF+2
>> LRDBUG	END+2
LRDEL	DEL+1*, DEL+2, DEL+3, DEL+4, END+3!
LRI	STUF+3*, END+3!
LRMULT	MULT+5*, END+3!
LRPURG	PURG!*, OK+1, STUF+1, END+3!
LRS	DOC+7*, STUF, END+3!
LRSTOP	STUF, STUF+1, STUF+3, STUF+5, STUF+6, END+3!
LRX	STUF+3*, END+3!
STOP	STUF!
U	ASK+1, MULT+2, STUF+1, STUF+2, STUF+3, SHOW+2
X	MULT+2, MULT+3, MULT+4!, MULT+5, OK+3
>> Y	DOC+7, ASK+1
>> Y(0	ASK+1

Customize PDF page

Package: Lab Service

Routine: LRCAPF

Information

Source Information

Call Graph

Call Graph Total: 4

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:

Name	Line Occurrences
AD	AD+1
ASK	DEL+1
DEL	AD+1, DEL+1, DEL+2, DEL+3, DEL+4
EN	OK+2
END	DOC+7, ASK+2, AD+1, PURG, MULT+2, OK+2, OK+3, STUF+7, DEL+1
MULT	MULT+3
OK	MULT+1
PURG	ASK+3
SHOW	AD, DEL+1, DEL+2, DEL+3