Routine: LRMLREI

Information

LRMLREI ;BPFO/DTG - EDITED ITEMS REPORT PGM FOR NTRT PROCESS ;02/10/2016

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZTLOAD ($$DT,$$FMTE,$$NOW)^XLFDT $$KSP^XUPARAM
VA FileMan	2	($$GET1,GETS)^DIQ ^DIR
Registration	1	$$SITE^VASITE

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 NDS FILE 60 AUDIT PRINT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point
ST	;
DEVICE
DO
DONE	; exit
LRS(A)	; get edit type/field
BK	;entry if queued
PRT	; print report
PL	;S LRTST=$O(^LAB(60,LRTST)) I 'LRTST G PDONE ; Step down the B X-ref - exclude synomyms
PLE
PDONE	; print done
HEADER	;Description: Prints the report header.
PAUSE

External References

Name	Field # of Occurrence
^%ZIS	DEVICE
HOME^%ZIS	ST+2, DEVICE+1
^%ZTLOAD	DEVICE+2
$$GET1^DIQ	EN+6, EN+8, PL+7, PLE+13, PLE+20, PLE+23
GETS^DIQ	PLE+2
^DIR	ST+6, ST+9, PAUSE+2
$$SITE^VASITE	EN+5
$$DT^XLFDT	EN+4
$$FMTE^XLFDT	PLE+9, PLE+21, PLE+24, HEADER+5
$$NOW^XLFDT	ST+4, DEVICE+2
$$KSP^XUPARAM	EN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!! Line Location: ST+2
Function Call: WRITE	Prompt: !,*7,"Starting Date Not Selected" Line Location: ST+7
Function Call: WRITE	Prompt: !,*7,"Ending Date Not Selected" Line Location: ST+10
Function Call: WRITE	Prompt: !,*7,"No Device Selected" Line Location: DEVICE+1
Function Call: WRITE	Prompt: @IOF Line Location: PRT+2
Function Call: WRITE	Prompt: !,"TEST: ",LRTSTN Line Location: PLE+10
Function Call: WRITE	Prompt: !,?10,"Specimen: ",X Line Location: PLE+13
Function Call: WRITE	Prompt: !,?1,C,?18,B,?32,E,?48,FO,?65,FN Line Location: PLE+25
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !,?22,HD Line Location: HEADER+4
Function Call: WRITE	Prompt: ?70,"Page ",PAGE,!,?27,"Date Printed: "_$$FMTE^XLFDT(DT),! Line Location: HEADER+5
Function Call: WRITE	Prompt: !,?1,"Date",?18,"Edit Field",?32,"User",?48,"Old Value",?65,"New Value" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,ULINE Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"TEST: ",LRTSTN Line Location: HEADER+10
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	%ZIS Line Location: DEVICE
Routine Call	%ZIS Line Location: ST+2 DEVICE+1
Routine Call	DIR Line Location: ST+6 ST+9 PAUSE+2

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
60.01	GET1^DIQ
60.28	GETS^DIQ
^LRMLTF - [#66.3]	GET1^DIQ
^LAB(66.4 - [#66.4]	GET1^DIQ
^XTV(8989.3 - [#8989.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ST+1
^LAB(60 - [#60]	PLE
^LAB(66.4 - [#66.4]	EN+7

Label References

Name	Line Occurrences
$$LRS	PLE+15
DO	DEVICE+2
DONE	ST+7, ST+10, DEVICE+1, DO+1, PDONE+1
HEADER	PRT+3, PLE+31, PLE+34
PAUSE	PLE+28
PDONE	PL+2, PLE+27
PL	PL+3, PL+4, PLE
PLE	PLE+3, PLE+6, PLE+7, PLE+8, PLE+36
PRT	DEVICE+4
ST	EN+5, EN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE*
>> %ZIS("A"	DEVICE*
A	EN+1~, EN+8*, DONE+1!, LRS~, LRS+2, LRS+3
AUTO	ST+1!
B	EN+1~, EN+5, EN+6, EN+7, DONE+1!, PLE+1, PLE+2, PLE+4, PLE+15, PLE+25
C	EN+1~, DONE+1!, PLE+2!, PLE+4!, PLE+6, PLE+7, PLE+9, PLE+25
C("60.28"	PLE+4
CRT	EN+2~, DONE+2!, PRT+1*, PRT+2, PLE+27, PLE+32
D	EN+1~, DONE+1!, PLE+7, PLE+8, PLE+13
DA	EN+1~, DONE+1!
DIDEL	EN+1~, DONE+1!
DIE	EN+1~, DONE+1!
DIR	ST+6!, ST+9!, PAUSE~
DIR("A"	ST+6, ST+9
DIR(0	ST+6, ST+9, PAUSE+2*
DIROUT	EN+3~, ST+7, ST+10, DONE+3!
DIRUT	ST+7, ST+10, PAUSE~, PAUSE+3
DR	EN+1~, DONE+1!
DT	EN+4*, ST+3, HEADER+5
DTOUT	EN+3~, ST+7, ST+10, DONE+3!
>> DUOUT	ST+7, ST+10
E	EN+1~, DONE+1!, PLE+17*, PLE+25
EDPRT	ST+1!
FF	EN+3~, ST+2*, DONE+3!
FN	EN+2~, DONE+2!, PLE+22, PLE+23, PLE+24*, PLE+25
FO	EN+2~, DONE+2!, PLE+19, PLE+20, PLE+21*, PLE+25
HD	EN+3~, ST+2*, DONE+3!, HEADER+4
I	EN+3~, DEVICE+3*, DONE+3!
IO("Q"	DEVICE+2
IOF	ST+2, PRT+2, PLE+30, PLE+33, HEADER+3
IOM	ST+2
ION	DEVICE+2
IOSL	PLE+27, PLE+32, PAUSE+1
IOST	PRT+1
>> IOT	DEVICE+2
K	EN+1~, DONE+1!, PLE+15*, PLE+20, PLE+21, PLE+23, PLE+24
LD	EN+1~, DONE+1!
LDT	EN+1~, DONE+1!
LINE	HEADER+2~
LR1	EN+2~, DONE+2!, PL+8, PLE+10, PLE+11
LRDT	EN+2~, DONE+2!
LRDT(0	ST+3*
LRDTA	EN+1~, DONE+1!, PLE+2!, PLE+4*
LRDTA(	PLE+6, PLE+13, PLE+15, PLE+17, PLE+19, PLE+22
LRER	PLE+2!
LRER("DIERR"	PLE+3
LRFD	EN+1~, ST+4*, ST+6, ST+9, DONE+1!
LRFDAT	EN+1~, ST+8*, ST+9, DONE+1!, PLE+7
LRROOT	EN+2~, DONE+2!, PRT+4, PL+2, PL+3, PL+4, PL+5
LRROOTA	EN+2~, DONE+2!, PRT+4*, PL+2
LRSITE	EN+1~, EN+5, EN+7, EN+8, EN+9, DONE+1!
LRSTRING	LRS+1~, LRS+3*, LRS+4
LRTDAT	EN+1~, ST+11*, DONE+1!, PLE+8
LRTE	EN+2~, DONE+2!, PL+8, PLE, PLE+1
LRTST	EN+1~, DONE+1!, PL+5*, PL+7, PLE, PLE+1, PLE+13
LRTSTN	EN+2~, DONE+2!, PRT+1, PL+7, PLE+10, HEADER+10
LT	EN+1~, DONE+1!
PAGE	EN+1~, DONE+1!, PRT+1, PRT+2, PRT+3, HEADER+5, HEADER+6*, HEADER+10
PDT	EN+1~, DONE+1!
PGHD	EN+2~, ST+3*, DONE+2!
POP	EN+2~, DEVICE+1, DONE+2!
PS	EN+1~, EN+7*, EN+8, DONE+1!
QUIT	EN+2~, DONE+2!, PRT+1, PLE+27, PLE+29, PDONE+1, HEADER+1, PAUSE+3
U	EN+4*, EN+5
ULINE	EN+2~, ST+1!*, DONE+2!, HEADER+9
X	EN+2~, DONE+2!, PLE+13*, PAUSE~
XDD	EN+2~, ST+1*, ST+3, DONE+2!
Y	EN+2~, ST+3*, ST+8, ST+11, DONE+2!, PAUSE~, PAUSE+3
ZTDESC	DEVICE+2~*, DO!
ZTDTH	DEVICE+2~*, DO!
ZTIO	DEVICE+2~*, DO!
>> ZTQUEUED	DONE+4
>> ZTREQ	DONE+4*
ZTRTN	DEVICE+2~*, DO!
ZTSAVE	DEVICE+2~, DO!
ZTSAVE(	DEVICE+3*
ZTSK	DEVICE+2, DO!

Customize PDF page

Package: Lab Service