Routine: BLRSHDRP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	EN^DDIOL $$GET1^DIQ ^DIR
IHS VA Utilities	2	^XBCLS ^XBFMK
IHS Changes To Lab	1	(MAKEHDRS,SETHDRVS)^BLRSHDRC

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRSHDRC

Name	Comments	DBIA/ICR reference
FOOTER	;
RLOOP2
PEP	; EP
RLOOP1
PRTIT	;
RHEAD
LP	;
PRESSRTN	; EP
EP	;

Name	Field # of Occurrence
^%ZIS	PEP+13
^%ZISC	PEP+21, PEP+36, LP+26
^%ZTLOAD	PEP+33
MAKEHDRS^BLRSHDRC	LP+3
SETHDRVS^BLRSHDRC	LP+2
EN^DDIOL	PEP+10
$$GET1^DIQ	LP+14, PRTIT+13, PRTIT+22
^DIR	PRESSRTN+4
^XBCLS	PEP+9
^XBFMK	PRESSRTN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),$C(7),! Line Location: EP+1
Function Call: WRITE	Prompt: "Run from Label ONLY",!! Line Location: EP+2
Function Call: WRITE	Prompt: @IOF,"NO DATA TO REPORT",!! Line Location: PEP+5
Function Call: WRITE	Prompt: !,7,7,*7,"Device Open failed with Abnormal Exit." Line Location: PEP+16
Function Call: WRITE	Prompt: !,?5,"Printing terminated.",!! Line Location: PEP+17
Function Call: WRITE	Prompt: !,7,7,*7,"Right Margin MUST BE 132." Line Location: PEP+22
Function Call: WRITE	Prompt: ?5,"Device's Right Margin = ",IOM,!! Line Location: PEP+23
Function Call: WRITE	Prompt: !,?5,"Printing terminated.",!! Line Location: PEP+24
Function Call: WRITE	Prompt: !!,"End of Queued Report",!! Line Location: PEP+35
Function Call: WRITE	Prompt: @IOF Line Location: LP+16
Function Call: WRITE	Prompt: @IOF Line Location: LP+22
Function Call: WRITE	Prompt: @IOF Line Location: RLOOP1+1
Function Call: WRITE	Prompt: !,"Reporting Test: "_DWBUG,! Line Location: RLOOP1+1
Function Call: WRITE	Prompt: @IOF Line Location: PRTIT+4
Function Call: WRITE	Prompt: !!,$E($P(Y,U,1),1,28) Line Location: PRTIT+6
Function Call: WRITE	Prompt: ?30,$P(Y,U,2) Line Location: PRTIT+7
Function Call: WRITE	Prompt: ?40,$P(Y,U,3) Line Location: PRTIT+8
Function Call: WRITE	Prompt: ?54,$E($P(Y,U,4),1,1) Line Location: PRTIT+9
Function Call: WRITE	Prompt: ?58,$P(Y1,U,6) Line Location: PRTIT+10
Function Call: WRITE	Prompt: ?74,$E(SPEC,1,12) Line Location: PRTIT+14
Function Call: WRITE	Prompt: ?88,$E(COLDT,4,5)_"/"_$E(COLDT,6,7)_"/"_$E(COLDT,2,3) Line Location: PRTIT+17
Function Call: WRITE	Prompt: ?98,$E(VERDT,4,5)_"/"_$E(VERDT,6,7)_"/"_$E(VERDT,2,3) Line Location: PRTIT+20
Function Call: WRITE	Prompt: ?108,$E(PROV,1,23) Line Location: PRTIT+23
Function Call: WRITE	Prompt: !,?5,$P(Y,U,5) Line Location: PRTIT+25
Function Call: WRITE	Prompt: ?30,$P(Y,U,6) Line Location: PRTIT+26
Function Call: WRITE	Prompt: ?64,$P(Y,U,7) Line Location: PRTIT+27
Function Call: WRITE	Prompt: ?84,$P(Y,U,8) Line Location: PRTIT+28
Function Call: WRITE	Prompt: ?98,$P(Y,U,9) Line Location: PRTIT+29
Function Call: WRITE	Prompt: ?108,$E($P(Y1,U,11),1,23) Line Location: PRTIT+30
Function Call: WRITE	Prompt: !,?5,"Result: ",$P(Y,U,11) Line Location: PRTIT+32
Function Call: WRITE	Prompt: !?5,"Current COMMUNITY: " Line Location: PRTIT+36
Function Call: WRITE	Prompt: $P(Y,U,10) Line Location: PRTIT+37
Function Call: WRITE	Prompt: @IOF Line Location: PRTIT+40
Function Call: WRITE	Prompt: ! Line Location: RHEAD+1
Function Call: WRITE	Prompt: HEADER1 Line Location: RHEAD+2
Function Call: WRITE	Prompt: ! Line Location: RHEAD+3
Function Call: WRITE	Prompt: HEADER2 Line Location: RHEAD+4
Function Call: WRITE	Prompt: ! Line Location: RHEAD+5
Function Call: WRITE	Prompt: "From "_PSDT_" to "_PEDT Line Location: RHEAD+6
Function Call: WRITE	Prompt: ?53,"**** CONFIDENTIAL ****" Line Location: RHEAD+7
Function Call: WRITE	Prompt: ?98,"Printed: "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3) Line Location: RHEAD+8
Function Call: WRITE	Prompt: ?120,"Page: "_PG Line Location: RHEAD+9
Function Call: WRITE	Prompt: !! Line Location: RHEAD+10
Function Call: WRITE	Prompt: "Name" Line Location: RHEAD+11
Function Call: WRITE	Prompt: ?30,"ID#" Line Location: RHEAD+12
Function Call: WRITE	Prompt: ?40,"DOB" Line Location: RHEAD+13
Function Call: WRITE	Prompt: ?54,"Sex" Line Location: RHEAD+14
Function Call: WRITE	Prompt: ?58,"Lab #" Line Location: RHEAD+15
Function Call: WRITE	Prompt: ?74,"Sample" Line Location: RHEAD+16
Function Call: WRITE	Prompt: ?88,"Col Dt" Line Location: RHEAD+17
Function Call: WRITE	Prompt: ?98,"Cpl Dt" Line Location: RHEAD+18
Function Call: WRITE	Prompt: ?108,"Provider" Line Location: RHEAD+19
Function Call: WRITE	Prompt: ! Line Location: RHEAD+20
Function Call: WRITE	Prompt: ?5,"Phone #" Line Location: RHEAD+21
Function Call: WRITE	Prompt: ?30,"Address" Line Location: RHEAD+22
Function Call: WRITE	Prompt: ?108,"Location" Line Location: RHEAD+23
Function Call: WRITE	Prompt: ! Line Location: RHEAD+30
Function Call: WRITE	Prompt: ?LI,"-" Line Location: RHEAD+30
Function Call: WRITE	Prompt: ! Line Location: RHEAD+31
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","-") Line Location: RHEAD+32
Function Call: WRITE	Prompt: ! Line Location: RHEAD+33
Function Call: WRITE	Prompt: !,"Reporting Test: "_BLRTST Line Location: RHEAD+37
Function Call: WRITE	Prompt: !,"Reporting Test: "_$G(^TMP($J,BLRTP)) Line Location: RHEAD+40
Function Call: WRITE	Prompt: ! Line Location: FOOTER+1
Function Call: WRITE	Prompt: !,"________________________________________ ______________________" Line Location: FOOTER+2
Function Call: WRITE	Prompt: !," Medical Technologist Date",! Line Location: FOOTER+3
Routine Call	DIR Line Location: PRESSRTN+4
Routine Call	%ZIS Line Location: PEP+13

