Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPW6.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/SCRPW6.m (modified) (2 diffs)

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

@@ -1 +1 @@
 SCRPW6 ;RENO/KEITH - Trend of Facility Uniques by 12 Month Date Ranges ; 15 Jul 98  02:38PM
- ;;5.3;Scheduling;**139,144,466,510**;AUG 13, 1993;Build 3
+ ;;5.3;Scheduling;**139,144,466**;AUG 13, 1993;Build 2
  N SDDIV,SDI,SDSTA,DIR D TITL^SCRPW50("Trend of Facility Uniques by 12 Month Date Ranges") G:'$$DIVA^SCRPW17(.SDDIV) EXIT
  D SUBT^SCRPW50("**** Status Selection ****")
@@ -7 +7 @@
  S SDSTA=$S(Y=1:2,Y=2:8,1:"2^8")
 QUE W !!,"This report requires 132 column output.",!
- N ZTSAVE F X="SDDIV","SDDIV(","SDDNU(","SDSTA" S ZTSAVE(X)=""
+ N ZTSAVE F X="SDDIV","SDDIV(","SDDNU(",SDSTA S ZTSAVE(X)=""
  D EN^XUTMDEVQ("UNIQ^SCRPW6","Trend Facility Uniques",.ZTSAVE),DISP0^SCRPW23 Q
 UNIQ ;Calculate/print uniques