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

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

@@ -1 +1 @@
 SCMCDD2 ;ALB/REW - DD Calls used by PCMM ; 27 March 1996
- ;;5.3;Scheduling;**41,107,520**;AUG 13, 1993;Build 26
+ ;;5.3;Scheduling;**41,107**;AUG 13, 1993
  ;1
 USEPCDEF(SCCL) ;how should pc practitioner be used for clinic
@@ -24 +24 @@
  S SCOK=0
  S SCXTP=0
- F  S SCXTP=$O(^SCTM(404.57,"E",SCCL,SCXTP)) Q:('SCXTP)!(SCXTP=SCTP)  D
+ F  S SCXTP=$O(^SCTM(404.57,"D",SCCL,SCXTP)) Q:('SCXTP)!(SCXTP=SCTP)  D
  .I $P(^SCTM(404.57,SCXTP,0),U,2)'=SCTM Q
  .S SCOK=1