Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: HLUOPT1

Package: Health Level Seven

Routine: HLUOPT1


Information

HLUOPT1 ;AISC/SAW - Purging Entries in file #772 and #773 ;12/30/2010

Source Information

Source file <HLUOPT1.m>

Entry Points

Name Comments DBIA/ICR reference
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
INIT(HLPDT,HLTASK,HLEXIT) ; Get data from file #869.3
TASKIT ; Queue task to run in the background
DQ ; Entry point for running purge of HL7 message text
UPDP4(FNO) ; Update piece 4 of file's zero node...
CHK773(HLPDT,HLDELCNT,HLEXIT) ; Check file 773
KILL773(HLIEN,HLLT773,HLDELCNT) ; delete in file 773
CHK772(HLPDT,HLDELCNT,HLEXIT) ; Check file 772 for parents and children
KILL772(HLIEN,HLLT772,HLDELCNT) ;
CHK4STOP(HLEXIT) ;
; HL*1.6*109 modified from 60 to 120...
FAIL(FILE) ; Has number entries w/o purging any been exceeded?
; **P153 START CJM **

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
Info |  Source |  Entry Points |  Interaction Calls