Routine: PXDELENC

Information

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

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()	;

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