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

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

@@ -1 +1 @@
 SCAPMC9 ;ALB/REW - Team API's:PRCL ; JUN 26, 1995
- ;;5.3;Scheduling;**41,112,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,112**;AUG 13, 1993
  ;;1.0
 PRCL(SC44,SCDATES,SCPOSA,SCUSRA,SCROLEA,SCLIST,SCERR) ;-- list of practitioners for clinic
@@ -54 +54 @@
  ; -- loop through team positions
  S SCTP=0
- F  S SCTP=$O(^SCTM(404.57,"E",SC44,SCTP)) Q:SCTP=""  D
+ F  S SCTP=$O(^SCTM(404.57,"D",SC44,SCTP)) Q:SCTP=""  D
  .Q:'$$OKARRAY^SCAPU1(.SCPOSA,SCTP)
  .S SCND=$G(^SCTM(404.57,SCTP,0))