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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: HLEVSRV1

Package: Health Level Seven

Routine: HLEVSRV1


Information

HLEVSRV1 ;O-OIFO/LJA - Event Monitor SERVER ;02/04/2004 14:42

Source Information

Source file <HLEVSRV1.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 2

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

Marked Items

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