Changeset 1006 for Scheduling

Timestamp:

Nov 12, 2010, 11:46:12 AM (14 years ago)

Author:

Sam Habiel

Message:

Changed "C" to ["C" in SCIEN

File:

• Scheduling/trunk/m/BSDXAPI.m (modified) (3 diffs)

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 9/28/10 12:36pm
-        ;;1.41;BSDX;;Sep 29, 2010;Build 7
+BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 11/2/10 4:36pm
+        ;;1.42;BSDX;;Sep 29, 2010;Build 7
         ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
         ;local mods (many) by WV/SMH
@@ -7 +7 @@
         ; - Fixed errors having to do uncanceling patient appointments if it was a patient cancelled appointment.
         ; - Use new style Fileman API for storing appointments in file 44 in $$MAKE due to problems with legacy API.
+    ; 2010-11-12:
+    ; - Changed ="C" to ["C" in SCIEN. Cancelled appointments can be "PC" as well. 
         ;
 MAKE1(DFN,CLIN,TYP,DATE,LEN,INFO)       ; Simplified PEP w/ parameters for $$MAKE - making appointment
@@ -259 +261 @@
         NEW X,IEN
         S X=0 F  S X=$O(^SC(CLINIC,"S",DATE,1,X)) Q:'X  Q:$G(IEN)  D
-        . Q:$P($G(^SC(CLINIC,"S",DATE,1,X,0)),U,9)="C"  ;cancelled
+        . Q:$P($G(^SC(CLINIC,"S",DATE,1,X,0)),U,9)["C"  ;cancelled
          . I +$G(^SC(CLINIC,"S",DATE,1,X,0))=PAT S IEN=X
         Q $G(IEN)