Routine: LRDIDLE0

Information

LRDIDLE0 ;DALOI/JMC; Create audit trail of changed values ;Feb 21, 2003

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	$$GET1^DIQ ^DIWP
Kernel	1	$$FMTE^XLFDT
Lab Service	1	FILECOM^LRVR4

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	LRVER3

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; ; This code controls the automatic audit trail entries for CH subscripted ; tests which are reported and subsequently changed. Modification of this ; code by local stations may have Medical/Legal ramifications. Local ; stations are STRONGLY advised to NOT make changes.
EVAL	;
STORE	; Store comments in file #63, field #99 COMMENTS
USERID(LRDUZ)	; Create user id for comment text

External References

Name	Field # of Occurrence
$$GET1^DIQ	USERID+12
^DIWP	STORE+10
FILECOM^LRVR4	STORE+21
$$FMTE^XLFDT	INIT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRX Line Location: STORE+22

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	STORE+9!, STORE+11, STORE+12, STORE+16!

Label References

Name	Line Occurrences
$$USERID	INIT+8, EVAL+6, EVAL+15, EVAL+29, EVAL+38
STORE	EVAL+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIWF	STORE+2~, STORE+8*
DIWL	STORE+2~, STORE+8*, STORE+11, STORE+12
DIWR	STORE+2~, STORE+8*
DUZ	INIT+8
DUZ("AG"	USERID+9
DUZ(2	USERID+10
>> J	STORE+14*
LRCHDT7	INIT+6~, INIT+8*, EVAL+8, EVAL+18, EVAL+19, EVAL+31, EVAL+40
>> LRDFN	STORE+21
LRDUZ	USERID~, USERID+7
LRDUZ("AG"	USERID+9*, USERID+12
LRDUZ(2	USERID+10*, USERID+12
LRI	INIT+6~, EVAL+23~, EVAL+34, EVAL+35, EVAL+36, EVAL+37, STORE+2~, STORE+5, STORE+6, STORE+7 , STORE+8, STORE+9, STORE+12, STORE+18, STORE+19*, STORE+20
>> LRIDT	STORE+21
LRJ	INIT+6~, INIT+8, EVAL+7, EVAL+8, EVAL+16, EVAL+17, EVAL+18, EVAL+19, EVAL+30, EVAL+31* , EVAL+39, EVAL+40, EVAL+42, STORE+2~, STORE+8, STORE+11, STORE+12
LRK	STORE+2~, STORE+12*, STORE+13, STORE+14, STORE+15
LRNEW	INIT+6~, EVAL+4, EVAL+8, EVAL+12, EVAL+13, EVAL+18, EVAL+19, EVAL+27, EVAL+31, EVAL+35* , EVAL+40
>> LRNOW7	INIT+8
>> LROK	INIT+8*
LROLD	INIT+6~, EVAL+5, EVAL+6, EVAL+14, EVAL+15, EVAL+28, EVAL+29, EVAL+36, EVAL+38
>> LRSA(	EVAL+3, EVAL+5, EVAL+6, EVAL+7, EVAL+11, EVAL+14, EVAL+15, EVAL+16, EVAL+22, EVAL+24 , EVAL+29, EVAL+30, EVAL+38, EVAL+39
>> LRSB	EVAL+3, EVAL+4, EVAL+5, EVAL+6, EVAL+7, EVAL+11, EVAL+12, EVAL+13, EVAL+14, EVAL+15 , EVAL+16, EVAL+22, EVAL+24, EVAL+29, EVAL+30, EVAL+38, EVAL+39
>> LRSB(	EVAL+4, EVAL+12, EVAL+13, EVAL+24
LRSQ9	INIT+6~, EVAL+6, EVAL+7, EVAL+15, EVAL+16, EVAL+29, EVAL+30, EVAL+38, EVAL+39
LRTXT	INIT+6~
LRTXT(	EVAL+7, EVAL+8, EVAL+16, EVAL+18, EVAL+19, EVAL+30, EVAL+31, EVAL+39, EVAL+40, STORE+6 , STORE+7, STORE+8, STORE+9!, STORE+12, STORE+13, STORE+14, STORE+15, STORE+19, STORE+20
LRUSER	INIT+6~, INIT+8*, EVAL+8, EVAL+18, EVAL+19, EVAL+31, EVAL+40
LRX	EVAL+23~, EVAL+24, EVAL+26, EVAL+27, EVAL+34, EVAL+35, STORE+2~, STORE+20, STORE+21, STORE+22
LRY	EVAL+23~, EVAL+24, EVAL+26, EVAL+28, EVAL+34, EVAL+36, USERID+6~, USERID+7, USERID+12*, USERID+13
LRZ	EVAL+23~, EVAL+37*, EVAL+39
LRZ(0	EVAL+33*, EVAL+37
X	STORE+2~, STORE+8*

Customize PDF page

Package: Lab Service