Routine: PXICLN17

Package	Total	Call Graph
Kernel	2	^%ZTLOAD (BMES,MES)^XPDUTL
PCE Patient Care Encounter	2	$$DATA2PCE^PXAPI $$PKG2IEN^VSIT
MailMan	1	^XMD
VA FileMan	1	(,EN,ENALL)^DIK

Entry Points

Name	Comments	DBIA/ICR reference
LOCK	;--SAVE FOR LOCKING GLOBALS
QUE	; Queue job to change 90731 to 90746 cpt code.
TASKED	;
MAIL	;Send mail messge that job is done.
CLEANUP	;---SUBROUTINE TO CLEAN UP CPT'S
CHANGE	; ; PXIEN=V FILE ENTRY ; PXIVSIT=VISIT IEN
MAPPING	;--CLEAN UP DATA MAPPING FILE

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+8
^DIK	CHANGE+15
EN^DIK	MAPPING+13, MAPPING+14
ENALL^DIK	MAPPING+9
$$DATA2PCE^PXAPI	CHANGE+23, CHANGE+44
$$PKG2IEN^VSIT	CHANGE+7
^XMD	MAIL+12
BMES^XPDUTL	QUE+2
MES^XPDUTL	QUE+9, QUE+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PXD(811.1 - [#811.1]	Classic Fileman Calls
^AUPNVCPT - [#9000010.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	CLEANUP+9, CHANGE+4, CHANGE+5, CHANGE+6
^AUPNVCPT("B"	CLEANUP+8
^AUPNVSIT - [#9000010]	CLEANUP+10, CLEANUP+11
^DIC(150.9 - [#150.9]	MAIL+8
^PX(839.7 - [#839.7]	CHANGE+8
^PXD(811.1 - [#811.1]	MAPPING+3, MAPPING+4, MAPPING+5, MAPPING+6, MAPPING+11, MAPPING+12
^SD(409.72	CLEANUP+3, CLEANUP+4, CLEANUP+5
^TMP("PXICLN17"	CHANGE+17, CHANGE+18, CHANGE+19, CHANGE+20, CHANGE+21, CHANGE+24!, CHANGE+27, CHANGE+28, CHANGE+29, CHANGE+30* , CHANGE+31, CHANGE+32, CHANGE+34, CHANGE+35, CHANGE+37, CHANGE+38, CHANGE+39, CHANGE+40, CHANGE+41*, CHANGE+47!
^VA(200 - [#200]	CHANGE+13
^VSIT(150.2 - [#150.2]	MAIL+8

Label References

Name	Line Occurrences
CHANGE	CLEANUP+12
CLEANUP	TASKED+2
MAIL	TASKED+3
MAPPING	TASKED+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	TASKED+4!, CHANGE+15, MAPPING+13, MAPPING+14*
DIK	TASKED+4!, CHANGE+15, MAPPING+9, MAPPING+13, MAPPING+14
DIK(1	TASKED+4!, MAPPING+9*
DUZ	QUE+7, MAIL+2
FLAG	CHANGE+11~, CHANGE+12*, CHANGE+34, CHANGE+35
PXI0	CHANGE+3~, CHANGE+4*, CHANGE+17, CHANGE+18, CHANGE+19, CHANGE+27, CHANGE+28, CHANGE+29, CHANGE+38, CHANGE+39
PXI12	CHANGE+3~, CHANGE+5, CHANGE+10, CHANGE+13, CHANGE+20, CHANGE+21, CHANGE+30, CHANGE+31, CHANGE+34, CHANGE+40 , CHANGE+41
PXI812	CHANGE+3~, CHANGE+6*, CHANGE+7, CHANGE+8
PXIACTV	CLEANUP+1~, CLEANUP+5*, CLEANUP+12, CLEANUP+13
PXICLN17	CHANGE+3~
PXICNT	TASKED+4!, MAIL+10, CLEANUP+7, CLEANUP+13
PXICOUNT	TASKED+4!, MAIL+9, CLEANUP+7, CLEANUP+12
PXIEN	CLEANUP+1~, CLEANUP+3, CLEANUP+4, CLEANUP+5, CLEANUP+8, CLEANUP+9, CHANGE+4, CHANGE+5, CHANGE+6, CHANGE+15
PXIPKG	CHANGE+3~, CHANGE+7*, CHANGE+23, CHANGE+44
PXISOR	CHANGE+3~, CHANGE+8*, CHANGE+23, CHANGE+44
PXIVSIT	CLEANUP+1~, CLEANUP+9*, CLEANUP+10, CLEANUP+11, CHANGE+23, CHANGE+44
PXIVSTDT	CLEANUP+1~, CLEANUP+11*, CLEANUP+12, CLEANUP+13
PXQX	MAPPING+1~, MAPPING+2, MAPPING+3, MAPPING+4, MAPPING+5*, MAPPING+6
PXQY	MAPPING+1~
PXTEXT	MAIL+1~
PXTEXT(1	MAIL+5*
PXTEXT(2	MAIL+6*
PXTEXT(3	MAIL+7*
PXTEXT(4	MAIL+8*
PXTEXT(5	MAIL+9*
PXTEXT(6	MAIL+10*
VAR	CHANGE+3~, CHANGE+23, CHANGE+44
XMSUB	MAIL+1~, MAIL+4*
XMTEXT	MAIL+1~, MAIL+11*
XMY	MAIL+1~
XMY(	MAIL+2*
XMY("G.PCEINSTAL@ISC-SLC.DOMAIN.EXT"	MAIL+3*
ZTCPU	QUE+1~
ZTDESC	QUE+1~, QUE+5*
ZTDTH	QUE+1~, QUE+6*
ZTIO	QUE+1~, QUE+4*
>> ZTQUEUED	MAIL+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: PXICLN17

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: