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

Package: IHS Changes To Lab

Routine: BLRUTIL2


Information

BLRUTIL2 ;IHS/OIT/MKK - MISC IHS LAB UTILITIES (Cont) ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRUTIL2.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 6 ^%ZIS  ^%ZISC  ($$HTE,$$NOW)^XLFDT  ($$CJ,$$TRIM,$$UP)^XLFSTR  $$NAME^XUAF4  $$KSP^XUPARAM  
IHS Changes To Lab 1 (BLRGSHSH,HEADERDT,HEADERPG,HEADONE,LINEWRAP,PRESSKEY)^BLRGMENU  
IHS VA Utilities 1 $$LOC^XBFUNC  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 6 LRMIPSU  LRRP1  LRRP2  LRSORA2  LRSORC1A  LRSORD1A  

Entry Points

Name Comments DBIA/ICR reference
ERRTRAPR ; EP -- Quick & Dirty Error Trap Report
ACTIVE(XUDA) ; EP - Get if a user is active.
REPORT2(USER) ; EP
CHKTHL7 ; EP
REPORT3(VARIABLE) ; EP
REPORT4(LABEL) ; EP -- Only print certain "LABELS"
LABHDR ; EP -- Display Header for Lab Report(s)
BLRHEADR(LINE1,LINE2,LINE3) ; EP -- Generic HEADER array
SUBLINE(WOT,STR) ; EP - Line of Data
NOBLRENT ; EP -- Header if the BLR MASTER FILE address fields ARE blank
NOW24TIM()
SUBNODES ; EP
STREETAD ; EP -- Get Street Address
HDRBLREN ; EP -- Header if BLR MASTER FILE address fields ARE NOT blank
PURGBLRE ; EP
NOWTIME()

External References

Name Field # of Occurrence
^%ZIS REPORT2+5, REPORT3+24, REPORT4+26
^%ZISC REPORT2+19, REPORT3+41, REPORT4+47
BLRGSHSH^BLRGMENU CHKTHL7+23, ERRTRAPR+19
HEADERDT^BLRGMENU REPORT3+10, REPORT4+11
HEADERPG^BLRGMENU REPORT3+30, REPORT4+35
HEADONE^BLRGMENU REPORT3+11, REPORT4+12
LINEWRAP^BLRGMENU SUBLINE+6
PRESSKEY^BLRGMENU REPORT4+49
$$GET1^DIQ LABHDR+1, HDRBLREN+10, HDRBLREN+26, STREETAD+1, STREETAD+5, STREETAD+6, STREETAD+7, STREETAD+8, STREETAD+13, STREETAD+14
, STREETAD+15, STREETAD+16, STREETAD+17
$$LOC^XBFUNC BLRHEADR+3
$$HTE^XLFDT BLRHEADR+6, NOWTIME+2, NOW24TIM+1, CHKTHL7+19, ERRTRAPR+25
$$NOW^XLFDT PURGBLRE+3
$$CJ^XLFSTR BLRHEADR+3, BLRHEADR+5, BLRHEADR+13, BLRHEADR+17, HDRBLREN+22, HDRBLREN+27, NOBLRENT+13, NOBLRENT+22, NOBLRENT+26, NOBLRENT+27
, NOBLRENT+30, REPORT4+15
$$TRIM^XLFSTR BLRHEADR+8
$$UP^XLFSTR NOWTIME+4, CHKTHL7+15, CHKTHL7+19
$$NAME^XUAF4 NOBLRENT+10
$$KSP^XUPARAM NOBLRENT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM)
  • Line Location: BLRHEADR+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM),!
  • Line Location: BLRHEADR+3
Function Call: WRITE
  • Prompt: TMPLN,!
  • Line Location: BLRHEADR+9
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(LINE2,IOM),!
  • Line Location: BLRHEADR+13
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(LINE3,IOM),!
  • Line Location: BLRHEADR+17
Function Call: WRITE
  • Prompt: TSK
  • Line Location: CHKTHL7+24
Function Call: WRITE
  • Prompt: ?10,SDATE,$J(STIME,9)
  • Line Location: CHKTHL7+25
Function Call: WRITE
  • Prompt: ?30,$P(ZERO,"^",2)
  • Line Location: CHKTHL7+26
