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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: HLUOPT1

Package: Health Level Seven

Routine: HLUOPT1


Information

HLUOPT1 ;AISC/SAW - Purging Entries in file #772 and #773 ;02/04/2004 09:58

Source Information

Source file <HLUOPT1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Level Seven 3 $$BTE^HLCSMON  (DEL772,DEL773)^HLUOPT3  (INIT,LOCKTELL,XTMPBEGN,XTMPUPD)^HLUOPT4  
Kernel 2 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$HDIFF)^XLFDT  
MailMan 1 KLQ^XMA1B  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Health Level Seven 2 HL PURGE TRANSMISSIONS  HLPOST16  

Entry Points

Name Comments DBIA/ICR reference
FAIL(FILE) ; Has number entries w/o purging any been exceeded?
KILL773(HLIEN,HLLT773,HLDELCNT) ; delete in file 773
CHK772(HLPDT,HLDELCNT,HLEXIT) ; Check file 772 for parents and children
TASKIT ; Queue task to run in the background
CHK4STOP(HLEXIT) ;
; HL*1.6*109 modified from 60 to 120...
UPDP4(FNO) ; Update piece 4 of file's zero node...
KILL772(HLIEN,HLLT772,HLDELCNT) ;
PURGE ;
; HLPDT("COMP") - 'completed' status cutoff date
; HLPDT("WAIT") - 'awaiting ack' status cutoff date
; HLPDT("ERR") - 'error' status cutoff date
; (=0 means don't delete msgs in 'error' status)
; HLPDT("ALL") - all other status (except 'error') cutoff date
CHK773(HLPDT,HLDELCNT,HLEXIT) ; Check file 773
INIT(HLPDT,HLTASK,HLEXIT) ; Get data from file #869.3
DQ ; Entry point for running purge of HL7 message text

External References

Name Field # of Occurrence
^%ZTLOAD TASKIT+4
$$S^%ZTLOAD CHK4STOP+11
$$BTE^HLCSMON PURGE+16
DEL772^HLUOPT3 KILL772+16
DEL773^HLUOPT3 KILL773+7
INIT^HLUOPT4 INIT+1
LOCKTELL^HLUOPT4 PURGE+12
XTMPBEGN^HLUOPT4 DQ+6
XTMPUPD^HLUOPT4 DQ+10, DQ+29, CHK773+5, CHK773+36, CHK772+5, CHK772+35, CHK4STOP+13, CHK4STOP+17
$$FMADD^XLFDT CHK773+8, CHK772+8
$$FMTE^XLFDT TASKIT+3
$$HDIFF^XLFDT CHK4STOP+8
KLQ^XMA1B KILL772+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " no task started..."
  • Line Location: PURGE+17
Function Call: WRITE
  • Prompt: " exiting..."
  • Line Location: PURGE+18
Function Call: WRITE
  • Prompt: !," Task #",ZTSK," queued to run now...",!
  • Line Location: TASKIT+5
Function Call: WRITE
  • Prompt: !," Queuing of Purge task failed.",!
  • Line Location: TASKIT+6
Function Call: WRITE
  • Prompt: !!," #",HLDELCNT," entries purged...",!
  • Line Location: DQ+32
Function Call: WRITE
  • Prompt: !,"Looping through file 773..."
  • Line Location: CHK773+4
Function Call: WRITE
  • Prompt: !,"Looping through file 772..."
  • Line Location: CHK772+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HL("HLUOPT1" PURGE+12, PURGE+13, DQ+9, DQ+27
^HL(772 - [#772] CHK773+20, KILL773+5, CHK772+10, CHK772+14, CHK772+17, CHK772+21, CHK772+23, CHK772+25, CHK772+33, CHK772+37
, CHK772+39, CHK772+40!, KILL772+6, KILL772+10
^HLMA - [#773] CHK773+12, CHK773+17, CHK773+19, CHK773+22, KILL773+3, KILL773+5
^HLMA(";" CHK773+10
^HLMA("B" KILL772+3

Label References

Name Line Occurrences
$$FAIL CHK773+12, CHK772+14
CHK4STOP CHK773+13, CHK772+15
CHK772 DQ+21
CHK773 DQ+15
DQ PURGE+22
INIT PURGE+9
KILL772 CHK772+28, CHK772+34
KILL773 CHK773+26, CHK773+35
TASKIT PURGE+20
UPDP4 DQ+18, DQ+24

Naked Globals

Name Field # of Occurrence
^("S" CHK773+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA KILL772+8~
DIK KILL772+8~
DT CHK773+8, CHK772+8
FILE FAIL~, FAIL+1
FNO UPDP4~, UPDP4+2, UPDP4+3
FPDATE CHK773+1~, CHK773+8*, CHK773+17, CHK772+1~, CHK772+8*, CHK772+21
GBL UPDP4+1~, UPDP4+2*, UPDP4+4, UPDP4+5, UPDP4+8, UPDP4+9
HLDELCNT DQ+1~, DQ+14*, DQ+15, DQ+21, DQ+32, CHK773~, CHK773+26, CHK773+35, KILL773~, KILL773+9*
, CHK772~, CHK772+28, CHK772+34, KILL772~, KILL772+18*
HLEXIT PURGE+6~, PURGE+8*, PURGE+9, PURGE+21!, INIT~, DQ+1~, DQ+14*, DQ+15, DQ+21, CHK773~
, CHK773+12, CHK773+13, CHK772~, CHK772+11, CHK772+14, CHK772+15, CHK4STOP~, CHK4STOP+12*
HLEXIT("LASTCHK" CHK4STOP+6*, CHK4STOP+8, CHK4STOP+15*
HLIEN CHK773+1~, CHK773+11*, CHK773+12*, CHK773+14, CHK773+17, CHK773+19, CHK773+22, CHK773+26, CHK773+35, KILL773~
, KILL773+3, KILL773+5, KILL773+7, CHK772+1~, CHK772+16*, CHK772+17*, CHK772+18, CHK772+21, CHK772+23, CHK772+25
, CHK772+28, CHK772+33, CHK772+34, CHK772+38*, CHK772+39*, CHK772+40, KILL772~, KILL772+3, KILL772+6, KILL772+10
, KILL772+16
HLINK CHK772+1~, CHK772+36*, CHK772+37*, CHK772+39, CHK772+40
HLLT772 CHK772+1~, CHK772+10*, CHK772+28, CHK772+34, KILL772~, KILL772+6
HLLT773 CHK773+1~, CHK773+10*, CHK773+26, CHK773+35, KILL773~, KILL773+3
HLMADT CHK773+1~, CHK773+20*, CHK773+26, CHK772+1~, CHK772+23*, CHK772+24, CHK772+28, CHK772+29, CHK772+30, CHK772+31
HLMADT1 CHK773+1~, CHK773+22*, CHK773+28, CHK773+30, CHK773+32, CHK773+34
HLOOP2 CHK772+1~, CHK772+11*
HLOOPCT DQ+1~, DQ+3*, CHK4STOP+3*, CHK4STOP+4
HLPDT PURGE+6~, PURGE+9, INIT~, DQ+15, DQ+21, CHK773~, CHK772~
HLPDT("ALL" CHK773+26, CHK772+28
HLPDT("COMP" TASKIT+3, CHK773+32, CHK772+24, CHK772+29
HLPDT("ERR" CHK773+24, CHK773+34, CHK772+27, CHK772+31
HLPDT("WAIT" CHK773+30, CHK772+30
HLPTR CHK773+1~, CHK773+19*, CHK773+20, CHK772+1~, CHK772+13*, CHK772+14*, CHK772+17
HLTASK PURGE+6~, PURGE+8*, PURGE+9, PURGE+16, PURGE+17, PURGE+18, PURGE+20, PURGE+21!, INIT~, CHK773+4
, CHK772+4
HLX KILL772+8~, KILL772+10*, KILL772+11, KILL772+14
HLY CHK773+1~, CHK773+22*, CHK773+24, CHK773+28, CHK773+30, CHK773+32, CHK773+34, CHK772+1~, CHK772+25*, CHK772+26*
, CHK772+27, CHK772+29, CHK772+30, CHK772+31, CHK772+32
NODE UPDP4+1~, UPDP4+5*, UPDP4+6, UPDP4+7*, UPDP4+8
NODEL UPDP4+1~, UPDP4+3*, UPDP4+6
P4 UPDP4+1~, UPDP4+6*, UPDP4+7
U UPDP4+6, UPDP4+7, CHK772+25, KILL772+11
>> X KILL773+5*
XMDUZ KILL772+8~, KILL772+12*
XMK KILL772+8~, KILL772+12*
XMZ KILL772+8~, KILL772+11*, KILL772+12
XTMP DQ+6~, DQ+10, DQ+29, CHK773+5, CHK773+36, CHK772+5, CHK772+35, CHK4STOP+13, CHK4STOP+17
XTMP( UPDP4+3, FAIL+1
XTMP(772 CHK772+12*, CHK772+18*, KILL772+14*, KILL772+19*
XTMP(773 CHK773+14*, KILL773+5*, KILL773+11*
ZTDESC TASKIT+1~, TASKIT+3*
ZTDTH TASKIT+1~, TASKIT+2*
ZTIO TASKIT+1~, TASKIT+2*
>> ZTQUEUED PURGE+12, PURGE+16, DQ+11, DQ+30, CHK4STOP+4
>> ZTREQ DQ+11*, DQ+30*
ZTRTN TASKIT+1~, TASKIT+2*
ZTSAVE TASKIT+1~
ZTSAVE("HLPDT(" TASKIT+2*
>> ZTSK TASKIT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All