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: BLRUTIL3

Package: IHS Changes To Lab

Routine: BLRUTIL3


Information

BLRUTIL3 ;IHS/OIT/MKK - MISC IHS LAB UTILITIES (Cont) ; 04-Apr-2016 14:28 ; MKK

Source Information

Source file <BLRUTIL3.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
MailMan 4 CHK^XMA21  ^XMB  CHKGROUP^XMBGRP  ^XMD  
VA Fileman 4 ^%DT  FIND^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 ($$DT,$$FMADD,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT  $$UP^XLFSTR  $$SETUP1^XQALERT  
Lab Service 3 $$S^LR7OS  LN^LR7OSAP  $$FMT^LR7OSAP1  
IHS Changes To Lab 2 HEADERPG^BLRGMENU  $$ADDON^BLRUTIL  

Caller Graph

Caller Graph Total: 44

Package Total Caller Graph
IHS Changes To Lab 39 BLR35PST  BLR36PST  BLR6249R  BLR7OGMP  BLRAAORU  BLRCCPED  BLRENTRY  BLRF44DR  
BLRKIDS2  BLRLDFIS  BLRLINK  BLRLINK3  BLRLINK4  BLRLINKU  BLRLNKU2  BLRLROS  
BLRLTRRR  BLRLUAC8  BLRMANP2  BLRMIEHR  BLRMIRPT  BLRNLINK  BLRPCCST  BLRPRE32  
BLRPRE33  BLRPRE34  BLRPRE37  BLRPRE38  BLRPRE39  BLRPRE40  BLRPRE41  BLRPRE42  
BLRPURGU  BLRQINST  BLRRLTDR  BLRRLTDU  BLRUTIL4  BLRUTIL6  BLRUTIL7  
Lab Service 3 LR7OGM  LR7OSUM1  LROS  
IHS Laboratory Point of Care 2 BLRPOC2  BLRPOC3  

Entry Points

Name Comments DBIA/ICR reference
SNDALERT(ALERTMSG,NOUSER) ; EP - LR*5.2*1031 addes NOUSER parameter
DATE ; EP
BULTNS ; EP - Send PCC Bulletin
REVIDEO(STR) ; EP -- Write string in Reverse Video & BOLDED
TESTMAIL ; EP
INSTLRPL ; EP -- Line of Data
INSTLRPI ; EP -- Initialize variables
BLTXNSET ; EP
MAKE132 ; EP - Force Screen to 132 Characters
REVBLINK(STR) ; EP - Print string in Bold, Blinking, Reverse Video
D2HBOLD(STR) ; EP - Write string DOUBLE HEIGHT & BOLDED
BOLDUNDR(STR) ; EP -- Write string BOLDED & UNDERLINED
INSTLRPT ; EP -- Report of ^BLRINSTL global
WRAP(ROOT,FMT) ; EP - Wrap text
GETACCCP(LRAS,LRAA,LRAD,LRAN) ; EP -- Take Accession # & break apart
; Parse and process user input. Cloned from LRWU4.
SENDMAIL(MAILMSG,MAILARRY,FROMWHOM,NOUSER) ; EP
BULTXSET ; EP
GETREFR(TESTNAME) ; EP
BLINKER(STR) ; EP -- Write string in BOLDED, UNDERLINED, & BLINKING
MAKE80 ; EP - Force Screen to 80 Characters
BULTX(BULLETIN)
NINLMI(CHKDUZ) ; EP -- Check to see if DUZ is NOT part of LMI Mail Group
ALERT ; EP
MAILALMI(MESSAGE,MSGARRAY,FROMWHOM,NOUSER) ; EP - IHS/MSC/MKK - LR*5.2*1031 adds the NOUSER parameter
ESIGINFO ; EP -- Rework of BLRUTIL ESIGINFO subroutine.

External References

Name Field # of Occurrence
^%DT GETACCCP+39, DATE+3
HEADERPG^BLRGMENU INSTLRPL+1
$$ADDON^BLRUTIL ESIGINFO+5
FIND^DIC GETREFR+4
$$GET1^DIQ GETREFR+11, GETREFR+12, GETREFR+13
^DIR GETACCCP+51
$$S^LR7OS WRAP+10
LN^LR7OSAP WRAP+10
$$FMT^LR7OSAP1 WRAP+8
$$DT^XLFDT SNDALERT+15, SENDMAIL+29
$$FMADD^XLFDT SNDALERT+15, SENDMAIL+29
$$FMTE^XLFDT ESIGINFO+38, BULTXSET+10, BLTXNSET+9
$$HTE^XLFDT MAILALMI+26
$$HTFM^XLFDT MAILALMI+20
$$NOW^XLFDT SENDMAIL+10
$$UP^XLFSTR ESIGINFO+24
CHK^XMA21 NINLMI+11
^XMB BULTX+19
CHKGROUP^XMBGRP NINLMI+4
^XMD SENDMAIL+16, TESTMAIL+11
$$SETUP1^XQALERT SNDALERT+9

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: D2HBOLD+1
Function Call: WRITE
  • Prompt: *27,"#3",*27,"[1m",STR,!
  • Line Location: D2HBOLD+2
Function Call: WRITE
  • Prompt: *27,"#4",*27,"[1m",STR,!
  • Line Location: D2HBOLD+3
Function Call: WRITE
  • Prompt: *27,"[0m",!
  • Line Location: D2HBOLD+4
Function Call: WRITE
  • Prompt: *27,"[1;4m",STR,*27,"[0m"
  • Line Location: BOLDUNDR+1
Function Call: WRITE
  • Prompt: *27,"[1;7m",STR,*27,"[0m"
  • Line Location: REVIDEO+1
Function Call: WRITE
  • Prompt: ?56,"NOT E-SIG PARTICIPATING"
  • Line Location: ESIGINFO+12
Function Call: WRITE
  • Prompt: ?53,"INACTIVE E-SIG PARTICIPANT"
  • Line Location: ESIGINFO+13
Function Call: WRITE
  • Prompt: ?TAB,"E-SIG STATUS: ",REVSTS
  • Line Location: ESIGINFO+29
Function Call: WRITE
  • Prompt: !?5,"SIGNING PHYSICIAN: "
  • Line Location: ESIGINFO+35
Function Call: WRITE
  • Prompt: $P($G(^VA(200,$P(ESIGDSTR,U,2),0)),U)
  • Line Location: ESIGINFO+36
Function Call: WRITE
  • Prompt: !?5,"DATE/TIME RESULT SIGNED: "
  • Line Location: ESIGINFO+37
Function Call: WRITE
  • Prompt: $TR($$FMTE^XLFDT($P(ESIGDSTR,U,5),"2MZ"),"@"," ")
  • Line Location: ESIGINFO+38
Function Call: WRITE
  • Prompt: *27,"[1;4;5m",STR,*27,"[0m"
  • Line Location: BLINKER+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ALERT+1
Function Call: WRITE
  • Prompt: "Patient Name:",$P(XQADATA,"^"),!
  • Line Location: ALERT+2
Function Call: WRITE
  • Prompt: " UID:",$P(XQADATA,"^",2),!
  • Line Location: ALERT+3
Function Call: WRITE
  • Prompt: " TEST:",$P(XQADATA,"^",3),!!
  • Line Location: ALERT+4
Function Call: WRITE
  • Prompt: *27,"[1;7;5m",STR,*27,"[0m"
  • Line Location: REVBLINK+1
Function Call: WRITE
  • Prompt: ?4,CP
  • Line Location: INSTLRPL+3
Function Call: WRITE
  • Prompt: ?14,$G(^BLRINSTL("LAB PATCH",CP,"INSTALLED BY",CNT))
  • Line Location: INSTLRPL+4
Function Call: WRITE
  • Prompt: ?44,$TR($P($G(^BLRINSTL("LAB PATCH",CP,"INSTALLED BY",CNT,"DATE/TIME")),":",1,2),"@"," ")
  • Line Location: INSTLRPL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INSTLRPL+6
Function Call: WRITE
  • Prompt: "Setting display to 132 column mode",!
  • Line Location: MAKE132+1
Function Call: WRITE
  • Prompt: $C(27)_"[?3h",!
  • Line Location: MAKE132+2
Function Call: WRITE
  • Prompt: "132 column mode active.",!
  • Line Location: MAKE132+3
Function Call: WRITE
  • Prompt: $TR($J("",132)," ","*"),!
  • Line Location: MAKE132+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MAKE132+5
Function Call: WRITE
  • Prompt: "Setting display to 80 column mode",!
  • Line Location: MAKE80+1
Function Call: WRITE
  • Prompt: $C(27)_"[?3l",!
  • Line Location: MAKE80+2
Function Call: WRITE
  • Prompt: "80 column mode active.",!
  • Line Location: MAKE80+3
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","*"),!
  • Line Location: MAKE80+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MAKE80+5
Function Call: WRITE
  • Prompt: "XMZ:",XMZ,!
  • Line Location: TESTMAIL+13
Function Call: WRITE
  • Prompt: "XMMG:",$G(XMMG),!
  • Line Location: TESTMAIL+14
Routine Call
  • DIC
  • Line Location:
    • GETREFR+4
Routine Call
  • DIR
  • Line Location:
    • GETACCCP+51

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] FIND^DIC
60.01 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRALAB(9009027.1 - [#9009027.1] ESIGINFO+12, ESIGINFO+13, ESIGINFO+21
^BLRINSTL("LAB PATCH" INSTLRPT+6, INSTLRPT+7, INSTLRPI+4, INSTLRPI+5, INSTLRPI+6, INSTLRPI+8, INSTLRPI+9, INSTLRPI+10, INSTLRPL+4, INSTLRPL+5
^BLRTXLOG - [#9009022] BULTXSET+3, BULTXSET+9, BULTXSET+12, BULTXSET+13, BULTXSET+15
^BLRUCUM - [#90475.3] GETREFR+16
^DD(63.04 ESIGINFO+24
^DPT - [#2] BULTXSET+5, BULTXSET+6, BLTXNSET+5, BLTXNSET+6
^LAB(60 - [#60] BULTXSET+16, BLTXNSET+13, GETREFR+8
^LR - [#63] ESIGINFO+18
^LRO(68 - [#68] GETACCCP+11, GETACCCP+17, GETACCCP+44, ESIGINFO+16
^TMP("BLRUTIL3" WRAP+5!, WRAP+10*
^VA(200 - [#200] ESIGINFO+7, ESIGINFO+36
^XTMP( SNDALERT+15*, SNDALERT+16*, SNDALERT+17*, SNDALERT+18*, SNDALERT+19*, SNDALERT+20*, SENDMAIL+29*, SENDMAIL+30*, SENDMAIL+31*, SENDMAIL+34*
^XTMP("BLRUTIL3" MAILALMI+19, MAILALMI+20*, MAILALMI+26*, MAILALMI+27*

Label References

Name Line Occurrences
$$NINLMI SNDALERT+7, SENDMAIL+8
BLTXNSET BULTX+8
BULTX BULTNS+3, BULTNS+4
BULTXSET BULTX+5
DATE DATE+3
INSTLRPI INSTLRPT+4
INSTLRPL INSTLRPT+8
SENDMAIL MAILALMI+17
SNDALERT MAILALMI+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT GETACCCP+21~, GETACCCP+22*, GETACCCP+33~, GETACCCP+38*, DATE+3*, DATE+4!
%DT("A" GETACCCP+22*
%DT("B" GETACCCP+22*, DATE+3
ALERTMSG SNDALERT~, SNDALERT+1, SNDALERT+18
>> APCDALVR("APCDDATE" BLTXNSET+9
>> APCDALVR("APCDPAT" BLTXNSET+3
ARRAY SENDMAIL+19~, SENDMAIL+32*, SENDMAIL+33*, SENDMAIL+34
>> BLRACCN BLTXNSET+12
>> BLRBUL BULTNS+3
>> BLRLOGDA BULTX+5, BULTX+8, BULTX+10, BULTXSET+3, BULTXSET+9, BULTXSET+12, BULTXSET+13, BULTXSET+15
>> BLRORD BLTXNSET+11
>> BLRPCC BULTNS+1, BULTX+12
>> BLRTEST BLTXNSET+13
BULLETIN BULTX~, BULTX+14
CCNT WRAP+2~, WRAP+10
CHKDUZ NINLMI~
CNT INSTLRPT+1~, INSTLRPT+7*, INSTLRPI+19*, INSTLRPL+4, INSTLRPL+5
COLLDT BULTXSET+1~, BULTXSET+9*, BULTXSET+10
CP INSTLRPT+1~, INSTLRPT+6*, INSTLRPT+7, INSTLRPI+19*, INSTLRPL+3, INSTLRPL+4, INSTLRPL+5
DIFROM SENDMAIL+1~, TESTMAIL+1~
DIR GETACCCP+49~
DIR("A" GETACCCP+50*
DIR(0 GETACCCP+50*
DIRUT GETACCCP+49~, GETACCCP+52
DOCDUZ ESIGINFO+1~
DOCIEN ESIGINFO+1~, ESIGINFO+7*, ESIGINFO+10, ESIGINFO+12, ESIGINFO+13
DT GETACCCP+34, GETACCCP+36, GETACCCP+37
DTOUT GETACCCP+49~, DATE+1!
DTRANGE INSTLRPI+1~
DUOUT GETACCCP+25, GETACCCP+49~, DATE+1!
DUZ MAILALMI+27, SNDALERT+7, NINLMI+9, SENDMAIL+8, TESTMAIL+9
DUZ(2 ESIGINFO+5
ESIGDSTR ESIGINFO+1~, ESIGINFO+18*, ESIGINFO+20, ESIGINFO+21, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38
FIRST INSTLRPI+1~, INSTLRPI+5*, INSTLRPI+6
FIRSTDT INSTLRPI+1~, INSTLRPI+6*, INSTLRPI+12
FMT WRAP~, WRAP+3*, WRAP+8
FROMWHOM MAILALMI~, MAILALMI+14*, MAILALMI+17, SENDMAIL~, SENDMAIL+14
FRSTPTCH INSTLRPI+1~, INSTLRPI+4*, INSTLRPI+5, INSTLRPI+6
GCNT WRAP+2~, WRAP+4*, WRAP+10
HD1 INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1
HEADER INSTLRPT+2~
HEADER(1 INSTLRPI+2*
HEADER(2 INSTLRPI+12*
HEADER(3 INSTLRPI+13*
HEADER(4 INSTLRPI+14*, INSTLRPI+15*, INSTLRPI+16*
IEN GETREFR+1~, GETREFR+5*, GETREFR+6, GETREFR+8, GETREFR+11, GETREFR+12, GETREFR+13
INC WRAP+2~
IOM ESIGINFO+28, MAKE132+6*, MAKE80+6*
LABTIEN BULTXSET+1~, BULTXSET+15*, BULTXSET+16
LAST INSTLRPI+1~, INSTLRPI+9*, INSTLRPI+10
>> LASTDT INSTLRPI+10*, INSTLRPI+12
LASTPTCH INSTLRPI+1~, INSTLRPI+8*, INSTLRPI+9, INSTLRPI+10
LINES INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1, INSTLRPL+7*
LRAA GETACCCP~, GETACCCP+5*, GETACCCP+11*, GETACCCP+12, GETACCCP+17, GETACCCP+44, ESIGINFO+16
>> LRACC GETACCCP+48, GETACCCP+55
LRAD GETACCCP~, GETACCCP+5*, GETACCCP+27*, GETACCCP+32, GETACCCP+40*, GETACCCP+41, GETACCCP+45*
LRAN GETACCCP~, GETACCCP+5*, GETACCCP+56*
LRAS GETACCCP~, GETACCCP+3
>> LRBLNOW SENDMAIL+10*
>> LRDFN ESIGINFO+18
>> LRDOC ESIGINFO+7
>> LREND DATE+1*
LRI WRAP+2~, WRAP+4*, WRAP+6*, WRAP+7, WRAP+9*, WRAP+10*
LRIDIV GETACCCP+2~, GETACCCP+17*
>> LRIDT ESIGINFO+18
LRINDX WRAP+2~, WRAP+4*, WRAP+7*, WRAP+8
LRQUIT GETACCCP+2~
>> LRSS ESIGINFO+16*, ESIGINFO+18
LRTX WRAP+2~
LRTX( WRAP+10
LRX GETACCCP+2~, GETACCCP+3*, GETACCCP+7, GETACCCP+17*
MAILARRY MAILALMI+1~, MAILALMI+8*, MAILALMI+17, SENDMAIL~
MAILARRY( SENDMAIL+33, SENDMAIL+34
MAILARRY(1 MAILALMI+11*
MAILARRY(2 MAILALMI+12*
MAILMSG SENDMAIL~, SENDMAIL+12
MAXLINES INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1
MESSAGE GETREFR+1~, MAILALMI~, MAILALMI+5, MAILALMI+12, MAILALMI+17
MGRPIEN NINLMI+1~, NINLMI+4, NINLMI+5, NINLMI+10
MSGARRAY MAILALMI~, MAILALMI+8
MSGARRAY(1 MAILALMI+8, MAILALMI+10
NOUSER MAILALMI~, MAILALMI+5, MAILALMI+17, SNDALERT~, SNDALERT+7, SENDMAIL~, SENDMAIL+8
NOW MAILALMI+24~, MAILALMI+25*, MAILALMI+26, MAILALMI+27
PG INSTLRPT+2~, INSTLRPI+18*, INSTLRPL+1
PTPTR BULTXSET+1~, BULTXSET+3*, BULTXSET+5, BULTXSET+6, BLTXNSET+1~, BLTXNSET+3*, BLTXNSET+5, BLTXNSET+6
QFLG INSTLRPT+2~, INSTLRPT+6, INSTLRPT+7, INSTLRPI+18*, INSTLRPL+1
REFH GETREFR+1~, GETREFR+12*, GETREFR+18
REFL GETREFR+1~, GETREFR+11*, GETREFR+18
REVIEWDV ESIGINFO+1~, ESIGINFO+24*, ESIGINFO+25
REVSTS ESIGINFO+2~, ESIGINFO+25*, ESIGINFO+28, ESIGINFO+29, ESIGINFO+33
ROOT WRAP~, WRAP+1, WRAP+6, WRAP+7
SP WRAP+2~
SPEC GETREFR+1~, GETREFR+8*, GETREFR+9, GETREFR+11, GETREFR+12, GETREFR+13, GETREFR+18
STR D2HBOLD~, D2HBOLD+2, D2HBOLD+3, BOLDUNDR~, BOLDUNDR+1, REVIDEO~, REVIDEO+1, BLINKER~, BLINKER+1, REVBLINK~
, REVBLINK+1, TESTMAIL+1~
STR(1 TESTMAIL+3*
SUBSCRPT SNDALERT+13~, SNDALERT+14*, SNDALERT+15, SNDALERT+16, SNDALERT+17, SNDALERT+18, SNDALERT+19, SNDALERT+20, SENDMAIL+19~, SENDMAIL+20*
, SENDMAIL+29, SENDMAIL+30, SENDMAIL+31, SENDMAIL+34
TAB ESIGINFO+1~, ESIGINFO+28*, ESIGINFO+29
TARGET GETREFR+1~
TARGET("DILIST" GETREFR+5
TESTNAME GETREFR~, GETREFR+4
U GETACCCP+17, GETACCCP+44, ESIGINFO+13, ESIGINFO+20, ESIGINFO+21, ESIGINFO+24, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38
UNITS GETREFR+1~, GETREFR+13*, GETREFR+16*, GETREFR+18
WHEN INSTLRPT+1~
WHO INSTLRPT+1~
X GETACCCP+38*, GETACCCP+44*, GETACCCP+45, GETACCCP+49~, DATE+3*, WRAP+2~, WRAP+7*, WRAP+8*, SNDALERT+9*, SNDALERT+11
, SENDMAIL+37!, TESTMAIL+16!
X1 GETACCCP+2~, GETACCCP+7*, GETACCCP+9, GETACCCP+11
X2 GETACCCP+2~, GETACCCP+7*, GETACCCP+8*, GETACCCP+20, GETACCCP+34*, GETACCCP+35, GETACCCP+36*, GETACCCP+37*, GETACCCP+38
X3 GETACCCP+2~, GETACCCP+7*, GETACCCP+8*, GETACCCP+20, GETACCCP+48, GETACCCP+53*, GETACCCP+55, GETACCCP+56
XMB BULTX+1!, BULTX+14*, BULTX+22!
XMB(1 BULTXSET+5*, BLTXNSET+5*
XMB(2 BULTXSET+6*, BLTXNSET+6*
XMB(3 BULTXSET+10*, BLTXNSET+9*
XMB(4 BULTXSET+12*, BLTXNSET+11*
XMB(5 BULTXSET+13*, BLTXNSET+12*
XMB(6 BULTXSET+16*, BLTXNSET+13*
XMB(7 BULTX+10*
XMB(8 BULTX+12*
XMDUZ BULTX+18*, NINLMI+1~, NINLMI+9*, SENDMAIL+14*, SENDMAIL+37!, TESTMAIL+9*, TESTMAIL+16!
>> XMMG SENDMAIL+18, TESTMAIL+14
XMSUB SENDMAIL+12*, SENDMAIL+37!, TESTMAIL+7*, TESTMAIL+16!
XMTEXT SENDMAIL+13*, SENDMAIL+37!, TESTMAIL+8*, TESTMAIL+16!
XMY SENDMAIL+3!, SENDMAIL+37!, TESTMAIL+5!, TESTMAIL+16!
XMY( SENDMAIL+8*
XMY("G.LMI" SENDMAIL+4*, TESTMAIL+6*
XMZ SENDMAIL+15*, SENDMAIL+18, SENDMAIL+37!, TESTMAIL+10*, TESTMAIL+13, TESTMAIL+16!
XQA SNDALERT+10!
XQA( SNDALERT+7*
XQA("G.LMI" SNDALERT+2*
>> XQADATA ALERT+2, ALERT+3, ALERT+4
>> XQALERR SNDALERT+20
XQAMSG SNDALERT+1*, SNDALERT+10!
Y GETACCCP+26, GETACCCP+27, GETACCCP+40, GETACCCP+49~, GETACCCP+52, GETACCCP+53, DATE+3, BULTX+2*, NINLMI+10*, SENDMAIL+37!
, TESTMAIL+16!
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