Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRUTIL4

Package: IHS Changes To Lab

Routine: BLRUTIL4


Information

BLRUTIL4 ;IHS/MSC/MKK - MISC IHS LAB UTILITIES (Cont) ; 17-Jul-2015 06:30 ; MKK

Source Information

Source file <BLRUTIL4.m>

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  

Caller Graph

Caller Graph Total: 39

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  

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 - LR*5.2*1033
; 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=aaaa*nn.nn*nnn
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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All