Routine: LRCAPFDS

Information

LRCAPFDS ;DALOI/FHS - EDIT ACTIVATED WKLD CODES BY WKLD LAB SECTION ;5/1/99

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT $$CJ^XLFSTR
VA FileMan	3	^DIC ^DIE ^DIR
Lab Service	1	EN^LRDIQ

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	LR WKLD CODE EDIT PRINT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
EDIT	;
ASK
ALL
LOOP	;
PRINT	;
DQ	;
END	;
HEAD	;
DIQ	;
LRSET	;

External References

Name	Field # of Occurrence
^%ZIS	PRINT+3
^%ZISC	PRINT+4, END+1
^%ZTLOAD	PRINT+6
^DIC	EN+6, EN+13
^DIE	EN+8, LOOP+5
^DIR	EN+4, EN+12, EN+15, ASK, ALL+3, PRINT+1
EN^LRDIQ	DQ+6, DIQ+1
$$HTE^XLFDT	HEAD+3
$$CJ^XLFSTR	ALL, HEAD+1, HEAD+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+6
Function Call: WRITE	Prompt: !?5,"You have no Activated WKLD CODES ",! Line Location: EN+9
Function Call: WRITE	Prompt: !?5,"This option will allow you to Edit or Print WKLD CODES" Line Location: EN+10
Function Call: WRITE	Prompt: !,"EDITING",! Line Location: EDIT+1
Function Call: WRITE	Prompt: !?5,"Nothing Selected ",! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(" Database scan was negative.",80),!,$$CJ^XLFSTR(" No WKLD CODES assigned to WKLD CODE LAB SECTION you selected.",80),$C(7),! Line Location: ALL+0
Function Call: WRITE	Prompt: !,"STARTING LOOP ",! Line Location: ALL+4
Function Call: WRITE	Prompt: !!?5,"Nothing matches your criteria",! Line Location: LOOP+2
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+3
Function Call: WRITE	Prompt: !,"PRINT",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!?10,"** Report Not Queued **",! Line Location: PRINT+6
Function Call: WRITE	Prompt: !!?10," Database scan was negative.",!," No WKLD CODES assigned to WKLD CODE LAB SECTION you selected.",! Line Location: DQ+2
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: END+1
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Activated WKLD Codes",IOM),! Line Location: HEAD+1
Function Call: WRITE	Prompt: $$CJ^XLFSTR(LRTIT,IOM),!,$$CJ^XLFSTR(LRDAT,IOM),! Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: DIQ+1
Routine Call	%ZIS Line Location: PRINT+3
Routine Call	DIC Line Location: EN+6 EN+13
Routine Call	DIE Line Location: EN+8 LOOP+5
Routine Call	DIR Line Location: EN+4 EN+12 EN+15 ASK ALL+3 PRINT+1

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(64.21 - [#64.21]	HEAD+2
^LAM - [#64]	LRSET+1, LRSET+3
^LAM("AC"	EN+9
^TMP("LRLAM"	EN+1!, ALL, LOOP+1, DQ+2, LRSET+4*

Label References

Name	Line Occurrences
ALL	ASK
ASK	ASK+1
DIQ	LOOP+5
END	EN+4, EN+5, EN+9, EN+12, EN+13, EN+15, ASK, ASK+2, ALL, ALL+3 , LOOP+2, LOOP+6, PRINT+1, PRINT+3, PRINT+4, DQ+2
HEAD	DQ+4
LRSET	ASK, ASK+4, DQ+1
PRINT	EN+15

Naked Globals

Name	Field # of Occurrence
^(0	HEAD+2, LRSET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINT+3!*, END+4!
DA	EN+7~, EN+8, LOOP+4, DQ+5*, END+2!, DIQ+1
DIC	EN+6!, EN+13!, EN+14!, DQ+3, END+2!, DIQ+1
DIC(0	EN+6, EN+13
DIE	EN+7~, EN+8, LOOP+5, END+2!
DIR	EN+1!, EN+11!, EN+13!, EN+14!, EDIT+1!, ALL+1!, PRINT+1!, DQ+4!, END+2!
DIR("?"	EN+2*
DIR("A"	EN+3, EN+11, EN+14, EDIT+3, ASK+1, ALL+1, ALL+2, PRINT+1
DIR("B"	EN+4, EN+12, PRINT+1*
DIR(0	EN+4, EN+12, EN+14, EDIT+2, ALL+1, PRINT+1
DIRUT	EN+4, EN+12, EN+15, ALL+3, LOOP+5, PRINT+1, DQ+6, END+2!, END+4!
DR	EN+7~, EN+8, LOOP+5, DQ+3, END+2!, DIQ+1
DTOUT	END+2!
DUOUT	END+2!
DUZ	EN+1, ALL, LOOP+1, LOOP+3, DQ+2, DQ+3, DQ+4, LRSET+4
IO	PRINT+4
IO(0	PRINT+4
IOF	LOOP+3, END+1
IOM	HEAD+1, HEAD+4
ION	PRINT+5, PRINT+6
IOST	DQ+6, END+1
LRCPT	PRINT+2*, END+4!, LRSET+3
LRDAT	END+3!, HEAD+3*, HEAD+4
LRDR	EDIT+3, ASK, ASK+1, ASK+2, ASK+3, LOOP+5, END+4!
LREND	LOOP+3, LOOP+4, LOOP+5, DQ+3, DQ+5, DQ+6, END+3!
LRN	END+3!, LRSET+1*, LRSET+3, LRSET+4
LRNN	LOOP+1, LOOP+4, DQ+4, DQ+5, END+3!
LRNODE	LOOP+3, LOOP+4, DQ+3, DQ+5, END+3!, LRSET+1*, LRSET+2, LRSET+4
LRSECT	EN+11!, EN+13*, PRINT+5, END+3!, HEAD+2, LRSET+2
LRTIT	END+3!, HEAD+2*, HEAD+4
LRWKLD	ALL+4, LOOP+1, LOOP+2, LOOP+3, END+3!
>> POP	PRINT+3
S	LOOP+5, DQ+3, DQ+6, END+3!, HEAD+3
U	ASK, HEAD+2, LRSET+2, LRSET+4
X	ASK, ALL+4, LOOP+5, END+4!
Y	EN+5, EN+6, EN+8, EN+13, EN+15, ASK, ASK+1, LOOP+5, PRINT+2, END+4!
>> ZTIO	PRINT+5*
>> ZTQUEUED	DQ+1
>> ZTREQ	DQ+1*
>> ZTRTN	PRINT+5*
>> ZTSAVE("LRCPT"	PRINT+5*
>> ZTSAVE("LRSECT"	PRINT+5*
ZTSK	PRINT+6!, END+4!

Customize PDF page

Package: Lab Service