FileNo	Call Tags
63.04	GET1^DIQ
^BLRSHDRD - [#90475]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	PRTIT+2
^TMP($J	PEP+4, LP+2, LP+12, LP+19, LP+21, PRTIT+1, RHEAD+40
^UTILITY("CH"	RLOOP1+2, RLOOP2

Name	Line Occurrences
FOOTER	LP+15, LP+22, RLOOP1, PRTIT+4, PRTIT+40
PRESSRTN	PEP+7, PEP+18, PEP+25
PRTIT	LP+21, RLOOP2
RHEAD	LP+17, RLOOP1+1, PRTIT+4, PRTIT+40
RLOOP2	RLOOP1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PEP+12*
>> BLRENDT	LP+8
>> BLRGR	RHEAD+26
BLRQUFLG	PEP+2~, PEP+28*, LP+1
>> BLRSDT	LP+9
>> BLRTP	LP+11, LP+12, LP+13, LP+19, LP+21, PRTIT+1, RHEAD+40
>> BLRTST	LP+14*, RHEAD+36, RHEAD+37
>> BRLTST	RHEAD+39
>> COLDT	PRTIT+16*, PRTIT+17
>> DIR("A"	PRESSRTN+3*
>> DIR(0	PRESSRTN+2*
DT	RHEAD+8
>> DWBUG	RLOOP1+2, RLOOP2
>> FOOTFLG	LP+10, LP+15, RLOOP1, RHEAD+35
>> HEADER1	RHEAD+2
>> HEADER2	RHEAD+4
>> HEADERS	PEP+10
>> IENS	LP+13, LP+14, PRTIT+12, PRTIT+13, PRTIT+22
>> II	RLOOP1+2*
>> III	RLOOP2*
IO	LP+6
IO("Q"	PEP+27, PEP+34!
IOF	PEP+5, LP+16, LP+22, RLOOP1+1, PRTIT+4, PRTIT+40
IOM	PEP+20, PEP+23, RHEAD+32
IOSL	LP+5
>> LRDFN	LP+18, LP+19, LP+21, PRTIT+1, PRTIT+2, PRTIT+12
>> LRIDT	LP+20, LP+21, PRTIT+1, PRTIT+2, PRTIT+12
MAXPGLEN	PEP+1~, LP+5*, PRTIT+4, PRTIT+40, FOOTER+1
>> PEDT	LP+8*, RHEAD+6
>> PG	LP+10, LP+16, RHEAD+9, RHEAD+34
>> PLG	FOOTER+1*
>> POP	PEP+15
>> PP	FOOTER+1*
>> PROV	PRTIT+22*, PRTIT+23
>> PSDT	LP+9*, RHEAD+6
>> QUEFLAG	LP+24
>> RACC	RLOOP2*
>> RPNM	RLOOP1+2*, RLOOP2
>> SPEC	PRTIT+13*, PRTIT+14
U	PRTIT+6, PRTIT+7, PRTIT+8, PRTIT+9, PRTIT+10, PRTIT+16, PRTIT+19, PRTIT+25, PRTIT+26, PRTIT+27 , PRTIT+28, PRTIT+29, PRTIT+30, PRTIT+32, PRTIT+37
>> VERDT	PRTIT+19*, PRTIT+20
>> X	PRESSRTN+2*
>> Y	PRTIT+1, PRTIT+6, PRTIT+7, PRTIT+8, PRTIT+9, PRTIT+25, PRTIT+26, PRTIT+27, PRTIT+28, PRTIT+29 , PRTIT+32, PRTIT+37, PRESSRTN+2
>> Y1	PRTIT+2*, PRTIT+10, PRTIT+16, PRTIT+19, PRTIT+30
ZTDESC	PEP+32*, PEP+34!
ZTRTN	PEP+29*, PEP+34!
ZTSAVE	PEP+34!
ZTSAVE("BLR*"	PEP+30*
ZTSAVE("^TMP($J,"	PEP+31*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSHDRP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: