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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 4 $$BTE^HLCSMON  $$YN^HLCSRPT4  $$ASKDATE^HLEVAPI2  $$SDT^HLEVX001  
Kernel 3 ENDR^%ZISS  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$CJ,$$REPEAT,$$UP)^XLFSTR  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Health Level Seven 2 HLEV GRANT REMOTE LICENSE  HLEVSRV4  

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

External References

Name Field # of Occurrence
ENDR^%ZISS OPENMAIL+4
^DIR ASKDIR+11
$$BTE^HLCSMON OPENMAIL+10, OPENMAIL+50
$$YN^HLCSRPT4 GRANT+7, GRANT+12
$$ASKDATE^HLEVAPI2 GRANT+15, G1
$$SDT^HLEVX001 SHOWLIC+7
$$FMADD^XLFDT SETLIC+8, GRANT+15, GRANT+22, G1
$$FMTE^XLFDT HDM+7, HDM+8, GRANT+5, GRANT+15, G1
$$NOW^XLFDT OPENMAIL+5, SETLIC+8, SETLIC+11, HDM+6, GRANT+15, GRANT+17, GRANT+18, GRANT+22, G1
$$CJ^XLFSTR SHOWLIC+5, SHOWLIC+7, SHOWLIC+13, SHOWLIC+15, SHOWLIC+18, HDM+3, HDM+7, HDM+8
$$REPEAT^XLFSTR HDM+9
$$UP^XLFSTR ALPHA+2

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
Routine Call
  • DIR
  • Line Location:
    • ASKDIR+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( OPENMAIL+17, OPENMAIL+29, OPENMAIL+39, OPENMAIL+41, OPENMAIL+48, DEFAULT+2, DEFAULT+4, SHOWLIC+4, SHOWLIC+10, SETLIC+5!
, SETLIC+8*, SETLIC+10*, SETLIC+11*, HDM+4, GRANT+3, GRANT+8!, GRANT+16*, GRANT+17*, GRANT+18*

Label References

Name Line Occurrences
$$ALPHA RNO+7, RNO+8
$$ASKDIR OPENMAIL+32
$$CODE G1+3
$$DEFAULT OPENMAIL+32
$$RNO CODE+9
@( OPENMAIL+36
EXM OPENMAIL+8
G1 G1+1
HDM OPENMAIL+7, OPENMAIL+12
SHOWLIC OPENMAIL+20, OPENMAIL+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACTION OPENMAIL+27, OPENMAIL+32*, OPENMAIL+33*, OPENMAIL+34, OPENMAIL+35*, OPENMAIL+36
ANS OPENMAIL+1~
CHOICES ASKDIR~, ASKDIR+4, ASKDIR+5
CODE OPENMAIL+1~, OPENMAIL+14*, OPENMAIL+17*, OPENMAIL+18*, OPENMAIL+22, OPENMAIL+30, DEFAULT+2, SHOWLIC+7, SETLIC~, SETLIC+3
, SETLIC+10, HDM+2~, HDM+4*, HDM+5*, HDM+7, HDM+8, GRANT+1~, GRANT+3*, GRANT+5, CODE+1~
, CODE+3*, CODE+9*, CODE+10*, CODE+11
CODEXP OPENMAIL+1~, OPENMAIL+14*, OPENMAIL+18*, OPENMAIL+19, OPENMAIL+25, SHOWLIC+7
CONT GRANT+1~, GRANT+3, GRANT+4*, GRANT+7, GRANT+10*, GRANT+20*
CUT SETLIC+2~, SETLIC+3*, SETLIC+8, HDM+5*, HDM+6, HDM+7, HDM+8, GRANT+1~, GRANT+15*, GRANT+16
, GRANT+17, G1*, G1+1, G1+5
DEFAULT ASKDIR~, ASKDIR+10
DIR ASKDIR+2~
DIR("A" ASKDIR+3*
DIR("B" ASKDIR+10*
DIR(0 ASKDIR+3*, ASKDIR+7*, ASKDIR+9
DIROUT ASKDIR+2~
DIRUT ASKDIR+2~
DTOUT ASKDIR+2~
DUOUT ASKDIR+2~
DUZ SETLIC+11, GRANT+18
EX CODE+1~, CODE+2*, CODE+4*, CODE+6, CODE+10
EX( CODE+2*, RNO+5
EXPNOW OPENMAIL+1~, OPENMAIL+14*, OPENMAIL+19*, OPENMAIL+25*, OPENMAIL+46, OPENMAIL+48, DEFAULT+3, SHOWLIC+7
FUTURE GRANT+1~, GRANT+22*, G1+1
HOLD SHOWLIC+2~, ASKDIR+2~
HOLD( SHOWLIC+11*, SHOWLIC+17, ASKDIR+8*, ASKDIR+12
I EXM~*
IOF HDM+3
IOINHI OPENMAIL+1~, SHOWLIC+7, HDM+7, GRANT+5, G1+4
IOINORM OPENMAIL+1~, SHOWLIC+7, HDM+7, GRANT+5, G1+4
IOM SHOWLIC+5, SHOWLIC+7, SHOWLIC+13, SHOWLIC+15, SHOWLIC+18, HDM+3, HDM+7, HDM+8, HDM+9
IOSL OPENMAIL+9
LICENSE GRANT+1~, G1+3*, G1+4, G1+5
NO SHOWLIC+2~, SHOWLIC+9*, SHOWLIC+11*, SHOWLIC+13, RNO+2~, RNO+3*, RNO+5, RNO+7, RNO+8, RNO+9
, ALPHA~, ALPHA+2
NOP CODE+1~, CODE+3*, CODE+6, CODE+7*, CODE+8
NOW OPENMAIL+1~, OPENMAIL+5*, OPENMAIL+19, OPENMAIL+25, HDM+2~
OK RNO+2~, RNO+3, RNO+4*, RNO+7*, RNO+8*
PCE ASKDIR+2~, ASKDIR+4*, ASKDIR+5, ASKDIR+7, ASKDIR+8
>> PMT ASKDIR+6*, ASKDIR+7
STR OPENMAIL+28~, OPENMAIL+29*, OPENMAIL+30, OPENMAIL+31
STR(1 OPENMAIL+30*, OPENMAIL+31*, OPENMAIL+32
T EXM~*
>> TAG ASKDIR+6*, ASKDIR+8
TXT ASKDIR+2~, ASKDIR+5*, ASKDIR+6
TYPE CODE+1~, CODE+5*, CODE+6*, CODE+7, CODE+8*, CODE+9, RNO~, RNO+6
U OPENMAIL+18, SETLIC+8, SETLIC+11, HDM+5, GRANT+5, GRANT+16, GRANT+17, GRANT+18, G1+5, CODE+5
, ASKDIR+6
USER SHOWLIC+2~, SHOWLIC+9*, SHOWLIC+10*, SHOWLIC+11, SHOWLIC+16*, SHOWLIC+17*, SHOWLIC+18
X OPENMAIL+1~, OPENMAIL+4*, OPENMAIL+50*, ALPHA+1~, ALPHA+2*, ASKDIR+2~, ASKDIR+12*
XTMP OPENMAIL+1~, OPENMAIL+3*, OPENMAIL+17, OPENMAIL+29, OPENMAIL+39, OPENMAIL+41, OPENMAIL+48, DEFAULT+2, DEFAULT+4, SHOWLIC+4
, SHOWLIC+10, SETLIC+5, SETLIC+8, SETLIC+10, SETLIC+11, HDM+4, GRANT+3, GRANT+8, GRANT+16, GRANT+17
, GRANT+18
Y ASKDIR+2~, ASKDIR+12

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