Routine: LRCAPF

Information

LRCAPF ;DALISC/FHS-STUFF WKLD CODE INTO FILE 60 61.2 62.07 ETC ;5/2/91 09:03

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRCAPF

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
DOC	;
ETIO	;
ASK
AD
PURG
MULT	;
OK
STUF
SHOW	;
DEL	;
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	Formatting: !!?10 Prompt: "Multiply Factor: 1 // " Variable: X Timeout: DTIME Line Location: MULT+2
Function Call: WRITE	Prompt: !!,$C(7),"Enter a whole number between 1-20",! Line Location: MULT+4
Function Call: READ	Variable: X Timeout: 2 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	Variable: LRSTOP Timeout: 1 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	Variable: LRSTOP Timeout: 1 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	Variable: LRDEL Timeout: DTIME 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	DIC Line Location: DOC+7 ASK+1
Routine Call	DIE Line Location: STUF+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	STUF+2

Local Variables

Legend:

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