Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLQSR.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• SCHEDULING-SD-SC/SDWLQSR.m (modified) (4 diffs)

FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLQSR.m

@@ -1 @@
-SDWLQSR ;BPOI/TEH - WAIT LIST STAT REPORT;06/12/02
- ;;5.3;scheduling;**263,425,448,524**;08/13/93;Build 29
+SDWLQSR ;;IOFO BAY PINES/TEH/WAIT LIST STAT REPORT
+ ;;5.3;scheduling;**263,425,448**;AUG 13 1993
  ;
  ;
@@ -7 +7 @@
  ;
 EN N ZCODE,ZTDESC,ZTDTH,ZTIO,ZTQUEDED,ZTREQ,ZTRTN,ZTSAVE,ZTSK,POP
- K ^TMP("SDWLQSR",$J)
  D HD
 1 D INS G END:$D(DUOUT)
 2 D DATE G END:$D(DUOUT)
-3 D EXCL G END:$D(DUOUT)
  D QUE G END:$D(DUOUT)
  Q
@@ -35 +33 @@
  S ^TMP("SDWLQSR",$J,"DATE")=SDWLBDT_"^"_SDWLEDT K DIR,DIC,DIE,%DT Q
  Q
-EXCL ;EXCLUDE # REMAINING =0 - PATCH SD*5.3*524
- S SDWLEXCL=0,^TMP("SDWLQSR",$J,"EXCL")=0
- S DIR("A",1)="Do you wish to exclude any Teams, Specialities or Specific"
- S DIR("A")="Clinics where ALL values are zero"
- S DIR("B")="YES",DIR(0)="Y^A0" D ^DIR
- I X["^" S DUOUT=1 Q
- I Y<0 S DUOUT=1 Q
-EXCL1 I Y S SDWLEXCL=1,^TMP("SDWLQSR",$J,"EXCL")=SDWLEXCL
- K DIR,X,Y,SDWLEXCL
- Q
 QUE ;Queue Report
  N ZTQUEUED,POP
@@ -60 +48 @@
  D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
  Q
-END D EN^SDWLKIL
- K DUOUT,SDWLBDT,SDWLEDT,SDWLERR,SDWLIST,SDWLPROM,SDWLTK
- Q
+END D EN^SDWLKIL Q
 HD ;
  W:$D(IOF) @IOF W !,?80-$L("Wait List Stat Report")\2,"Wait List Stat Report",!