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

Package: Health Level Seven

Routine: HLOUSR7


Information

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

Source Information

Source file <HLOUSR7.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Health Level Seven 7 DEQUE^HLOQUE  $$INC^HLOSITE  ($$ASKPORT,$$ASKQUE)^HLOTRACE  $$ASKLINK^HLOUSR  $$ASKYESNO^HLOUSR2  $$GETQ^HLOUSR4  OUTQUE^HLOUSR6  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  OWNSKEY^XUSRB  
List Manager 1 PAUSE^VALM1  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Health Level Seven 4 HLO OUTBOUND DELETE  HLO SEQUENCE DELETE  HLOPING  HLOUSR3  
Kernel 1 ^ORD(101  

Entry Points

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

External References

Name Field # of Occurrence
^%DT ASKWHEN+13
^%ZTLOAD SPURGE+23, OPURGE+29
DEQUE^HLOQUE OUTPURGE+9
$$INC^HLOSITE SEQPURGE+10
$$ASKPORT^HLOTRACE OPURGE+9
$$ASKQUE^HLOTRACE OPURGE+13
$$ASKLINK^HLOUSR OPURGE+6
$$ASKYESNO^HLOUSR2 SPURGE+10, OPURGE+16, ASKTASK+2
$$GETQ^HLOUSR4 SPURGE+6
OUTQUE^HLOUSR6 OPURGE+35
PAUSE^VALM1 SPURGE+5, SPURGE+8, SPURGE+26, OPURGE+5, OPURGE+32
$$FMADD^XLFDT SPURGE+13, OPURGE+19
$$FMTE^XLFDT ASKWHEN+10
$$NOW^XLFDT SPURGE+13, OPURGE+19, SETPURGE+13
OWNSKEY^XUSRB SPURGE+3, OPURGE+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLB - [#778] OUTPURGE+10*, SEQPURGE+9*, SETPURGE+10, SETPURGE+16*
^HLB("AD" SETPURGE+15!, SETPURGE+17*
^HLB("QUEUE" SPURGE+8, SPURGE+16, OPURGE+22, OUTPURGE+5, SEQPURGE+4, SEQPURGE+8!, SEQPURGE+12*
^HLC("QUEUECOUNT" SEQPURGE+10, SEQPURGE+11*

Label References

Name Line Occurrences
$$ASKTASK SPURGE+17, OPURGE+23
$$ASKWHEN SPURGE+13, OPURGE+19
$$SETPURGE OUTPURGE+10, SEQPURGE+9
@( SPURGE+29
OUTPURGE OPURGE+34
SEQPURGE SPURGE+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASKWHEN+7~, ASKWHEN+8*
%DT("A" ASKWHEN+9*
%DT("B" ASKWHEN+10*
%DT(0 ASKWHEN+11*
CNT OUTPURGE+1~, OUTPURGE+3*, OUTPURGE+6*, OUTPURGE+7, OUTPURGE+8, SEQPURGE+1~, SEQPURGE+2*, SEQPURGE+5*, SEQPURGE+6, SEQPURGE+7
CONF SPURGE+1~, SPURGE+3, OPURGE+1~, OPURGE+3
CONF(0 SPURGE+4, OPURGE+4
COUNT SPURGE+1~, SPURGE+15*, SPURGE+16*, SPURGE+17, OPURGE+1~, OPURGE+21*, OPURGE+22*, OPURGE+23
DEFAULT ASKWHEN~, ASKWHEN+10
>> DTOUT ASKWHEN+12
DUZ SPURGE+3, OPURGE+3
HLDIR SETPURGE+8~, SETPURGE+14*, SETPURGE+15, SETPURGE+17
>> HLRFRSH SPURGE+29
IEN SPURGE+1~, SPURGE+15*, SPURGE+16*, OPURGE+1~, OPURGE+21*, OPURGE+22*
LINK SPURGE+1~, OPURGE+1~, OPURGE+6*, OPURGE+7, OPURGE+9, OPURGE+11*, OPURGE+13, OPURGE+22, OUTPURGE+5, OUTPURGE+9
MSG OUTPURGE+1~, OUTPURGE+2~, OUTPURGE+3*, OUTPURGE+5*, OUTPURGE+9, OUTPURGE+10, SEQPURGE+1~, SEQPURGE+2*, SEQPURGE+4*, SEQPURGE+8
, SEQPURGE+9
MSGIEN SETPURGE~, SETPURGE+9, SETPURGE+10, SETPURGE+15, SETPURGE+16, SETPURGE+17
NODE SETPURGE+8~, SETPURGE+10*, SETPURGE+11, SETPURGE+12, SETPURGE+14
OLDTIME SETPURGE+8~, SETPURGE+12*, SETPURGE+15
PORT SPURGE+1~, OPURGE+1~, OPURGE+9*, OPURGE+10, OPURGE+11
PROMPT ASKWHEN~, ASKWHEN+9
QUE SPURGE+1~, SPURGE+6*, SPURGE+7, SPURGE+8, SPURGE+16, SPURGE+22, OPURGE+1~, OPURGE+13*, OPURGE+14, OPURGE+22
, OPURGE+28, OUTPURGE+5, OUTPURGE+9, SEQPURGE+4, SEQPURGE+8, SEQPURGE+10, SEQPURGE+11, SEQPURGE+12
TIME SETPURGE~, SETPURGE+13*, SETPURGE+16, SETPURGE+17
>> VALMBCK SPURGE+2*, OPURGE+2*
WHEN SPURGE+1~, SPURGE+13*, SPURGE+14, OPURGE+1~, OPURGE+19*, OPURGE+20, OUTPURGE+10, SEQPURGE+9
>> Y ASKWHEN+14, ASKWHEN+15
>> ZTDESC SPURGE+19*, OPURGE+25*
>> ZTDTH SPURGE+20*, OPURGE+26*
>> ZTIO SPURGE+21*, OPURGE+27*
>> ZTQUEUED OUTPURGE+4, OUTPURGE+7, OUTPURGE+8, SEQPURGE+3, SEQPURGE+6, SEQPURGE+7
>> ZTRTN SPURGE+18*, OPURGE+24*
>> ZTSAVE("LINK" OPURGE+28*
>> ZTSAVE("QUE" SPURGE+22*, OPURGE+28*
>> ZTSAVE("WHEN" SPURGE+22*, OPURGE+28*
>> ZTSK SPURGE+24, SPURGE+25, OPURGE+30, OPURGE+31
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All