Routine: HLEVSRV1

Package	Total	Call Graph
Health Level Seven	5	$$BTE^HLCSMON $$YN^HLCSRPT4 $$ASKDATE^HLEVAPI2 (ADDMAIL,SERVER)^HLEVSRV $$SDT^HLEVX001
Kernel	3	ENDR^%ZISS ($$FMADD,$$FMTE,$$NOW)^XLFDT ($$CJ,$$REPEAT,$$UP)^XLFSTR

Package	Total	Caller Graph
Health Level Seven	2	HLEVSRV HLEVSRV0

Entry Points

Name	Comments	DBIA/ICR reference
OPENM	; Open/close access to M code...
SETOFF(XTMP)	; Disallow M code execution...
SWM	; Switch state...
SETON(XTMP,START,END)	; Allow M code execution
EOR	;HLEVSRV1 - Event Monitor SERVER ;5/16/03 14:42
SHOWXTMP(TXT,XTMP)	; Show the XTMP data...
CODE()	; Return license code...
HDM
ALPHA(NO)	; Is it ALPHA character?
EXM
OKCODE(CODE)	; Check if license available and if so, mark used...
MST()	; Status? ; Piece 1 = 0 -> DOWN UP OR DOWN ; = 1 -> UP ; Piece 2 = 1 -> No XTMP data exists... DOWN REASONS ; = 2 -> Invalid START/ENDs ; = 3 -> Before cutoff time ; = 4 -> After cutoff time ; = 5 -> Inactive date (p4) found ; = 0 -> Not DOWN!!! ; Piece 3 = Status text information
OFFBEF	; Turn off all but last M code entry...
UPM	; Turn on M code execution... ; STAT -- req
STM	; What is the status of M code execution?
RNO(TYPE)	; Return random number between 33 and 122 (w/exceptions) ; NOP -- req
ASKCODES(CODES)	; Ask user for codes...
T1
LICENSE(XTMP,CODES)	; Install licenses
GBLTOXM	; Place global data in Mailman message global...
DOWNM	; Turn off M code execution... ; STAT -- req
TEST	; Test server...

External References