Function Call: WRITE
  • Prompt: ?40,$E($G(^%ZTSK(TSK,.03)),1,40)
  • Line Location: CHKTHL7+27
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKTHL7+28
Function Call: WRITE
  • Prompt: ETD
  • Line Location: ERRTRAPR+24
Function Call: WRITE
  • Prompt: ?10,$$HTE^XLFDT(ETD,"2DZ")
  • Line Location: ERRTRAPR+25
Function Call: WRITE
  • Prompt: ?25,$J(ETN,3)
  • Line Location: ERRTRAPR+29
Function Call: WRITE
  • Prompt: ?30,$P($G(^%ZTER(1,ETD,1,ETN,"ZE")),"^",2)
  • Line Location: ERRTRAPR+30
Function Call: WRITE
  • Prompt: ?50,$P($G(^%ZTER(1,ETD,1,ETN,"ZE")),">",1),">"
  • Line Location: ERRTRAPR+31
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRTRAPR+32
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRTRAPR+33
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRTRAPR+34
Function Call: WRITE
  • Prompt: "Printed at:"
  • Line Location: HDRBLREN+12
Function Call: WRITE
  • Prompt: ?70,"Page "_LRPG
  • Line Location: HDRBLREN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRBLREN+14
Function Call: WRITE
  • Prompt: STR,!
  • Line Location: HDRBLREN+23
Function Call: WRITE
  • Prompt: !,STR,!
  • Line Location: HDRBLREN+24
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRBLREN+29
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("<UNKNOWN INSTITUTION>",IOM),!
  • Line Location: NOBLRENT+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STRN,IOM),!
  • Line Location: NOBLRENT+22
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STRN,IOM)
  • Line Location: NOBLRENT+26
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STRA1,IOM),!
  • Line Location: NOBLRENT+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(STRN_" "_STRA1,IOM),!
  • Line Location: NOBLRENT+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REPORT2+6
Function Call: WRITE
  • Prompt: !,ENTRYNUM,?15,LABEL,?67,NOW
  • Line Location: REPORT2+11
Function Call: WRITE
  • Prompt: !,?20,"BLRIDS:",BLRIDS,"; BLRACCN=",BLRACCN
  • Line Location: REPORT2+17
Function Call: WRITE
  • Prompt: USER
  • Line Location: REPORT3+33
Function Call: WRITE
  • Prompt: ?9,NOW
  • Line Location: REPORT3+34
Function Call: WRITE
  • Prompt: ?24,$J(ENTRYNUM,3)
  • Line Location: REPORT3+35
Function Call: WRITE
  • Prompt: ?29,$E(LABEL,1,28)
  • Line Location: REPORT3+36
Function Call: WRITE
  • Prompt: ?59,$E(VALUE,1,19)
  • Line Location: REPORT3+37
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT3+38
Function Call: WRITE
  • Prompt: USER
  • Line Location: REPORT4+38
Function Call: WRITE
  • Prompt: ?9,NOW
  • Line Location: REPORT4+39
Function Call: WRITE
  • Prompt: ?24,$J(ENTRYNUM,3)
  • Line Location: REPORT4+40
Function Call: WRITE
  • Prompt: ?29,VARIABLE
  • Line Location: REPORT4+41
Function Call: WRITE
  • Prompt: ?39,$E(VALUE,1,40)
  • Line Location: REPORT4+42
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT4+43
Function Call: WRITE
  • Prompt: ?39,WOT,!
  • Line Location: SUBLINE+1
Function Call: WRITE
  • Prompt: ?49,STR,!
  • Line Location: SUBLINE+4
