Changeset 885 for Scheduling


Ignore:
Timestamp:
Jul 18, 2010, 9:17:52 AM (14 years ago)
Author:
Sam Habiel
Message:

Updated kids post-init to remove harmful entries to GUI scheduling in protocol file from SDAM APPOINTMENT EVENTS

Location:
Scheduling/trunk/m
Files:
2 edited

Legend:

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

    r614 r885  
    1 BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [ 08/22/2007  12:17 PM ]
     1BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm]
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    5858        Q X
    5959        ;
    60 V0200   ;EP Version 2.0 PostInit
     60V0200   ;EP Version 1.3 PostInit
    6161        ;Add Protocol items to SDAM APPOINTMENT EVENTS protocol
     62    ;Remove protocols known to cause problems from SDAM APPOINTMENT EVENTS
    6263        ;
    6364        N BSDXDA,BSDXFDA,BSDXDA1,BSDXSEQ,BSDXDAT,BSDXNOD,BSDXIEN,BSDXMSG
     65    ;
     66    ; 1st, add the BSDX event protocols
     67    ; Get SDAM APPOINTMENT EVENTS IEN in 101
    6468        S BSDXDA=$O(^ORD(101,"B","SDAM APPOINTMENT EVENTS",0))
    6569        Q:'+BSDXDA
     70    ; Add each of those protocols unless they already exist.
    6671        S BSDXDAT="BSDX ADD APPOINTMENT;10.2^BSDX CANCEL APPOINTMENT;10.4^BSDX CHECKIN APPOINTMENT;10.6^BSDX NOSHOW APPOINTMENT;10.8"
    67         F J=1:1:$L(BSDXDAT,U) D
     72    ; For each
     73    F J=1:1:$L(BSDXDAT,U) D
    6874        . K BSDXIEN,BSDXMSG,BSDXFDA
     75    . ; Get Item
    6976        . S BSDXNOD=$P(BSDXDAT,U,J)
    70         . S BSDXDA1=$P(BSDXNOD,";")
     77        . ; Get Item Name (BSDX ADD APPOINTMENT)
     78    . S BSDXDA1=$P(BSDXNOD,";")
     79    . ; Get Item Sequence (10.2)
    7180        . S BSDXSEQ=$P(BSDXNOD,";",2)
     81    . ; Get Item Reference (Item is already in the protocol file)
    7282        . S BSDXDA1=$O(^ORD(101,"B",BSDXDA1,0))
     83    . ; Quit if not found
    7384        . Q:'+BSDXDA1
     85    . ; Quit if already exists in the SDAM protocol
    7486        . Q:$D(^ORD(101,BSDXDA,10,"B",BSDXDA1))
     87    . ; Go ahead and save it.
    7588        . S BSDXFDA(101.01,"+1,"_BSDXDA_",",".01")=BSDXDA1
    7689        . S BSDXFDA(101.01,"+1,"_BSDXDA_",","3")=BSDXSEQ
    7790        . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
    78         . Q
    79         Q
     91    . ; Error message
     92    . I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
     93    ;
     94    ; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
     95    ; SDAM APPOINTMENT EVENTS IENS for use in FIND1^DIC
     96    N SDEVTIENS S SDEVTIENS=","_BSDXDA_","
     97    ; Subfile entry for ORU...
     98    N ORUIEN S ORUIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","ORU PATIENT MOVMT")
     99    ; Subfile entry for DVBA...
     100    N DVBAIEN S DVBAIEN=$$FIND1^DIC(101.01,SDEVTIENS,"","DVBA C&P SCHD EVENT")
     101    ; Deletion code
     102    N BSDXFDA,BSDXMSG
     103    S:ORUIEN>0 BSDXFDA(101.01,ORUIEN_SDEVTIENS,.01)="@"
     104    S:DVBAIEN>0 BSDXFDA(101.01,DVBAIEN_SDEVTIENS,.01)="@"
     105    D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
     106    ; If error
     107    I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
     108        QUIT
    80109        ;
    81110SORRY(XPX)      ;
  • Scheduling/trunk/m/i18n_log.log

    r883 r885  
    5757r867 | sam | 2010-07-14 15:08:39 +0300 (Wed, 14 Jul 2010) | 6 lines
    5858Changed paths:
    59    M /Scheduling/trunk/m/BSDX07.m
    60    M /Scheduling/trunk/m/BSDX28.m
     59#   M /Scheduling/trunk/m/BSDX07.m
     60#   M /Scheduling/trunk/m/BSDX28.m
    6161
    6262Two updates: Search by Primary ID now enabled;
Note: See TracChangeset for help on using the changeset viewer.