Routine: PXDELENC

Information

PXDELENC ;BAY/RJV-CLEAN UP ENCOUNTERS POINTING TO VISITS THAT DO NOT EXIST. ;14-JUN-2005

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMADD^XLFDT
VA FileMan	3	(,DD)^%DT (C,NOW)^%DTC ^DIR
List Manager	1	CLEAR^VALM1
MailMan	1	^XMD
PCE Patient Care Encounter	1	(FIXALL,FIXIND)^PXDELFIX

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PX DELETE ENCOUNTERS W/O VISIT PXDELFIX
Electronic Health Modernization	1	EHM-01411

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry Point.
ASKBLD	;
ASKBDT	;
ASKEDT	;
BUILD	; Build missing visits enconters.
PRINT	; Print report of missing visits.
PRINT1	;
HDR	;
EOP()	; End of page check
PXMAIL	;Send mail message when build complete.
WAIT	;
COUNT()	;

External References

Name	Field # of Occurrence
^%DT	ASKBDT+2, ASKEDT+2
DD^%DT	ASKBLD+5, ASKBLD+6, ASKBLD+12, ASKBLD+13, PRINT1+8, HDR+4, HDR+5, PXMAIL+2, PXMAIL+3, PXMAIL+4 , PXMAIL+5
C^%DTC	ASKBLD+3
NOW^%DTC	ASKBLD+3, BUILD+2, BUILD+20
^%ZIS	PRINT+10
^%ZISC	PRINT1+22
^%ZTLOAD	ASKEDT+13, PRINT+16
^DIR	EN+13, ASKBLD+22, EOP+4, WAIT+3
FIXALL^PXDELFIX	EN+19
FIXIND^PXDELFIX	EN+20
CLEAR^VALM1	ASKEDT+9
$$FMADD^XLFDT	BUILD+5
^XMD	PXMAIL+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This build contains ",PXREM," items to be fixed.",! Line Location: ASKBLD+18
Function Call: WRITE	Prompt: !!,"There are 0 remaining items to be fixed.",! Line Location: ASKBLD+19
Function Call: WRITE	Prompt: !!,"Invalid Date!",! Line Location: ASKBDT+4
Function Call: WRITE	Prompt: !!,"Invalid Date!",! Line Location: ASKEDT+4
Function Call: WRITE	Prompt: !,"Request Queued!" Line Location: ASKEDT+14
Function Call: WRITE	Prompt: @IOF Line Location: PRINT1+21
Function Call: WRITE	Prompt: !!,"Missing Visit Report for Date Range of ",$G(PXSDT)_" - "_$G(PXEDT),!! Line Location: HDR+9
Function Call: WRITE	Prompt: !,?2,"Patient IEN - Name",?35,"Appt Date",?55,"Prim Enc",?65,"2nd Enc" Line Location: HDR+10
Function Call: WRITE	Prompt: !,?2,"==================",?35,"=========",?55,"========",?65,"=======" Line Location: HDR+11
Function Call: WRITE	Prompt: ! Line Location: WAIT+3
Function Call: WRITE	Prompt: ! Line Location: WAIT+3
Routine Call	DIR Line Location: EN+13 ASKBLD+22 EOP+4 WAIT+3
Routine Call	%ZIS Line Location: PRINT+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BUILD+11, BUILD+18, PRINT1+9
^SCE - [#409.68]	BUILD+9, BUILD+13, BUILD+14, BUILD+15, PRINT1+12
^SCE("B"	BUILD+7, BUILD+8
^XTMP("PXDELENC"	ASKBLD+4, ASKBLD+5, ASKBLD+6, ASKBLD+10, ASKBLD+11, ASKBLD+14, ASKEDT+6!, ASKEDT+7, ASKEDT+8, BUILD+3 , BUILD+4, BUILD+5, BUILD+19, BUILD+21, BUILD+22, PRINT+4, PRINT+7, PRINT1+3, PRINT1+4, PRINT1+5 , PRINT1+11, HDR+2, HDR+3, PXMAIL+13, COUNT+3, COUNT+4, COUNT+5

Label References

Name	Line Occurrences
$$COUNT	BUILD+21
$$EOP	HDR+6
ASKBDT	ASKBDT+4
ASKBLD	EN+17
ASKEDT	ASKEDT+4
HDR	PRINT1+2, PRINT1+14
PRINT	EN+18
PXMAIL	BUILD+23
WAIT	ASKBLD+9, ASKEDT+15, PRINT+6, PRINT+9, PRINT1+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKBLD+2~, ASKBLD+3, BUILD+2, BUILD+20
%DT	ASKBDT+1, ASKBDT+5!, ASKEDT+1, ASKEDT+5!
%DT("A"	ASKBDT+1, ASKEDT+1
%ZIS	PRINT+1~, PRINT+10*
DA	EN+1~, EN+16!, ASKBLD+23!
DIR	EN+1~, EN+16!, ASKBLD+23!, EOP+1~, WAIT+2~
DIR("?"	EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8*
DIR("A"	ASKBLD+20, WAIT+3
DIR("B"	ASKBLD+21*
DIR("L"	EN+10, EN+11, EN+12*
DIR(0	EN+9, ASKBLD+21, EOP+3, WAIT+3
DIROUT	EOP+1~, WAIT+2~
DIRUT	EN+16, ASKBLD+2~, ASKBLD+23, EOP+1~, WAIT+2~
DTOUT	EOP+1~, WAIT+2~
DUOUT	EOP+1~, WAIT+2~
DUZ	PXMAIL+11, PXMAIL+13
IO	PRINT1+1, WAIT+1
IO("HOME"	WAIT+1
IO("Q"	PRINT+12, PRINT+16!
IOF	PRINT1+21, HDR+8
IOSL	PRINT1+14
IOST	HDR+6, EOP+2
POP	EN+1~, PRINT+11
PXATYP	ASKBLD+2~, BUILD+1, BUILD+11, BUILD+12
PXCOUNT	ASKBLD+1~, COUNT+1~, COUNT+2, COUNT+6, COUNT+7
PXCREATE	ASKBLD+2~, ASKBLD+3*, ASKBLD+4
PXEDT	ASKBLD+2~, ASKBLD+11, ASKBLD+13, ASKBLD+17, ASKEDT+2, ASKEDT+8, BUILD+7, HDR+1~, HDR+3, HDR+5* , HDR+9, PXMAIL+5*, PXMAIL+8
PXENC	ASKBLD+1~, BUILD+1, BUILD+8, BUILD+9, BUILD+13, BUILD+14, BUILD+15, BUILD+19, PRINT+1~, PRINT+3* , PRINT1+5, PRINT1+11, PRINT1+12, PRINT1+13, COUNT+1~, COUNT+2, COUNT+5*
PXEND	ASKBLD+1~, ASKBLD+6, ASKBLD+7, ASKBLD+15, ASKBLD+16, BUILD+20, BUILD+22, PRINT+1~, PRINT+3, PRINT1+3 , PRINT1+4, PRINT1+5, PRINT1+14, PRINT1+20, HDR+6, PXMAIL+3*, PXMAIL+9
PXNUMNM	PRINT+1~, PRINT1+10*, PRINT1+13
PXOPT	EN+1~, EN+14*, EN+15, EN+17, EN+18, EN+19, EN+20
PXPAGE	PRINT+1~, PRINT+3, HDR+6, HDR+7, HDR+8
PXPAT	ASKBLD+1~, BUILD+1, BUILD+9, BUILD+10, BUILD+11, BUILD+18, BUILD+19, PRINT+1~, PRINT+3, PRINT1+3 , PRINT1+4, PRINT1+5, PRINT1+9, PRINT1+10, PRINT1+11, COUNT+1~, COUNT+2, COUNT+3, COUNT+4, COUNT+5
PXPATNM	PRINT+1~, PRINT1+9*, PRINT1+10
PXPRI	ASKBLD+1~
PXPRIM	ASKBLD+1~, BUILD+14*, BUILD+17, PRINT+2~
PXPRIX	PRINT+2~, PRINT1+6, PRINT1+12, PRINT1+13
PXPURGE	ASKBLD+2~, ASKBLD+3*, ASKBLD+4
PXRANGE	ASKBLD+2~
PXREM	ASKBLD+2~, ASKBLD+14*, ASKBLD+18, ASKBLD+19
PXSDATE	ASKBLD+1~, BUILD+6, BUILD+7, BUILD+8, BUILD+11, BUILD+18, BUILD+19, PRINT+1~, PRINT+3, PRINT1+4 , PRINT1+5, PRINT1+7, PRINT1+11, COUNT+1~, COUNT+2, COUNT+4, COUNT+5
PXSDT	ASKBLD+2~, ASKBLD+10, ASKBLD+12, ASKBLD+17, ASKBDT+2, ASKEDT+7, BUILD+6, HDR+1~, HDR+2, HDR+4* , HDR+9, PXMAIL+4*, PXMAIL+8
PXSDTE	PRINT+1~, PRINT1+7, PRINT1+8, PRINT1+13
PXSEC	ASKBLD+1~, BUILD+15, BUILD+19, PRINT1+11, PRINT1+12, PRINT1+13
PXSTART	ASKBLD+1~, ASKBLD+5, ASKBLD+8, BUILD+2, BUILD+3, BUILD+5, PXMAIL+2*, PXMAIL+9
PXTEXT	PXMAIL+1~
PXTEXT(1	PXMAIL+7*
PXTEXT(2	PXMAIL+8*
PXTEXT(3	PXMAIL+9*
PXVISIT	ASKBLD+1~, BUILD+13*, BUILD+16, BUILD+17, BUILD+18
PXWARN	PRINT+2~, PRINT+3, PRINT1+12, PRINT1+15
X	ASKBLD+3, ASKBDT+3, ASKEDT+3, EOP+1~, WAIT+2~
X1	ASKBLD+2~, ASKBLD+3*
X2	ASKBLD+2~, ASKBLD+3*
XMAIL	PXMAIL+1~
XMDUZ	PXMAIL+1~, PXMAIL+11*
XMMG	PXMAIL+1~, PXMAIL+13
XMSUB	PXMAIL+1~, PXMAIL+10*, PXMAIL+14!
XMTEXT	PXMAIL+1~, PXMAIL+11*, PXMAIL+14!
XMY	PXMAIL+1~, PXMAIL+14!
XMY(	PXMAIL+11*
XMZ	PXMAIL+1~, PXMAIL+13
Y	EN+14, ASKBLD+2~, ASKBLD+5, ASKBLD+6, ASKBLD+12, ASKBLD+13, ASKBLD+24, ASKBDT+2, ASKBDT+4, ASKBDT+5! , ASKEDT+2, ASKEDT+4, ASKEDT+5!, PRINT1+8, HDR+4, HDR+5, EOP+1~, EOP+5, PXMAIL+1~, PXMAIL+2 , PXMAIL+3, PXMAIL+4, PXMAIL+5*, WAIT+2~
ZTDESC	EN+1~, ASKEDT+11, PRINT+13~, PRINT+14
ZTIO	EN+1~, ASKEDT+12*
ZTQUEUED	EN+1~, PXMAIL+6*
ZTRTN	EN+1~, ASKEDT+10, PRINT+13~, PRINT+14
ZTSAVE	PRINT+13~
ZTSAVE("PX*"	ASKEDT+12, PRINT+15
ZTSAVE("XM*"	ASKEDT+12*
ZTSK	EN+1~, ASKEDT+14

Customize PDF page

Package: PCE Patient Care Encounter