source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRPRSE.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 686 bytes
Line 
1PXRRPRSE ;ISL/PKR - Sort encounter for provider count report. ;10/10/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**3,10**;Aug 12, 1996
3 ;
4 ;Sort the encounters according to the selection criteria.
5SORT ;
6 ;Allow the task to be cleaned up on successful completion.
7 S ZTREQ="@"
8 ;
9 D SORT^PXRRECSE
10 ;
11 ;Print the report.
12 I PXRRQUE D
13 .;Start the report that was queued but not scheduled.
14 . N DESC,ROUTINE,TASK
15 . S DESC="Provider Encounter Report - print"
16 . I $P(PXRRPRTY,U,1)="D" S ROUTINE="PXRRPRDP"
17 . E S ROUTINE="PXRRPRSP"
18 . S ZTDTH=$$NOW^XLFDT
19 . S TASK=^XTMP(PXRRXTMP,"PRZTSK")
20 . D REQUE^PXRRQUE(DESC,ROUTINE,TASK)
21 E D
22 . I $P(PXRRPRTY,U,1)="D" D ^PXRRPRDP
23 . E D ^PXRRPRSP
24 Q
Note: See TracBrowser for help on using the repository browser.