Changeset 1481
- Timestamp:
- Jul 11, 2012, 12:18:56 PM (12 years ago)
- Location:
- Scheduling/trunk/m
- Files:
-
- 41 edited
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDX01.m
r1472 r1481 1 1 BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:52am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; … … 310 310 I $$INDIV(2) W "ERROR",! 311 311 QUIT 312 UTINDIV2 312 UTINDIV2 ; Unit Test $$INDIV2 313 313 W "Testing if they are the same",! 314 314 S DUZ(2)=69 -
Scheduling/trunk/m/BSDX02.m
r1472 r1481 1 1 BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 11:09am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ;Licensed under LGPL 4 4 ; Change Log -
Scheduling/trunk/m/BSDX03.m
r1472 r1481 1 1 BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ;Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX04.m
r1472 r1481 1 1 BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/6/12 10:55am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; Change Log: -
Scheduling/trunk/m/BSDX05.m
r1472 r1481 1 1 BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX06.m
r1472 r1481 1 1 BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; Change Log: -
Scheduling/trunk/m/BSDX07.m
r1479 r1481 1 1 BSDX07 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 4:02pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX08.m
r1479 r1481 1 1 BSDX08 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 4:22pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; 4 4 ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL. -
Scheduling/trunk/m/BSDX09.m
r1472 r1481 1 1 BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 6/21/12 11:03am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX11.m
r1472 r1481 1 1 BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX12.m
r1472 r1481 1 1 BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX13.m
r1472 r1481 1 1 BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX14.m
r1472 r1481 1 1 BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX15.m
r1472 r1481 1 1 BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX16.m
r1472 r1481 1 1 BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:20am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX17.m
r1472 r1481 1 1 BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX18.m
r1472 r1481 1 1 BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX19.m
r1472 r1481 1 1 BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX20.m
r1472 r1481 1 1 BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX21.m
r1472 r1481 1 1 BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX22.m
r1472 r1481 1 1 BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX23.m
r1472 r1481 1 1 BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX24.m
r1472 r1481 1 1 BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX25.m
r1479 r1481 1 1 BSDX25 ; VEN/SMH - WINDOWS SCHEDULING RPCS ; 7/9/12 5:00pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX26.m
r1480 r1481 1 1 BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:27am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; Change History: -
Scheduling/trunk/m/BSDX27.m
r1472 r1481 1 1 BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX28.m
r1472 r1481 1 1 BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 10:57am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; Change Log: … … 76 76 . Q 77 77 ; 78 CHART 78 CHART ;Chart# Lookup 79 79 I +DUZ(2),BSDXP]"",$D(^AUPNPAT("D",BSDXP)) D S BSDXY=BSDXRET_$C(31) Q 80 80 . 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 1 1 BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/9/12 11:50am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX2E.m
r1472 r1481 1 BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [ 4/28/11 10:28am]2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 181 BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/11/12 9:37am] 2 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; … … 24 24 Q:'$$VERCHK("SD",5.3) 25 25 ; Q:'$$PATCHCK("PIMS*5.3*1003") D 26 Q:'$$VERCHK("BMX", 2)26 Q:'$$VERCHK("BMX",4) 27 27 ; 28 28 OTHER ; … … 91 91 . D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG") 92 92 . ; 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)) 94 94 ; 95 95 ; Remove nassssty protocols ORU PATIENT MOVMT and DVBA C&P SCHD EVENT … … 106 106 D:$D(BSDXFDA) FILE^DIE("","BSDXFDA","BSDXMSG") 107 107 ; 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)) 109 109 ; 110 110 ; … … 117 117 I $G(BSDXERR) W $C(7),"Error: ",BSDXERR 118 118 D PUT^XPAR("PKG","BSDX AUTO PRINT AS",1,0,.BSDXERR) 119 I $G(BSDXERR) W $C(7),"Error: ",BSDXERR119 I $G(BSDXERR) D MES^XPDUTL("Error: ",BSDXERR) 120 120 QUIT 121 121 ; -
Scheduling/trunk/m/BSDX30.m
r1472 r1481 1 1 BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [7/6/12 11:03am] 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX31.m
r1480 r1481 1 1 BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/10/12 10:39am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; Change Log: -
Scheduling/trunk/m/BSDX32.m
r1472 r1481 1 1 BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX33.m
r1472 r1481 1 1 BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; Mods by WV/STAR -
Scheduling/trunk/m/BSDX34.m
r1472 r1481 1 1 BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX35.m
r1472 r1481 1 1 BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 6/21/12 3:57pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXAPI.m
r1480 r1481 1 1 BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/10/12 5:58pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXAPI1.m
r1479 r1481 1 1 BSDXAPI1 ; VEN/SMH - SCHEDULING APIs - Continued!!! ; 7/9/12 2:22pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXGPRV.m
r1472 r1481 1 1 BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 7/6/12 11:07am 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXUT.m
r1472 r1481 1 1 BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/29/12 12:20pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXUT1.m
r1479 r1481 1 1 BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/9/12 12:31pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; 4 4 ; -
Scheduling/trunk/m/BSDXUT2.m
r1479 r1481 1 1 BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/9/12 3:18pm 2 ;;1.7T 1;BSDX;;Jul 06, 2012;Build 182 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18 3 3 ; 4 4 EN ; Run all unit tests in this routine … … 179 179 QUIT 180 180 ; 181 PIMS 181 PIMS ; Tests for running PIMS by itself. 182 182 N $ET S $ET="W ""An Error Occured. Breaking."",! BREAK" 183 183 N RESNAM S RESNAM="UTCLINIC"
Note:
See TracChangeset
for help on using the changeset viewer.