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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HLQPURGE

Package: Health Level Seven

Routine: HLQPURGE


Information

HLQPURGE ;ALB/CJM/ -PURGING A LINK ;02/14/2011

Source Information

Source file <HLQPURGE.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  EN^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  ($$LJ,$$RJ)^XLFSTR  

Caller Graph

Legends:

Legend of Colors

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

Caller Graph Total: 5

Package Total Caller Graph
Health Level Seven 4 HL DISPLAY LINKS (TCP ONLY)  HL DISPLAY ONE LINK (TCP ONLY)  HL PURGE QUEUE (TCP)  HL RESET COUNTERS (TCP ONLY)  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ASKPURGE ;
RESET ;Resets the counters for a TCP queue
QPURGE(LINKIEN,END) ;
PURGE(IEN) ;sets the AI x-ref on file 773 and the FAST PURGE DT/TM fields in file 772 and 773
SET(IEN773,WHEN,IEN772) ;sets FAST PURGE DT/TM for and the AI x~ref for both file 772 & 773
ASKYESNO(PROMPT,DEFAULT) ;
ASKLINK() ;
ASKEND() ;
COUNT(LINKIEN,DIR) ;
SHOWTCP ;
PAUSE ;
PAUSE2 ;
LINE(LINE) ;Prints a line.
LJ(STRING,LEN) ;
RJ(STRING,LEN) ;
ONETCP ;Display one TCP link

External References

Name Field # of Occurrence
^%DT ASKEND+7
^DIC ASKLINK+7
EN^DIQ ONETCP+13, ONETCP+19
^DIR ASKYESNO+12, PAUSE2+5
$$FMADD^XLFDT PURGE+18
$$NOW^XLFDT QPURGE+25, PURGE+17
$$LJ^XLFSTR LJ+1
$$RJ^XLFSTR RJ+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,LINKNAME_" must be shutdown before it can be cleared of pending messages!"
  • Line Location: ASKPURGE+6
Function Call: WRITE
  • Prompt: !!,"There are two purging options: ALL or Before a particular DT/TM",!
  • Line Location: ASKPURGE+11
Function Call: WRITE
  • Prompt: !,"Sorry, those are the only options!"
  • Line Location: ASKPURGE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QPURGE+4
Function Call: WRITE
  • Prompt: !,"There are no messages to purge!"
  • Line Location: QPURGE+5
Function Call: WRITE
  • Prompt: !,"DONE: "_MSGCNT_" messages processed."
  • Line Location: QPURGE+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOWTCP+4
Function Call: WRITE
  • Prompt: HDR(1),!,HDR(2)
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: LINE+13
Function Call: WRITE
  • Prompt: @IOF,!!,"Here is the TCP link:",!
  • Line Location: ONETCP+16
Routine Call
  • DIC
  • Line Location:
    • ASKLINK+7
Routine Call
  • DIR
  • Line Location:
    • ASKYESNO+12
    • PAUSE2+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HLMA - [#773] Classic Fileman Calls
^HLCS(870 - [#870] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL(772 - [#772] QPURGE+11, SET+18, SET+20, SET+23*
^HLCS(869.1 - [#869.1] ASKLINK+4
^HLCS(870 - [#870] ASKPURGE+5, ASKPURGE+6, ASKPURGE+20*, ASKPURGE+21*, RESET+4*, RESET+5*, RESET+6*, RESET+7*, RESET+8, SHOWTCP+13
^HLMA - [#773] QPURGE+9, QPURGE+24*, QPURGE+25*, QPURGE+26*, PURGE+9, PURGE+12, PURGE+25, SET+8, SET+12*, SHOWTCP+17
^HLMA("AC" QPURGE+3, QPURGE+6, QPURGE+23!, COUNT+4, SHOWTCP+11, SHOWTCP+14, ONETCP+7
^HLMA("AF" PURGE+25
^HLMA("AI" SET+9!, SET+15*, SET+21!, SET+26*

Label References

Name Line Occurrences
$$ASKEND ASKPURGE+16
$$ASKLINK ASKPURGE+2, RESET+2, ONETCP+3
$$ASKYESNO ASKPURGE+8, ASKPURGE+13, ASKPURGE+15
$$COUNT ASKPURGE+21, RESET+5, RESET+7, SHOWTCP+17, ONETCP+9
$$LJ SHOWTCP+17
$$RJ SHOWTCP+17
LINE SHOWTCP+7, SHOWTCP+8, SHOWTCP+18
PAUSE LINE+3
PAUSE2 PAUSE+3, ONETCP+14
PURGE QPURGE+27
QPURGE ASKPURGE+19
SET PURGE+21, PURGE+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASKEND+2~, ASKEND+3*
%DT("A" ASKEND+4*
%DT(0 ASKEND+5*
BODY QPURGE+8~, QPURGE+9*, QPURGE+10, QPURGE+11
CHILD PURGE+6~, PURGE+24*, PURGE+25*
COUNT COUNT+1~, COUNT+3*, COUNT+4*, COUNT+5
CRT SHOWTCP+1~, SHOWTCP+3*, LINE+2, LINE+9
DA ONETCP+1~, ONETCP+12*, ONETCP+18*
DEFAULT ASKYESNO~, ASKYESNO+11
DIC ASKLINK+1~, ASKLINK+2*, ONETCP+1~, ONETCP+11*, ONETCP+17*
DIC("A" ASKLINK+5*
DIC("S" ASKLINK+6*
DIC(0 ASKLINK+3*
DIR ASKYESNO+8~, COUNT~, COUNT+2*, COUNT+4, PAUSE2+3~, ONETCP+1~, ONETCP+6*, ONETCP+7, ONETCP+9
DIR("A" ASKYESNO+10*
DIR("B" ASKYESNO+11*
DIR(0 ASKYESNO+9*, PAUSE2+4*
>> DIRUT ASKYESNO+13, PAUSE2+6
DOTCNT QPURGE+1~, QPURGE+2*, QPURGE+19, QPURGE+21*
DTOUT ASKLINK+1~, ASKLINK+8, ASKEND+6
DUOUT ASKLINK+1~, ASKLINK+8
END ASKPURGE+1~, ASKPURGE+16*, ASKPURGE+17, ASKPURGE+18*, ASKPURGE+19, QPURGE~, QPURGE+7, QPURGE+12
F SHOWTCP+1~, SHOWTCP+14*, SHOWTCP+17
H SHOWTCP+1~, SHOWTCP+10*, SHOWTCP+11*, SHOWTCP+13, SHOWTCP+14, SHOWTCP+17
HDR SHOWTCP+1~
HDR(1 SHOWTCP+5*, SHOWTCP+7, PAUSE+5, LINE+6, LINE+11
HDR(2 SHOWTCP+6*, SHOWTCP+8, PAUSE+5, LINE+6, LINE+11
IEN PURGE~, PURGE+3, PURGE+9, PURGE+12, PURGE+13, PURGE+21, PURGE+25, ONETCP+1~, ONETCP+3*, ONETCP+4
, ONETCP+7, ONETCP+9, ONETCP+18
IEN772 SET~, SET+18, SET+20, SET+21, SET+23, SET+26
IEN773 SET~, SET+8, SET+9, SET+12, SET+15
IOF SHOWTCP+4, LINE+5, LINE+10, ONETCP+9, ONETCP+16
IOSL LINE+2, LINE+9
IOST SHOWTCP+3
LEN LJ~, LJ+1, RJ~, RJ+1
LINE SHOWTCP+1~, SHOWTCP+17*, SHOWTCP+18, LINE~, LINE+7, LINE+12, LINE+13
LINKIEN ASKPURGE+1~, ASKPURGE+2*, ASKPURGE+4, ASKPURGE+5, ASKPURGE+6, ASKPURGE+19, ASKPURGE+20, ASKPURGE+21, RESET+1~, RESET+2*
, RESET+3, RESET+4, RESET+5, RESET+6, RESET+7, RESET+8, QPURGE~, QPURGE+3, QPURGE+6, QPURGE+23
, COUNT~, COUNT+4
LINKNAME ASKPURGE+1~, ASKPURGE+5*, ASKPURGE+6, ASKPURGE+7
MSG COUNT+1~, COUNT+3*, COUNT+4*, ONETCP+1~, ONETCP+7*, ONETCP+8, ONETCP+12
MSGCNT QPURGE+1~, QPURGE+2*, QPURGE+22*, QPURGE+28
MSGIEN QPURGE+1~, QPURGE+2*, QPURGE+6*, QPURGE+9, QPURGE+23, QPURGE+24, QPURGE+25, QPURGE+26, QPURGE+27
NM SHOWTCP+1~, SHOWTCP+15*, SHOWTCP+16*, SHOWTCP+17
NODE PURGE+6~, PURGE+12*, PURGE+13, PURGE+21
NODE0 SHOWTCP+12~, SHOWTCP+13*, SHOWTCP+15, SHOWTCP+17
OLDWHEN SET+6~, SET+8*, SET+9, SET+20*, SET+21
PROMPT ASKPURGE+7*, ASKPURGE+8, ASKPURGE+12*, ASKPURGE+13, ASKPURGE+14*, ASKPURGE+15, ASKYESNO~, ASKYESNO+10
Q SHOWTCP+1~, SHOWTCP+9*, SHOWTCP+11, SHOWTCP+14, SHOWTCP+17
QUIT ASKPURGE+1~, ASKPURGE+9*, ASKPURGE+13, ASKPURGE+15*, ASKPURGE+17*, QPURGE+1~, QPURGE+2*, QPURGE+6, QPURGE+7*, QPURGE+12*
, SHOWTCP+1~, SHOWTCP+2*, SHOWTCP+11, PAUSE+4, PAUSE2+6*, LINE+4, ONETCP+1~, ONETCP+2*, ONETCP+5, ONETCP+6
, ONETCP+15
STATE RESET+1~, RESET+8*, RESET+9*
STRING LJ~, LJ+1, RJ~, RJ+1
TCP ASKLINK+1~, ASKLINK+4*
TIME QPURGE+8~, QPURGE+11*, QPURGE+12
U RESET+8
WHEN PURGE+6~, PURGE+17*, PURGE+18*, PURGE+21, PURGE+25, SET~, SET+12, SET+15, SET+23, SET+26
X ASKLINK+1~, PAUSE2+3~
Y ASKYESNO+8~, ASKYESNO+14, ASKLINK+1~, ASKLINK+8, ASKEND+8, ASKEND+9, PAUSE2+3~, PAUSE2+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All