Changeset 854 for Scheduling/trunk/m/BSDX05.m
- Timestamp:
- Jul 12, 2010, 10:25:21 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDX05.m
r614 r854 1 BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 1 BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 6:28pm 2 2 ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007 3 3 ; … … 20 20 D 21 21 . S BSDXBS=0 22 . S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@") 23 . S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@") 24 . S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y 25 . I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q 26 . S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y 27 . I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q 28 . I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day 22 . S BSDXEND=BSDXEND+.9999 ;Go to end of day 29 23 . S BSDXRESN=BSDXRES 30 24 . Q:BSDXRESN=""
Note:
See TracChangeset
for help on using the changeset viewer.