Routine: HLOUSR7

Information

HLOUSR7 ;OIFO-ALB/CJM - Deleting HLO queues ;03/26/2012

Source Information

Source file <HLOUSR7.m>

Caller Graph

Legends:

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

Package	Total	Caller Graph
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
SPURGE	; Entry point from ListManager for deleting sequential queues.
OPURGE	; Entry point from ListManager for deleting outgoing queues.
ASKTASK()	;
ASKWHEN(DEFAULT,PROMPT)
OUTPURGE	;Purge outgoing queue
SEQPURGE	;Purge sequence queue
SETPURGE(MSGIEN,TIME)	; Set message up for purging.

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"** You are not authorized to use this option **" Line Location: SPURGE+5
Function Call: WRITE	Prompt: !,"There are no messages on that queue!" Line Location: SPURGE+8
Function Call: WRITE	Prompt: !!,"Deleting a queue in error will result in lost messages!" Line Location: SPURGE+9
Function Call: WRITE	Prompt: !!,"After removing the messages from the sequence queue they will deleted" Line Location: SPURGE+11
Function Call: WRITE	Prompt: !,"When do you want to schedule the messages to be purged?" Line Location: SPURGE+12
Function Call: WRITE	Prompt: !!,?5,"UNABLE TO SCHEDULE PURGE JOB",! Line Location: SPURGE+24
Function Call: WRITE	Prompt: !!,?5,"Purge job is scheduled, task #"_ZTSK Line Location: SPURGE+25
Function Call: WRITE	Prompt: !,"** You are not authorized to use this option **" Line Location: OPURGE+5
Function Call: WRITE	Prompt: ! Line Location: OPURGE+8
Function Call: WRITE	Prompt: !,"There are no outgoing messages for that destination!" Line Location: OPURGE+10
Function Call: WRITE	Prompt: ! Line Location: OPURGE+12
Function Call: WRITE	Prompt: !,"There are no outgoing messages for that destination!" Line Location: OPURGE+14
Function Call: WRITE	Prompt: !!,"Deleting a queue in error will result in lost messages!" Line Location: OPURGE+15
Function Call: WRITE	Prompt: !!,"After removing the messages from the outgoing queue they will deleted" Line Location: OPURGE+17
Function Call: WRITE	Prompt: !,"When do you want to schedule the messages to be purged?" Line Location: OPURGE+18
Function Call: WRITE	Prompt: !!,?5,"UNABLE TO SCHEDULE PURGE JOB",! Line Location: OPURGE+30
Function Call: WRITE	Prompt: !!,?5,"Purge job is scheduled, task #"_ZTSK Line Location: OPURGE+31
Function Call: WRITE	Prompt: !!,"There are a lot of messages pending on that queue!" Line Location: ASKTASK+1
Function Call: WRITE	Prompt: !,"Removing messages....",! Line Location: OUTPURGE+4
Function Call: WRITE	Prompt: "." Line Location: OUTPURGE+7
Function Call: WRITE	Prompt: "!" Line Location: OUTPURGE+8
Function Call: WRITE	Prompt: !,"Removing messages....",! Line Location: SEQPURGE+3
Function Call: WRITE	Prompt: "." Line Location: SEQPURGE+6
Function Call: WRITE	Prompt: "!" Line Location: SEQPURGE+7

Customize PDF page

Package: Health Level Seven