Routine: HLUOPT1

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

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

Package

Total

Caller Graph

Health Level Seven

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)	; ; HL1.6109 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

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

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

Customize PDF page

Package: Health Level Seven

Routine: HLUOPT1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: