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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRF44DR

Package: IHS Changes To Lab

Routine: BLRF44DR


Information

BLRF44DR ; IHS/MSC/MKK - Hospital Locations (# 44) File Duplicate Abbreviation(s) Report ; [ February 29, 2012 8:00 AM ]

Source Information

Source file <BLRF44DR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$CJ,$$TRIM)^XLFSTR  
IHS Changes To Lab 3 (EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU  HEADONE2^BLRLUAC2  SENDMAIL^BLRUTIL3  
IHS VA Utilities 2 ^XBFMK  $$LOC^XBFUNC  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
TASKIT ; EP - Tasked Report
PEP ; EP
EEP ; EP - Ersatz Entry Point
TASKITIN ; EP - Tasked Initialization of variables
TROUBLE(WOT) ; EP - There are duplicate Abbreviations, which are trouble. Send Alert & MailMan message.
; D SNDALERT^BLRUTIL3(CNT_" Duplicate Abbreviations Exist in HOSPITAL LOCATION (# 44) File.")
HEADONE(HD1) ; EP -- Asks if user wants only 1 header line
TASKLINE ; EP
INITVARS() ; EP
REPORT ; EP
TASKREPT ; EP - Task the report
EP ; EP
DUPLINE ; EP

External References

Name Field # of Occurrence
^%ZIS INITVARS+8
^%ZISC REPORT+12
^%ZTLOAD TASKREPT+11
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU INITVARS+7
HEADERPG^BLRGMENU DUPLINE+5
PRESSKEY^BLRGMENU INITVARS+11, REPORT+14, TASKREPT+13
HEADONE2^BLRLUAC2 INITVARS+14
SENDMAIL^BLRUTIL3 TROUBLE+3
^DIR HEADONE+5
^XBFMK HEADONE+1
$$LOC^XBFUNC TASKITIN+10
$$CJ^XLFSTR INITVARS+18, INITVARS+19, TASKITIN+10, TASKITIN+11, TASKITIN+12, TASKITIN+15, TASKITIN+16
$$TRIM^XLFSTR INITVARS+1, TASKITIN+10, TASKITIN+11, TASKITIN+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"Device Not Available. Routine Ends.",!!
  • Line Location: INITVARS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: INITVARS+14
Function Call: WRITE
  • Prompt: IEN
  • Line Location: DUPLINE+6
Function Call: WRITE
  • Prompt: ?9,$E($P($G(^SC(IEN,0)),"^"),1,38)
  • Line Location: DUPLINE+7
Function Call: WRITE
  • Prompt: ?44,$S($L($TR(ABBREV," "))>0:ABBREV,1:"<BLANK>")
  • Line Location: DUPLINE+8
Function Call: WRITE
  • Prompt: ?54,$P($G(^SC(IEN,0)),"^",4)
  • Line Location: DUPLINE+9
Function Call: WRITE
  • Prompt: ?64,$E($P($G(^DIC(4,+$P($G(^SC(IEN,0)),"^",4),0)),"^"),1,16)
  • Line Location: DUPLINE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPLINE+11
Function Call: WRITE
  • Prompt: !,?4,"Job ",ZTSK," Queued",!
  • Line Location: TASKREPT+12
Routine Call
  • DIR
  • Line Location:
    • HEADONE+5
Routine Call
  • %ZIS
  • Line Location:
    • INITVARS+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DUPLINE+10, TASKLINE+10
^SC - [#44] DUPLINE+7, DUPLINE+9, DUPLINE+10, TASKLINE+6, TASKLINE+9, TASKLINE+10
^SC("C" REPORT+2, REPORT+4, REPORT+5, DUPLINE+4, TASKIT+8, TASKIT+10, TASKIT+11, TASKLINE+4

Label References

Name Line Occurrences
$$INITVARS EP+4
DUPLINE REPORT+8
REPORT EP+5
TASKITIN TASKIT+5
TASKLINE TASKIT+14
TROUBLE TASKIT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABBREV EP+1~, REPORT+1*, REPORT+2*, REPORT+4, REPORT+5, DUPLINE+2, DUPLINE+4, DUPLINE+8, TASKIT+1~, TASKIT+7*
, TASKIT+8*, TASKIT+10, TASKIT+11, TASKLINE+2, TASKLINE+4, TASKLINE+8
BLRDUZ TASKREPT+1~, TASKREPT+6*
BLRVERN EP+1~, INITVARS+1*, TASKIT+1~
CNT EP+1~, INITVARS+26*, REPORT+10, DUPLINE+1*, DUPLINE+2*, TASKIT+1~, TASKIT+16, TASKITIN+26*, TASKLINE+1*, TASKLINE+2*
CURUCI EP+1~
>> DIR("A" HEADONE+2*
>> DIR("B" HEADONE+3*
>> DIR(0 HEADONE+4*
DUZ TASKREPT+6
HD1 EP+2~, INITVARS+14, DUPLINE+5, HEADONE~, HEADONE+6*
HEADER EP+2~
HEADER(1 INITVARS+3*
HEADER(2 INITVARS+4*
HEADER(3 INITVARS+5*
HEADER(4 INITVARS+18*, INITVARS+19*
HEADER(5 INITVARS+20*, INITVARS+21*, INITVARS+22*, INITVARS+23*, INITVARS+24*
IEN EP+1~, REPORT+3*, REPORT+4*, REPORT+5, DUPLINE+3*, DUPLINE+4*, DUPLINE+6, DUPLINE+7, DUPLINE+9, DUPLINE+10
, TASKIT+1~, TASKIT+9*, TASKIT+10*, TASKIT+11, TASKLINE+3*, TASKLINE+4*, TASKLINE+5, TASKLINE+6, TASKLINE+9, TASKLINE+10
IEN2 EP+1~, REPORT+5*, REPORT+6, TASKIT+1~, TASKIT+11*, TASKIT+12
IO INITVARS+12
IOM TASKITIN+22
IOP TASKREPT+1~, TASKREPT+10*
IOSL INITVARS+16
IOST INITVARS+14, REPORT+14
LINE TASKIT+1~, TASKITIN+24*, TASKLINE+5, TASKLINE+6, TASKLINE+8, TASKLINE+9, TASKLINE+10, TASKLINE+11*
LINES EP+2~, INITVARS+17*, DUPLINE+5, DUPLINE+12*
MAXLINES EP+2~, INITVARS+16*, INITVARS+17, DUPLINE+5
MMSGSTR TASKIT+1~, TASKITIN+1!, TROUBLE+3
MMSGSTR( TASKLINE+5*, TASKLINE+6*, TASKLINE+8*, TASKLINE+9*, TASKLINE+10*
MMSGSTR(1 TASKITIN+3*
MMSGSTR(10 TASKITIN+15*, TASKITIN+16*
MMSGSTR(11 TASKITIN+17*, TASKITIN+18*, TASKITIN+19*, TASKITIN+20*, TASKITIN+21*
MMSGSTR(12 TASKITIN+22*
MMSGSTR(2 TASKITIN+4*
MMSGSTR(3 TASKITIN+5*
MMSGSTR(4 TASKITIN+6*
MMSGSTR(5 TASKITIN+7*
MMSGSTR(6 TASKITIN+10*
MMSGSTR(7 TASKITIN+11*
MMSGSTR(8 TASKITIN+12*
MMSGSTR(9 TASKITIN+14*
PG EP+2~, INITVARS+26*, DUPLINE+5
>> POP INITVARS+9
QFLG EP+2~, INITVARS+26*, REPORT+2, REPORT+10, REPORT+14, DUPLINE+4, DUPLINE+5
WOT TROUBLE~
>> Y HEADONE+6
ZTDESC TASKREPT+1~, TASKREPT+4*
ZTDTH TASKREPT+1~, TASKREPT+8*
ZTIO TASKREPT+1~, TASKREPT+9*
>> ZTQUEUED TASKIT+3
>> ZTREQ TASKIT+3*
ZTRTN TASKREPT+1~, TASKREPT+3*
ZTSAVE TASKREPT+1~
ZTSAVE("*" TASKREPT+7*
ZTSK TASKREPT+1~, TASKREPT+12

Marked Items

Name Field # of Occurrence
$T( INITVARS+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All