Routine: PXICLN27

Package	Total	Call Graph
Kernel	3	^%ZTLOAD (BMES,MES)^XPDUTL $$GET^XUA4A72
PCE Patient Care Encounter	3	$$DATA2PCE^PXAPI $$SOURCE^PXAPIUTL $$PKG2IEN^VSIT
List Manager	1	$$FDTTM^VALM1
MailMan	1	^XMD
VA FileMan	1	FILE^DIE

Entry Points

Name	Comments	DBIA/ICR reference
ENV
QUE	; Queue job to cleanup Lab Providers.
TASKED	;
MAIL	;Send mail messge that job is done.
REPORT	;Send mail messge of what was done.
CLEANUP	;

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+8
FILE^DIE	CLEANUP+80
$$DATA2PCE^PXAPI	CLEANUP+108
$$SOURCE^PXAPIUTL	CLEANUP+16
$$FDTTM^VALM1	CLEANUP+49, CLEANUP+67, CLEANUP+90, CLEANUP+100
$$PKG2IEN^VSIT	CLEANUP+15, CLEANUP+17
^XMD	MAIL+10, REPORT+14
BMES^XPDUTL	QUE+2, QUE+10
MES^XPDUTL	QUE+9, QUE+10
$$GET^XUA4A72	ENV+13, ENV+14, CLEANUP+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"It looks like the cleanup routine in PCE patch PX1.09 did not finish." Line Location: ENV+4
Function Call: WRITE	Prompt: !,"The cleanup in patch 9 needs to be restarted so that it can finish." Line Location: ENV+5
Function Call: WRITE	Prompt: !,"To restart, enter D QUE^PXICLN9 from the programmers prompt." Line Location: ENV+6
Function Call: WRITE	Prompt: !!,"The default Lab provider that was added in Lab patch LR5.2158" Line Location: ENV+10
Function Call: WRITE	Prompt: !,"has not been set up. This provider must be setup before installing" Line Location: ENV+11
Function Call: WRITE	Prompt: !,"this patch." Line Location: ENV+12
Function Call: WRITE	Prompt: !!,"The default Lab provider that was added in Lab patch LR5.2158" Line Location: ENV+18
Function Call: WRITE	Prompt: !,"is not a valid provider. Either they have been terminated or" Line Location: ENV+19
Function Call: WRITE	Prompt: !,"they do not have a valid person class from 10/1/96 through now." Line Location: ENV+20
Routine Call	DIE Line Location: CLEANUP+80

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	CLEANUP+76
^AUPNVCPT("AD"	CLEANUP+75
^AUPNVPRV - [#9000010.06]	CLEANUP+37, CLEANUP+40, CLEANUP+53, CLEANUP+54, CLEANUP+71, CLEANUP+72, CLEANUP+94, CLEANUP+95
^AUPNVPRV("AD"	CLEANUP+36
^AUPNVSIT - [#9000010]	ENV+2, CLEANUP+47, CLEANUP+65, CLEANUP+88, CLEANUP+98
^AUPNVSIT("B"	CLEANUP+30, CLEANUP+32
^DIC(150.9 - [#150.9]	MAIL+8
^DPT - [#2]	CLEANUP+49, CLEANUP+67, CLEANUP+90, CLEANUP+100
^LAB(69.9 - [#69.9]	ENV+7, CLEANUP+20
^PX(815 - [#815]	ENV+1, CLEANUP+24, CLEANUP+111*
^TMP("PXTEXT"	REPORT+5, REPORT+6, REPORT+7, REPORT+8, REPORT+9, REPORT+10, REPORT+11, REPORT+12, REPORT+15!, CLEANUP+11! , CLEANUP+49, CLEANUP+51, CLEANUP+67, CLEANUP+69, CLEANUP+90, CLEANUP+92, CLEANUP+100, CLEANUP+102
^VA(200 - [#200]	ENV+15, CLEANUP+21, CLEANUP+39, CLEANUP+51, CLEANUP+69, CLEANUP+92, CLEANUP+102
^VSIT(150.2 - [#150.2]	MAIL+8

Label References

Name	Line Occurrences
CLEANUP	TASKED+1
MAIL	TASKED+2
REPORT	CLEANUP+109, CLEANUP+112

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DT	ENV+13
DUZ	QUE+7, MAIL+2, REPORT+2
PXACTIVE	ENV~, ENV+15, ENV+16, CLEANUP+4~, CLEANUP+39, CLEANUP+42, CLEANUP+43
PXI	CLEANUP+4~, CLEANUP+33!, CLEANUP+104
PXI("PROVIDER"	CLEANUP+46, CLEANUP+59, CLEANUP+60, CLEANUP+63, CLEANUP+64, CLEANUP+87
PXICOUNT	CLEANUP+1~, CLEANUP+34, CLEANUP+45, CLEANUP+46, CLEANUP+58, CLEANUP+59, CLEANUP+60, CLEANUP+62, CLEANUP+63, CLEANUP+64 , CLEANUP+86*, CLEANUP+87
PXICPT	CLEANUP+5~, CLEANUP+74, CLEANUP+75, CLEANUP+76, CLEANUP+78
PXICPTC	CLEANUP+5~, CLEANUP+78*, CLEANUP+79
PXIDIERR	CLEANUP+5~, CLEANUP+77!
PXIFDA	CLEANUP+5~, CLEANUP+77!
PXIFDA(	CLEANUP+79*
PXILRNAM	CLEANUP+2~, CLEANUP+21*, CLEANUP+69
PXIMSG	CLEANUP+6~, CLEANUP+10, CLEANUP+48, CLEANUP+49, CLEANUP+50, CLEANUP+51, CLEANUP+66, CLEANUP+67, CLEANUP+68, CLEANUP+69 , CLEANUP+89, CLEANUP+90, CLEANUP+91, CLEANUP+92, CLEANUP+99, CLEANUP+100, CLEANUP+101, CLEANUP+102, CLEANUP+109, CLEANUP+112
PXIPART	REPORT+3, REPORT+4, CLEANUP+6~, CLEANUP+9
PXIPAT9	ENV~, ENV+1*, ENV+2
PXIPC	CLEANUP+3~, CLEANUP+38*, CLEANUP+43, CLEANUP+84
PXIPC1	ENV~, ENV+13*, ENV+16
PXIPC2	ENV~, ENV+14*, ENV+16
PXIPKG	CLEANUP+4~, CLEANUP+33!, CLEANUP+52, CLEANUP+53, CLEANUP+70, CLEANUP+71, CLEANUP+93, CLEANUP+94, CLEANUP+106, CLEANUP+108
PXIPKGLR	CLEANUP+2~, CLEANUP+15*, CLEANUP+40
PXIPKGPX	CLEANUP+3~, CLEANUP+17*, CLEANUP+106
PXIPRV	CLEANUP+1~, CLEANUP+35, CLEANUP+36, CLEANUP+37, CLEANUP+40, CLEANUP+53, CLEANUP+54, CLEANUP+71, CLEANUP+72, CLEANUP+94 , CLEANUP+95
PXIPRV0	CLEANUP+4~, CLEANUP+37*, CLEANUP+38, CLEANUP+39, CLEANUP+42, CLEANUP+43, CLEANUP+46, CLEANUP+51, CLEANUP+59, CLEANUP+69 , CLEANUP+76, CLEANUP+83, CLEANUP+87, CLEANUP+92, CLEANUP+102
PXIPRVLR	ENV~, ENV+7, ENV+8, ENV+13, ENV+14, ENV+15, CLEANUP+2~, CLEANUP+20, CLEANUP+21, CLEANUP+63 , CLEANUP+79
PXISOR	CLEANUP+4~, CLEANUP+33!, CLEANUP+54, CLEANUP+72, CLEANUP+95, CLEANUP+107, CLEANUP+108
PXISORLR	CLEANUP+2~
PXISORPX	CLEANUP+3~, CLEANUP+16*, CLEANUP+107
PXIVSIT	CLEANUP+1~, CLEANUP+31, CLEANUP+32, CLEANUP+36, CLEANUP+47, CLEANUP+49, CLEANUP+65, CLEANUP+67, CLEANUP+75, CLEANUP+88 , CLEANUP+90, CLEANUP+98, CLEANUP+100, CLEANUP+108
PXIVSIT0	CLEANUP+6~, CLEANUP+47, CLEANUP+49, CLEANUP+65, CLEANUP+67, CLEANUP+88, CLEANUP+90, CLEANUP+98, CLEANUP+100
PXIVSTDT	CLEANUP+1~, CLEANUP+24, CLEANUP+30, CLEANUP+32, CLEANUP+38, CLEANUP+42, CLEANUP+43, CLEANUP+111
PXTEXT	MAIL+1~
PXTEXT(1	MAIL+5*
PXTEXT(2	MAIL+6*
PXTEXT(3	MAIL+7*
PXTEXT(4	MAIL+8*
XMSUB	MAIL+1~, MAIL+4, REPORT+1~, REPORT+4
XMTEXT	MAIL+1~, MAIL+9, REPORT+1~, REPORT+13
XMY	MAIL+1~, REPORT+1~
XMY(	MAIL+2, REPORT+2
>> XPDABORT	ENV+3, ENV+9, ENV+17*
ZTCPU	QUE+1~
ZTDESC	QUE+1~, QUE+5*
ZTDTH	QUE+1~, QUE+6*
ZTIO	QUE+1~, QUE+4*
>> ZTQUEUED	MAIL+6, REPORT+6
ZTRTN	QUE+1~, QUE+3*
ZTSAVE	QUE+1~
ZTSAVE("DUZ"	QUE+7*
ZTSAVE("DUZ("	QUE+7*
ZTSK	QUE+1~, QUE+9, QUE+10
ZTUCI	QUE+1~

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXICLN27

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: