Routine: BLRSHDRC

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL ^DIC WAIT^DICD $$GET1^DIQ ^DIR
Kernel	3	HOME^%ZIS ($$DT,$$FMADD,$$NOW)^XLFDT ($$CJ,$$TRIM)^XLFSTR
IHS Changes To Lab	2	(PEP,PRESSRTN)^BLRSHDRP ($$NUMDATE,$$NUMTIME)^BLRUTIL
IHS VA Utilities	2	^XBCLS ^XBFMK
IHS Patient	1	($$COMMRES,$$HRN)^AUPNPAT

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRSHDRP

Entry Points

Name	Comments	DBIA/ICR reference
GETDUZS	;
MAKEHDRS	; EP
PEP
GETEND	;
SETHDRVS(DIC4PTR)
LP	;Start looping through tests ; BLRVDT is both the verification date and the order date ; In effect we only look at the verification date
GETSITE
MAKESITE	;
EP	;
STORE	;Store data for printing

External References

Name	Field # of Occurrence
HOME^%ZIS	PEP+4
$$COMMRES^AUPNPAT	STORE+33, STORE+34
$$HRN^AUPNPAT	STORE+22
PEP^BLRSHDRP	LP+93
PRESSRTN^BLRSHDRP	LP+98
$$NUMDATE^BLRUTIL	MAKEHDRS+13
$$NUMTIME^BLRUTIL	MAKEHDRS+14
EN^DDIOL	PEP+11, GETEND+11, LP+96
^DIC	MAKESITE+16
WAIT^DICD	GETEND+12
$$GET1^DIQ	STORE+12, STORE+13, STORE+31, STORE+32, SETHDRVS+1, SETHDRVS+3, SETHDRVS+4, SETHDRVS+6, SETHDRVS+7, SETHDRVS+10 , SETHDRVS+11
^DIR	PEP+16, GETEND+3, MAKESITE+8
^XBCLS	PEP+10, GETEND+10, LP+102
^XBFMK	PEP+13, MAKESITE+2, MAKESITE+12
$$DT^XLFDT	MAKEHDRS+13
$$FMADD^XLFDT	LP+12
$$NOW^XLFDT	MAKEHDRS+14
$$CJ^XLFSTR	MAKEHDRS+2, MAKEHDRS+6, MAKEHDRS+12, MAKEHDRS+19
$$TRIM^XLFSTR	MAKEHDRS+15, MAKEHDRS+21

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: !,"End date cannot be before start date. Try again." Line Location: GETEND+8
Function Call: WRITE	Prompt: !!!,"Number of pages printed = ",PG-1,! Line Location: LP+97
Function Call: WRITE	Prompt: !!! Line Location: MAKESITE+1
Routine Call	%ZIS Line Location: PEP+4
Routine Call	DIC Line Location: MAKESITE+16
Routine Call	DIR Line Location: PEP+16 GETEND+3 MAKESITE+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	STORE+38
^AUTTCOM("B"	STORE+41
^BLRGRHR("B"	STORE+42
^BLRSHDRD - [#90475]	LP+24, LP+25, LP+49, LP+58, LP+61, LP+77, LP+78, LP+84, LP+85, LP+89 , STORE+44
^DPT - [#2]	STORE+9, STORE+25
^LAB(60 - [#60]	LP+27, LP+28, LP+30, LP+33, LP+45, STORE+45
^LR - [#63]	LP+15, LP+19, LP+39, LP+44, STORE+4, STORE+6
^LRO(69 - [#69]	LP+5, LP+7, LP+9, LP+14
^LRT(67 - [#67]	STORE+9, STORE+18
^TMP($J	PEP+6!, LP+100!, STORE+44, STORE+45, STORE+46, SETHDRVS+13

Label References

Name	Line Occurrences
GETDUZS	MAKESITE+3
GETEND	GETEND+7
GETSITE	PEP+8
MAKEHDRS	GETSITE+4
MAKESITE	GETSITE+2
SETHDRVS	MAKESITE+19, MAKESITE+21, GETDUZS+1
STORE	LP+64, LP+79, LP+91

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRCMIN	STORE+1!, STORE+20, STORE+34, STORE+35, STORE+41*, STORE+42, STORE+43
BLRCOMM	STORE+1!, STORE+20, STORE+33, STORE+40, STORE+41, STORE+46
>> BLRDLOC	LP+33*, LP+34, LP+39, LP+44
>> BLRENDT	GETEND+6*, GETEND+7, LP+5
>> BLRFILE	STORE+4*, STORE+9, STORE+12, STORE+13, STORE+14, STORE+15, STORE+21
>> BLRFLD	LP+45*, LP+68
>> BLRGR	STORE+42, STORE+43
>> BLRRAWRS	LP+47, LP+70, LP+71, LP+72, LP+73, LP+74, LP+75*, STORE+46
>> BLRRES	LP+44, LP+47, LP+51, LP+55, LP+62, LP+63, LP+64, LP+79, LP+82*, LP+91
BLRSDT	PEP+20*, GETEND+5!
>> BLRSTNFR	LP+68*, LP+69
>> BLRTPTR	LP+25*, LP+27, LP+28, LP+30, LP+33, LP+45, STORE+45
>> BLRTYPE	LP+26, LP+30, LP+31, LP+57, LP+66, LP+81
BLRVDT	PEP+21, GETEND+5!, GETEND+7, LP+5, LP+7, LP+9, LP+10, LP+12, LP+14, LP+21
>> BLRVERN	MAKEHDRS+18*, MAKEHDRS+20
>> BLRXCOMM	STORE+38*
>> CITY	STORE+20, STORE+28, STORE+46
>> COND	LP+58, LP+59, LP+60, LP+64, LP+85, LP+86, LP+87, LP+91
>> D0	LP+23, LP+24, LP+25, LP+49, LP+58, LP+61, LP+77, LP+78, LP+84, LP+85 , LP+89, STORE+44, STORE+45, STORE+46
>> D1	LP+76, LP+77, LP+78, LP+83, LP+84, LP+85, LP+89
>> DFN	STORE+6*, STORE+9, STORE+11, STORE+18, STORE+22, STORE+25, STORE+30, STORE+33, STORE+34, STORE+38
>> DIC	MAKESITE+13*
>> DIC("B"	MAKESITE+15*
>> DIC(0	MAKESITE+14*
DIC4PTR	SETHDRVS~, SETHDRVS+1, SETHDRVS+3, SETHDRVS+4, SETHDRVS+6, SETHDRVS+7, SETHDRVS+10, SETHDRVS+11, SETHDRVS+13
DIR	PEP+18!, GETEND+5!, MAKESITE+18!
DIR("A"	PEP+14, GETEND+1, MAKESITE+5, GETDUZS+3, GETDUZS+4, GETDUZS+5, GETDUZS+6, GETDUZS+7, GETDUZS+8*
DIR("B"	MAKESITE+6*
DIR(0	PEP+15, GETEND+2, MAKESITE+7*
DIRUT	PEP+17, PEP+18!, GETEND+4, GETEND+5!, MAKESITE+17, MAKESITE+18!
>> DOB	STORE+13*, STORE+46
DTOUT	PEP+18!, GETEND+5!, MAKESITE+18!
DUOUT	PEP+18!, GETEND+5!, MAKESITE+18!
DUZ(2	STORE+22, MAKESITE+19, GETDUZS+1
HEADER1	PEP+1~, MAKEHDRS+4*
HEADER2	PEP+1~, MAKEHDRS+6, MAKEHDRS+7
HEADERS	PEP+1~, PEP+11, GETEND+11, LP+96
HEADERS(1	MAKEHDRS+16*
HEADERS(2	MAKEHDRS+22*
HEADERS(3	MAKEHDRS+24*
HEADERS(4	MAKEHDRS+25*
>> I	LP+69*
>> ID	STORE+18, STORE+22, STORE+46
>> IENS	STORE+11, STORE+12, STORE+13, STORE+30, STORE+31, STORE+32
IO("Q"	LP+98
IOM	PEP+4, MAKEHDRS+12, MAKEHDRS+14, MAKEHDRS+19, MAKEHDRS+20, MAKEHDRS+24
>> LOC	LP+6, LP+7, LP+9, LP+14
>> LRDFN	LP+8, LP+9, LP+14, LP+15, LP+19, LP+39, LP+44, STORE+4, STORE+6, STORE+46
>> LRIDT	LP+10, LP+14, LP+15, LP+19, LP+39, LP+44, STORE+46
>> LRIDTLM	LP+13*, LP+14
>> PATNAM	STORE+9*, STORE+46
>> PG	LP+97
>> PHONE	STORE+20, STORE+32, STORE+46
>> SEX	STORE+12*, STORE+46
SITEADDR	PEP+2~, MAKEHDRS+6, GETDUZS+6, SETHDRVS+6, SETHDRVS+8
SITECITY	PEP+2~, MAKEHDRS+6, GETDUZS+7, SETHDRVS+10*
SITENAME	PEP+2~, MAKEHDRS+2, MAKEHDRS+12, MAKESITE+5, MAKESITE+15, GETDUZS+5, SETHDRVS+1*
SITESTAB	PEP+2~, MAKEHDRS+3, MAKEHDRS+6, MAKEHDRS+19, GETDUZS+7, SETHDRVS+3*
SITESTNM	PEP+2~, SETHDRVS+4*
SITESTPT	PEP+2~
SITEZIP	PEP+2~, MAKEHDRS+6, GETDUZS+7, SETHDRVS+11*
>> STATE	STORE+20, STORE+31, STORE+46
STR	PEP+2~, MAKEHDRS+2, MAKEHDRS+3, MAKEHDRS+4, SETHDRVS+7*, SETHDRVS+8
>> STREET	STORE+20, STORE+27, STORE+46
TMPIT	LP+3~, LP+28*, LP+29
TMPLN	MAKEHDRS+10~, MAKEHDRS+12, MAKEHDRS+13, MAKEHDRS+14, MAKEHDRS+15, MAKEHDRS+16, MAKEHDRS+19, MAKEHDRS+20, MAKEHDRS+21*, MAKEHDRS+22
>> TRANS	LP+49*, LP+50, LP+53
U	LP+19, LP+25, LP+27, LP+28, LP+30, LP+33, LP+44, LP+45, LP+58, LP+61 , LP+68, LP+78, LP+85, LP+89, STORE+4, STORE+6, STORE+9, STORE+18, STORE+27, STORE+28 , STORE+29, STORE+38, STORE+44, STORE+45, STORE+46
>> VALUE	LP+61, LP+64, LP+78, LP+79, LP+89, LP+90, LP+91
X	LP+12, LP+13, LP+19, LP+21, LP+52!, LP+54, LP+55, MAKESITE+9
>> Y	PEP+20, PEP+21, GETEND+6, LP+51, LP+69, LP+70, LP+71, LP+72, LP+73, LP+74 , LP+75, STORE+25*, STORE+27, STORE+28, STORE+29, MAKESITE+21
>> ZIP	STORE+20, STORE+29, STORE+46

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSHDRC

Information

Source Information

Call Graph

Call Graph Total: 13

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: