PXRRPRSE ;ISL/PKR - Sort encounter for provider count report. ;10/10/96
;;1.0;PCE PATIENT CARE ENCOUNTER;**3,10**;Aug 12, 1996
;
;Sort the encounters according to the selection criteria.
SORT ;
;Allow the task to be cleaned up on successful completion.
S ZTREQ="@"
;
D SORT^PXRRECSE
;
;Print the report.
I PXRRQUE D
.;Start the report that was queued but not scheduled.
. N DESC,ROUTINE,TASK
. S DESC="Provider Encounter Report - print"
. I $P(PXRRPRTY,U,1)="D" S ROUTINE="PXRRPRDP"
. E S ROUTINE="PXRRPRSP"
. S ZTDTH=$$NOW^XLFDT
. S TASK=^XTMP(PXRRXTMP,"PRZTSK")
. D REQUE^PXRRQUE(DESC,ROUTINE,TASK)
E D
. I $P(PXRRPRTY,U,1)="D" D ^PXRRPRDP
. E D ^PXRRPRSP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRPRSE 710 printed Nov 22, 2024@17:41:13 Page 2
PXRRPRSE ;ISL/PKR - Sort encounter for provider count report. ;10/10/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**3,10**;Aug 12, 1996
+2 ;
+3 ;Sort the encounters according to the selection criteria.
SORT ;
+1 ;Allow the task to be cleaned up on successful completion.
+2 SET ZTREQ="@"
+3 ;
+4 DO SORT^PXRRECSE
+5 ;
+6 ;Print the report.
+7 IF PXRRQUE
Begin DoDot:1
+8 ;Start the report that was queued but not scheduled.
+9 NEW DESC,ROUTINE,TASK
+10 SET DESC="Provider Encounter Report - print"
+11 IF $PIECE(PXRRPRTY,U,1)="D"
SET ROUTINE="PXRRPRDP"
+12 IF '$TEST
SET ROUTINE="PXRRPRSP"
+13 SET ZTDTH=$$NOW^XLFDT
+14 SET TASK=^XTMP(PXRRXTMP,"PRZTSK")
+15 DO REQUE^PXRRQUE(DESC,ROUTINE,TASK)
End DoDot:1
+16 IF '$TEST
Begin DoDot:1
+17 IF $PIECE(PXRRPRTY,U,1)="D"
DO ^PXRRPRDP
+18 IF '$TEST
DO ^PXRRPRSP
End DoDot:1
+19 QUIT
