Routine: LRCAP67

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	4	^DIC ^DIK EN^DIQ ^DIR
Lab Service	1	^LRPARAM

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

VA Fileman

^DIC ^DIK EN^DIQ ^DIR

Lab Service

^LRPARAM

Package	Total	Caller Graph
Lab Service	1	LR WKLD LMIP 5

Package

Total

Caller Graph

Lab Service

LR WKLD LMIP 5

Name	Comments	DBIA/ICR reference
EN	;
DISDQ	;
PAUSE	;
SELDIV	;
END	;
ARCH	;
SELMT	;
DIS	;

Name	Field # of Occurrence
^%ZIS	DIS+1
^%ZISC	DIS+2, DISDQ+7, END+1
^%ZTLOAD	DIS+2
^DIC	SELDIV+2, SELMT+2
^DIK	SELMT+8
EN^DIQ	SELMT+2, SELMT+5, DISDQ+6
^DIR	ARCH+5, SELMT+3, SELMT+6, PAUSE+1
^LRPARAM	EN+1
$$FMTE^XLFDT	SELMT+3, SELMT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry you do not have the proper security Key",!! Line Location: EN+1
Function Call: WRITE	Prompt: !!?5,"This routine is used to purge data from LAB MONTHLY WORKLOAD file" Line Location: EN+2
Function Call: WRITE	Prompt: !,"after it has been transmitted to the national database. It can also be used to" Line Location: EN+3
Function Call: WRITE	Prompt: !,"clear the file and recompute data found to be erroneous after review.",!! Line Location: EN+4
Function Call: WRITE	Prompt: !?10,"If you intend to archive this data have your Site Manager save" Line Location: ARCH+1
Function Call: WRITE	Prompt: !,"in the appropriate manner the global, ^LRO(67.9, to desired media " Line Location: ARCH+2
Function Call: WRITE	Prompt: !,"before deleting any data.",!! Line Location: ARCH+3
Function Call: WRITE	Prompt: !?10,"Do you want a list of monthly compiled data in the file.",! Line Location: ARCH+4
Function Call: WRITE	Prompt: !!?10,"NO DATA IN THE FILE " Line Location: SELDIV+1
Function Call: WRITE	Prompt: !!?10,"NO MONTHLY DATA IN THE FILE",! Line Location: SELMT+1
Function Call: WRITE	Prompt: !! Line Location: SELMT+2
Function Call: WRITE	Prompt: !! Line Location: SELMT+5
Function Call: WRITE	Prompt: !!?10,"Deleting "_$$FMTE^XLFDT(LRMT)_" DATA ",! Line Location: SELMT+7
Function Call: WRITE	Prompt: !!,"DATA DELETED",!! Line Location: SELMT+8
Function Call: WRITE	Prompt: !!?10,"NO DATA TO PURGE " Line Location: DISDQ+2
Function Call: WRITE	Prompt: @IOF,!!?30,$P(^DIC(4,LRDIV,0),U) Line Location: DISDQ+5
Function Call: WRITE	Prompt: !! Line Location: DISDQ+7
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: DISDQ+7
Routine Call	DIC Line Location: SELDIV+2 SELMT+2
Routine Call	DIR Line Location: ARCH+5 SELMT+3 SELMT+6 PAUSE+1
Routine Call	%ZIS Line Location: DIS+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DISDQ+3, DISDQ+5
^LRO(67.9 - [#67.9]	SELDIV+1, SELMT+1, DISDQ+2, DISDQ+3, DISDQ+4

Name	Line Occurrences
DIS	ARCH+5
EN	SELDIV+2, SELMT+1, SELMT+2, SELMT+4, SELMT+6, SELMT+8
END	EN+1, ARCH+5, SELDIV+1, SELMT+4, DISDQ+2
PAUSE	DISDQ+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DIS+1!*, END+1!
DA	SELMT+2!, SELMT+5, DISDQ+6!*, END+1!
DA(1	SELMT+2, SELMT+5, DISDQ+6*
DA(2	SELMT+2, SELMT+5, DISDQ+6*
DIC	SELDIV+1!, SELDIV+2, SELMT+2, SELMT+5, DISDQ+6!, END+1!
DIC(0	SELDIV+2*
DIK	SELMT+8*, END+1!
DIR	ARCH+5!, END+1!, PAUSE+1!
DIR("A"	SELMT+3, SELMT+6
DIR(0	ARCH+5, SELMT+3, SELMT+6, PAUSE+1
DIRUT	ARCH+5, SELMT+4, END+1!, PAUSE+2
DR	SELMT+2!, SELMT+5, DISDQ+6!*
DTOUT	ARCH+5, SELMT+4, END+1!, PAUSE+2
DUOUT	ARCH+5, SELMT+4, END+1!, PAUSE+2
IO	DIS+3
IO("Q"	DIS+1!, DIS+2!, DISDQ+7!
IOF	DISDQ+1, DISDQ+5, DISDQ+7
ION	DIS+2
IOSL	DISDQ+5
IOST	DISDQ+1, DISDQ+5, DISDQ+7
LRAD	DISDQ+4*, DISDQ+6, END+1!
LRDA	SELMT+2*, SELMT+5, END+1!
LRDATA	DISDQ+2, DISDQ+6*, END+1!
LRDIC	SELMT+2*, SELMT+5, SELMT+8, END+1!
>> LRDIV	SELDIV+2, SELMT+1, SELMT+2, SELMT+5, DISDQ+3, DISDQ+4, DISDQ+5, DISDQ+6
LREND	ARCH+5, DIS+1, DIS+2, DISDQ+2, DISDQ+3, DISDQ+4, DISDQ+5, END+1!, PAUSE+2*
LRINST	SELDIV+1, SELDIV+2, SELMT+1, SELMT+2, SELMT+5, DISDQ+2, DISDQ+3, DISDQ+4, DISDQ+6, END+1!
>> LRLABKY	EN+1
LRMT	SELMT+2*, SELMT+3, SELMT+7, END+1!
>> POP	DIS+1
U	EN+1, SELMT+2, DISDQ+3, DISDQ+5
>> Y	ARCH+5, SELDIV+2, SELMT+2, SELMT+4, SELMT+6
ZTDESC	DIS+2*, END+1!
ZTIO	DIS+2*, END+1!
ZTQUEUED	DISDQ+7, END+1!
>> ZTREQ	DISDQ+7*
ZTRTN	DIS+2*, END+1!

Customize PDF page

Package: Lab Service

Routine: LRCAP67

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: