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

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

@@ -1 +1 @@
 SCRPTM ;ALB/CMM - List of Team's Members Report ; 29 Jun 99  04:11PM
- ;;5.3;Scheduling;**41,48,52,181,177,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,48,52,181,177**;AUG 13, 1993
  ;
  ;List of Team's Members Report
@@ -154 +154 @@
 PRNTD(INST,TEM,PRACT,POS,TITL,PAGE,HEAD) ;
  ;
- N CNT,SCAC
+ N CNT
  S CNT=""
  I IOST'?1"C-".E,$Y>(IOSL-11) D NEWP^SCRPTM2(INST,TEM,TITL,.PAGE,.HEAD)
@@ -161 +161 @@
  F  S CNT=$O(@STORE@(INST,TEM,PRACT,POS,CNT)) Q:CNT=""!(STOP)  D
  .W !,$G(@STORE@(INST,TEM,PRACT,POS,CNT))
- .S SCAC="" I CNT=4  D
- ..F  S SCAC=$O(@STORE@(INST,TEM,PRACT,POS,4,SCAC)) Q:SCAC=""!(STOP)  D
- ...W !,$G(@STORE@(INST,TEM,PRACT,POS,4,SCAC))
  Q