- 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 Jan 18, 2025@03:32:12 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