Routine: HLOUSR3

Package	Total	Call Graph
Health Level Seven	6	($$PROCNOW,$$RESEND)^HLOAPI3 ($$GETMSG,GETMSG)^HLOMSG SYSPARMS^HLOSITE DISPLAY^HLOUSR1 ($$ASKBEGIN,$$ASKEND,$$ASKYESNO)^HLOUSR2 ($$SETPURGE,SETPURGE)^HLOUSR7
Kernel	3	($$FMADD,$$FMTE,$$NOW)^XLFDT $$LJ^XLFSTR OWNSKEY^XUSRB
List Manager	3	EN^VALM (CLEAR,FULL,PAUSE)^VALM1 (CLEAN,CNTRL)^VALM10
VA FileMan	2	WAIT^DICD ^DIR

Package	Total	Caller Graph
Health Level Seven	5	HLO MESSAGE REPROCESS HLO MESSAGE RESEND HLO MESSAGE SEARCH HLO SET PURGE HLO SINGLE MESSAGE DISPLAY
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point.
SEARCH	; Find a message.
END	; Return to List Manager.
ADDTO(DIR,TIME,APP,MSG,EVENT,IEN)	; Add message to queue.
LJ(STRING,LEN)	;
I()	;
ASK(PARMS)	; Ask for parameter values.
ASKMAX()	; Ask for the maximum number of messages.
ASKAPP()	; Ask for application name.
ASKMSG()	;
ASKEVENT()	; Ask for event.
ASKDIR()	; Ask message direction
HDR	; Set the List Manager header
HLP	;
EXIT	; Clean up and exit back to List Manager
SETPURGE	; Set a message up for purging.
SCREEN()	; Screen for message purge status.
RESEND	; If outbound message has been sent, resends it.
REPROC	; If inbound message has been processed, reprocesses it.
MSGPREP	; Enable or disable menu options

External References

Name	Field # of Occurrence
WAIT^DICD	EN+4
^DIR	ASKMAX+7, ASKAPP+6, ASKMSG+6, ASKEVENT+6, ASKDIR+6, SETPURGE+8
$$PROCNOW^HLOAPI3	REPROC+16
$$RESEND^HLOAPI3	RESEND+16
$$GETMSG^HLOMSG	SETPURGE+4, SCREEN+6, RESEND+12, RESEND+23, REPROC+12
GETMSG^HLOMSG	MSGPREP+2
SYSPARMS^HLOSITE	RESEND+20, REPROC+20
DISPLAY^HLOUSR1	SETPURGE+9, RESEND+24
$$ASKBEGIN^HLOUSR2	ASK+3
$$ASKEND^HLOUSR2	ASK+5
$$ASKYESNO^HLOUSR2	RESEND+15, RESEND+19, REPROC+15, REPROC+19
$$SETPURGE^HLOUSR7	RESEND+22, REPROC+22
SETPURGE^HLOUSR7	SETPURGE+9
EN^VALM	EN+5
CLEAR^VALM1	EXIT+2
FULL^VALM1	EN+2, REPROC+2
PAUSE^VALM1	SETPURGE+5, RESEND+4, RESEND+9, RESEND+13, RESEND+14, RESEND+17, REPROC+5, REPROC+9, REPROC+13, REPROC+14 , REPROC+16
CLEAN^VALM10	EXIT+1
CNTRL^VALM10	ADDTO+10
$$FMADD^XLFDT	SETPURGE+6, RESEND+21, REPROC+18, REPROC+21
$$FMTE^XLFDT	ADDTO+11
$$NOW^XLFDT	RESEND+21, REPROC+21
$$LJ^XLFSTR	LJ+1
OWNSKEY^XUSRB	RESEND+2, REPROC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Can not set purge yet!" Line Location: SETPURGE+5
Function Call: WRITE	Prompt: !,"** You are not authorized to use this option **" Line Location: RESEND+4
Function Call: WRITE	Prompt: !,"Sorry that option is not available for this message." Line Location: RESEND+9
Function Call: WRITE	Prompt: !,"Message is not an outbound message" Line Location: RESEND+13
Function Call: WRITE	Prompt: !,"Message has not been sent!" Line Location: RESEND+14
Function Call: WRITE	Prompt: ERROR Line Location: RESEND+17
Function Call: WRITE	Prompt: !,"The message has been copied to MsgID ",MSGIEN," which will be displayed next" Line Location: RESEND+18
Function Call: WRITE	Prompt: !,"** You are not authorized to use this option **" Line Location: REPROC+5
Function Call: WRITE	Prompt: !,"Sorry that option is not available for this message." Line Location: REPROC+9
Function Call: WRITE	Prompt: !,"Message is not an inbound message" Line Location: REPROC+13
Function Call: WRITE	Prompt: !,"Message has not been processed" Line Location: REPROC+14
Function Call: WRITE	Prompt: ERROR Line Location: REPROC+16
Function Call: WRITE	Prompt: !,"Done! The message has been reprocessed by the application." Line Location: REPROC+17
Routine Call	DIR Line Location: ASKMAX+7 ASKAPP+6 ASKMSG+6 ASKEVENT+6 ASKDIR+6 SETPURGE+8
Routine Call	VALM Line Location: EN+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLB - [#778]	ADDTO+2, ADDTO+3
^HLB("SEARCH"	SEARCH+8, SEARCH+10, SEARCH+11, SEARCH+13, SEARCH+14, SEARCH+16, SEARCH+17, SEARCH+20

Label References

Name	Line Occurrences
$$ASK	EN+3
$$ASKAPP	ASK+7
$$ASKDIR	ASK+13
$$ASKEVENT	ASK+11
$$ASKMAX	ASK+18
$$ASKMSG	ASK+9
$$I	ADDTO+9, ADDTO+11, ADDTO+12
$$LJ	ADDTO+9, ADDTO+11
ADDTO	SEARCH+20
EXIT	SEARCH+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APP	SEARCH+1~, SEARCH+10, SEARCH+11, ADDTO~, ADDTO+9
CONF	RESEND+1~, RESEND+2, REPROC+1~, REPROC+3
CONF(0	RESEND+3, REPROC+4
DIR	SEARCH+1~, SEARCH+8, SEARCH+10, SEARCH+11, SEARCH+13, SEARCH+14, SEARCH+16, SEARCH+17, SEARCH+20, ADDTO~ , ADDTO+6, ADDTO+7, ASKMAX+1~, ASKAPP+1~, ASKMSG+1~, ASKEVENT+1~, ASKDIR+1~, SETPURGE+1~, RESEND+6~, REPROC+7~
DIR("?"	ASKMAX+5, ASKMAX+6, ASKAPP+4, ASKAPP+5, ASKMSG+4, ASKMSG+5, ASKEVENT+4, ASKEVENT+5, ASKDIR+4, ASKDIR+5
DIR("A"	ASKMAX+3, ASKAPP+3, ASKMSG+3, ASKEVENT+3, ASKDIR+3, SETPURGE+7
DIR("B"	ASKMAX+4*
DIR(0	ASKMAX+2, ASKAPP+2, ASKMSG+2, ASKEVENT+2, ASKDIR+2, SETPURGE+6, REPROC+18*
DT	SETPURGE+6, REPROC+18
>> DTOUT	ASKMAX+8, ASKAPP+7, ASKMSG+7, ASKEVENT+7, ASKDIR+7
>> DUOUT	ASKMAX+8, ASKAPP+7, ASKMSG+7, ASKEVENT+7, ASKDIR+7
DUZ	RESEND+2, REPROC+3
END	SEARCH+1~, SEARCH+8
ERR	MSGPREP+1~
ERROR	RESEND+6~, RESEND+16, RESEND+17, REPROC+7~, REPROC+16
EVENT	SEARCH+1~, SEARCH+16, SEARCH+17, ADDTO~, ADDTO+9
FDA	MSGPREP+1~
FLG	RESEND+6~, RESEND+22, RESEND+23, REPROC+22*
FS	ADDTO+1~, ADDTO+4*, ADDTO+5, ADDTO+6, ADDTO+7
HDR	ADDTO+1~, ADDTO+3*, ADDTO+4, ADDTO+6, ADDTO+7
>> HLOPURDT	RESEND+21, RESEND+22, REPROC+21, REPROC+22
HLPARMS	EN+1~, EN+3, SEARCH+5!
HLPARMS(	SEARCH+4
I	SEARCH+1~, SEARCH+3, SEARCH+4, SEARCH+6*
IEN	SEARCH+18~, SEARCH+19, SEARCH+20, ADDTO~, ADDTO+2, ADDTO+3
>> IOINHI	ADDTO+10
>> IOINORM	ADDTO+10
LEN	LJ~, LJ+1
LOC	ADDTO+1~, ADDTO+6, ADDTO+7, ADDTO+8*, ADDTO+11
>> MAX	SEARCH+8, SEARCH+11, SEARCH+14, SEARCH+17, SEARCH+20
MSG	SEARCH+1~, SEARCH+13, SEARCH+14, ADDTO~, ADDTO+9, SETPURGE+1~, SETPURGE+4, SCREEN+4~, SCREEN+6, RESEND+6~ , RESEND+12, RESEND+23, REPROC+7~, REPROC+12, MSGPREP+1~, MSGPREP+2
MSG("DIRECTION"	RESEND+13, REPROC+13, MSGPREP+5, MSGPREP+7
MSG("DT/TM"	RESEND+14, MSGPREP+3
MSG("ID"	RESEND+15, REPROC+15
MSG("STATUS"	SETPURGE+5, SCREEN+7, RESEND+14, REPROC+14
MSGID	ADDTO+1~, ADDTO+2*, ADDTO+9
>> MSGIEN	SETPURGE+3, SETPURGE+4, SETPURGE+9, SCREEN+5, SCREEN+6, RESEND+7, RESEND+11, RESEND+12, RESEND+16*, RESEND+18 , RESEND+23, REPROC+11, REPROC+12, REPROC+16, REPROC+22, MSGPREP+2
OLDIEN	RESEND+6~, RESEND+7*, RESEND+22
OPT1DIS	RESEND+8!, MSGPREP+4, MSGPREP+8
OPT2DIS	REPROC+8!, MSGPREP+4, MSGPREP+6
PARMS	ASK~
PARMS(	ASK+2*
PARMS("APP"	ASK+7*, ASK+8
PARMS("DIR"	ASK+13, ASK+14, ASK+16
PARMS("END"	ASK+5*, ASK+6
PARMS("EVENT"	ASK+11*, ASK+12
PARMS("MAX"	ASK+18*, ASK+19
PARMS("MSG"	ASK+9*, ASK+10
PARMS("START"	ASK+3*, ASK+4, ASK+5
SAPP	SEARCH+9~, SEARCH+10, SEARCH+11*, SEARCH+13, SEARCH+14, SEARCH+16, SEARCH+17, SEARCH+20
SEVENT	SEARCH+15~, SEARCH+16, SEARCH+17*, SEARCH+20
SMSG	SEARCH+12~, SEARCH+13, SEARCH+14*, SEARCH+16, SEARCH+17, SEARCH+20
START	SEARCH+1~, SEARCH+7
STRING	LJ~, LJ+1
SUB	ASK+1~, ASK+2*
SYS	RESEND+6~, RESEND+20
SYS("ERROR PU	RGE" , RESEND+21
SYSPARM	REPROC+7~, REPROC+20
SYSPARM("ERRO	R PURGE" , REPROC+21
TIME	SEARCH+1~, SEARCH+7, SEARCH+8, SEARCH+10, SEARCH+11, SEARCH+13, SEARCH+14, SEARCH+16, SEARCH+17, SEARCH+20 , ADDTO~, ADDTO+11
TRUE	SCREEN+1~, SCREEN+2, SCREEN+3, SCREEN+5, SCREEN+6, SCREEN+7, SCREEN+8, SCREEN+9
>> VALMAR	ADDTO+9, ADDTO+11, ADDTO+12
>> VALMBCK	EN+3, END+1, EXIT+3, SETPURGE+2, SCREEN+8, RESEND+10, REPROC+10, MSGPREP+9
>> VALMCNT	SEARCH+6, SEARCH+8, SEARCH+11, SEARCH+14, SEARCH+17, SEARCH+20, ADDTO+10, I+1, I+2
>> VALMHDR(1	HDR+1*
>> X	ASKMAX+9, ASKAPP+8, ASKMSG+8, ASKEVENT+8, ASKDIR+8, SCREEN+3
>> Y	SETPURGE+9

Customize PDF page

Package: Health Level Seven

Routine: HLOUSR3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: