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  | All
Print Page as PDF
Routine: HLEVSRV4

Package: Health Level Seven

Routine: HLEVSRV4


Information

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

Source Information

Source file <HLEVSRV4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Health Level Seven 4 $$YN^HLCSRPT4  $$ASKDATE^HLEVAPI2  $$FT^HLEVSRV2  ($$CODE,SETLIC)^HLEVSRV3  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Health Level Seven 1 HLEVSRV  

Entry Points

Name Comments DBIA/ICR reference
LICEXT ; Change license date... (Resets CODEXP,EXPNOW)
LICUSER ; Enter new users now...
; IOINHI,IOINORM -- req
LICNEW ; Create new license... (Creates CODE,CODEXP,EXPNOW)
LICAN ; Cancel current license...
; XTMP -- req
CHKLIC(CODEXM,FROM) ; Called by server action to see if passed in license
; matches current license. If so, data will be returned to
; requester. If not, a refusal email will be returned to XMFROM.
LICENSED(FROM) ; Is requester licensed?
REFUSE(REA) ; Send refusal email back to remote requester...
; XMFROM,XTMP -- req
MAILADD(T)
RECXTMP(TXT) ; Record in ^XTMP for remote requests...
; XTMP -- req
EOR ;HLEVSRV4 - Event Monitor SERVER ;5/16/03 14:42

External References

Name Field # of Occurrence
$$YN^HLCSRPT4 LICNEW+2, LICAN+9
$$ASKDATE^HLEVAPI2 LICEXT+3, LICNEW+12
$$FT^HLEVSRV2 LICUSER+22
$$CODE^HLEVSRV3 LICNEW+8
SETLIC^HLEVSRV3 LICEXT+11, LICNEW+16
$$FMADD^XLFDT LICEXT+6, LICNEW+12
$$FMTE^XLFDT LICEXT+9, LICNEW+12
$$NOW^XLFDT LICEXT+6, LICEXT+7, LICUSER+31, LICNEW+12, CHKLIC+9
$$UP^XLFSTR LICUSER+27, LICENSED+2
^XMD REFUSE+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LICEXT+2
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: LICEXT+4
Function Call: WRITE
  • Prompt: !!,"The current license has been changed to "
  • Line Location: LICEXT+8
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(CUT),"..."
  • Line Location: LICEXT+9
Function Call: WRITE
  • Prompt: !!,"Enter the email address of the recipient(s). (Enter the address of an"
  • Line Location: LICUSER+4
Function Call: WRITE
  • Prompt: !,"existing user and they will be removed.)"
  • Line Location: LICUSER+5
Function Call: WRITE
  • Prompt: !!,IOINHI,"Hint:",IOINORM," "
  • Line Location: LICUSER+6
Function Call: WRITE
  • Prompt: "You may enter ""something"" that is less exact than the complete"
  • Line Location: LICUSER+8
Function Call: WRITE
  • Prompt: !,?POSX,"email address and not compromise security. For example, if"
  • Line Location: LICUSER+9
Function Call: WRITE
  • Prompt: !,?POSX,"the remote requester is named 'John Doe' and will be sending"
  • Line Location: LICUSER+10
Function Call: WRITE
  • Prompt: !,?POSX,"requests from the Buffalo VAMC, you still might not know"
  • Line Location: LICUSER+11
Function Call: WRITE
  • Prompt: !,?POSX,"the exact email address to enter. (E.g., Should you enter"
  • Line Location: LICUSER+12
Function Call: WRITE
  • Prompt: !,?POSX,"'JOHN.DOE@DOMAIN.EXT' or 'DOE.JOHN@BUFFALO.DOMAIN.EXT'?) And, this"
  • Line Location: LICUSER+13
Function Call: WRITE
  • Prompt: !,?POSX,"is why it is often advantageous to enter something like"
  • Line Location: LICUSER+14
Function Call: WRITE
  • Prompt: !,?POSX,"'DOE@BUFFALO' and also 'DOE@DOMAIN.EXT'. When a remote "
  • Line Location: LICUSER+15
Function Call: WRITE
  • Prompt: !,?POSX,"request is received, as long as 'DOE' is in the sender's"
  • Line Location: LICUSER+16
Function Call: WRITE
  • Prompt: !,?POSX,"name, and either 'BUFFALO' or 'DOMAIN.EXT' is in the"
  • Line Location: LICUSER+17
Function Call: WRITE
  • Prompt: !,?POSX,"address, it will be honored."
  • Line Location: LICUSER+18
Function Call: WRITE
  • Prompt: !
  • Line Location: LICUSER+19
Function Call: WRITE
  • Prompt: !!,?5,"No action taken! (Use 'NAME@ADDRESS' format.)"
  • Line Location: LICUSER+25
Function Call: WRITE
  • Prompt: !
  • Line Location: LICUSER+26
Function Call: WRITE
  • Prompt: " removed..."
  • Line Location: LICUSER+30
Function Call: WRITE
  • Prompt: " added..."
  • Line Location: LICUSER+32
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: LICNEW+2
Function Call: WRITE
  • Prompt: !!,IOINHI,"Warning!!",IOINORM
  • Line Location: LICNEW+3
Function Call: WRITE
  • Prompt: " The current license, along with all licensed requesters, will"
  • Line Location: LICNEW+4
Function Call: WRITE
  • Prompt: " be deleted if you continue."
  • Line Location: LICNEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LICNEW+6
Function Call: WRITE
  • Prompt: !!,"License '",IOINHI,CODE,IOINORM,"' will be used after you enter cutoff date..."
  • Line Location: LICNEW+9
Function Call: WRITE
  • Prompt: !!,"Defaulting 'NOW + 7 days' below..."
  • Line Location: LICNEW+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LICNEW+11
Function Call: WRITE
  • Prompt: !,"No license exists..."
  • Line Location: LICAN+5
Function Call: WRITE
  • Prompt: !!,"If you cancel license, the code and all requesters will be removed!"
  • Line Location: LICAN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LICAN+8
Function Call: WRITE
  • Prompt: " no action taken..."
  • Line Location: LICAN+10
Function Call: WRITE
  • Prompt: " license canceled..."
  • Line Location: LICAN+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( LICEXT+5*, LICEXT+6*, LICEXT+7*, LICUSER+28, LICUSER+29!, LICUSER+31*, LICNEW+2, LICAN+4, LICAN+12!, CHKLIC+10
, LICENSED+6, RECXTMP+2, RECXTMP+3*

Label References

Name Line Occurrences
$$LICENSED CHKLIC+27
MAILADD REFUSE+10, REFUSE+11, REFUSE+12, REFUSE+13, REFUSE+14
RECXTMP CHKLIC+33, REFUSE+4
REFUSE CHKLIC+14, CHKLIC+18, CHKLIC+21, CHKLIC+24, CHKLIC+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADDR LICENSED+3*, LICENSED+9
>> ADDR(1 LICENSED+7*, LICENSED+9
CODE LICEXT+11, LICNEW+8*, LICNEW+9, LICNEW+13*, LICNEW+16, LICAN+14*, CHKLIC+7~, CHKLIC+10*, CHKLIC+17, CHKLIC+24
CODEXM CHKLIC~, CHKLIC+24
>> CODEXP LICEXT+10*, LICEXT+11, LICNEW+8*, LICNEW+12*, LICNEW+13*, LICNEW+15, LICNEW+16, LICAN+14*
CUT LICEXT+1~, LICEXT+3*, LICEXT+4, LICEXT+5, LICEXT+6, LICEXT+9, LICEXT+10, CHKLIC+7~, CHKLIC+10*, CHKLIC+21
DUZ LICEXT+7, LICUSER+31
>> EXPNOW LICEXT+10*, LICNEW+8*, LICNEW+13*, LICNEW+15*, LICAN+14*
FROM CHKLIC~, LICENSED~, LICENSED+2*, LICENSED+3, LICENSED+4*, LICENSED+8
FROM(1 LICENSED+7*, LICENSED+8
HOLD REFUSE+2~
HOLD( MAILADD*
HOLD(":" MAILADD
>> IOINHI LICUSER+6, LICNEW+3, LICNEW+9
>> IOINORM LICUSER+6, LICNEW+3, LICNEW+9
NO REFUSE+2~, MAILADD*, RECXTMP+2*, RECXTMP+3
NOW LICEXT+10, LICNEW+15, CHKLIC+7~, CHKLIC+9*, CHKLIC+21
OK LICENSED+1~, LICENSED+5*, LICENSED+6, LICENSED+10*, LICENSED+11
OXMZ CHKLIC+3~, CHKLIC+5*, REFUSE+13
OXTMP CHKLIC+3~, CHKLIC+5*, CHKLIC+33
POSX LICUSER+2~, LICUSER+7*, LICUSER+9, LICUSER+10, LICUSER+11, LICUSER+12, LICUSER+13, LICUSER+14, LICUSER+15, LICUSER+16
, LICUSER+17, LICUSER+18
REA REFUSE~, REFUSE+4, REFUSE+14
T MAILADD~
TEXT REFUSE+2~
TXT RECXTMP~, RECXTMP+3
U LICEXT+5, LICEXT+6, LICEXT+7, LICEXT+11, LICUSER+23, LICUSER+31, LICNEW+16, CHKLIC+10
USER LICUSER+2~, LICUSER+21, LICUSER+22*, LICUSER+23*, LICUSER+24, LICUSER+27*, LICUSER+28, LICUSER+29, LICUSER+31, LICENSED+1~
, LICENSED+5*, LICENSED+6*, LICENSED+7
XMDUZ REFUSE+2~, REFUSE+7*
>> XMFROM CHKLIC+13, CHKLIC+27, CHKLIC+31, CHKLIC+33, REFUSE+4, REFUSE+7, REFUSE+12, REFUSE+17
XMSUB REFUSE+2~, REFUSE+7*
XMTEXT REFUSE+2~, REFUSE+8*
>> XMY( CHKLIC+31*, REFUSE+17*
>> XMY("HL7SystemMonitoring@domain.ext" REFUSE+16*
XMZ CHKLIC+5, CHKLIC+33, REFUSE+4, REFUSE+6~
XTMP LICEXT+5, LICEXT+6, LICEXT+7, LICUSER+28, LICUSER+29, LICUSER+31, LICNEW+2, LICAN+4, LICAN+12, CHKLIC+5
, CHKLIC+7~, CHKLIC+9*, CHKLIC+10, LICENSED+6, RECXTMP+2, RECXTMP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All