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 |  Marked Items |  All
Print Page as PDF
Routine: BLREMERA

Package: IHS Changes To Lab

Routine: BLREMERA


Information

BLREMERA ; IHS/MSC/MKK - BLR EMERgency Alert parameter edit ; 02-May-2016 15:50 ; MKK

Source Information

Source file <BLREMERA.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 3 $$FIND1^DIC  $$GET1^DIQ  ^DIR  
IHS Changes To Lab 2 (ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU  PROMPTO^BLRUTIL7  
Kernel 2 ($$DT,$$HTE,$$HTFM)^XLFDT  ($$CJ,$$UP)^XLFSTR  
IHS VA Utilities 1 ^XBFMK  
MailMan 1 ($$DM,$$MG)^XMBGRP  
Toolkit 1 ($$GET,EN)^XPAR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Changes To Lab 5 BLRPAMGE  BLRPRE39  BLRPRE40  BLRPRE41  BLRPRE42  

Entry Points

Name Comments DBIA/ICR reference
DELFMGRP ; EP - DELete user(s) From Mail GRouP
ADDTMGRP ; EP - ADD user(s) To Mail GRouP
GETMEMS() ; EP - GET the MEMberS of the Mail Group and setup DIR array
CHANGE(PARAMETER) ; EP
RPTERR(ERROR,PARAMETER) ; EP
PEP ; EP
EEP ; Ersatz EP
COLDTACC ; EP - Collection Date visit Creation parameter
SETBLRVS(TWO) ; EP - Set the BLRVERN variable
LISTMGRP ; EP - LIST all the users on a Mail GRouP
MAILGRPE(MGROUP) ; EP - Mail Group Edit
EDITMGRP ; EP - Edit the LAB HIGH URGENCY NOTIFICATION Mail Group
STORERRS(ERROR,PARAMETER) ; EP - Store Error(s)

External References

Name Field # of Occurrence
ADDTMENU^BLRGMENU MAILGRPE+5, MAILGRPE+6, MAILGRPE+7
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU CHANGE+12, ADDTMGRP+11, DELFMGRP+13, LISTMGRP+9
HEADERPG^BLRGMENU LISTMGRP+21
HEADONE^BLRGMENU LISTMGRP+10
LINEWRAP^BLRGMENU RPTERR+8
MENUDRVR^BLRGMENU MAILGRPE+9
PRESSKEY^BLRGMENU CHANGE+22, CHANGE+31, RPTERR+11, ADDTMGRP+26, ADDTMGRP+30, DELFMGRP+27, DELFMGRP+31, LISTMGRP+30
PROMPTO^BLRUTIL7 ADDTMGRP+15, DELFMGRP+17
$$FIND1^DIC DELFMGRP+9, LISTMGRP+18
$$GET1^DIQ GETMEMS+4, LISTMGRP+23, LISTMGRP+24
^DIR CHANGE+18, ADDTMGRP+14, DELFMGRP+16
^XBFMK CHANGE+14, ADDTMGRP+12, DELFMGRP+14
$$DT^XLFDT STORERRS+4
$$HTE^XLFDT STORERRS+8
$$HTFM^XLFDT STORERRS+5
$$CJ^XLFSTR CHANGE+7, MAILGRPE+9, ADDTMGRP+7, DELFMGRP+7, LISTMGRP+7
$$UP^XLFSTR CHANGE+24
$$DM^XMBGRP DELFMGRP+22
$$MG^XMBGRP ADDTMGRP+21
$$GET^XPAR CHANGE+9, CHANGE+29
EN^XPAR CHANGE+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,"Invalid/No Entry/Quit. Routine Ends."
  • Line Location: CHANGE+21
Function Call: WRITE
  • Prompt: !!,?4,PARAMETER," Parameter is currently ",$S(RESULT:"YES",RESULT=0:"NO",1:"")
  • Line Location: CHANGE+30
Function Call: WRITE
  • Prompt: !!,"*** ERROR Modifying ",PARAMETER," paramter. ***",!!
  • Line Location: RPTERR+6
Function Call: WRITE
  • Prompt: ?4,"Error Number:",ERRNUM,!
  • Line Location: RPTERR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTERR+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADDTMGRP+22
Function Call: WRITE
  • Prompt: ?4,NEWMEMN," added to ",MGROUP
  • Line Location: ADDTMGRP+23
Function Call: WRITE
  • Prompt: ?4,NEWMEMN," *NOT* added to ",MGROUP
  • Line Location: ADDTMGRP+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDTMGRP+25
Function Call: WRITE
  • Prompt: !!,?4,NUMADD," Users added to ",MGROUP,!
  • Line Location: ADDTMGRP+28
Function Call: WRITE
  • Prompt: !,?4,NUMERRS," Errors when trying to add users to ",MGROUP,!
  • Line Location: ADDTMGRP+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: DELFMGRP+23
Function Call: WRITE
  • Prompt: ?4,DELMEMN," deleted from ",MGROUP," Mail Group"
  • Line Location: DELFMGRP+24
Function Call: WRITE
  • Prompt: ?4,DELMEMN," *NOT* deleted from ",MGROUP," Mail Group"
  • Line Location: DELFMGRP+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DELFMGRP+26
Function Call: WRITE
  • Prompt: !!,?4,$S(NUMDEL:NUMDEL,1:"No")," User",$S(NUMDEL>1:"s",1:"")," deleted from ",MGROUP,!
  • Line Location: DELFMGRP+29
Function Call: WRITE
  • Prompt: ?4,$$GET1^DIQ(3.81,MEMIEN,.01,"I")
  • Line Location: LISTMGRP+23
Function Call: WRITE
  • Prompt: ?14,$$GET1^DIQ(3.81,MEMIEN,.01)
  • Line Location: LISTMGRP+24
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTMGRP+25
Function Call: WRITE
  • Prompt: !!,?9,CNT," Members"
  • Line Location: LISTMGRP+29
Routine Call
  • DIC
  • Line Location:
    • DELFMGRP+9
    • LISTMGRP+18
Routine Call
  • DIR
  • Line Location:
    • CHANGE+18
    • ADDTMGRP+14
    • DELFMGRP+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^XMB(3.8 - [#3.8] FIND1^DIC
3.81 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XMB(3.8 - [#3.8] GETMEMS+3, LISTMGRP+20
^XTMP( STORERRS+4, STORERRS+5*, STORERRS+8*, STORERRS+9*, STORERRS+10*

Label References

Name Line Occurrences
$$GETMEMS DELFMGRP+15
CHANGE PEP+1, COLDTACC+1
MAILGRPE EDITMGRP+1
RPTERR CHANGE+33
SETBLRVS CHANGE+3, STORERRS+3, MAILGRPE+3, ADDTMGRP+3, DELFMGRP+3, LISTMGRP+3
STORERRS RPTERR+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANSWER CHANGE+24*, CHANGE+26
BLRVERN STORERRS+4, STORERRS+5, STORERRS+8, STORERRS+9, STORERRS+10, SETBLRVS+1!, SETBLRVS+3*
>> CNT LISTMGRP+19*, LISTMGRP+27*, LISTMGRP+29
>> DELMEM DELFMGRP+19*, DELFMGRP+21
>> DELMEMN DELFMGRP+19*, DELFMGRP+24, DELFMGRP+25
>> DILOCKTM CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
DIR GETMEMS+9!
DIR("A" CHANGE+16*, GETMEMS+21*
DIR("B" CHANGE+17*
DIR("L" GETMEMS+16*, GETMEMS+18*, GETMEMS+19*, GETMEMS+20*
DIR(0 CHANGE+15*, ADDTMGRP+13*, GETMEMS+10*, GETMEMS+14*, GETMEMS+15*
>> DIRUT CHANGE+20, ADDTMGRP+15, DELFMGRP+17
>> DISYS CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
DT CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
DTIME CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
DUZ CHANGE+1, STORERRS+1, STORERRS+9, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
ERRDESC RPTERR+1~, RPTERR+4*, RPTERR+8
ERRNUM RPTERR+1~, RPTERR+3*, RPTERR+7
ERROR RPTERR~, RPTERR+3, RPTERR+4, RPTERR+13, STORERRS~, STORERRS+1, STORERRS+10
>> ERRS CHANGE+26, CHANGE+28, CHANGE+33
>> HDRONE LISTMGRP+10, LISTMGRP+21
>> HEADER(1 CHANGE+5*, ADDTMGRP+5*, DELFMGRP+5*, LISTMGRP+5*
>> HEADER(2 CHANGE+6*, ADDTMGRP+6*, DELFMGRP+6*, LISTMGRP+6*
>> HEADER(3 CHANGE+7*, ADDTMGRP+7*, DELFMGRP+7*, LISTMGRP+7*
>> HEADER(4 LISTMGRP+12*
>> HEADER(5 LISTMGRP+13*, LISTMGRP+14*
IO CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> IOBS CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
IOF CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
IOM CHANGE+1, CHANGE+7, STORERRS+1, MAILGRPE+1, MAILGRPE+9, ADDTMGRP+1, ADDTMGRP+7, DELFMGRP+1, DELFMGRP+7, LISTMGRP+1
, LISTMGRP+7
ION CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> IOS CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
IOSL CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1, LISTMGRP+15
IOST CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> IOT CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> IOXY CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> LINES LISTMGRP+15*, LISTMGRP+21, LISTMGRP+26*
>> MAXLINES LISTMGRP+15*, LISTMGRP+21
MEMBER GETMEMS+1!, GETMEMS+2*, GETMEMS+5*, GETMEMS+7, LISTMGRP+19*, LISTMGRP+20*, LISTMGRP+22
MEMBER( GETMEMS+4*, GETMEMS+12, GETMEMS+17
>> MEMCNT GETMEMS+11*, GETMEMS+13*, GETMEMS+14, GETMEMS+15, GETMEMS+16, GETMEMS+17
>> MEMIEN LISTMGRP+22*, LISTMGRP+23, LISTMGRP+24
>> MEMNAME GETMEMS+11*, GETMEMS+12*, GETMEMS+16, GETMEMS+17
>> MGIEN DELFMGRP+9*, GETMEMS+3, LISTMGRP+18*, LISTMGRP+20, LISTMGRP+22
>> MGMEMIEN GETMEMS+2*, GETMEMS+3*, GETMEMS+4
MGROUP MAILGRPE~, MAILGRPE+1, MAILGRPE+9, ADDTMGRP+1, ADDTMGRP+6, ADDTMGRP+21, ADDTMGRP+23, ADDTMGRP+24, ADDTMGRP+28, ADDTMGRP+29
, DELFMGRP+1, DELFMGRP+6, DELFMGRP+9, DELFMGRP+22, DELFMGRP+24, DELFMGRP+25, DELFMGRP+29, DELFMGRP+30, LISTMGRP+1, LISTMGRP+6
, LISTMGRP+18
>> NEWMEM ADDTMGRP+17*
>> NEWMEMN ADDTMGRP+17*, ADDTMGRP+23, ADDTMGRP+24
NOWH RPTERR+1~, STORERRS+7*, STORERRS+8, STORERRS+9, STORERRS+10
>> NUMADD ADDTMGRP+9*, ADDTMGRP+23*, ADDTMGRP+28
>> NUMDEL DELFMGRP+11*, DELFMGRP+24*, DELFMGRP+29, DELFMGRP+30
>> NUMERRS ADDTMGRP+9*, ADDTMGRP+24*, ADDTMGRP+29, DELFMGRP+11*, DELFMGRP+25*, DELFMGRP+30
>> ONGO ADDTMGRP+9*, ADDTMGRP+10, ADDTMGRP+15*, DELFMGRP+11*, DELFMGRP+12, DELFMGRP+17*
PARAMETER CHANGE~, CHANGE+1, CHANGE+6, CHANGE+9, CHANGE+16, CHANGE+26, CHANGE+29, CHANGE+30, CHANGE+33, RPTERR~
, RPTERR+6, RPTERR+13, STORERRS~, STORERRS+1, STORERRS+4
>> PG LISTMGRP+16*, LISTMGRP+21
>> QFLG LISTMGRP+16*, LISTMGRP+20, LISTMGRP+21
>> RESULT CHANGE+9*, CHANGE+10*, CHANGE+17, CHANGE+29*, CHANGE+30
SELECTED GETMEMS+9!
SELECTED( DELFMGRP+19, GETMEMS+17*
>> SUCCESS ADDTMGRP+21*, ADDTMGRP+23, DELFMGRP+22*, DELFMGRP+24
>> TAB GETMEMS+10*, GETMEMS+16
TWO SETBLRVS~
U CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, ADDTMGRP+17, DELFMGRP+1, DELFMGRP+19, GETMEMS+17, LISTMGRP+1
>> X CHANGE+24
XMY ADDTMGRP+19!, ADDTMGRP+21, DELFMGRP+20!, DELFMGRP+22
XMY( ADDTMGRP+20*, DELFMGRP+21*
>> XPARSYS CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> XQXFLG CHANGE+1, STORERRS+1, MAILGRPE+1, ADDTMGRP+1, DELFMGRP+1, LISTMGRP+1
>> XTMP( STORERRS+4*
>> Y CHANGE+20, ADDTMGRP+17, ADDTMGRP+20, DELFMGRP+19

Marked Items

Name Field # of Occurrence
$T( SETBLRVS+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 |  Local Variables |  Marked Items |  All