Routine: LR343

Package	Total	Call Graph
VA Fileman	6	MSG^DIALOG $$FIND1^DIC FILE^DIE ^DIK CLEAN^DILF GETS^DIQ
Kernel	5	^%ZIS $$HTE^XLFDT ($$CJ,$$UP)^XLFSTR (BMES,MES)^XPDUTL $$ACTIVE^XUSER
IHS VA Utilities	1	EN^XBVIDEO

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; ; KIDS Pre Install ; Check that install was tasked ; Check if any File #69.9 fields are set to "YES" If so send ; notification email. ; Disable Lab Protocols (set DISABLED field and set ACTION to Q) ; Hang so current processes started by protocols can end
MSGADD(TXT,LB)	; ; Utility to create a message global to save install ; messages and send later, usually via mailman. Useful ; when an install is tasked. It will print ; the messages out as they come in, as well as save them ; to the TMP global ; Input ; TXT <byref or byval> ; If $D(TXT)=1 then TXT is saved ; If $D(TXT)>9 then step through array and save each node ; as separate line. ; LB <opt> LineBreak (True then uses MBES -- False uses MES)
EN	; ; Environment Check ; Does not prevent loading of the transport global.
UPDTPROT(IEN)	; ; Sets the PROTOCOL's (#101) DISABLE field (#2) to DISABLED ; and its ENTRY ACTION field (#20) to Q (QUIT)
PASSMESG(WOT)	; EP -- Splash message
BLDBODY(STR,ARR)	; ; Adds a string to the end of the passed array ; Useful for building email message bodies ; STR <req> The string to add to the array ; ARR <byref> The array. Should be a simple, integer ; based subscript array ie X(1), X(2), etc.
GETVALS(NULL)	; ; Returns the values for #69.9 fields 150.3,150.4,150.5 ; as a string ie 000 or 010 etc (each field is only 1 or 0)
ALERT(MSG)	;
CLEAN	; ; K ^TMP("LR343",$J)
BIGHONK	; EP - Big, Honking Warning Message
KILLDD(FIELD)	; ; Deletes the #69.9 field's DD
POST	; ; KIDS Post Install ; Delete data in File #69.9 fields ; Remove #69.9 fields from Data Dictionary ; Email installation progress message
EMAIL(SUB,LRTXT,LRADDR)	; ; Sends an email message via MailMan using installer's DUZ ; SUB <byval> Subject for the message ; LRTXT <byval> Closed root local or global array ; ie local array TEXT(1) passed as "TEXT" ; LRADDR <byref> MailMan compatable array of message recipients
CHECK	; ; Perform environment check

External References

