Changeset 1006


Ignore:
Timestamp:
Nov 12, 2010, 11:46:12 AM (14 years ago)
Author:
Sam Habiel
Message:

Changed "C" to ["C" in SCIEN

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Scheduling/trunk/m/BSDXAPI.m

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