Routine: LRDCOM

Package	Total	Call Graph
Lab Service	5	^LRDPA ^LRPARAM IO^LRWU ^LRWU3 (DD,DUZ,PT)^LRX
VA Fileman	2	^%DT YN^DICN

Package	Total	Caller Graph
Lab Service	1	LRDCOM

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN
END	;K %,%DT,%H,AGE,DFN,DIC,DOB,I,LRACC,LRDCOM,LRDFN,LRDPF,LRDTIME,LRDUSNM,LRDUZ,LREDT,LREND,LRIDT,LRIDT0,LRIEDT,LRISDT,LRNOW,LRPAGE,LRSDFN,LRSDT,LRTIME,LRUSI,LRUSNM,LRWRD,LRZIP,PNM,SEX,SSN,X,Y
HDR
SETUP
DCOM
DATE
TIME
ASK
WAIT
DELCOM
DQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+0
Function Call: WRITE	Prompt: "Audit report of deletions/edited comments for a single patient" Line Location: ASK+0
Function Call: WRITE	Prompt: "Audit report of deletions/edited comments for a single patient" Line Location: ASK+0
Function Call: WRITE	Prompt: !,?5,"No deleted/edited comments for ",PNM," ",SSN,! Line Location: DQ+1
Function Call: WRITE	Prompt: !,?5,"No deleted/edited comments for ",PNM," ",HRCN,! Line Location: DQ+2
Function Call: WRITE	Prompt: !,LRACC,?15,PNM," ",HRCN,!,?15,"Collected: ",LRTIME Line Location: SETUP+3
Function Call: WRITE	Prompt: !?15,"Verified: ",Y," by ",LRUSNM,!?15,"Comment deleted/edited: ",LRDTIME," by ",LRDUSNM,!,?5,$P(LRDCOM,U,3),! Line Location: DELCOM+0
Function Call: READ	Prompt: "PRESS '^' TO STOP " Formatting: ! Timeout: DTIME Variable: X Line Location: WAIT+0
Function Call: WRITE	Prompt: @IOF,!,?24,"DELETED/EDITED COMMENTS",?65,LRNOW,! Line Location: HDR+0
Function Call: WRITE	Prompt: ?24,"from ",$S(Y="00/00/00":"LAST",1:Y) Line Location: HDR+0
Function Call: WRITE	Prompt: ?24,"from ",$S(Y="00/00/00":"LAST",1:Y) Line Location: HDR+0

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	DQ+2, DQ+3, DATE, SETUP, SETUP+4

Name	Field # of Occurrence
^(	DATE, SETUP+4
^(0	DQ+2, SETUP

Name	Field # of Occurrence
%	END+1!, ASK, ASK+1, ASK+2, SETUP+4, TIME, TIME+1, TIME+3*
%D	TIME+1*, TIME+2!
%DT	END+1!, DQ*
%H	END+1!, SETUP+4*, TIME, TIME+3
%M	TIME+1*, TIME+2!
%Y	TIME*, TIME+1, TIME+2!
AGE	END+1!
DFN	END+1!, DQ+2, SETUP
DIC	BEGIN!, END+1!
DOB	END+1!
DTIME	WAIT
HRCN	END+1!, DQ+2, SETUP+3
I	END+1!, ASK, DQ+3, DATE, SETUP+4
IO	DQ
IOF	HDR
IOSL	SETUP+1
IOST	SETUP+1
LRACC	END+1!, SETUP*, SETUP+3
LRDCOM	END+1!, SETUP+4*, DELCOM
LRDFN	END+1!, ASK+2, DQ+2, DQ+3, DATE, SETUP, SETUP+4
LRDPF	END+1!, DQ+2, SETUP
LRDTIME	END+1!, SETUP+4*, DELCOM
LRDUSNM	END+1!, SETUP+4*, DELCOM
LRDUZ	END+1!, SETUP+4*
LREDT	END+1!, DATE, HDR
LREND	BEGIN, END+1!, ASK+2, ASK+3, DQ+3, DATE, SETUP+1, WAIT
LRIDT	END+1!, DATE*, SETUP, SETUP+4
LRIDT0	END+1!, SETUP*
LRIEDT	END+1!, DATE*
LRISDT	END+1!, DATE*
LRNOW	END+1!, DQ*, HDR
LRPAGE	BEGIN, END+1!, HDR
>> LRPARAM	BEGIN
LRSDFN	BEGIN, END+1!, ASK+2, DQ+2
LRSDT	END+1!, DATE, HDR
LRTIME	END+1!, SETUP*, SETUP+3
LRUSI	END+1!
LRUSNM	END+1!, SETUP+4, DELCOM
LRWRD	END+1!
LRZIP	BEGIN, END+1!, DQ+2, DQ+4, DATE
PNM	END+1!, DQ+2, SETUP+3
SEX	END+1!
SSN	END+1!
U	DQ+2, SETUP, DELCOM
X	END+1!, DQ, SETUP+4, DELCOM, WAIT, TIME+2*, TIME+3
Y	END+1!, DQ, SETUP, SETUP+4, DELCOM, HDR
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
>> ZTRTN	DCOM*