Changeset 773 for Scheduling
- Timestamp:
- May 21, 2010, 9:50:19 PM (15 years ago)
- Location:
- Scheduling/trunk/m
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDX21.m
r614 r773 1 BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1 BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm 2 2 ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007 3 3 ; … … 68 68 ;I '$D(^BSDXAGP("B",BSDXGRP)) D ERR(BSDXI,0,0) Q 69 69 ;S BSDXIEN=$O(^BSDXAGP("B",BSDXGRP,0)) 70 I '+BSDXIEN D ERR(BSDXI,BSDXIEN ,70) Q70 I '+BSDXIEN D ERR(BSDXI,BSDXIEN) Q 71 71 I '$D(^BSDXAGP(BSDXIEN,0)) D ERR(0,"BSDX14: Invalid Access Group ID name.") Q 72 72 ; -
Scheduling/trunk/m/BSDX27.m
r742 r773 1 BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm1 BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm 2 2 ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007 3 3 ; … … 126 126 ; 127 127 ERROR ; 128 D ERR( "RPMS Error")129 Q 130 ; 131 ERR( ERRNO) ;Error processing128 D ERR(BSDXI,"RPMS Error") 129 Q 130 ; 131 ERR(BSDXI,ERRNO,MSG) ;Error processing 132 132 S:'$D(BSDXI) BSDXI=999 133 133 I +ERRNO S BSDXERR=ERRNO+134234112 ;vbObjectError 134 134 E S BSDXERR=ERRNO 135 135 S BSDXI=BSDXI+1 136 S ^BSDXTMP($J,BSDXI)= "^^^^^^^^^^^^^^^"_$C(30)136 S ^BSDXTMP($J,BSDXI)=MSG_"^^^^^^^^^^^^^^^"_$C(30) 137 137 S BSDXI=BSDXI+1 138 138 S ^BSDXTMP($J,BSDXI)=$C(31) -
Scheduling/trunk/m/BSDX34.m
r614 r773 1 BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1 BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:56pm 2 2 ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007 3 3 ; … … 50 50 ; 51 51 S X=BSDXBEG,%DT="XT" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999" 52 I Y=-1 D RBERR (1)Q52 I Y=-1 D RBERR Q 53 53 S X=BSDXEND,%DT="XT" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999" 54 I Y=-1 D RBERR (1)Q55 I BSDXCLST="" D RBERR (1)Q54 I Y=-1 D RBERR Q 55 I BSDXCLST="" D RBERR Q 56 56 ; 57 57 ;
Note:
See TracChangeset
for help on using the changeset viewer.