Routine: MDCPURG

Package	Total	Call Graph
Kernel	2	(,DQ,ISQED,REQ,STAT)^%ZTLOAD ($$FMADD,$$HTFM)^XLFDT
VA FileMan	2	NOW^%DTC FILE^DIE
Clinical Procedures	1	($$FMDT,ENDDOC,NEWDOC,RPC,XMLDATA,XMLDT,XMLFTR,XMLHDR)^MDCLIO
Toolkit	1	($$GET,EN,GETLST,GETWP)^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Not called interactively
CP	; CP Legacy Cleanup
CLIO	; CliO Background Cleanup
PURGEOBS(MDDA)	; Gathers the pointers for a single observation
HL7	; Purges HL7 data from 704.002
QUERIES	; Clear the cached queries nightly
CLEARQ	; Clear Queries Cache - Ignores script settings
GETPAR(TASKID)	; Get Task in Parameter File
SETPAR(TASKID,ZTSK,NAME,RTN,RECUR)	;
ZTSK(TASKID)	; Taskman ID - According to MD PARAMETERS, creates one if missing
DESC(TASKID)	; Task Description
RTN(TASKID)	; Task Routine
ZTREQ(TASKID)	; Taskman re-queue identifier
RECUR(TASKID)	; Task Recurrence
START	; Queue the task to be ran @ P2(0) ; P2(0)=TASK ID as stored in XPAR (i.e. the name of the background task)
STOP	; Stop the task (i.e. dequeue)
STAT	; GET THE STATUS OF THE PURGE JOB
GETTASKS	; Get list of the known tasks
BLD	; Build the known tasks

External References

Name	Field # of Occurrence
NOW^%DTC	HL7+3
^%ZTLOAD	START+9
DQ^%ZTLOAD	START+10, STOP+3
ISQED^%ZTLOAD	START+10, STOP+3, STAT+27
REQ^%ZTLOAD	START+13
STAT^%ZTLOAD	ZTSK+4, STAT+17
FILE^DIE	CP+11, CLIO+11, HL7+12
$$FMDT^MDCLIO	START+12
ENDDOC^MDCLIO	STAT+10, STAT+22, STAT+30, GETTASKS+12
NEWDOC^MDCLIO	STAT+1, GETTASKS+4
RPC^MDCLIO	QUERIES+13
XMLDATA^MDCLIO	STAT+3, STAT+6, STAT+7, STAT+8, STAT+12, STAT+13, STAT+14, STAT+15, STAT+19, STAT+20 , STAT+24, STAT+25, GETTASKS+8, GETTASKS+9, GETTASKS+10
XMLDT^MDCLIO	STAT+28
XMLFTR^MDCLIO	STAT+9, STAT+21, STAT+29, GETTASKS+11
XMLHDR^MDCLIO	STAT+2, GETTASKS+7
$$FMADD^XLFDT	CP+4, CLIO+3, HL7+3, QUERIES+14
$$HTFM^XLFDT	STAT+28
$$GET^XPAR	CP+3, CLIO+2, HL7+2, GETPAR+1
EN^XPAR	SETPAR+1
GETLST^XPAR	QUERIES+6, GETTASKS+3
GETWP^XPAR	QUERIES+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^MDC(704.002 - [#704.002]	HL7+5, HL7+7
^MDC(704.004 - [#704.004]	HL7+10
^MDC(704.1161 - [#704.1161]	PURGEOBS+5
^MDC(704.117 - [#704.117]	CLIO+4, CLIO+5, CLIO+8
^MDC(704.118 - [#704.118]	PURGEOBS+10
^MDD(703.1 - [#703.1]	CP+6, CP+7, CP+9
^XTMP(	QUERIES+11, QUERIES+12!, QUERIES+14, QUERIES+15, QUERIES+16, CLEARQ+3, CLEARQ+4, CLEARQ+5!, CLEARQ+6

Label References

Name	Line Occurrences
$$DESC	START+6, START+11, START+14, STAT+13
$$GETPAR	ZTSK+2, ZTSK+3, DESC+1, RTN+1, RECUR+1, BLD+1, BLD+2, BLD+3
$$RECUR	ZTREQ+1, STAT+15
$$RTN	START+5, START+11, START+14, STAT+14
$$ZTREQ	CP+2, CLIO+1, HL7+1, QUERIES+1
$$ZTSK	START+3, STOP+2, STAT+4
BLD	GETTASKS+2
CLEARQ	QUERIES+4
PURGEOBS	CLIO+6, CLIO+10
SETPAR	START+14, BLD+1, BLD+2, BLD+3
STAT	STOP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HL7+3
DT	CP+4, CLIO+3, QUERIES+14
MDCDTTM	HL7+4~, HL7+5, HL7+7
MDCFDA	HL7+8~
MDCFDA(	HL7+9, HL7+11
MDCIEN	HL7+4~, HL7+6~, HL7+7*, HL7+9, HL7+10
MDCMD	QUERIES+2~, QUERIES+9
MDCMD(1	QUERIES+10
MDCSIEN	HL7+8~, HL7+10, HL7+11
MDCSTOP	HL7+2, HL7+3, HL7+5, HL7+13!
MDDA	CLIO+5*, CLIO+6, CLIO+8, CLIO+9, PURGEOBS~, PURGEOBS+2, PURGEOBS+5, PURGEOBS+6, PURGEOBS+10, PURGEOBS+11
>> MDDT	CP+5, CP+6, CP+7, CLIO+4*, CLIO+5
MDERR	QUERIES+2~, QUERIES+9, GETTASKS+1~, GETTASKS+3
MDFDA	CP+11!, CLIO+12!
MDFDA(	CP+8, CP+10, PURGEOBS+2, PURGEOBS+7, PURGEOBS+12*
MDGBL	CLIO+8, CLIO+9, CLIO+10, PURGEOBS+1~, PURGEOBS+5, PURGEOBS+6, PURGEOBS+7, PURGEOBS+10, PURGEOBS+11, PURGEOBS+12
MDLIST	GETTASKS+1~, GETTASKS+3
MDLIST(	GETTASKS+5, GETTASKS+6, GETTASKS+8, GETTASKS+9, GETTASKS+10
MDNAME	QUERIES+2~, QUERIES+8*, QUERIES+9, QUERIES+13
>> MDNODE	QUERIES+8*, QUERIES+11, QUERIES+12, QUERIES+14, QUERIES+15, QUERIES+16
MDOPT	QUERIES+2~, QUERIES+6
MDOPT(	QUERIES+7, QUERIES+8
MDQ	QUERIES+2~, QUERIES+7, QUERIES+8, CLEARQ+1~, CLEARQ+2, CLEARQ+3*, CLEARQ+4, CLEARQ+5, CLEARQ+6
>> MDRET	QUERIES+13, QUERIES+15
>> MDSTOP	CP+3, CP+4, CP+6, CLIO+2, CLIO+3, CLIO+4
MDTASK	GETTASKS+1~, GETTASKS+5*, GETTASKS+6, GETTASKS+8, GETTASKS+9, GETTASKS+10
NAME	SETPAR~, SETPAR+1
>> P2(0	START+3, START+5, START+6, START+11, START+14, STOP+2, STAT+3, STAT+4, STAT+13, STAT+14 , STAT+15
>> P2(1	START+12
>> P2(2	START+14
RECUR	SETPAR~, SETPAR+1
>> RESULTS	START+15
RTN	SETPAR~, SETPAR+1
TASKID	GETPAR~, GETPAR+1, SETPAR~, SETPAR+1, ZTSK~, ZTSK+2, ZTSK+3, DESC~, DESC+1, RTN~ , RTN+1, ZTREQ~, ZTREQ+1, RECUR~, RECUR+1
U	QUERIES+14, RTN+1, ZTREQ+1
>> X1	CP+7*, CP+8, CP+9, CP+10
>> X2	CP+9*, CP+10
ZTDESC	START+2~, START+6, START+11
ZTDTH	START+2~, START+7, START+12
ZTIO	START+2~, START+8, START+11
ZTREQ	CP+1~, CP+2, CLIO+1, HL7+1, QUERIES+1
ZTRTN	START+2~, START+5, START+11
ZTSK	SETPAR~, SETPAR+1, ZTSK+1~, ZTSK+3, ZTSK+4, START+2~, START+3, START+4, START+14, STOP+1~ , STOP+2, STAT+4, STAT+5, STAT+12
ZTSK("D"	STAT+28
ZTSK(0	ZTSK+4, START+10, STOP+3, STAT+18
ZTSK(1	STAT+24, STAT+26
ZTSK(2	STAT+25

Customize PDF page

Package: Clinical Procedures

Routine: MDCPURG

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: