PXRRLCSE.m

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 ---PXRRLCSE   711     printed  Mar 13, 2025@21:35:32                                                                                                                                                                                                     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