Routine: BLRRLV

Information

BLRRLV ; cmi/anch/maw - BLR Verify Reference Lab Results ;

Source file <BLRRLV.m>

Package	Total	Call Graph
VA Fileman	4	^DIE ^DIK $$GET1^DIQ ^DIR
IHS Changes To Lab	3	^BLREVTQ DIQ^BLRLM JOB^BLRPARAM
IHS VA Utilities	1	EN^XBVK

Name	Comments	DBIA/ICR reference
VER()	; EP -- verify individual results
RMV(DA)	;-- remove the entry from the tx log
EOJ	;-- kill variables
UPD(DA)	;-- mark entry as verified
ASKV()	;-- ask to mark all as verified
MAIN	;EP - this is the main routine driver
XREF(XIEN)
LOOP	;-- loop the xref and call VER
RFL	;-- mark all as verified and refile

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No results to verify" Line Location: LOOP+2
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+6
Function Call: WRITE	Prompt: !!,"No more results to verify" Line Location: LOOP+10
Function Call: WRITE	Prompt: !!,"Please come back and verify remaining results" Line Location: LOOP+12
Function Call: WRITE	Prompt: !,"Now marking all results as verified" Line Location: RFL+1
Function Call: WRITE	Prompt: "." Line Location: RFL+3
Routine Call	DIE Line Location: UPD+3 RFL+7
Routine Call	DIR Line Location: ASKV+3 VER+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^BLRTXLOG - [#9009022]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	XREF+3, XREF+5
^BLRSITE - [#9009029]	XREF+1
^BLRTXLOG("BVER"	LOOP+1, LOOP+4, LOOP+9, LOOP+11, UPD+4!, RMV+2!, RFL+2, RFL+8!, XREF+7*

Name	Field # of Occurrence
>> BLRHLD	XREF+3*, XREF+4
>> BLRRL	XREF+1*, XREF+2, XREF+3, XREF+5
>> BLRUNI	XREF+5*, XREF+6
>> BLRVDA	LOOP+4, LOOP+7, UPD+4, UPD+5, RFL+2, RFL+4, RFL+8, RFL+9
>> BLRVER	MAIN+1*, MAIN+2
>> BLRVQ	LOOP+4, LOOP+5
DA	LOOP+7, LOOP+8, UPD~, RMV~, RMV+2, RFL+4, XREF+7
>> DIC	LOOP+3*, LOOP+8
>> DIE	UPD+1, RFL+5
>> DIK	RMV+1*
DIR	ASKV+4!, VER+3!
DIR("A"	ASKV+1, VER+1
DIR("B"	ASKV+2*
DIR(0	ASKV+1, VER+1
>> DR	UPD+2, RFL+6
DUZ	UPD+2, RFL+6
DUZ(2	XREF+1
IOF	LOOP+6
U	XREF+1, XREF+3, XREF+5
XIEN	XREF~
>> Y	ASKV+5, VER+4