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: HLEVSRV3

Package: Health Level Seven

Routine: HLEVSRV3


Information

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

Source Information

Source file <HLEVSRV3.m>

Entry Points

Name Comments DBIA/ICR reference
OPENMAIL ; Grant license to remote requesters...
DEFAULT() ; What would most users do under circumstances?
; CODE,CODEXP,EXPNOW,XTMP -- req
SHOWLIC ; Show license and expiration date...
; CODE,CODEXP,EXPNOW,IOINHI,IOINORM,XTMP -- req
SETLIC(CODE) ; Set license...
; XTMP -- req
HDM ; Header for option...
; IOINHI,IOINORM,XTMP -- req
EXM
GRANT() ; Get date and license...
G1
CODE() ; Return license code...
RNO(TYPE) ; Return random number between 33 and 122 (w/exceptions)
; NOP -- req
ALPHA(NO) ; Is it ALPHA character?
ASKDIR(CHOICES,DEFAULT) ; Ask user what to do...
; CODE,CODEXP,EXPNOW -- req
EOR ;HLEVSRV3 - Event Monitor SERVER ;5/16/03 14:42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OPENMAIL+9
Function Call: WRITE
  • Prompt: !!,"No current license exists..."
  • Line Location: OPENMAIL+22
Function Call: WRITE
  • Prompt: !!,"No requesters have been created under this license. So, even thought a"
  • Line Location: OPENMAIL+42
Function Call: WRITE
  • Prompt: !,"license exists, no one can make use of the license. To enter requesters, you"
  • Line Location: OPENMAIL+43
Function Call: WRITE
  • Prompt: !,"must reinvoke this option and enter one or more requesters."
  • Line Location: OPENMAIL+44
Function Call: WRITE
  • Prompt: !!,"The current license is expired!"
  • Line Location: OPENMAIL+46
Function Call: WRITE
  • Prompt: !
  • Line Location: OPENMAIL+49
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("---------------- No License Exists ----------------",IOM)
  • Line Location: SHOWLIC+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("---------------- Current License - "_CODE_" ["_$S(EXPNOW:IOINHI,1:"")_$$SDT^HLEVX001(CODEXP)_IOINORM_"] ----------------",IOM)
  • Line Location: SHOWLIC+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("No current users exist!",IOM)
  • Line Location: SHOWLIC+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("----- Licensed Requesters ------",IOM)
  • Line Location: SHOWLIC+15
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(USER,IOM)
  • Line Location: SHOWLIC+18
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Grant License to Remote Requesters",IOM)
  • Line Location: HDM+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("License: "_CODE_" Cutoff: "_IOINHI_$$FMTE^XLFDT(CUT)_IOINORM,IOM+$L(IOINHI)+$L(IOINORM))
  • Line Location: HDM+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("License: "_CODE_" Cutoff: "_$$FMTE^XLFDT(CUT),IOM)
  • Line Location: HDM+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDM+9
Function Call: WRITE
  • Prompt: !,$P(T,";;",2,99)
  • Line Location: EXM+0
Function Call: WRITE
  • Prompt: !!,"License# ",IOINHI,$P(CODE,U,2),IOINORM," exists and has a cutoff time of ",$$FMTE^XLFDT($P(CODE,U)),"."
  • Line Location: GRANT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GRANT+6
Function Call: WRITE
  • Prompt: " done..."
  • Line Location: GRANT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: GRANT+11
Function Call: WRITE
  • Prompt: !!,"Defaulting 'NOW + 7 days' below..."
  • Line Location: GRANT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: GRANT+14
Function Call: WRITE
  • Prompt: " updated..."
  • Line Location: GRANT+19
Function Call: WRITE
  • Prompt: !!,"Enter a future cutoff date/time now after which no remote requests by"
  • Line Location: GRANT+23
Function Call: WRITE
  • Prompt: !,"non-VistA HL7 team message recipients will be honored."
  • Line Location: GRANT+24
Function Call: WRITE
  • Prompt: !!,"Defaulting 'NOW + 7 days' below..."
  • Line Location: GRANT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: GRANT+26
Function Call: WRITE
  • Prompt: " enter time one hour or more in future..."
  • Line Location: G1+2
Function Call: WRITE
  • Prompt: !!,"License# ",IOINHI,LICENSE,IOINORM," generated..."
  • Line Location: G1+4
Info |  Source |  Entry Points |  Interaction Calls