PXRRPRSE.m

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 ---PXRRPRSE   710     printed  Apr 09, 2024@21:29:43                                                                                                                                                                                                     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