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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRUTIL5

Package: IHS Changes To Lab

Routine: BLRUTIL5


Information

BLRUTIL5 ;IHS/ITSC/TPF - MISC IHS LAB UTILITIES (Cont) ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRUTIL5.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To Lab 2 (HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU  $$ADDON^BLRUTIL  
Kernel 2 $$FMTE^XLFDT  $$UP^XLFSTR  
IHS VA %Utilities 1 ($$ERR,$$KILLOK)^ZIBGCHAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRUTIL  

Entry Points

Name Comments DBIA/ICR reference
NOCOLRPT ; EP - Report on ^TMP("BLRUTIL4",$J,"NOCOLLDT"
INSTLRPL ; EP -- Line of Data
GETTESTS ; EP
FIXCH
INSTLRPI ; EP -- Initialize variables
PAT10FIX(BORDDATE,EORDDATE) ; EP
FIXMI ; EP
GETMISS(UID,FLAG) ; EP
NOCOLLDT ; EP - "Quick & Dirty" Routine to determine if Accession file has no DRAW DATE but an Accession Number
INSTLRPT ; EP -- Report of ^BLRINSTL global
ESIGINFO ; EP -- Rework of BLRUTIL ESIGINFO subroutine.
COLSAMP ;^LAB(60,1,3,1,0)=3^SUPERBILL^LAVENDER^

External References

Name Field # of Occurrence
HEADERDT^BLRGMENU NOCOLRPT+11
HEADERPG^BLRGMENU INSTLRPL+1
PRESSKEY^BLRGMENU NOCOLLDT+37, NOCOLRPT+33
$$ADDON^BLRUTIL ESIGINFO+5
$$FMTE^XLFDT ESIGINFO+38
$$UP^XLFSTR ESIGINFO+24
$$ERR^ZIBGCHAR PAT10FIX+4
$$KILLOK^ZIBGCHAR PAT10FIX+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(BLR,U,2)))_" "_BLR
  • Line Location: PAT10FIX+4
Function Call: WRITE
  • Prompt: !,"PARENT: ",SEQNUM
  • Line Location: PAT10FIX+20
Function Call: WRITE
  • Prompt: !,"MISSING ""ORU"" NODE IN FILE 63"_"^LR("_LRDFN_",""CH"","_LRIDT_",0)"
  • Line Location: FIXCH+12
Function Call: WRITE
  • Prompt: !,"PROBLEM WITH UID ",LRUID," ""C"" X-REF IN LRO(68"
  • Line Location: FIXCH+18
Function Call: WRITE
  • Prompt: CNT
  • Line Location: COLSAMP+7
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: ?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: !!,?4,"Compilation Begins"
  • Line Location: NOCOLLDT+6
Function Call: WRITE
  • Prompt: " >",UID,"< "
  • Line Location: NOCOLLDT+24
Function Call: WRITE
  • Prompt: !!,?4,"Number of Accessions Analyzed = ",CNT,!
  • Line Location: NOCOLLDT+33
Function Call: WRITE
  • Prompt: LRAA
  • Line Location: NOCOLRPT+24
Function Call: WRITE
  • Prompt: ?5,LRAD
  • Line Location: NOCOLRPT+25
Function Call: WRITE
  • Prompt: ?14,LRAN
  • Line Location: NOCOLRPT+26
Function Call: WRITE
  • Prompt: ?24,UID
  • Line Location: NOCOLRPT+27
Function Call: WRITE
  • Prompt: ?39,LABARRT
  • Line Location: NOCOLRPT+28
Function Call: WRITE
  • Prompt: ?54,LRDFN
  • Line Location: NOCOLRPT+29
Function Call: WRITE
  • Prompt: ?64,LRIDT
  • Line Location: NOCOLRPT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: NOCOLRPT+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRALAB(9009027.1 - [#9009027.1] ESIGINFO+12, ESIGINFO+13, ESIGINFO+21
^BLRINSTL("LAB PATCH" INSTLRPT+5, INSTLRPT+6, INSTLRPI+5, INSTLRPI+6, INSTLRPI+7, INSTLRPI+9, INSTLRPI+10, INSTLRPI+11, INSTLRPL+4, INSTLRPL+5
^BLRPAR( PAT10FIX+20*, PAT10FIX+24*
^BLRTXLOG - [#9009022] PAT10FIX+16, PAT10FIX+17
^BLRTXLOG("AOT" PAT10FIX+8, PAT10FIX+10, PAT10FIX+12, PAT10FIX+14
^DD(63.04 ESIGINFO+24
^LAB(60 - [#60] GETTESTS+3, GETTESTS+4, COLSAMP+3, COLSAMP+4, COLSAMP+6
^LAB(62 - [#62] COLSAMP+5
^LR - [#63] FIXCH+2, FIXCH+4, FIXCH+7, FIXCH+11, FIXCH+13, FIXCH+14, FIXCH+19, FIXMI+4, FIXMI+6, FIXMI+9
, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, ESIGINFO+18
^LRO(68 - [#68] GETMISS+1, GETMISS+2, GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, FIXMI+29, FIXMI+38*, GETTESTS+2, ESIGINFO+16
, NOCOLLDT+8, NOCOLLDT+10, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLRPT+20
^TMP("BLRUTIL4" NOCOLLDT+4!, NOCOLLDT+26*, NOCOLLDT+41!, NOCOLRPT+14, NOCOLRPT+16, NOCOLRPT+18, NOCOLRPT+19
^VA(200 - [#200] ESIGINFO+7, ESIGINFO+36

Label References

Name Line Occurrences
COLSAMP GETTESTS+6
GETMISS FIXCH+17
GETTESTS FIXMI+34
INSTLRPI INSTLRPT+3
INSTLRPL INSTLRPT+7
NOCOLRPT NOCOLLDT+39

Naked Globals

Name Field # of Occurrence
^(3 NOCOLRPT+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACCAREA GETMISS+1*, GETMISS+2, GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, GETMISS+8, FIXMI+21*, FIXMI+24, FIXMI+29
, FIXMI+38, GETTESTS+2
>> ACCDAT GETMISS+2*, GETMISS+3, GETMISS+5, GETMISS+6, GETMISS+7, GETMISS+8
>> ACCDT FIXMI+20*, FIXMI+24, FIXMI+29, FIXMI+38, GETTESTS+2
>> ACCESSN FIXCH+20, GETMISS+7*, FIXMI+17*, FIXMI+18, FIXMI+19, FIXMI+27
>> ACCNUM GETMISS+3*, GETMISS+5, GETMISS+6, GETMISS+7, GETMISS+8, FIXMI+18*, FIXMI+24, FIXMI+29, FIXMI+38, GETTESTS+2
>> ACCYR FIXMI+19*, FIXMI+20
>> BADCNT NOCOLLDT+7*, NOCOLLDT+27*, NOCOLLDT+34, NOCOLLDT+35, NOCOLLDT+39
BLR PAT10FIX+2~, PAT10FIX+3*, PAT10FIX+4, PAT10FIX+5
>> BLRVERN INSTLRPI+1*, NOCOLLDT+3*
BORDDATE PAT10FIX~, PAT10FIX+7
>> CNT FIXMI+36, GETTESTS+7, COLSAMP+3*, COLSAMP+6, COLSAMP+7, INSTLRPT+6*, INSTLRPI+20*, INSTLRPL+4, INSTLRPL+5, NOCOLLDT+7*
, NOCOLLDT+18*, NOCOLLDT+19, NOCOLLDT+33
>> COLIEN COLSAMP+4*, COLSAMP+5
>> COLSAMP COLSAMP+2*, COLSAMP+3*, COLSAMP+4
>> COUNT FIXCH*, FIXCH+8*, FIXMI+1*, FIXMI+10*
>> CP INSTLRPT+5*, INSTLRPT+6, INSTLRPI+21*, INSTLRPL+3, INSTLRPL+4, INSTLRPL+5
>> CPTCODE PAT10FIX+23*
>> DILOCKTM INSTLRPT+1, NOCOLLDT+1
>> DISYS INSTLRPT+1, NOCOLLDT+1
DOCDUZ ESIGINFO+1~
DOCIEN ESIGINFO+1~, ESIGINFO+7*, ESIGINFO+10, ESIGINFO+12, ESIGINFO+13
DT INSTLRPT+1, NOCOLLDT+1
DTIME INSTLRPT+1, NOCOLLDT+1
DUZ INSTLRPT+1, NOCOLLDT+1
DUZ(2 ESIGINFO+5
EORDDATE PAT10FIX~, PAT10FIX+8
ESIGDSTR ESIGINFO+1~, ESIGINFO+18*, ESIGINFO+20, ESIGINFO+21, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38
>> FIRST INSTLRPI+6*, INSTLRPI+7
>> FIRSTDT INSTLRPI+7*, INSTLRPI+13
FLAG FIXCH+16*, FIXCH+17, FIXCH+18, GETMISS~, GETMISS+1*, GETMISS+2*, GETMISS+3*
>> FRSTPTCH INSTLRPI+5*, INSTLRPI+6, INSTLRPI+7
>> GCOLSAMP FIXMI+37, FIXMI+38, COLSAMP+1*, COLSAMP+6*
>> GPROV FIXCH+21, GETMISS+5*, FIXMI+28*, FIXMI+30
>> GSPEC FIXCH+22, GETMISS+6*, FIXMI+29*, FIXMI+31
>> HD1 INSTLRPI+19*, INSTLRPL+1
>> HEADER(1 INSTLRPI+3*, NOCOLRPT+1*
>> HEADER(2 INSTLRPI+13*, NOCOLRPT+2*
>> HEADER(3 INSTLRPI+14*, NOCOLRPT+3*, NOCOLRPT+4*, NOCOLRPT+5*, NOCOLRPT+6*, NOCOLRPT+7*, NOCOLRPT+8*, NOCOLRPT+9*
>> HEADER(4 INSTLRPI+15*, INSTLRPI+16*, INSTLRPI+17*
IO INSTLRPT+1, NOCOLLDT+1
>> IOBS INSTLRPT+1, NOCOLLDT+1
IOF INSTLRPT+1, NOCOLLDT+1
IOM INSTLRPT+1, ESIGINFO+28, NOCOLLDT+1, NOCOLLDT+30, NOCOLLDT+31
ION INSTLRPT+1, NOCOLLDT+1
>> IOS INSTLRPT+1, NOCOLLDT+1
IOSL INSTLRPT+1, NOCOLLDT+1
IOST INSTLRPT+1, NOCOLLDT+1
>> IOT INSTLRPT+1, NOCOLLDT+1
>> IOXY INSTLRPT+1, NOCOLLDT+1
>> LABARRT NOCOLRPT+21*, NOCOLRPT+28
>> LAST INSTLRPI+10*, INSTLRPI+11
>> LASTDT INSTLRPI+11*, INSTLRPI+13
>> LASTPTCH INSTLRPI+9*, INSTLRPI+10, INSTLRPI+11
>> LINES INSTLRPI+19*, INSTLRPL+1, INSTLRPL+7*
>> LOGREC0 PAT10FIX+16*, PAT10FIX+22
>> LOGREC1 PAT10FIX+17*, PAT10FIX+18, PAT10FIX+19, PAT10FIX+23
>> LRAA ESIGINFO+16, NOCOLLDT+7*, NOCOLLDT+8*, NOCOLLDT+10, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLLDT+26, NOCOLRPT+13*
, NOCOLRPT+14*, NOCOLRPT+16, NOCOLRPT+18, NOCOLRPT+19, NOCOLRPT+20, NOCOLRPT+24
>> LRAD NOCOLLDT+9*, NOCOLLDT+10*, NOCOLLDT+12, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLLDT+26, NOCOLRPT+15*, NOCOLRPT+16*, NOCOLRPT+18
, NOCOLRPT+19, NOCOLRPT+20, NOCOLRPT+25
>> LRAN NOCOLLDT+11*, NOCOLLDT+12*, NOCOLLDT+13, NOCOLLDT+15, NOCOLLDT+21, NOCOLLDT+26, NOCOLRPT+17*, NOCOLRPT+18*, NOCOLRPT+19, NOCOLRPT+20
, NOCOLRPT+26
>> LRCOL FIXMI+15*
>> LRDFN FIXCH+1*, FIXCH+2*, FIXCH+4, FIXCH+7, FIXCH+10, FIXCH+11, FIXCH+12, FIXCH+13, FIXCH+14, FIXCH+19
, FIXMI+2*, FIXMI+4*, FIXMI+6, FIXMI+9, FIXMI+12, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, ESIGINFO+18
, NOCOLRPT+20*, NOCOLRPT+29
>> LRDOC ESIGINFO+7
>> LRIDT FIXCH+3*, FIXCH+4*, FIXCH+7, FIXCH+10, FIXCH+11, FIXCH+12, FIXCH+13, FIXCH+14, FIXCH+19, FIXMI+5*
, FIXMI+6*, FIXMI+9, FIXMI+12, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, ESIGINFO+18, NOCOLRPT+22*, NOCOLRPT+30
>> LRNODE FIXCH+10*, FIXCH+23, FIXMI+12*, FIXMI+23, FIXMI+32, FIXMI+37*
>> LRPROV FIXCH+13*, FIXCH+21, FIXMI+13*, FIXMI+30
>> LRSPEC FIXCH+14*, FIXCH+22, FIXMI+14*, FIXMI+31
>> LRSS ESIGINFO+16*, ESIGINFO+18
>> LRTST GETTESTS+1*, GETTESTS+2*, GETTESTS+3, GETTESTS+4, GETTESTS+5, COLSAMP+3, COLSAMP+4, COLSAMP+6
>> LRUID FIXCH+11*, FIXCH+12, FIXCH+17, FIXCH+18
>> MAXLINES INSTLRPI+19*, INSTLRPL+1
>> NODE FIXCH+20, GETMISS+8*, FIXMI+24*, FIXMI+27, FIXMI+28
>> NOPARENT PAT10FIX+18*, PAT10FIX+20, PAT10FIX+24
>> ORDDATE PAT10FIX+7*, PAT10FIX+8*, PAT10FIX+10, PAT10FIX+12, PAT10FIX+14
>> PANEL PAT10FIX+9*, PAT10FIX+10*, PAT10FIX+12, PAT10FIX+14
>> PG INSTLRPI+19*, INSTLRPL+1
>> QFLG INSTLRPT+5, INSTLRPT+6, INSTLRPI+19*, INSTLRPL+1
REVIEWDV ESIGINFO+1~, ESIGINFO+24*, ESIGINFO+25
REVSTS ESIGINFO+2~, ESIGINFO+25*, ESIGINFO+28, ESIGINFO+29, ESIGINFO+33
>> SEQNUM PAT10FIX+13*, PAT10FIX+14*, PAT10FIX+16, PAT10FIX+17, PAT10FIX+20, PAT10FIX+21, PAT10FIX+24
>> STATUS PAT10FIX+22*
>> STR3 NOCOLRPT+20*, NOCOLRPT+21, NOCOLRPT+22
TAB ESIGINFO+1~, ESIGINFO+28*, ESIGINFO+29
>> TARDATE FIXCH+1*, FIXMI+2*, FIXMI+3*
>> TESTPTR PAT10FIX+11*, PAT10FIX+12*, PAT10FIX+14
>> TSTNAME GETTESTS+3*
U PAT10FIX+4, PAT10FIX+6*, PAT10FIX+18, PAT10FIX+22, PAT10FIX+23, FIXCH*, FIXCH+7, FIXCH+13, FIXCH+14, GETMISS+5
, GETMISS+6, GETMISS+7, FIXMI+1*, FIXMI+9, FIXMI+13, FIXMI+14, FIXMI+15, FIXMI+17, FIXMI+28, FIXMI+29
, FIXMI+37, FIXMI+38, GETTESTS+3, GETTESTS+4, COLSAMP+4, COLSAMP+5, COLSAMP+6, INSTLRPT+1, ESIGINFO+13, ESIGINFO+20
, ESIGINFO+21, ESIGINFO+24, ESIGINFO+25, ESIGINFO+31, ESIGINFO+36, ESIGINFO+38, NOCOLLDT+1
UID GETMISS~, GETMISS+1, GETMISS+2, GETMISS+3, NOCOLLDT+15*, NOCOLLDT+16, NOCOLLDT+23, NOCOLLDT+24, NOCOLLDT+26, NOCOLRPT+19*
, NOCOLRPT+27
>> WOTCOL NOCOLLDT+29*, NOCOLLDT+30, NOCOLLDT+31
>> XPARSYS INSTLRPT+1, NOCOLLDT+1
>> XQXFLG INSTLRPT+1, NOCOLLDT+1

Marked Items

Name Field # of Occurrence
$T( INSTLRPI+1, NOCOLLDT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All