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

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

initial load of WorldVistAEHR

File size: 687 bytes
RevLine 
[613]1PXRRLCSE ;ISL/PKR - Sort encounters for location 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 . I $P(PXRRLCSC,U,1)["C" S ROUTINE="PXRRLCCP"
16 . E S ROUTINE="PXRRLCHP"
17 . S DESC="Location Encounter Report - print"
18 . S ZTDTH=$$NOW^XLFDT
19 . S TASK=^XTMP(PXRRXTMP,"PRZTSK")
20 . D REQUE^PXRRQUE(DESC,ROUTINE,TASK)
21 E D
22 . I $P(PXRRLCSC,U,1)["C" D ^PXRRLCCP
23 . E D ^PXRRLCHP
24 Q
Note: See TracBrowser for help on using the repository browser.