Name	Field # of Occurrence
^%ZIS	CHECK+5
MSG^DIALOG	POST+17
$$FIND1^DIC	PRE+52, PRE+55
FILE^DIE	POST+14, UPDTPROT+7
^DIK	KILLDD+6
CLEAN^DILF	CLEAN+2
GETS^DIQ	GETVALS+5
EN^XBVIDEO	PASSMESG+4
$$HTE^XLFDT	EN+4, EN+15, EN+17, PRE+9, PRE+75, POST+7, POST+24, POST+27, BIGHONK+8
$$CJ^XLFSTR	EN+4, EN+10, EN+13, CHECK+8, CHECK+12, CHECK+17, CHECK+22, MSGADD+27, MSGADD+28, MSGADD+30 , MSGADD+35, MSGADD+36, MSGADD+38, PASSMESG+13, PASSMESG+14, PASSMESG+15
$$UP^XLFSTR	BIGHONK+8
BMES^XPDUTL	EN+4, EN+10, EN+13, MSGADD+27, MSGADD+30, MSGADD+35, MSGADD+38
MES^XPDUTL	MSGADD+28, MSGADD+36
$$ACTIVE^XUSER	CHECK+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Environment check failed",$G(IOM,80)) Line Location: EN+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Environment is okay",$G(IOM,80)) Line Location: EN+12
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* Home device is not defined *",$G(IOM,80)) Line Location: CHECK+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* Terminal Device is not defined *",$G(IOM,80)) Line Location: CHECK+12
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* Please log in to set variables *",$G(IOM,80)) Line Location: CHECK+17
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("* You are not a valid user on this system *",$G(IOM,80)) Line Location: CHECK+22
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(@NODE,$G(IOM,80)) Line Location: MSGADD+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(TXT,$G(IOM,80)) Line Location: MSGADD+37
Function Call: WRITE	Prompt: ! Line Location: BIGHONK+2
Function Call: WRITE	Prompt: ?4,"This install must now pause for 5 minutes in order to let all existing",! Line Location: BIGHONK+3
Function Call: WRITE	Prompt: ?4,"events clear so that ""Can't Return To Source"" errors do not occur when",! Line Location: BIGHONK+4
Function Call: WRITE	Prompt: ?4,"the LR70 MOVEMENT EVENT and LR70 MOVEMENT EVENT TASK protocols are",! Line Location: BIGHONK+5
Function Call: WRITE	Prompt: ?4,"modified.",!! Line Location: BIGHONK+6
Function Call: WRITE	Prompt: ?4,"An error would cause the other chained events not to be processed.",!! Line Location: BIGHONK+7
Function Call: WRITE	Prompt: ?4,"Your patience is appreciated. Pause begins NOW at ",$$UP^XLFSTR($$HTE^XLFDT($H,"5MPZ")),".",! Line Location: BIGHONK+8
Function Call: WRITE	Prompt: $J("",80),! Line Location: PASSMESG+3
Function Call: WRITE	Prompt: !! Line Location: PASSMESG+10
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+11
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+12
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),! Line Location: PASSMESG+13
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(MAXIT,IOM)," @","* "),! Line Location: PASSMESG+14
Function Call: WRITE	Prompt: $TR($$CJ^XLFSTR(AROUND,IOM)," @","* "),! Line Location: PASSMESG+15
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+16
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","*"),! Line Location: PASSMESG+17
Routine Call	DIC Line Location: PRE+52 PRE+55
Routine Call	DIE Line Location: POST+14 UPDTPROT+7
Routine Call	DIALOG Line Location: POST+17
Routine Call	%ZIS Line Location: CHECK+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^LAB(69.9 - [#69.9]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("LR343"	MSGADD+21, MSGADD+25, MSGADD+34

Label References

Name	Line Occurrences
$$GETVALS	PRE+26
ALERT	EN+15, EN+17, PRE+47, POST+27
BIGHONK	PRE+69
BLDBODY	PRE+29, PRE+31, PRE+33, PRE+35, PRE+36, PRE+40
CHECK	EN+7
CLEAN	EN+6, POST+30
EMAIL	PRE+43, POST+29
KILLDD	POST+20, POST+21, POST+22
MSGADD	PRE+9, PRE+45, PRE+51, PRE+54, PRE+57, PRE+74, PRE+75, POST+7, POST+8, POST+19 , POST+23, POST+24
PASSMESG	BIGHONK+1
UPDTPROT	PRE+53, PRE+56

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	CHECK+5*
AROUND	PASSMESG+1~, PASSMESG+7*, PASSMESG+13, PASSMESG+15
ARR	BLDBODY~
ARR(	BLDBODY+9*
ARR("A"	BLDBODY+8
BODY	PRE+7~, PRE+29, PRE+31, PRE+33, PRE+35, PRE+36, PRE+40, PRE+44!
CRTLINE	PASSMESG+1~, PASSMESG+3*
DA	POST+5~, ALERT+1~, KILLDD+2~, KILLDD+4*
DA(1	KILLDD+5*
DIFROM	EMAIL+6~
DIK	POST+5~, ALERT+1~, KILLDD+2~, KILLDD+3*
DUZ	CHECK+16, CHECK+21, PRE+41, POST+28
DUZ(0	CHECK+16
ERR	PRE+7~
FIELD	KILLDD~, KILLDD+4
IEN	PRE+7~, PRE+52, PRE+53, PRE+54, PRE+55, PRE+56, PRE+57, UPDTPROT~, UPDTPROT+4*, UPDTPROT+5 , UPDTPROT+6
IOM	EN+4, CHECK+8, CHECK+11, CHECK+12, CHECK+17, CHECK+22, POST+17, MSGADD+27, MSGADD+28, MSGADD+30 , MSGADD+35, MSGADD+36, MSGADD+38, PASSMESG+11, PASSMESG+12, PASSMESG+13, PASSMESG+14, PASSMESG+15, PASSMESG+16, PASSMESG+17
>> IOP	CHECK+5*
IOSL	CHECK+11
>> J	PASSMESG+6*
LB	MSGADD~, MSGADD+18, MSGADD+19, MSGADD+20*, MSGADD+27, MSGADD+28, MSGADD+35, MSGADD+36
LRADDR	EMAIL~
LRDATA	GETVALS+3~
LRDATA(	GETVALS+6
LRERR	GETVALS+3~
LRFDA	POST+5~, UPDTPROT+3~
LRFDA(1	POST+10, POST+11, POST+12, UPDTPROT+5, UPDTPROT+6*
LRMSG	POST+5~, POST+15, UPDTPROT+3~
LRMSG2	POST+5~, POST+16!, POST+17, POST+19
LRTXT	EMAIL~
MAXIT	PASSMESG+1~, PASSMESG+5, PASSMESG+6, PASSMESG+7, PASSMESG+8*, PASSMESG+14
MSG	POST+13!, ALERT~, ALERT+2*, ALERT+3
NODE	GETVALS+3~, GETVALS+7, GETVALS+8, MSGADD+16~, MSGADD+23, MSGADD+24, MSGADD+25, MSGADD+27, MSGADD+28, MSGADD+30
NULL	GETVALS~
POP	CHECK+2~, CHECK+5*, CHECK+6
POS	MSGADD+16~
POSTERR	POST+5~, POST+6*, POST+24, POST+27
PREERR	PRE+7~, PRE+8*, PRE+74
RECIPS	PRE+7~, PRE+43, POST+5~, POST+29
RECIPS(	PRE+41, POST+28
RECIPS("G.LMI"	PRE+42*
STR	PRE+7~, PRE+28, PRE+29, PRE+30, PRE+31, PRE+32, PRE+33, PRE+34, PRE+35, PRE+37* , PRE+38, PRE+39, PRE+40, BLDBODY~, BLDBODY+7*, BLDBODY+9
SUB	EMAIL~, BLDBODY+6~, BLDBODY+8, BLDBODY+9, MSGADD+16~, MSGADD+21, MSGADD+25, MSGADD+26*, MSGADD+34
TXT	MSGADD~, MSGADD+17*, MSGADD+22, MSGADD+33, MSGADD+34, MSGADD+35, MSGADD+36, MSGADD+38
U	CHECK+11
VALS	PRE+7~, PRE+26*, PRE+27, PRE+30, PRE+32, PRE+34
VALUES	GETVALS+3~, GETVALS+4, GETVALS+8, GETVALS+9
WOT	PASSMESG~, PASSMESG+6
XMERR	EMAIL+6~
XMZ	EMAIL+6~, EMAIL+8
>> XPDDIQ("XPZ1"	CHECK+26, CHECK+27
>> XPDENV	EN+16, MSGADD+27, MSGADD+28, MSGADD+30, MSGADD+35, MSGADD+36, MSGADD+38
>> XPDNM	EN+4, EN+10, EN+13, EN+15, EN+17, POST+27, POST+29
>> XPDQUIT	EN+8, CHECK+7, CHECK+13, CHECK+18, CHECK+23
XQA	ALERT+1~
XQA("G.LMI"	ALERT+4*
XQAMSG	ALERT+1~, ALERT+3*

Customize PDF page

Package: Lab Service

Routine: LR343

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: