Routine: LRMIVER

Package	Total	Call Graph
Lab Service	5	LRAA^LRMIUT ^LRMIVER1 ^LRPARAM D^LRU PT^LRX
VA Fileman	2	^%DT YN^DICN

Package

Total

Call Graph

LRAA^LRMIUT ^LRMIVER1 ^LRPARAM D^LRU PT^LRX

^%DT YN^DICN

Package	Total	Caller Graph
Lab Service	1	LRMIVER

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: "You must have the LRVERIFY key to use this option." Line Location: ACCESS+0
Function Call: WRITE	Prompt: !,"Use previous list" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Use previous list" Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Answer 'Y'es or 'N'o" Line Location: ASK+1
Function Call: WRITE	Prompt: !,"Approving the following:",! Line Location: LIST+0
Function Call: WRITE	Prompt: !,$J(LRAN,6),?8,PNM,?35," ",SSN Line Location: LIS1+0
Function Call: WRITE	Prompt: !,$J(LRAN,6),?8,PNM,?35," ",HRCN Line Location: LIS1+1
Function Call: WRITE	Prompt: !,$J(LRAN,6),?8,PNM,?35," ",SSN,?80 Line Location: OK+2
Function Call: WRITE	Prompt: !,$J(LRAN,6),?8,PNM,?35," ",HRCN,?80 Line Location: OK+3

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	LIS1+1, OK+3, FINAL
^LRO(68 - [#68]	LIST, LIS1+1, BUILD!, BUILD+2, BUILD+4, AC, AC1, OK, OK+1, OK+3*
^TMP($J	END!

Name	Field # of Occurrence
%	END!, ASK+1*, ASK+2, ASK+3
%DT	BEGIN, END!, BUILD!, BUILD+1*!
%DT("A"	BUILD, BUILD+1
AGE	END!
D	END!
DFN	END!, LIS1+1, OK+3
DOB	END!
DTOUT	END!
DUOUT	END!
HRCN	END+2!, LIS1+1, OK+3
I	END!, ASK+1, LIST, LIS1+1, BUILD+4, AC, AC1
II	END!, OK+1*, FINAL
J	END!
K	END!
LAST	END!, BUILD+1, BUILD+2, BUILD+3, AC
LRAA	BEGIN, END!, LIST, LIS1+1, BUILD, BUILD+2, BUILD+4, AC, AC1, OK , OK+1, OK+3
>> LRAAT	BUILD+2*, BUILD+3
LRACC	END!
LRAD	END!, LIST, LIS1+1, BUILD+3, BUILD+4*, AC, AC1, OK, OK+1, OK+3
LRAN	END!, LIS1+1, AC1, OK, OK+1, OK+3
LRCMNT	END!
LRDAT	BEGIN*, END!
LRDFN	END!, LIS1+1, OK+1, OK+3, FINAL
LRDONE	END!, OK*
LRDPF	END!, LIS1+1, OK+3
>> LRDT0	BEGIN
LREND	END!
LRIDT	END!, OK+1*, OK+3, FINAL
>> LRLABKY	ACCESS
LRLCNT	END+2!
LRLLT	END+2!
LRLST	END+2!, BUILD+1, BUILD+2
LRLTR	END+2!
LRNT	BEGIN*, END+2!
LRONESPC	END+2!
LRONETST	END+2!
LRPG	END+2!
LRSB	END+2!
LRSET	END+2!, OK+1, OK+3, FINAL
LRST	END+2!, BUILD, BUILD+1, BUILD+2*
LRSTAR	END+2!, BUILD, BUILD+1, BUILD+2, BUILD+3, AC
LRTK	END+2!, AC*, AC1
LRVLOC	END+2!
LRVT	BEGIN*, END!
LRWLSAVE	END+2!
LRWRD	END+2!
LRWRDVEW	END+2!
LRYRL	END+2!, BUILD+3*, BUILD+4
PNM	END+2!, LIS1+1, OK+3
POP	END+2!
SEX	END+2!
SSN	END+2!
U	ACCESS, LIS1+1, BUILD+2, OK, OK+3, FINAL
X	BEGIN, END+2!, BUILD+1
Y	BEGIN, END+2!, BUILD, BUILD+1, BUILD+2*

Information

Name	Comments	DBIA/ICR reference
BEGIN
END
LIS1	;S LRAN=0 F I=0:0 S LRAN=+$O(^LRO(68,"AVS",LRAA,LRAD,LRAN)) Q:LRAN<1 S LRDFN=+^(LRAN),LRDPF=$P(^LR(LRDFN,0),U,2),DFN=$P(^(0),U,3) D PT^LRX W !,$J(LRAN,6),?8,PNM,?35," ",SSN
LIST
AC
ACCESS
AC1
BUILD
ASK	;F I=0:0 W !,"Use previous list" S %=2 D YN^DICN Q:% W !,"Answer 'Y'es or 'N'o"
OK
FINAL