Routine: BLREMERA

Information

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

Source Information

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

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

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

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLREMERA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items