PXRRLCSE ;ISL/PKR - Sort encounters for location 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
. I $P(PXRRLCSC,U,1)["C" S ROUTINE="PXRRLCCP"
. E S ROUTINE="PXRRLCHP"
. S DESC="Location Encounter Report - print"
. S ZTDTH=$$NOW^XLFDT
. S TASK=^XTMP(PXRRXTMP,"PRZTSK")
. D REQUE^PXRRQUE(DESC,ROUTINE,TASK)
E D
. I $P(PXRRLCSC,U,1)["C" D ^PXRRLCCP
. E D ^PXRRLCHP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRLCSE 711 printed Oct 16, 2024@18:31:26 Page 2
PXRRLCSE ;ISL/PKR - Sort encounters for location 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 IF $PIECE(PXRRLCSC,U,1)["C"
SET ROUTINE="PXRRLCCP"
+11 IF '$TEST
SET ROUTINE="PXRRLCHP"
+12 SET DESC="Location Encounter Report - print"
+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(PXRRLCSC,U,1)["C"
DO ^PXRRLCCP
+18 IF '$TEST
DO ^PXRRLCHP
End DoDot:1
+19 QUIT
