Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRRPRSE

PXRRPRSE.m

Go to the documentation of this file.
  1. PXRRPRSE ;ISL/PKR - Sort encounter for provider count report. ;10/10/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**3,10**;Aug 12, 1996
  1. ;
  1. ;Sort the encounters according to the selection criteria.
  1. SORT ;
  1. ;Allow the task to be cleaned up on successful completion.
  1. S ZTREQ="@"
  1. ;
  1. D SORT^PXRRECSE
  1. ;
  1. ;Print the report.
  1. I PXRRQUE D
  1. .;Start the report that was queued but not scheduled.
  1. . N DESC,ROUTINE,TASK
  1. . S DESC="Provider Encounter Report - print"
  1. . I $P(PXRRPRTY,U,1)="D" S ROUTINE="PXRRPRDP"
  1. . E S ROUTINE="PXRRPRSP"
  1. . S ZTDTH=$$NOW^XLFDT
  1. . S TASK=^XTMP(PXRRXTMP,"PRZTSK")
  1. . D REQUE^PXRRQUE(DESC,ROUTINE,TASK)
  1. E D
  1. . I $P(PXRRPRTY,U,1)="D" D ^PXRRPRDP
  1. . E D ^PXRRPRSP
  1. Q