Routine: PXICLN9

Information

PXICLN9 ;ISL/dee - Cleanup routine for PX*1.0*9 ;11/8/96

Source file <PXICLN9.m>

Package	Total	Call Graph
Kernel	2	^%ZTLOAD ($$PATCH,$$VERSION,BMES,MES)^XPDUTL
PCE Patient Care Encounter	2	EN1^PXICLN9A CLEANUP^PXICLN9B
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
LOCK	;Pre-install, locks lab from passing data.
QUE	; Queue job to cleanup Lab and Rad Encounters.
TASKED	;
MAIL	;Send mail messge that job is done.

Name	Field # of Occurrence
^%ZTLOAD	QUE+10
EN1^PXICLN9A	TASKED+2
CLEANUP^PXICLN9B	TASKED+1
^XMD	MAIL+14
$$PATCH^XPDUTL	PXICLN9+4, PXICLN9+7, PXICLN9+10, PXICLN9+17, PXICLN9+20, PXICLN9+23, PXICLN9+26
$$VERSION^XPDUTL	PXICLN9+13
BMES^XPDUTL	QUE+4, QUE+12
MES^XPDUTL	QUE+11, QUE+12

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Must install patch SD5.363 before installing this patch." Line Location: PXICLN9+5
Function Call: WRITE	Prompt: !,"Must install patch SD5.375 before installing this patch." Line Location: PXICLN9+8
Function Call: WRITE	Prompt: !,"Must install patch LR5.2138 before installing this patch." Line Location: PXICLN9+11
Function Call: WRITE	Prompt: !,"RAD/NUC must be at version 4.5 before installing this patch." Line Location: PXICLN9+15
Function Call: WRITE	Prompt: !,"Must install patch RA4.58 before installing this patch." Line Location: PXICLN9+18
Function Call: WRITE	Prompt: !,"Must install patch VSIT2.01 before installing this patch." Line Location: PXICLN9+21
Function Call: WRITE	Prompt: !,"Must install patch PX1.01 before installing this patch." Line Location: PXICLN9+24
Function Call: WRITE	Prompt: !,"Must install patch PX1.05 before installing this patch." Line Location: PXICLN9+27

Name	Line Occurrences (* Changed, ! Killed)
^DIC(150.9 - [#150.9]	MAIL+8
^LRO(69 - [#69]	LOCK+1, QUE+2
^TMP("PXICLN9"	LOCK+2!
^VSIT(150.2 - [#150.2]	MAIL+8

Name	Line Occurrences
MAIL	TASKED+3

Name	Field # of Occurrence
DUZ	QUE+9, MAIL+2
>> PXBCNT	MAIL+12
PXIIMM	MAIL+9, MAIL+15!
PXIRA	PXICLN9+3~, PXICLN9+13*, PXICLN9+14, PXICLN9+17
PXTEXT	MAIL+1~
PXTEXT(1	MAIL+5*
PXTEXT(2	MAIL+6*
PXTEXT(3	MAIL+7*
PXTEXT(4	MAIL+8*
PXTEXT(5	MAIL+10*
PXTEXT(6	MAIL+11*
PXTEXT(7	MAIL+12*
XMSUB	MAIL+1~, MAIL+4*
XMTEXT	MAIL+1~, MAIL+13*
XMY	MAIL+1~
XMY(	MAIL+2*
XMY("G.PCEINSTAL@ISC-SLC.DOMAIN.EXT"	MAIL+3*
>> XPDABORT	PXICLN9+6, PXICLN9+9, PXICLN9+12, PXICLN9+16, PXICLN9+19, PXICLN9+22, PXICLN9+25, PXICLN9+28
ZTCPU	QUE+3~
ZTDESC	QUE+3~, QUE+7*
ZTDTH	QUE+3~, QUE+8*
ZTIO	QUE+3~, QUE+6*
>> ZTQUEUED	MAIL+6
ZTRTN	QUE+3~, QUE+5*
ZTSAVE	QUE+3~
ZTSAVE("DUZ"	QUE+9*
ZTSAVE("DUZ("	QUE+9*
ZTSK	QUE+3~, QUE+11, QUE+12
ZTUCI	QUE+3~