Function Call: WRITE
  • Prompt: !!,"Purging BLRENTRY global",!,?5
  • Line Location: PURGBLRE+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: PURGBLRE+11
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PURGBLRE+14
Routine Call
  • %ZIS
  • Line Location:
    • REPORT2+5
    • REPORT3+24
    • REPORT4+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTER(1 - [#3.075] ERRTRAPR+23, ERRTRAPR+27, ERRTRAPR+30, ERRTRAPR+31
^%ZTSK - [#14.4] CHKTHL7+13, CHKTHL7+15, CHKTHL7+18, CHKTHL7+27
^BLRENTRY REPORT2+8, REPORT2+9, REPORT2+10, REPORT2+13, REPORT2+14, REPORT3+26, REPORT3+27, REPORT3+28, REPORT3+29, REPORT3+32
, REPORT4+29, REPORT4+30, REPORT4+31, REPORT4+32, REPORT4+34, REPORT4+37, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8
, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17, PURGBLRE+8, PURGBLRE+10, PURGBLRE+13!
^VA(200 - [#200] ACTIVE+2, ACTIVE+3, ACTIVE+5, ACTIVE+13

Label References

Name Line Occurrences
$$NOWTIME BLRHEADR+7
HDRBLREN LABHDR+1
NOBLRENT LABHDR+3
STREETAD NOBLRENT+18
SUBLINE SUBNODES+5, SUBNODES+8, SUBNODES+11, SUBNODES+14, SUBNODES+17
SUBNODES REPORT4+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ACTIVE+1~, ACTIVE+6*
BLRACCN REPORT2+1~, REPORT2+12*, REPORT2+16*, REPORT2+17, REPORT3+1~, REPORT4+1~
BLRIDS REPORT2+1~, REPORT2+12*, REPORT2+15*, REPORT2+17, REPORT3+1~, REPORT4+1~
CITY NOBLRENT+2~, STREETAD+6*, STREETAD+15*, STREETAD+21
CNT CHKTHL7+1~, CHKTHL7+3*, CHKTHL7+23, CHKTHL7+29*, CHKTHL7+31, CHKTHL7+32, ERRTRAPR+5~, ERRTRAPR+26*, ERRTRAPR+28*, ERRTRAPR+33
, REPORT2+1~, REPORT2+4*
CNTTSK CHKTHL7+1~, CHKTHL7+3*, CHKTHL7+14*, CHKTHL7+32
DT ACTIVE+6, ACTIVE+20
DTT PURGBLRE+1~, PURGBLRE+9*, PURGBLRE+10*, PURGBLRE+11, PURGBLRE+12, PURGBLRE+13
DUZ(2 LABHDR+1, HDRBLREN+5, NOBLRENT+4
ENTRYNUM REPORT2+2~, REPORT2+7*, REPORT2+9*, REPORT2+10, REPORT2+11, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25*, REPORT3+28*
, REPORT3+29, REPORT3+32, REPORT3+35, REPORT4+3~, REPORT4+28*, REPORT4+31*, REPORT4+32, REPORT4+34, REPORT4+37, REPORT4+40
, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
ETD ERRTRAPR+1~, ERRTRAPR+22*, ERRTRAPR+23*, ERRTRAPR+24, ERRTRAPR+25, ERRTRAPR+27, ERRTRAPR+30, ERRTRAPR+31
ETN ERRTRAPR+2~, ERRTRAPR+26*, ERRTRAPR+27*, ERRTRAPR+29, ERRTRAPR+30, ERRTRAPR+31
HDRONE REPORT3+3~, REPORT3+11, REPORT3+30, REPORT4+4~, REPORT4+12, REPORT4+35
HEADER CHKTHL7+1~, ERRTRAPR+6~, REPORT3+5~, REPORT4+6~
HEADER(1 CHKTHL7+4*, ERRTRAPR+8*, REPORT3+7*, REPORT4+8*
HEADER(2 CHKTHL7+5*, ERRTRAPR+9*, REPORT3+8*, REPORT4+9*
HEADER(3 CHKTHL7+6*, ERRTRAPR+10*, REPORT3+13*, REPORT4+15*
HEADER(4 CHKTHL7+7*, CHKTHL7+8*, CHKTHL7+9*, CHKTHL7+10*, CHKTHL7+11*, ERRTRAPR+11*, ERRTRAPR+12*, REPORT3+14*, REPORT4+16*
HEADER(5 ERRTRAPR+13*, ERRTRAPR+14*, ERRTRAPR+15*, ERRTRAPR+16*, ERRTRAPR+17*, REPORT3+15*, REPORT3+16*, REPORT3+17*, REPORT3+18*, REPORT3+19*
, REPORT4+17*, REPORT4+18*, REPORT4+19*, REPORT4+20*, REPORT4+21*
INACTDT ACTIVE+12~, ACTIVE+15*, ACTIVE+20
INSTHDR NOBLRENT+1~
INSTNUM HDRBLREN+1~, HDRBLREN+5*, HDRBLREN+10, HDRBLREN+26, NOBLRENT+1~, NOBLRENT+4*, NOBLRENT+8*, NOBLRENT+10, NOBLRENT+15, STREETAD+1
, STREETAD+5, STREETAD+6, STREETAD+7, STREETAD+8, STREETAD+13, STREETAD+14, STREETAD+15, STREETAD+16, STREETAD+17
INTRPTH2 HDRBLREN+2~, HDRBLREN+26*, HDRBLREN+27
IOF REPORT2+6
IOM BLRHEADR+3, BLRHEADR+5, BLRHEADR+7, BLRHEADR+13, BLRHEADR+17, HDRBLREN+22, HDRBLREN+27, NOBLRENT+13, NOBLRENT+22, NOBLRENT+25
, NOBLRENT+26, NOBLRENT+27, NOBLRENT+29, NOBLRENT+30, REPORT4+15
LABEL REPORT2+2~, REPORT2+7*, REPORT2+10*, REPORT2+11, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25*, REPORT3+29*, REPORT3+32
, REPORT3+36, REPORT4~, REPORT4+15, REPORT4+33
LINE1 BLRHEADR~, BLRHEADR+5
LINE2 BLRHEADR~, BLRHEADR+11, BLRHEADR+13
LINE3 BLRHEADR~, BLRHEADR+15, BLRHEADR+17
LINES REPORT3+3~, REPORT3+21*, REPORT3+30, REPORT3+39*, REPORT4+4~, REPORT4+23*, REPORT4+35, REPORT4+44*, SUBLINE+1*, SUBLINE+4*
MAXERRPD ERRTRAPR+3~, ERRTRAPR+21*, ERRTRAPR+27
MAXLINES REPORT3+3~, REPORT3+21*, REPORT3+30, REPORT4+4~, REPORT4+23*, REPORT4+35
NERRSPD ERRTRAPR+4~
NOW REPORT2+2~, REPORT2+7*, REPORT2+8*, REPORT2+9, REPORT2+10, REPORT2+11, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25*
, REPORT3+27*, REPORT3+28, REPORT3+29, REPORT3+32, REPORT3+34, REPORT4+3~, REPORT4+28*, REPORT4+30*, REPORT4+31, REPORT4+32
, REPORT4+34, REPORT4+37, REPORT4+39, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13
, SUBNODES+14, SUBNODES+16, SUBNODES+17
ONE CHKTHL7+1~, CHKTHL7+15*, CHKTHL7+16
PG REPORT3+3~, REPORT3+22*, REPORT3+30, REPORT4+4~, REPORT4+24*, REPORT4+35
>> POP REPORT2+5, REPORT3+24, REPORT4+26
PROVINFO ACTIVE+12~, ACTIVE+13*, ACTIVE+14, ACTIVE+15
QFLG REPORT3+3~, REPORT3+22*, REPORT3+26, REPORT3+27, REPORT3+28, REPORT3+29, REPORT3+30, REPORT4+4~, REPORT4+24*, REPORT4+29
, REPORT4+30, REPORT4+31, REPORT4+32, REPORT4+34, REPORT4+35, REPORT4+49
SDATE CHKTHL7+1~, CHKTHL7+19*, CHKTHL7+20, CHKTHL7+21*, CHKTHL7+25
SRCLABEL REPORT4+3~, REPORT4+28*, REPORT4+32*, REPORT4+33, REPORT4+34, REPORT4+37, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8
, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
STATE NOBLRENT+2~, STREETAD+7*, STREETAD+16*, STREETAD+21
STIME CHKTHL7+1~, CHKTHL7+20*, CHKTHL7+25
STR CHKTHL7+1~, HDRBLREN+3~, HDRBLREN+10*, HDRBLREN+22*, HDRBLREN+24, NOBLRENT+1~, SUBNODES+1~, SUBLINE~, SUBLINE+2, SUBLINE+4
, SUBLINE+6
STRA1 NOBLRENT+1~, NOBLRENT+21, NOBLRENT+25, NOBLRENT+27, NOBLRENT+29, NOBLRENT+30, STREETAD+1*, STREETAD+4, STREETAD+12, STREETAD+13*
, STREETAD+19*, STREETAD+21*
STRA2 NOBLRENT+1~, STREETAD+5*, STREETAD+14*, STREETAD+19
STRN NOBLRENT+1~, NOBLRENT+10*, NOBLRENT+12, NOBLRENT+15*, NOBLRENT+22, NOBLRENT+25, NOBLRENT+26, NOBLRENT+29, NOBLRENT+30
STRO NOBLRENT+1~
STRT NOBLRENT+1~
>> SUB1 SUBNODES+3*, SUBNODES+4*, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16
, SUBNODES+17
SUB2 SUBNODES+1~, SUBNODES+6*, SUBNODES+7*, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
SUB3 SUBNODES+1~, SUBNODES+9*, SUBNODES+10*, SUBNODES+11, SUBNODES+13, SUBNODES+14, SUBNODES+16, SUBNODES+17
SUB4 SUBNODES+1~, SUBNODES+12*, SUBNODES+13*, SUBNODES+14, SUBNODES+16, SUBNODES+17
SUB5 SUBNODES+1~, SUBNODES+15*, SUBNODES+16*, SUBNODES+17
TMPLN BLRHEADR+1~, BLRHEADR+5*, BLRHEADR+6*, BLRHEADR+7*, BLRHEADR+8*, BLRHEADR+9
TODAY PURGBLRE+1~, PURGBLRE+3*, PURGBLRE+11, PURGBLRE+12
TSK CHKTHL7+1~, CHKTHL7+3*, CHKTHL7+13*, CHKTHL7+15, CHKTHL7+18, CHKTHL7+24, CHKTHL7+27
U ACTIVE+3, ACTIVE+4, ACTIVE+5, ACTIVE+6
USER REPORT2~, REPORT2+8, REPORT2+9, REPORT2+10, REPORT2+13, REPORT2+14, REPORT3+2~, REPORT3+25*, REPORT3+26*, REPORT3+27
, REPORT3+28, REPORT3+29, REPORT3+32, REPORT3+33, REPORT4+3~, REPORT4+28*, REPORT4+29*, REPORT4+30, REPORT4+31, REPORT4+32
, REPORT4+34, REPORT4+37, REPORT4+38, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13
, SUBNODES+14, SUBNODES+16, SUBNODES+17
>> VALUE REPORT2+14*, REPORT2+15, REPORT2+16, REPORT3+32*, REPORT3+37, REPORT4+37*, REPORT4+42
VARIABLE REPORT2+2~, REPORT2+7*, REPORT2+13*, REPORT2+14, REPORT2+15, REPORT2+16, REPORT3~, REPORT3+14, REPORT3+32, REPORT4+34*
, REPORT4+37, REPORT4+41, SUBNODES+4, SUBNODES+5, SUBNODES+7, SUBNODES+8, SUBNODES+10, SUBNODES+11, SUBNODES+13, SUBNODES+14
, SUBNODES+16, SUBNODES+17
WHO PURGBLRE+1~, PURGBLRE+7*, PURGBLRE+8*, PURGBLRE+10, PURGBLRE+13
WOT SUBLINE~, SUBLINE+1
WRIORDRS ACTIVE+12~, ACTIVE+14*, ACTIVE+17
X NOWTIME+1~, NOWTIME+2*, NOWTIME+3*, NOWTIME+4*, NOWTIME+5
X1 ACTIVE+1~, ACTIVE+2*, ACTIVE+3, ACTIVE+4, ACTIVE+6
X2 ACTIVE+1~, ACTIVE+2*, ACTIVE+3*, ACTIVE+4*, ACTIVE+5*, ACTIVE+6*, ACTIVE+9, ACTIVE+17
XUDA ACTIVE~, ACTIVE+2, ACTIVE+3, ACTIVE+5, ACTIVE+13
ZERO CHKTHL7+1~, CHKTHL7+18*, CHKTHL7+19, CHKTHL7+26
ZIP NOBLRENT+2~, STREETAD+8*, STREETAD+17*, STREETAD+21
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