Routine: BLRUTIL4

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS Changes To Lab	4	(LINEWRAP,PRESSKEY)^BLRGMENU OKAY^BLRKIDSU ENTRYAUD^BLRUTIL $$GETACCCP^BLRUTIL3
VA Fileman	4	($$FIND1,FIND)^DIC UPDATE^DIE $$GET1^DIQ ^DIR
Kernel	3	($$FMTE,$$HTFM,$$NOW)^XLFDT $$UP^XLFSTR ($$PATCH,$$VERSION,BMES,MES)^XPDUTL
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
Lab Service	34	LRAPDA LRAPDSR LRAPM LRAPMRL LRAPRES LRBEBA LRBEBA2 LRBEBA3 LRBEBA31 LRBEBAO LRCAPDAR LRCAPES LRCAPES1 LRCAPPH1 LRMIEDZ LRMIEDZ2 LRMINEW1 LRMISTF1 LRMIV LRMIV1 LRMIV2 LRMIVER1 LRPX LRPXAPI LRPXAPI1 LRPXAPI3 LRPXAPI4 LRPXAPI5 LRPXAPP LRPXCHK LRPXRM LRPXSXRA LRPXSXRB LRPXSXRL
IHS Changes To Lab	4	BLR35PST BLRCCPED BLRLRRP1 BLRSHPM
Automated Lab Instruments	1	LA7UID2

Package

Total

Caller Graph

Lab Service

LRAPDA  LRAPDSR  LRAPM  LRAPMRL  LRAPRES  LRBEBA  LRBEBA2  LRBEBA3
LRBEBA31  LRBEBAO  LRCAPDAR  LRCAPES  LRCAPES1  LRCAPPH1  LRMIEDZ  LRMIEDZ2
LRMINEW1  LRMISTF1  LRMIV  LRMIV1  LRMIV2  LRMIVER1  LRPX  LRPXAPI
LRPXAPI1  LRPXAPI3  LRPXAPI4  LRPXAPI5  LRPXAPP  LRPXCHK  LRPXRM  LRPXSXRA
LRPXSXRB  LRPXSXRL

IHS Changes To Lab

BLR35PST BLRCCPED BLRLRRP1 BLRSHPM

Automated Lab Instruments

LA7UID2

Entry Points

Name	Comments	DBIA/ICR reference
GETSTRNG(STR)	; EP
GETCOMPD()	; EP -- Get Completion Date for test
ARRYDMP2(COL,MESSAGE)	; EP - Output string. If too wide, wrap it.
GETHRCN(LRDFN,INHRCN)	; EP ; ----- BEGIN IHS/MSC/MKK - LR5.21033 ; Check to make sure the HRCN is the correct one for the Ordering Location
SETUCUM	; EP - Set value into IHS UCUM dictionary
MODEXIST(MODULE)	; EP
ARRYDUMP(ARRY)	; EP
NOPCEINS	; EP - NO PCE INStalled notice
PATCH(X)	;EP - Return 1 if patch X was installed, X=aaaann.nnnnn
RETACCV(UID,LRAA,LRAD,LRAN,LRDFN,LRSS,LRIDT,LRAS)	; EP
NEEDIT(MODULE,VERSION,PATCH)
CURLABP()	; EP - Return current Lab Patch
ENTRYAUD(LABEL,TMPNODE)	; EP - Audit ^TMP global
PACKSTR(X)	; EP - Remove Extra Spaces from within string

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	GETHRCN+11, GETHRCN+29, GETHRCN+57
LINEWRAP^BLRGMENU	ARRYDMP2+6
PRESSKEY^BLRGMENU	SETUCUM+23, SETUCUM+33, SETUCUM+36, GETSTRNG+7, NOPCEINS+2
OKAY^BLRKIDSU	NEEDIT+14, NEEDIT+25
ENTRYAUD^BLRUTIL	GETHRCN+61, GETCOMPD+3, GETCOMPD+8, GETCOMPD+14, GETCOMPD+25, GETCOMPD+29, GETCOMPD+43, GETCOMPD+57, GETCOMPD+72, GETCOMPD+89 , GETCOMPD+93
$$GETACCCP^BLRUTIL3	GETCOMPD+35
$$FIND1^DIC	SETUCUM+25
FIND^DIC	MODEXIST+3, NEEDIT+5
UPDATE^DIE	SETUCUM+18, SETUCUM+28
$$GET1^DIQ	GETHRCN+6, GETHRCN+7, RETACCV+8, RETACCV+11
^DIR	GETSTRNG+4
^XBFMK	GETSTRNG+1
$$FMTE^XLFDT	GETCOMPD+31, GETCOMPD+45, GETCOMPD+59, GETCOMPD+74, GETCOMPD+91
$$HTFM^XLFDT	GETCOMPD+27
$$NOW^XLFDT	ENTRYAUD+3
$$UP^XLFSTR	GETCOMPD+18
$$PATCH^XPDUTL	MODEXIST+25
$$VERSION^XPDUTL	MODEXIST+12, NEEDIT+8
BMES^XPDUTL	NEEDIT+19
MES^XPDUTL	NEEDIT+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?4,"Need "_NAME_" "_VERSION_" & "_NAME_" "_SYSVER_" found!",!! Line Location: NEEDIT+12
Function Call: WRITE	Prompt: !! Line Location: SETUCUM+3
Function Call: WRITE	Prompt: !,?4,"Error adding UCUM. Error Message Follows:" Line Location: SETUCUM+21
Function Call: WRITE	Prompt: !,?4,"Error adding ",UPRINTN," as a SYNONYM. Error Message Follows:" Line Location: SETUCUM+31
Function Call: WRITE	Prompt: !!,?4,"Succesfully added UCUM at IEN:",IEN,! Line Location: SETUCUM+35
Function Call: WRITE	Prompt: !!,?4,"No/Invalid/Quit Entry. Routine Ends." Line Location: GETSTRNG+6
Function Call: WRITE	Prompt: !,?5,ARRY,! Line Location: ARRYDUMP+6
Function Call: WRITE	Prompt: ?10,STR1,"=" Line Location: ARRYDUMP+7
Function Call: WRITE	Prompt: ?10,STR1,"=" Line Location: ARRYDUMP+13
Function Call: WRITE	Prompt: MESSAGE,! Line Location: ARRYDMP2+4
Function Call: WRITE	Prompt: ! Line Location: ARRYDMP2+6
Function Call: WRITE	Prompt: !,?4,"VA Patient Encounter module does NOT exist on this sytem." Line Location: NOPCEINS+1
Routine Call	DIE Line Location: SETUCUM+18 SETUCUM+28
Routine Call	DIC Line Location: MODEXIST+3 NEEDIT+5
Routine Call	DIC Line Location: SETUCUM+25
Routine Call	DIR Line Location: GETSTRNG+4

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
^DIC(9.4 - [#9.4]	FIND^DIC
^BLRUCUM - [#90475.3]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB - [#9000010.09]	GETCOMPD+66, GETCOMPD+68, GETCOMPD+70
^AUPNVLAB("ALR0"	GETCOMPD+65
^BLRENTRY	ENTRYAUD+4, ENTRYAUD+5, ENTRYAUD+6
^BLRTXLOG - [#9009022]	GETCOMPD+51, GETCOMPD+52, GETCOMPD+53, GETCOMPD+55
^BLRTXLOG("D"	GETCOMPD+50
^DIC(9.4 - [#9.4]	PATCH+3, PATCH+4, PATCH+7, PATCH+9
^LAB(60 - [#60]	GETCOMPD+17
^LR - [#63]	GETHRCN+10, GETHRCN+20, GETHRCN+26, GETHRCN+55, GETCOMPD+18, GETCOMPD+23
^LRO(68 - [#68]	GETHRCN+37, GETHRCN+40, GETHRCN+46, GETHRCN+49, GETCOMPD+41, RETACCV+3, RETACCV+7, RETACCV+9
^TMP(	ENTRYAUD+6
^XPD(9.7 - [#9.7]	CURLABP+4, CURLABP+6, CURLABP+7

Name	Line Occurrences
$$GETSTRNG	SETUCUM+5, SETUCUM+8, SETUCUM+11
$$PATCH	NEEDIT+20
ARRYDMP2	ARRYDUMP+9, ARRYDUMP+15
ARRYDUMP	SETUCUM+22, SETUCUM+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PATCH+2~, PATCH+9*, PATCH+10
ACCINST	GETHRCN+23~, GETHRCN+55*, GETHRCN+57
ARRY	ARRYDUMP~, ARRYDUMP+3, ARRYDUMP+6
COL	ARRYDUMP+1~, ARRYDUMP+8, ARRYDUMP+9, ARRYDUMP+14, ARRYDUMP+15, ARRYDMP2~, ARRYDMP2+1, ARRYDMP2+2, ARRYDMP2+6
COMPD	GETCOMPD+1~, GETCOMPD+23, GETCOMPD+27, GETCOMPD+31, GETCOMPD+41, GETCOMPD+45, GETCOMPD+49, GETCOMPD+50, GETCOMPD+55, GETCOMPD+59 , GETCOMPD+65, GETCOMPD+70, GETCOMPD+74, GETCOMPD+86*, GETCOMPD+91
D3	GETCOMPD+1~
DATALN	GETCOMPD+1~, GETCOMPD+17*, GETCOMPD+18
DFN	GETHRCN+4~, GETHRCN+10, GETHRCN+11, GETHRCN+23~, GETHRCN+26, GETHRCN+29, GETHRCN+57
>> DIR("A"	GETSTRNG+3*
>> DIR(0	GETSTRNG+2*
>> DIRUT	GETSTRNG+5
DUZ	ENTRYAUD+6
DUZ(2	GETHRCN+29
ENTRYNUM	ENTRYAUD+1~, ENTRYAUD+4*, ENTRYAUD+5, ENTRYAUD+6
>> ERRARRAY(	NEEDIT+22*
ERRS	SETUCUM+20, SETUCUM+26!, SETUCUM+30
FDA	SETUCUM+1~, SETUCUM+26!
FDA(	SETUCUM+14, SETUCUM+15, SETUCUM+16, SETUCUM+27
HEREYAGO	MODEXIST+1~, NEEDIT+2~
HEREYAGO("DILIST"	MODEXIST+4, MODEXIST+9, MODEXIST+10, MODEXIST+32, NEEDIT+6
HRCN	GETHRCN+23~, GETHRCN+29, GETHRCN+31, GETHRCN+57, GETHRCN+59
I	PATCH+2~, PATCH+3*, PATCH+4, PATCH+7, PATCH+9
IEN	SETUCUM+1~, SETUCUM+25*, SETUCUM+27, SETUCUM+35
IENS	GETHRCN+4~, GETHRCN+5*, GETHRCN+6
INHRCN	GETHRCN~, GETHRCN+3, GETHRCN+14*, GETHRCN+17, GETHRCN+20, GETHRCN+43, GETHRCN+52, GETHRCN+64
IOM	ARRYDMP2+1, ARRYDMP2+2
J	PATCH+2~, PATCH+4*, PATCH+7, PATCH+9
>> LA768	GETHRCN+5, GETHRCN+40, GETHRCN+49
>> LA76801	GETHRCN+5, GETHRCN+49
>> LA76802	GETHRCN+5, GETHRCN+49
LABEL	ENTRYAUD~, ENTRYAUD+6
LABPATCH	CURLABP+1~, CURLABP+3, CURLABP+8, CURLABP+10
LOG	GETCOMPD+1~, GETCOMPD+49, GETCOMPD+50, GETCOMPD+51, GETCOMPD+52, GETCOMPD+53, GETCOMPD+55
>> LR0	GETCOMPD+5, GETCOMPD+68, GETCOMPD+86
LRAA	GETHRCN+37, GETHRCN+46, GETCOMPD+1~, GETCOMPD+35, GETCOMPD+41, RETACCV~, RETACCV+1, RETACCV+6, RETACCV+7, RETACCV+8 , RETACCV+9, RETACCV+11
LRAD	GETHRCN+46, GETCOMPD+1~, GETCOMPD+35, GETCOMPD+38, GETCOMPD+41, GETCOMPD+53, RETACCV~, RETACCV+1, RETACCV+6*, RETACCV+7 , RETACCV+9, RETACCV+11
LRAN	GETHRCN+46, GETCOMPD+1~, GETCOMPD+35, GETCOMPD+41, RETACCV~, RETACCV+1, RETACCV+6, RETACCV+7, RETACCV+9, RETACCV+11
LRAS	GETCOMPD+1~, GETCOMPD+5, GETCOMPD+6, GETCOMPD+35, GETCOMPD+50, GETCOMPD+65, RETACCV~, RETACCV+1, RETACCV+11*
LRAT	GETCOMPD+1~
>> LRCDT	GETCOMPD+38
>> LRDATA	GETCOMPD+11, GETCOMPD+23
LRDFN	GETHRCN~, GETHRCN+10, GETHRCN+20, GETHRCN+26, GETHRCN+55, GETCOMPD+18, GETCOMPD+23, RETACCV~, RETACCV+1, RETACCV+7
LRIDT	GETHRCN+23~, GETHRCN+46, GETHRCN+49, GETHRCN+52, GETHRCN+55, GETCOMPD+18, GETCOMPD+23, RETACCV~, RETACCV+1, RETACCV+9
LRSS	GETHRCN+23~, GETHRCN+37, GETHRCN+40, GETHRCN+43, GETHRCN+55, GETCOMPD+1~, RETACCV~, RETACCV+1, RETACCV+8
>> LRTSTS	GETCOMPD+17
MESSAGE	ARRYDUMP+1~, ARRYDUMP+4, ARRYDUMP+9, ARRYDUMP+12, ARRYDUMP+15, ARRYDMP2~, ARRYDMP2+2, ARRYDMP2+4, ARRYDMP2+6
MODULE	MODEXIST~, MODEXIST+3, MODEXIST+12, MODEXIST+15, MODEXIST+18, MODEXIST+19, MODEXIST+20*, MODEXIST+25, NEEDIT~, NEEDIT+5 , NEEDIT+8, NEEDIT+20, NEEDIT+22
NAME	MODEXIST+1~, MODEXIST+32, MODEXIST+34, NEEDIT+1~, NEEDIT+6, NEEDIT+12, NEEDIT+14, NEEDIT+19, NEEDIT+22
NOW	ENTRYAUD+1~, ENTRYAUD+3*, ENTRYAUD+6
NOWTIM	ENTRYAUD+1~
OLINST	GETHRCN+4~, GETHRCN+7*, GETHRCN+8, GETHRCN+11
ORDHRCN	GETHRCN+4~, GETHRCN+11*, GETHRCN+12, GETHRCN+14
ORDLOC	GETHRCN+4~, GETHRCN+6*, GETHRCN+7
PATCH	MODEXIST+1~, MODEXIST+22, MODEXIST+23, MODEXIST+24*, MODEXIST+25, NEEDIT~, NEEDIT+17, NEEDIT+19, NEEDIT+20, NEEDIT+22 , NEEDIT+23, NEEDIT+25
PTR	MODEXIST+1~, MODEXIST+4, MODEXIST+6, MODEXIST+34, CURLABP+1~, CURLABP+5, CURLABP+6*, CURLABP+7
STATUS	CURLABP+1~, CURLABP+3, CURLABP+4, CURLABP+6, CURLABP+7, CURLABP+8
STR	GETCOMPD+1~, GETSTRNG~, GETSTRNG+3
STR1	NEEDIT+2~, ARRYDUMP+1~, ARRYDUMP+3, ARRYDUMP+4, ARRYDUMP+7, ARRYDUMP+11, ARRYDUMP+12, ARRYDUMP+13
STR2	NEEDIT+2~
SYSPATCH	MODEXIST+25, MODEXIST+26, NEEDIT+3~, NEEDIT+20, NEEDIT+21
SYSVER	MODEXIST+1~, MODEXIST+12, MODEXIST+15, MODEXIST+26, MODEXIST+30, MODEXIST+34, NEEDIT+3~, NEEDIT+8*, NEEDIT+11, NEEDIT+12 , NEEDIT+14, NEEDIT+15
TESTIEN	GETCOMPD+1~, GETCOMPD+11*, GETCOMPD+12, GETCOMPD+41, GETCOMPD+52, GETCOMPD+66
TMPDT	GETCOMPD+1~
TMPNODE	ENTRYAUD~, ENTRYAUD+6
TOOWIDE	ARRYDUMP+1~, ARRYDMP2+2*, ARRYDMP2+4, ARRYDMP2+6
U	GETCOMPD+23, ENTRYAUD+5
UCUM	SETUCUM+1~, SETUCUM+5*, SETUCUM+6, SETUCUM+14, SETUCUM+25
UDESC	SETUCUM+1~, SETUCUM+8*, SETUCUM+9, SETUCUM+15
UID	RETACCV~, RETACCV+3
>> UPRINTN	SETUCUM+11*, SETUCUM+12, SETUCUM+16, SETUCUM+27, SETUCUM+31
UPRNITN	SETUCUM+1~
VERSION	MODEXIST+1~, MODEXIST+21*, MODEXIST+25, NEEDIT~, NEEDIT+11, NEEDIT+12, NEEDIT+15, NEEDIT+19, NEEDIT+20, NEEDIT+22
VLABIEN	GETCOMPD+1~, GETCOMPD+49, GETCOMPD+64, GETCOMPD+65*, GETCOMPD+66, GETCOMPD+68, GETCOMPD+70
WIDTH	ARRYDUMP+1~, ARRYDMP2+1*, ARRYDMP2+6
WOTPATCH	CURLABP+1~, CURLABP+3, CURLABP+4, CURLABP+6, CURLABP+8
X	PACKSTR~, PACKSTR+1, PACKSTR+2, PATCH~, PATCH+1, PATCH+3, PATCH+4, PATCH+7, PATCH+9, PATCH+10 , RETACCV+3*, RETACCV+4, RETACCV+6, GETSTRNG+5, GETSTRNG+9

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUTIL4

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 39

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: