Routine: HLEVSRV4

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

Package	Total	Caller Graph
Health Level Seven	1	HLEVSRV

Entry Points

Name	Comments	DBIA/ICR reference
LICAN	; Cancel current license... ; XTMP -- req
RECXTMP(TXT)	; Record in ^XTMP for remote requests... ; XTMP -- req
EOR	;HLEVSRV4 - Event Monitor SERVER ;5/16/03 14:42
LICUSER	; Enter new users now... ; IOINHI,IOINORM -- 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.
REFUSE(REA)	; Send refusal email back to remote requester... ; XMFROM,XTMP -- req
LICNEW	; Create new license... (Creates CODE,CODEXP,EXPNOW)
LICEXT	; Change license date... (Resets CODEXP,EXPNOW)
LICENSED(FROM)	; Is requester licensed?
MAILADD(T)

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.NAME' or 'DOE.JOHN@DOMAIN.NAME'?) 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@DOMAIN.NAME' and also 'DOE@DOMAIN.NAME'. 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.NAME' 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@med.va.gov"	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

Customize PDF page

Package: Health Level Seven

Routine: HLEVSRV4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: