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

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

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
Info |  Source |  Entry Points |  Interaction Calls