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

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

@@ -1 +1 @@
 SCRPU1 ;ALB/CMM - GENERIC PROMPTS FOR PCMM REPORTS ;1/12/96
- ;;5.3;Scheduling;**41,45,130,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,45,130**;AUG 13, 1993
  ;
 INST ;Prompt for institution
@@ -109 +109 @@
  N TRUE,EN,TEAM
  S TRUE=0,EN=""
- F  S EN=$O(^SCTM(404.57,"E",+Y,EN)) Q:EN=""!(TRUE)  D
+ F  S EN=$O(^SCTM(404.57,"D",+Y,EN)) Q:EN=""!(TRUE)  D
  .S TEAM=+$P($G(^SCTM(404.57,EN,0)),"^",2)
  .I $D(VAUTT(TEAM))!(VAUTT=1) S TRUE=1