Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
OPENM ; Open/close access to M code...
OKCODE(CODE) ; Check if license available and if so, mark used...
OFFBEF ; Turn off all but last M code entry...
SWM ; Switch state...
DOWNM ; Turn off M code execution...
; STAT -- req
UPM ; Turn on M code execution...
; STAT -- req
LICENSE(XTMP,CODES) ; Install licenses
ASKCODES(CODES) ; Ask user for codes...
SETON(XTMP,START,END) ; Allow M code execution
SETOFF(XTMP) ; Disallow M code execution...
STM ; What is the status of M code execution?
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
HDM
EXM
CODE() ; Return license code...
RNO(TYPE) ; Return random number between 33 and 122 (w/exceptions)
; NOP -- req
ALPHA(NO) ; Is it ALPHA character?
GBLTOXM ; Place global data in Mailman message global...
TEST ; Test server...
T1
SHOWXTMP(TXT,XTMP) ; Show the XTMP data...
EOR ;HLEVSRV1 - Event Monitor SERVER ;5/16/03 14:42

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
  • Variable: XTMP
  • Timeout: 999
  • 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
Info |  Source |  Entry Points |  Interaction Calls