Changeset 1481 for Scheduling/trunk/m


Ignore:
Timestamp:
Jul 11, 2012, 12:18:56 PM (12 years ago)
Author:
Sam Habiel
Message:

Updated routine version numbers to 1.7T2.
Changes the Writes in the post-init to MESXPDUTL in BSDX2E.
Changed the check for BMX to be for BMX 4 rather than BMX 2.

Location:
Scheduling/trunk/m
Files:
41 edited

Legend:

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

    r1472 r1481  
    11BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:52am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
     
    310310        I $$INDIV(2) W "ERROR",!
    311311        QUIT
    312 UTINDIV2 ; Unit Test $$INDIV2
     312UTINDIV2        ; Unit Test $$INDIV2
    313313        W "Testing if they are the same",!
    314314        S DUZ(2)=69
  • Scheduling/trunk/m/BSDX02.m

    r1472 r1481  
    11BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 11:09am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ;Licensed under LGPL
    44        ; Change Log
  • Scheduling/trunk/m/BSDX03.m

    r1472 r1481  
    11BSDX03  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ;Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX04.m

    r1472 r1481  
    11BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/6/12 10:55am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ; Change Log:
  • Scheduling/trunk/m/BSDX05.m

    r1472 r1481  
    11BSDX05   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am
    2            ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2           ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33           ; Licensed under LGPL
    44           ;
  • Scheduling/trunk/m/BSDX06.m

    r1472 r1481  
    11BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ; Change Log:
  • Scheduling/trunk/m/BSDX07.m

    r1479 r1481  
    11BSDX07  ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS  ; 7/9/12 4:02pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX08.m

    r1479 r1481  
    11BSDX08  ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 4:22pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ;
    44        ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL.
  • Scheduling/trunk/m/BSDX09.m

    r1472 r1481  
    11BSDX09  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 6/21/12 11:03am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX11.m

    r1472 r1481  
    11BSDX11  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX12.m

    r1472 r1481  
    11BSDX12  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX13.m

    r1472 r1481  
    11BSDX13  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX14.m

    r1472 r1481  
    11BSDX14  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX15.m

    r1472 r1481  
    11BSDX15  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX16.m

    r1472 r1481  
    11BSDX16  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 4/28/11 10:20am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX17.m

    r1472 r1481  
    11BSDX17  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX18.m

    r1472 r1481  
    11BSDX18  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX19.m

    r1472 r1481  
    11BSDX19  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX20.m

    r1472 r1481  
    11BSDX20  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX21.m

    r1472 r1481  
    11BSDX21  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX22.m

    r1472 r1481  
    11BSDX22  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX23.m

    r1472 r1481  
    11BSDX23  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX24.m

    r1472 r1481  
    11BSDX24  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX25.m

    r1479 r1481  
    11BSDX25  ; VEN/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 5:00pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX26.m

    r1480 r1481  
    11BSDX26   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:27am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ; Change History:
  • Scheduling/trunk/m/BSDX27.m

    r1472 r1481  
    11BSDX27   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am
    2            ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2           ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33           ; Licensed under LGPL
    44           ;
  • Scheduling/trunk/m/BSDX28.m

    r1472 r1481  
    11BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:57am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ; Change Log:
     
    7676        . Q
    7777        ;
    78 CHART ;Chart# Lookup
     78CHART   ;Chart# Lookup
    7979        I +DUZ(2),BSDXP]"",$D(^AUPNPAT("D",BSDXP)) D  S BSDXY=BSDXRET_$C(31) Q
    8080        . S BSDXIEN=0 F  S BSDXIEN=$O(^AUPNPAT("D",BSDXP,BSDXIEN)) Q:'+BSDXIEN  I $D(^AUPNPAT("D",BSDXP,BSDXIEN,DUZ(2))) D  Q
  • Scheduling/trunk/m/BSDX29.m

    r1479 r1481  
    11BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 11:50am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX2E.m

    r1472 r1481  
    1 BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am]
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     1BSDX2E  ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/11/12 9:37am]
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
     
    2424        Q:'$$VERCHK("SD",5.3)
    2525        ; Q:'$$PATCHCK("PIMS*5.3*1003") D
    26         Q:'$$VERCHK("BMX",2)
     26        Q:'$$VERCHK("BMX",4)
    2727        ;
    2828OTHER   ;
     
    9191        . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
    9292        . ; Error message
    93         . I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
     93        . I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
    9494        ;
    9595        ; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT
     
    106106        D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG")
    107107        ; If error
    108         I $D(BSDXMSG) W $C(7),"Error: ",BSDXMSG("DIERR",1,"TEXT",1)
     108        I $D(BSDXMSG) D MES^XPDUTL("Error: ",BSDXMSG("DIERR",1,"TEXT",1))
    109109        ;
    110110        ;
     
    117117        I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
    118118        D PUT^XPAR("PKG","BSDX AUTO PRINT AS",1,0,.BSDXERR)
    119         I $G(BSDXERR) W $C(7),"Error: ",BSDXERR
     119        I $G(BSDXERR) D MES^XPDUTL("Error: ",BSDXERR)
    120120        QUIT
    121121        ;
  • Scheduling/trunk/m/BSDX30.m

    r1472 r1481  
    11BSDX30  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am]
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX31.m

    r1480 r1481  
    11BSDX31   ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:39am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ; Change Log:
  • Scheduling/trunk/m/BSDX32.m

    r1472 r1481  
    11BSDX32  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDX33.m

    r1472 r1481  
    11BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ; Mods by WV/STAR
  • Scheduling/trunk/m/BSDX34.m

    r1472 r1481  
    11BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL 
    44        ;
  • Scheduling/trunk/m/BSDX35.m

    r1472 r1481  
    11BSDX35  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/21/12 3:57pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL 
    44        ;
  • Scheduling/trunk/m/BSDXAPI.m

    r1480 r1481  
    11BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/10/12 5:58pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL 
    44        ;
  • Scheduling/trunk/m/BSDXAPI1.m

    r1479 r1481  
    11BSDXAPI1        ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/9/12 2:22pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL 
    44        ;
  • Scheduling/trunk/m/BSDXGPRV.m

    r1472 r1481  
    11BSDXGPRV        ; WV/SMH - WINDOWS SCHEDULING RPCS ; 7/6/12 11:07am
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL 
    44        ;
  • Scheduling/trunk/m/BSDXUT.m

    r1472 r1481  
    11BSDXUT  ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/29/12 12:20pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ; Licensed under LGPL
    44        ;
  • Scheduling/trunk/m/BSDXUT1.m

    r1479 r1481  
    11BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/9/12 12:31pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ;
    44        ;
  • Scheduling/trunk/m/BSDXUT2.m

    r1479 r1481  
    11BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/9/12 3:18pm
    2         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
     2        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
    33        ;
    44EN      ; Run all unit tests in this routine
     
    179179        QUIT
    180180        ;
    181 PIMS ; Tests for running PIMS by itself.
     181PIMS    ; Tests for running PIMS by itself.
    182182        N $ET S $ET="W ""An Error Occured. Breaking."",! BREAK"
    183183        N RESNAM S RESNAM="UTCLINIC"
Note: See TracChangeset for help on using the changeset viewer.