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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRRLTDU

Package: IHS Changes To Lab

Routine: BLRRLTDU


Information

BLRRLTDU ; IHS/MSC/MKK - Reference Lab Test Delete Utilities ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRRLTDU.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ($$HTE,$$HTFM)^XLFDT  $$CJ^XLFSTR  
IHS Changes To Lab 3 (ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU  PEP^BLRRLTDR  ($$GETACCCP,SENDMAIL)^BLRUTIL3  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Lab Service 1 ^LRPARAM  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 2 BLRMANP2  BLRRLTDR  

Entry Points

Name Comments DBIA/ICR reference
TXNSURPT ; EP - Report on Reference Lab Unsuccessful updates
DEBUGRPT ; EP - Debug the XTMPRPT report
XTMPIRPT ; EP - There are 100 Entries in ^XTMP Issues node - Send Report to LMI Mail Group and CLEAR ^XTMP Issues
STORTXNS(F60IEN,LRAS,TYPE) ; EP - Set data when Reference Lab update successful
TXNURPTL ; EP - Line of Data
XTMPNSET(F60IEN,MSG) ; EP - Set data in ^XTMP when "Not Performed" update successful
TXNURPTI() ; EP - Initialization
XTMPNRPT ; EP - Report on Successfully Updated Entries
EEP ; Ersatz EP
REPORTS ; EP - Reports Menu
TXNSRPTI() ; EP - Initialization
TXNSRPTB() ; EP - "Break out" variables for report
XTMPNRPL ; EP - Line of Data
XTMPNRPI() ; EP - Initialization
TXNSRPTL ; EP - Line of Data
DEBUG ; EP - Debug BLRRLTDR
TXNURPTB ; EP - Break out data
TXNSREPT ; EP - Report on Reference Lab successful updates
XTMPISET(MSG,RTN) ; EP - Set data in ^XTMP when there are issues

External References

Name Field # of Occurrence
^%ZIS TXNSRPTI+18, XTMPNRPI+29, TXNURPTI+16
^%ZISC TXNSREPT+15, XTMPNRPT+16, TXNSURPT+13
ADDTMENU^BLRGMENU REPORTS+5, REPORTS+6, REPORTS+7
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU TXNSRPTI+7, XTMPNRPI+7, TXNURPTI+7
HEADERPG^BLRGMENU TXNSRPTL+3, XTMPNRPL+1, TXNURPTL+1
HEADONE^BLRGMENU TXNSRPTI+8, XTMPNRPI+8, TXNURPTI+8
LINEWRAP^BLRGMENU TXNURPTL+10
MENUDRVR^BLRGMENU REPORTS+10
PRESSKEY^BLRGMENU TXNSREPT+17, TXNSRPTI+21, XTMPNRPT+20, XTMPNRPI+12, XTMPNRPI+33, TXNSURPT+15, TXNURPTI+19, DEBUGRPT+5, DEBUG+12
PEP^BLRRLTDR DEBUG+15
$$GETACCCP^BLRUTIL3 STORTXNS+10
SENDMAIL^BLRUTIL3 XTMPIRPT+32
$$GET1^DIQ TXNSRPTB+3, TXNSRPTB+4, XTMPNRPT+8, XTMPNRPI+3, XTMPNRPL+7, XTMPIRPT+6, XTMPIRPT+21
^DIR DEBUG+9
^LRPARAM DEBUG+4
^XBFMK DEBUG+6
$$HTE^XLFDT TXNSRPTB+1, XTMPNRPL+4, XTMPIRPT+27, TXNURPTB+1
$$HTFM^XLFDT STORTXNS+5, STORTXNS+6, XTMPNSET+5, XTMPNSET+6, XTMPISET+5, XTMPISET+6, DEBUGRPT+9
$$CJ^XLFSTR TXNSRPTI+11, XTMPNRPI+21, XTMPIRPT+6, XTMPIRPT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,"Device Issue. POP postive. Routine Ends."
  • Line Location: TXNSRPTI+20
Function Call: WRITE
  • Prompt: EXTDATE
  • Line Location: TXNSRPTL+5
Function Call: WRITE
  • Prompt: ?25,TYPEDESC
  • Line Location: TXNSRPTL+6
Function Call: WRITE
  • Prompt: ?32,LRAS
  • Line Location: TXNSRPTL+7
Function Call: WRITE
  • Prompt: ?52,F60IEN
  • Line Location: TXNSRPTL+8
Function Call: WRITE
  • Prompt: ?62,F60DESC
  • Line Location: TXNSRPTL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TXNSRPTL+10
Function Call: WRITE
  • Prompt: !,?4,"No entries in ^XTMP(""BLRRLTDS"",""UID""). Routine Ends."
  • Line Location: XTMPNRPI+11
Function Call: WRITE
  • Prompt: !,?4,"Issue opening device. Routine Ends."
  • Line Location: XTMPNRPI+32
Function Call: WRITE
  • Prompt: 1/0
  • Line Location: XTMPNRPI+34
Function Call: WRITE
  • Prompt: UID
  • Line Location: XTMPNRPL+3
Function Call: WRITE
  • Prompt: ?14,$$HTE^XLFDT(HDATE,"2MZ")
  • Line Location: XTMPNRPL+4
Function Call: WRITE
  • Prompt: ?30,MSGDUZ
  • Line Location: XTMPNRPL+5
Function Call: WRITE
  • Prompt: ?37,F60IEN
  • Line Location: XTMPNRPL+6
Function Call: WRITE
  • Prompt: ?47,$E($$GET1^DIQ(60,F60IEN,"NAME"),1,18)
  • Line Location: XTMPNRPL+7
Function Call: WRITE
  • Prompt: ?67,$G(^XTMP("BLRRLTDS","UID",UID,"DUZ",MSGDUZ,HDATE,F60IEN))
  • Line Location: XTMPNRPL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: XTMPNRPL+9
Function Call: WRITE
  • Prompt: !!,?4,"Device Issue. POP postive. Routine Ends."
  • Line Location: TXNURPTI+18
Function Call: WRITE
  • Prompt: UID
  • Line Location: TXNURPTL+5
Function Call: WRITE
  • Prompt: ?14,DUZVAR
  • Line Location: TXNURPTL+6
Function Call: WRITE
  • Prompt: ?24,DATETIME
  • Line Location: TXNURPTL+7
Function Call: WRITE
  • Prompt: ?42,RTN
  • Line Location: TXNURPTL+8
Function Call: WRITE
  • Prompt: ?52,MESSAGE,!
  • Line Location: TXNURPTL+9
Function Call: WRITE
  • Prompt: !!,?4,"Will not K ^XTMP(""BLRRLTDI"") nor reset it because MU testing has begun on this UCI."
  • Line Location: DEBUGRPT+4
Function Call: WRITE
  • Prompt: !!,?4,"No/Invalid Entry. Routine Ends."
  • Line Location: DEBUG+11
Routine Call
  • DIR
  • Line Location:
    • DEBUG+9
Routine Call
  • %ZIS
  • Line Location:
    • TXNSRPTI+18
    • XTMPNRPI+29
    • TXNURPTI+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LRO(68 - [#68] STORTXNS+12, STORTXNS+16, STORTXNS+17, XTMPNSET+9, XTMPISET+9
^XTMP("BLRRLTDI" XTMPISET+3, XTMPISET+7*, XTMPISET+10*, XTMPISET+11*, XTMPISET+14, XTMPIRPT+18, XTMPIRPT+20, XTMPIRPT+23, XTMPIRPT+24, XTMPIRPT+34!
, TXNSURPT+5, TXNSURPT+7, TXNSURPT+9, TXNURPTB+2, DEBUGRPT+7!, DEBUGRPT+9*, DEBUGRPT+23, DEBUGRPT+24*, DEBUGRPT+28*
^XTMP("BLRRLTDS" XTMPNSET+3, XTMPNSET+7*, XTMPNSET+10*, XTMPNSET+11*, XTMPNRPT+5, XTMPNRPT+7, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPI+10, XTMPNRPL+8
^XTMP("BLRRLTMR" STORTXNS+3, STORTXNS+7*, STORTXNS+19*, TXNSREPT+5, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11
^XTMP("BLRTRACE" DEBUG+3!

Label References

Name Line Occurrences
$$TXNSRPTB TXNSRPTL+1
$$TXNSRPTI TXNSREPT+3
$$TXNURPTI TXNSURPT+3
$$XTMPNRPI XTMPNRPT+3
TXNSRPTL TXNSREPT+11
TXNURPTB TXNURPTL+3
TXNURPTL TXNSURPT+9
XTMPIRPT XTMPISET+14, DEBUGRPT+31
XTMPNRPL XTMPNRPT+12

Naked Globals

Name Field # of Occurrence
^( STORTXNS+12
^(3 STORTXNS+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRVERN TXNSRPTI+1*, XTMPNRPI+1*, TXNURPTI+1*, REPORTS+3*
>> BLRVERN2 TXNSRPTI+2*, TXNURPTI+2*
>> CNT TXNSREPT+13, TXNSRPTI+26*, TXNSRPTL+12*, XTMPNRPT+14, XTMPNRPI+39*, XTMPNRPL+11*, TXNSURPT+11, TXNURPTI+24*, TXNURPTL+11*, DEBUGRPT+21*
, DEBUGRPT+22, DEBUGRPT+27, DEBUGRPT+29*
>> DATETIME TXNURPTL+7, TXNURPTB+1*
>> DILOCKTM STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> DIR("A" DEBUG+8*
>> DIR(0 DEBUG+7*
>> DIRUT DEBUG+10
>> DISYS STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
DT STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUGRPT+9, DEBUG+1, REPORTS+1
DTIME STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
DUZ STORTXNS+1, TXNSREPT+1, XTMPNSET+10, XTMPNRPT+1, XTMPISET+10, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
DUZ(2 XTMPNRPI+3, XTMPIRPT+6
>> DUZVAR TXNSURPT+6*, TXNSURPT+7*, TXNSURPT+9, TXNURPTL+6, TXNURPTB+2
>> ERR DEBUGRPT+21*, DEBUGRPT+28*
>> ERRMAX DEBUGRPT+12*, DEBUGRPT+13*, DEBUGRPT+14*, DEBUGRPT+15*, DEBUGRPT+16*, DEBUGRPT+17*, DEBUGRPT+18*, DEBUGRPT+28
>> ERRMSG( DEBUGRPT+12*, DEBUGRPT+13*, DEBUGRPT+14*, DEBUGRPT+15*, DEBUGRPT+16*, DEBUGRPT+17*, DEBUGRPT+18*, DEBUGRPT+28
>> EXTDATE TXNSRPTL+5, TXNSRPTB+1*
>> F60DESC TXNSRPTL+9, TXNSRPTB+3*, TXNSRPTB+4*
F60IEN STORTXNS~, STORTXNS+1, STORTXNS+19, TXNSREPT+10*, TXNSREPT+11*, TXNSRPTL+8, TXNSRPTB+3, TXNSRPTB+4, XTMPNSET~, XTMPNSET+10
, XTMPNRPT+11*, XTMPNRPT+12*, XTMPNRPL+6, XTMPNRPL+7, XTMPNRPL+8
>> FAKEDUZ DEBUGRPT+26*, DEBUGRPT+28
>> FAKERTN DEBUGRPT+27*, DEBUGRPT+28
>> HDATE XTMPNRPT+9*, XTMPNRPT+10*, XTMPNRPT+12, XTMPNRPL+4, XTMPNRPL+8, XTMPIRPT+22*, XTMPIRPT+23*, XTMPIRPT+24, XTMPIRPT+27, TXNSURPT+8*
, TXNSURPT+9*, TXNURPTB+1, TXNURPTB+2
>> HEADER(1 TXNSRPTI+4*, XTMPNRPI+3*, TXNURPTI+4*
>> HEADER(2 TXNSRPTI+5*, XTMPNRPI+4*, TXNURPTI+5*
>> HEADER(3 TXNSRPTI+10*, XTMPNRPI+5*
>> HEADER(4 TXNSRPTI+11*, XTMPNRPI+21*, TXNURPTI+10*, TXNURPTI+11*, TXNURPTI+12*, TXNURPTI+13*, TXNURPTI+14*
>> HEADER(5 TXNSRPTI+12*, TXNSRPTI+13*, TXNSRPTI+14*, TXNSRPTI+15*, TXNSRPTI+16*, XTMPNRPI+22*, XTMPNRPI+23*, XTMPNRPI+24*, XTMPNRPI+25*, XTMPNRPI+26*
, XTMPNRPI+27*
>> HEADONE TXNSRPTI+8, TXNSRPTL+3, XTMPNRPI+8, XTMPNRPL+1, TXNURPTI+8
IO STORTXNS+1, TXNSREPT+1, TXNSRPTI+23, XTMPNRPT+1, XTMPNRPI+36, XTMPIRPT+1, TXNSURPT+1, TXNURPTI+21, DEBUGRPT+1, DEBUG+1
, REPORTS+1
>> IOBS STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
IOF STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
IOM STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, XTMPIRPT+14, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
ION STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> IOS STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
IOSL STORTXNS+1, TXNSREPT+1, TXNSRPTI+25, XTMPNRPT+1, XTMPNRPI+38, XTMPIRPT+1, TXNSURPT+1, TXNURPTI+23, DEBUGRPT+1, DEBUG+1
, REPORTS+1
IOST STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> IOT STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> IOXY STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> LA76249 DEBUG+14*
>> LINES TXNSRPTI+25*, TXNSRPTL+3, TXNSRPTL+11*, XTMPNRPI+38*, XTMPNRPL+1, XTMPNRPL+10*, TXNURPTI+23*, TXNURPTL+1, TXNURPTL+9*
>> LRAA STORTXNS+10, STORTXNS+12, STORTXNS+15, STORTXNS+16, STORTXNS+17, XTMPNSET+9, XTMPISET+9
>> LRAD STORTXNS+10, STORTXNS+12, STORTXNS+15, STORTXNS+16, XTMPNSET+9, XTMPISET+9
>> LRAN STORTXNS+10, STORTXNS+12, STORTXNS+15, STORTXNS+16, XTMPNSET+9, XTMPISET+9
LRAS STORTXNS~, STORTXNS+1, STORTXNS+10, STORTXNS+19, TXNSREPT+8*, TXNSREPT+9*, TXNSREPT+11, TXNSRPTL+7
>> LRDFN STORTXNS+14*, STORTXNS+16*, STORTXNS+19
>> LREND STORTXNS+20*, XTMPNSET+12*, XTMPISET+12*
>> LRIDT STORTXNS+14*, STORTXNS+16*, STORTXNS+19
>> LRPARAM DEBUG+4
>> LRSS STORTXNS+14*, STORTXNS+17*, STORTXNS+19
>> MAXLINES TXNSRPTI+25*, TXNSRPTL+3, XTMPNRPI+38*, XTMPNRPL+1, TXNURPTI+23*, TXNURPTL+1
>> MESSAGE XTMPIRPT+32, TXNURPTL+9, TXNURPTL+10, TXNURPTB+4*
>> MESSAGE( XTMPIRPT+26*, XTMPIRPT+27*, XTMPIRPT+28*, XTMPIRPT+29*, XTMPIRPT+30*
>> MESSAGE(1 XTMPIRPT+6*, XTMPIRPT+32
>> MESSAGE(2 XTMPIRPT+7*
>> MESSAGE(3 XTMPIRPT+8*
>> MESSAGE(4 XTMPIRPT+9*, XTMPIRPT+10*, XTMPIRPT+11*, XTMPIRPT+12*, XTMPIRPT+13*
>> MESSAGE(5 XTMPIRPT+14*
MSG XTMPNSET~, XTMPNSET+10, XTMPISET~, XTMPISET+10
>> MSGDUZ XTMPNRPT+6*, XTMPNRPT+7*, XTMPNRPT+8, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPL+5, XTMPNRPL+8, XTMPIRPT+19*, XTMPIRPT+20*, XTMPIRPT+21
, XTMPIRPT+23, XTMPIRPT+24, XTMPIRPT+28
>> MSGL XTMPIRPT+17*, XTMPIRPT+25*, XTMPIRPT+26, XTMPIRPT+27, XTMPIRPT+28, XTMPIRPT+29, XTMPIRPT+30
>> NAMEDUZ XTMPNRPT+8*, XTMPIRPT+21*
>> ORDER STORTXNS+12*, STORTXNS+19
>> PG TXNSRPTI+26*, TXNSRPTL+3, XTMPNRPI+39*, XTMPNRPL+1, TXNURPTI+24*, TXNURPTL+1
>> POP TXNSRPTI+19, XTMPNRPI+31, TXNURPTI+17
>> QFLG TXNSREPT+5, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11, TXNSREPT+13, TXNSREPT+17, TXNSRPTI+26*, TXNSRPTL+3, XTMPNRPT+5, XTMPNRPT+7
, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPT+14, XTMPNRPT+18, XTMPNRPI+40*, XTMPNRPL+1, TXNSURPT+5, TXNSURPT+7, TXNSURPT+9, TXNSURPT+11
, TXNSURPT+15, TXNURPTI+24*, TXNURPTL+1
RTN XTMPISET~, XTMPISET+10, TXNURPTL+8, TXNURPTB+3*
STR STORTXNS+3*, STORTXNS+4, STORTXNS+5*, STORTXNS+6*, STORTXNS+7, XTMPNSET+1~, XTMPNSET+3*, XTMPNSET+4, XTMPNSET+5*, XTMPNSET+6*
, XTMPNSET+7, XTMPISET+1~, XTMPISET+3*, XTMPISET+4, XTMPISET+5*, XTMPISET+6*, XTMPISET+7, XTMPIRPT+24*, XTMPIRPT+29, XTMPIRPT+30
, TXNURPTB+2*, TXNURPTB+3, TXNURPTB+4
>> THEN TXNSREPT+5*, TXNSREPT+7, TXNSREPT+9, TXNSREPT+11, TXNSRPTI+27*, TXNSRPTB+1, TXNURPTI+24*
TYPE STORTXNS~, STORTXNS+1, STORTXNS+19, TXNSREPT+6*, TXNSREPT+7*, TXNSREPT+9, TXNSREPT+11, TXNSRPTB+2
>> TYPEDESC TXNSRPTL+6, TXNSRPTB+2*
U STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
UID STORTXNS+12*, STORTXNS+19, XTMPNSET+1~, XTMPNSET+9*, XTMPNSET+10, XTMPNRPT+5*, XTMPNRPT+7, XTMPNRPT+10, XTMPNRPT+12, XTMPNRPI+39*
, XTMPNRPL+3, XTMPNRPL+8, XTMPISET+1~, XTMPISET+9*, XTMPISET+10, XTMPIRPT+17*, XTMPIRPT+18*, XTMPIRPT+20, XTMPIRPT+23, XTMPIRPT+24
, XTMPIRPT+26, TXNSURPT+5*, TXNSURPT+7, TXNSURPT+9, TXNURPTI+24*, TXNURPTL+5, TXNURPTB+2, DEBUGRPT+23*, DEBUGRPT+28
>> X STORTXNS+10*, DEBUG+14
>> XPARSYS STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1
>> XQXFLG STORTXNS+1, TXNSREPT+1, XTMPNRPT+1, XTMPIRPT+1, TXNSURPT+1, DEBUGRPT+1, DEBUG+1, REPORTS+1

Marked Items

Name Field # of Occurrence
$T( TXNSRPTI+1, XTMPNRPI+1, TXNURPTI+1, REPORTS+3
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 |  Naked Globals |  Local Variables |  Marked Items |  All