Routine: BLRLB400

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
Order Entry Results Reporting	2	TEXT^ORQ12 ($$DATE,$$NAME)^ORU

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRLBOE

Entry Points

Name	Comments	DBIA/ICR reference
OUT()	; EP
TEST	;
AUTOSIZE	;
OPEN(OFX)	;EP
GETTST(Y)	;API TO RETURN TESTNAME

External References

Name	Field # of Occurrence
^%ZIS	AUTOSIZE+1
^%ZISC	AUTOSIZE+5
TEXT^ORQ12	GETTST+2
$$DATE^ORU	OUT+7
$$NAME^ORU	OUT+4, OUT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "^A22^D45",$C(13) Line Location: OPEN+2
Function Call: WRITE	Prompt: "^A49^D91",$C(13) Line Location: OPEN+3
Function Call: WRITE	Prompt: "^AB00000000^D23",$C(13) Line Location: OPEN+4
Function Call: WRITE	Prompt: "^AB00000000^D24",$C(13) Line Location: OPEN+5
Function Call: WRITE	Prompt: "^AB10001011^D21",$C(13) Line Location: OPEN+6
Function Call: WRITE	Prompt: "^AB00000000^D22",$C(13) Line Location: OPEN+7
Function Call: WRITE	Prompt: "^A3^D97",$C(13) Line Location: OPEN+8
Function Call: WRITE	Prompt: "^A85^D95",$C(13) Line Location: OPEN+9
Function Call: WRITE	Prompt: "^A0^D39",$C(13) Line Location: OPEN+10
Function Call: WRITE	Prompt: "^D57",$C(13) Line Location: OPEN+11
Function Call: WRITE	Prompt: "15,660,203,,,30,0,10,1,"_+$G(OFX),$C(13) Line Location: OPEN+12
Function Call: WRITE	Prompt: "1,17,165,28,1,1",$C(13) Line Location: OPEN+13
Function Call: WRITE	Prompt: "2,300,165,14,1,1",$C(13) Line Location: OPEN+14
Function Call: WRITE	Prompt: "3,17,137,9,1,2",$C(13) Line Location: OPEN+15
Function Call: WRITE	Prompt: "4,185,137,10,1,2",$C(13) Line Location: OPEN+16
Function Call: WRITE	Prompt: "5,317,137,1,1,2",$C(13) Line Location: OPEN+17
Function Call: WRITE	Prompt: "6,17,117,25,1,1",$C(13) Line Location: OPEN+18
Function Call: WRITE	Prompt: "7,17,95,24,1,1",$C(13) Line Location: OPEN+19
Function Call: WRITE	Prompt: "8,285,95,15,1,1",$C(13) Line Location: OPEN+20
Function Call: WRITE	Prompt: "9,17,70,8,1,1",$C(13) Line Location: OPEN+21
Function Call: WRITE	Prompt: "10,130,70,24,1,1",$C(13) Line Location: OPEN+22
Function Call: WRITE	Prompt: "11,17,46,18,1,1",$C(13) Line Location: OPEN+23
Function Call: WRITE	Prompt: "12,210,46,19,1,1",$C(13) Line Location: OPEN+24
Function Call: WRITE	Prompt: "13,17,25,38,1,1",$C(13) Line Location: OPEN+25
Function Call: WRITE	Prompt: "14,250,2,14,1,2",$C(13) Line Location: OPEN+26
Function Call: WRITE	Prompt: "15,22,2,14,40,3,,,2,20",$C(13) Line Location: OPEN+27
Function Call: WRITE	Prompt: "^D56",$C(13) Line Location: OPEN+28
Function Call: WRITE	Prompt: "^D2",$C(13) Line Location: OUT+3
Function Call: WRITE	Prompt: $$NAME^ORU($G(ORPNAME),""),$C(13) Line Location: OUT+4
Function Call: WRITE	Prompt: "LB#:"_$G(ORPLB),$C(13) Line Location: OUT+5
Function Call: WRITE	Prompt: $G(HRCN),$C(13) Line Location: OUT+6
Function Call: WRITE	Prompt: $$DATE^ORU($G(ORPDOB),"MM/DD/CCYY HR:MIN"),$C(13) Line Location: OUT+7
Function Call: WRITE	Prompt: $G(ORPSEX),$C(13) Line Location: OUT+8
Function Call: WRITE	Prompt: "PHY:"_$$NAME^ORU($G(ORPRPHY),""),$C(13) Line Location: OUT+9
Function Call: WRITE	Prompt: "LOC:"_$G(ORPLOC),$C(13) Line Location: OUT+10
Function Call: WRITE	Prompt: $G(ORPRMBED),$C(13) Line Location: OUT+11
Function Call: WRITE	Prompt: $G(ORPURG),$C(13) Line Location: OUT+12
Function Call: WRITE	Prompt: "Drawn By:_______________",$C(13) Line Location: OUT+13
Function Call: WRITE	Prompt: "CDT:______________",$C(13) Line Location: OUT+14
Function Call: WRITE	Prompt: $G(ORPCOT),$C(13) Line Location: OUT+15
Function Call: WRITE	Prompt: $G(TST),$C(13) Line Location: OUT+19
Function Call: WRITE	Prompt: "LB#:"_$G(ORPLB),$C(13) Line Location: OUT+20
Function Call: WRITE	Prompt: $S($G(ORPLB):ORPLB,1:""),$C(13) Line Location: OUT+21
Function Call: WRITE	Prompt: "^D3",$C(13) Line Location: OUT+22
Function Call: WRITE	Prompt: "^D2",$C(13) Line Location: TEST+2
Function Call: WRITE	Prompt: "TEST,PATIENT WITH LONG NAME",$C(13) Line Location: TEST+3
Function Call: WRITE	Prompt: "LB#:3392829",$C(13) Line Location: TEST+4
Function Call: WRITE	Prompt: 449302,$C(13) Line Location: TEST+5
Function Call: WRITE	Prompt: "01/12/2005",$C(13) Line Location: TEST+6
Function Call: WRITE	Prompt: "M",$C(13) Line Location: TEST+7
Function Call: WRITE	Prompt: "Phy:SMITH,PHYSICIAN NAMED",$C(13) Line Location: TEST+8
Function Call: WRITE	Prompt: "Loc:EMERGENCY ROOM 2ND FLOOR ROOM 103",$C(13) Line Location: TEST+9
Function Call: WRITE	Prompt: "R/B: A201-1",$C(13) Line Location: TEST+10
Function Call: WRITE	Prompt: "ROUTINE",$C(13) Line Location: TEST+11
Function Call: WRITE	Prompt: "Drawn By:_______________",$C(13) Line Location: TEST+12
Function Call: WRITE	Prompt: "CDT:______________",$C(13) Line Location: TEST+13
Function Call: WRITE	Prompt: "TUBE TOP IS MARBLE",$C(13) Line Location: TEST+14
Function Call: WRITE	Prompt: "HEPATITIS B SURFACE ANTIGEN",$C(13) Line Location: TEST+15
Function Call: WRITE	Prompt: "LB#:3392829",$C(13) Line Location: TEST+16
Function Call: WRITE	Prompt: "3392829",$C(13) Line Location: TEST+17
Function Call: WRITE	Prompt: "^D3",$C(13) Line Location: TEST+18
Function Call: WRITE	Prompt: "^A1^D39",$C(13) Line Location: AUTOSIZE+4
Routine Call	%ZIS Line Location: AUTOSIZE+1

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	GETTST+2
^TMP("ORP:"	GETTST+2*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> HRCN	OUT+6
IO	OPEN+1, OUT+2, TEST+1, AUTOSIZE+3
>> OACTION	GETTST+2
OFX	OPEN~, OPEN+12
>> ORIFN	GETTST+2
>> OROOT2	GETTST+2*
>> ORPCOT	OUT+15
ORPDAD	GETTST+1~, GETTST+2*
>> ORPDOB	OUT+7
>> ORPLB	OUT+5, OUT+20, OUT+21
>> ORPLOC	OUT+10
>> ORPNAME	OUT+4
>> ORPRMBED	OUT+11
>> ORPRPHY	OUT+9
>> ORPSEX	OUT+8
>> ORPURG	OUT+12
ORZTST	OUT+1~, OUT+16
ORZTST(1	OUT+17
>> POP	AUTOSIZE+2
SCNT	OUT+1~
TST	OUT+1~, OUT+17, OUT+18, OUT+19
Y	GETTST~, GETTST+2

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLB400

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: