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

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

@@ -1 +1 @@
 SCAPMC30 ;ALB/REW - TEAM APIs:TPCL  ; 30 Jun 95
- ;;5.3;Scheduling;**41,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41**;AUG 13, 1993
  ;;1.0
 TPCL(SC44,SCDATES,SCPOSA,SCUSRA,SCPURPA,SCROLEA,SCLIST,SCERR) ;  -- list of positions for a clinic
@@ -58 +58 @@
  S SCOK=1
  G:'$$OKDATA CLTPQ
- S SCTP=0 F  S SCTP=$O(^SCTM(404.57,"E",SC44,SCTP)) Q:'SCTP  D  Q:'SCOK
+ S SCTP=0 F  S SCTP=$O(^SCTM(404.57,"D",SC44,SCTP)) Q:'SCTP  D  Q:'SCOK
  .S SCTP0=$G(^SCTM(404.57,SCTP,0))
  .IF '$L(SCTP0) D