Name	Field # of Occurrence
ENDR^%ZISS	UPM+4
$$BTE^HLCSMON	SWM+6, UPM+51
$$YN^HLCSRPT4	DOWNM+7, UPM+8, UPM+40, ASKCODES+11
$$ASKDATE^HLEVAPI2	UPM+16, UPM+22
ADDMAIL^HLEVSRV	GBLTOXM+8, GBLTOXM+9, GBLTOXM+20
SERVER^HLEVSRV	T1+14
$$SDT^HLEVX001	MST+18, MST+19
$$FMADD^XLFDT	UPM+22, SETON+1
$$FMTE^XLFDT	UPM+22
$$NOW^XLFDT	OKCODE+6, UPM+5, SETON+1, SETOFF+1, MST+13, TEST+3
$$CJ^XLFSTR	STM+1, HDM, GBLTOXM+9, SHOWXTMP+5
$$REPEAT^XLFSTR	HDM+1, GBLTOXM+22, TEST+16, SHOWXTMP+16
$$UP^XLFSTR	ALPHA+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SWM+5
Function Call: WRITE	Prompt: !!,"M code execution is OFF already..." Line Location: DOWNM+5
Function Call: WRITE	Prompt: ! Line Location: DOWNM+6
Function Call: WRITE	Prompt: " nothing changed..." Line Location: DOWNM+8
Function Call: WRITE	Prompt: " M code execution disallowed..." Line Location: DOWNM+10
Function Call: WRITE	Prompt: ! Line Location: UPM+7
Function Call: WRITE	Prompt: " nothing changed..." Line Location: UPM+9
Function Call: WRITE	Prompt: !!,"Before M code execution can be turned on, you must answer a few questions..." Line Location: UPM+11
Function Call: WRITE	Prompt: !!,"Please include ",IOBON,"time",IOBOFF Line Location: UPM+12
Function Call: WRITE	Prompt: " when entering the start and end date/times..." Line Location: UPM+13
Function Call: WRITE	Prompt: ! Line Location: UPM+15
Function Call: WRITE	Prompt: " exiting..." Line Location: UPM+18
Function Call: WRITE	Prompt: !!,"Prompting START+24 hours..." Line Location: UPM+20
Function Call: WRITE	Prompt: ! Line Location: UPM+21
Function Call: WRITE	Prompt: " exiting..." Line Location: UPM+24
Function Call: WRITE	Prompt: ! Line Location: UPM+26
Function Call: WRITE	Prompt: " exiting..." Line Location: UPM+28
Function Call: WRITE	Prompt: !!,$S(NOC=1:"The '"_$O(CODES(""))_"' license",1:"These licenses") Line Location: UPM+29
Function Call: WRITE	Prompt: " will be installed if you turn on M code execution now:" Line Location: UPM+30
Function Call: WRITE	Prompt: !!,?5 Line Location: UPM+33
Function Call: WRITE	Prompt: $E(CODES_" ",1,10) Line Location: UPM+37
Function Call: WRITE	Prompt: ! Line Location: UPM+39
Function Call: WRITE	Prompt: " nothing changed..." Line Location: UPM+41
Function Call: WRITE	Prompt: " M code execution allowed..." Line Location: UPM+44
Function Call: WRITE	Prompt: !!,"Be sure to pass on ",$S(NOC>1:"these licenses",1:"the license") Line Location: UPM+46
Function Call: WRITE	Prompt: " to the VistA HL7 team..." Line Location: UPM+47
Function Call: WRITE	Prompt: ! Line Location: UPM+50
Function Call: WRITE	Prompt: !!,"Codes: " Line Location: LICENSE+2
Function Call: WRITE	Prompt: !,?10 Condition for execution: ($X+$L(X))>IOM Line Location: LICENSE+7
Function Call: WRITE	Prompt: X Line Location: LICENSE+7
Function Call: WRITE	Prompt: !!,"You must now give the VistA HL7 team ""licences"" for M code execution. One" Line Location: ASKCODES+3
Function Call: WRITE	Prompt: !,"license is used for every Mailman server request containing executable M " Line Location: ASKCODES+4
Function Call: WRITE	Prompt: !,"code." Line Location: ASKCODES+5
Function Call: WRITE	Prompt: ! Line Location: ASKCODES+6
Function Call: WRITE	Prompt: " not intalled..." Line Location: ASKCODES+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("------ M Code Execution Status: "_$P($$MST,U,3)_" ------",IOM) Line Location: STM+1
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Open Access to Mailman Server M Code",IOM) Line Location: HDM+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HDM+1
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EXM+0
Function Call: WRITE	Prompt: !!,"The current time is ",$$NOW^XLFDT,"..." Line Location: TEST+3
Function Call: WRITE	Prompt: !!,"Displaying all existing ^XTMP(""HLEV SERVER ..."") entries..." Line Location: TEST+5
Function Call: WRITE	Prompt: $E("^XTMP("""_XTMP_""""_$$REPEAT^XLFSTR(" ",40),1,40) Line Location: TEST+16
Function Call: WRITE	Prompt: !!,"No XTMP server data exists..." Line Location: TEST+19
Function Call: WRITE	Prompt: !!,"Enter XTMP to rerun: ",LASTXTMP,"// " Line Location: T1+0
Function Call: READ	Timeout: 999 Variable: XTMP Line Location: T1+1
Function Call: WRITE	Prompt: " entry not found..." Line Location: T1+4
Function Call: WRITE	Prompt: !!,"There is no Mailman message recorded..." Line Location: T1+8
Function Call: WRITE	Prompt: !!,"Calling SERVER^HLEVSRV with XTMP=",XTMP,"..." Line Location: T1+12
Function Call: WRITE	Prompt: !!,"The last 776 IEN = ",$O(^HLEV(776,":"),-1),"..." Line Location: T1+18
Function Call: WRITE	Prompt: ! Line Location: T1+19
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(" "_TXT_" ",IOM,"=") Line Location: SHOWXTMP+5
Function Call: WRITE	Prompt: !,LP," = " Line Location: SHOWXTMP+9
Function Call: WRITE	Prompt: $E(DATA,1,IOM-POSX-1) Line Location: SHOWXTMP+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: SHOWXTMP+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLEV(	GBLTOXM+9
^HLEV(776 - [#776]	T1+18
^XMB(3.9 - [#3.9]	T1+7
^XTMP(	OKCODE+4, OKCODE+5, OKCODE+6, OFFBEF+3, LICENSE+6, SETON+1, SETON+2, SETOFF+1*, MST+15, GBLTOXM+4 , TEST+9, TEST+14, T1+3, T1+6, SHOWXTMP+3, SHOWXTMP+7
^XTMP("HLEV SERVER 9999999"	TEST+21, T1+16
^XTMP("HLEV SERVER M 9999999"	OKCODE+3, OFFBEF+2, DOWNM+3, MST+14

Label References

Name	Line Occurrences
$$ALPHA	RNO+7, RNO+8
$$ASKCODES	UPM+27
$$CODE	ASKCODES+10
$$MST	SWM+2, STM+1
$$RNO	CODE+9
DOWNM	SWM+4
EXM	OPENM+2
HDM	OPENM+2
LICENSE	UPM+48
OFFBEF	OPENM+1, OKCODE+2
SETOFF	OFFBEF+4, DOWNM+9
SETON	UPM+43
SHOWXTMP	TEST+22, T1+16
STM	OPENM+2
SWM	OPENM+2
T1	T1+3
UPM	SWM+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ANS	ASKCODES+11*, ASKCODES+12
CODE	OKCODE~, OKCODE+4, OKCODE+5, OKCODE+6, LICENSE+1~, LICENSE+4, LICENSE+5, LICENSE+6, LICENSE+7, ASKCODES+1~ , ASKCODES+9, ASKCODES+10, ASKCODES+11, ASKCODES+12, ASKCODES+13, CODE+1~, CODE+3, CODE+9, CODE+10*, CODE+11
CODES	UPM+2~, UPM+27, UPM+34, UPM+35, UPM+36, UPM+37, UPM+48, LICENSE~, ASKCODES~
CODES(	UPM+35, LICENSE+5, ASKCODES+13*
CODES(""	UPM+29
CT	TEST+1~, TEST+8, TEST+9, TEST+10, TEST+12, TEST+15, TEST+17, TEST+19
DATA	GBLTOXM+1~, GBLTOXM+17, GBLTOXM+18, GBLTOXM+19, GBLTOXM+21, SHOWXTMP+1~, SHOWXTMP+10, SHOWXTMP+11, SHOWXTMP+13, SHOWXTMP+14
DUZ	SETON+2, SETOFF+1
END	DOWNM+2~, UPM+2~, UPM+22, UPM+23, UPM+43, SETON~, SETON+2, MST+12~, MST+15, MST+17 , MST+19
EX	CODE+1~, CODE+2, CODE+4, CODE+6, CODE+10
EX(	CODE+2*, RNO+5
FILE	GBLTOXM+1~, GBLTOXM+6, GBLTOXM+7, GBLTOXM+9, GBLTOXM+11, GBLTOXM+13
GBL	GBLTOXM+1~, GBLTOXM+4*, GBLTOXM+7, GBLTOXM+11
HLEVQUIT	TEST+1~
I	EXM~*
IDATE	MST+12~, MST+15*, MST+16
IEN	GBLTOXM+1~, GBLTOXM+10, GBLTOXM+11, GBLTOXM+12, GBLTOXM+13, GBLTOXM+16
IOBOFF	UPM+2~, UPM+12
IOBON	UPM+2~, UPM+12
IOF	HDM
IOM	UPM+36, LICENSE+7, STM+1, HDM, HDM+1, SHOWXTMP+5, SHOWXTMP+13, SHOWXTMP+14, SHOWXTMP+16
LASTXTMP	TEST+1~, TEST+21*, TEST+22, T1, T1+2
LP	GBLTOXM+1~, GBLTOXM+13, GBLTOXM+14, GBLTOXM+15, GBLTOXM+16, GBLTOXM+17, SHOWXTMP+1~, SHOWXTMP+7, SHOWXTMP+8*, SHOWXTMP+9 , SHOWXTMP+10
NO	RNO+2~, RNO+3*, RNO+5, RNO+7, RNO+8, RNO+9, ALPHA~, ALPHA+2
NOC	UPM+2~, UPM+27, UPM+29, UPM+32, UPM+46, ASKCODES+1~, ASKCODES+8, ASKCODES+13*, ASKCODES+15
NOP	CODE+1~, CODE+3, CODE+6, CODE+7, CODE+8
NOW	MST+12~, MST+13*, MST+18, MST+19
OK	RNO+2~, RNO+3, RNO+4, RNO+7, RNO+8*
POSX	GBLTOXM+16, GBLTOXM+22, SHOWXTMP+1~, SHOWXTMP+10, SHOWXTMP+12, SHOWXTMP+13, SHOWXTMP+14
REF	GBLTOXM+1~, GBLTOXM+16, GBLTOXM+18, GBLTOXM+19, GBLTOXM+21, GBLTOXM+22
ST	GBLTOXM+1~, GBLTOXM+13, GBLTOXM+15, GBLTOXM+16, SHOWXTMP+1~, SHOWXTMP+7, SHOWXTMP+8
START	DOWNM+2~, UPM+2~, UPM+16, UPM+17, UPM+22, UPM+43, SETON~, SETON+2, MST+12~, MST+15 , MST+17, MST+18
STAT	SWM+1~, SWM+2, SWM+3, SWM+4, MST+12~, MST+15
T	EXM~*
TXT	GBLTOXM+1~, GBLTOXM+12, GBLTOXM+19, GBLTOXM+20, SHOWXTMP~, SHOWXTMP+5
TYPE	CODE+1~, CODE+5, CODE+6, CODE+7, CODE+8*, CODE+9, RNO~, RNO+6
U	OKCODE+6, SETON+1, SETON+2, SETOFF+1, STM+1, MST+15, CODE+5, GBLTOXM+9, T1+1, T1+6
X	SWM+6, UPM+2~, UPM+4, UPM+51, LICENSE+7, ALPHA+1~, ALPHA+2*
XMREC	TEST+1~, T1+10*
XMZ	OKCODE+6, TEST+1~, T1+6*, T1+7
XTMP	OKCODE+1~, OKCODE+3, OKCODE+4, OKCODE+5, OKCODE+6, OFFBEF+1~, OFFBEF+2, OFFBEF+3, OFFBEF+4, DOWNM+2~ , DOWNM+3, DOWNM+4, DOWNM+9, UPM+2~, UPM+5, UPM+43, UPM+48, LICENSE~, LICENSE+6, SETON~ , SETON+1, SETON+2, SETOFF~, SETOFF+1, MST+12~, MST+14, MST+15, GBLTOXM+4, GBLTOXM+13, TEST+1~ , TEST+8, TEST+9, TEST+13, TEST+14, TEST+16, T1+1, T1+2, T1+3, T1+6, T1+12 , SHOWXTMP~, SHOWXTMP+3, SHOWXTMP+7
>> ZTSK	OKCODE+6

Customize PDF page

Package: Health Level Seven

Routine: HLEVSRV1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items