Routine: LR52IHS

Package	Total	Call Graph
Kernel	2	^%ZISC ^%ZTLOAD
Lab Service	2	($$PROV,HEAD)^LR52CNV0 $$NOW^LR52CNV1

Entry Points

Name	Comments	DBIA/ICR reference
WRITE	;
EN	;
END
REQUE	; reque task to print out exceptions
A1	; subscript (6) Change PROVIDER NUMBER field 6.6
EN1	;
A2	; Change PROVIDER NUMBER field .08, subfile 65.02 ; sub file of the PATIENT XMATCHED/ASSIGNED subfile
OUT	;
REENT	; re-entry for reque if LRIO is busy from above

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRPRV Line Location: A2+4
Function Call: WRITE	Prompt: !,$$PROV^LR52CNV0("6.6",LRPRV,.LRSB) Line Location: A1+1
Function Call: WRITE	Prompt: !!?(IOM-$L("** none found "))\2," NONE FOUND **" Line Location: REENT+3
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!!,"The value ("_+LRVL_") """_$P(LRVL,U,2)_""",",!,"in field "_LRTIT_", could not be repointed.",!,"This occurred in:",LRD0,!,"The BLOOD SAMPLE DATE/TIME: subfile of",?54,"entry: "_$P(LRD2(0),U) Line Location: WRITE+6
Function Call: WRITE	Prompt: !,"The PATIENT XMATCHED/ASSIGNED: subfile of",?54,"entry: "_$P(LRD1(0),U) Line Location: WRITE+7
Function Call: WRITE	Prompt: !,"The BLOOD INVENTORY FILE:",?54,"entry: "_$P(LRD0(0),U) Line Location: WRITE+8

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB - [#9000010.09]	EN1+3
^DD(9000010.09	EN+5
^LRD(65 - [#65]	EN1+3, A2+4, A1+2*, WRITE+4
^XTMP("LR52"	EN+5, EN1+1, EN1+2, EN1+3, REENT+3, REENT+4, WRITE+1
^XTMP("LR52TIME"	EN1+2, EN1+4

Name	Field # of Occurrence
D0	EN+2~, EN1+2, EN1+3, A2+4, A1+2
D1	EN+2~, EN1+3*, A2+4
D2	EN+2~, EN1+3*, A2+4
IOF	END
IOM	REENT+3
IOSL	WRITE+5
LRD0	REENT+4*, END!, WRITE+1, WRITE+4, WRITE+6
LRD0(0	WRITE+4*, WRITE+8
LRD1	REENT+4*, END!, WRITE+1, WRITE+4
LRD1(0	WRITE+4*, WRITE+7
LRD2	REENT+4*, END!, WRITE+1, WRITE+4
LRD2(0	WRITE+4*, WRITE+6
LRFILE	EN+2~, EN+3*, EN+5, EN1+1, EN1+2, EN1+3, EN1+4, REENT+2, REENT+3, REENT+4 , END!, WRITE+1, WRITE+3, WRITE+5
LRFLD	EN+2~, END!, WRITE+1*, WRITE+2, WRITE+3
>> LRIO	OUT+1, REQUE+1
>> LRPRV	A2+4, A1+2
>> LRSB	A2+4, A1+2
>> LRSB(0	A2+3*
>> LRSB(1	A2+3*
LRTIT	END!, WRITE+2, WRITE+3, WRITE+6
LRTSK	EN+2~, EN+3*, END!
LRVL	END!, WRITE+1*, WRITE+6
U	EN1+4, A2+4, A1+2, WRITE+2, WRITE+3, WRITE+6, WRITE+7, WRITE+8
>> ZTDESC	REQUE+1*
>> ZTDTH	REQUE+1*
>> ZTIO	REQUE+1*
>> ZTQUEUED	EN+1
>> ZTRTN	REQUE+1*
>> ZTSAVE("LRFILE"	REQUE+2*
>> ZTSAVE("LRTSK"	REQUE+2*
ZTSK	EN+3, END!