Changeset 854 for Scheduling/trunk


Ignore:
Timestamp:
Jul 12, 2010, 10:25:21 AM (14 years ago)
Author:
Sam Habiel
Message:

More changes

Location:
Scheduling/trunk/m
Files:
3 edited

Legend:

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

    r614 r854  
    1 BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/11/10 6:14pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    2424        ;
    2525        ;BSDXRES is resource name
     26    ;
     27    ;//smh
     28    ; BSDXSTART and BSDXEND both passed in FM Format.
     29    ; BSDXSTART is the Date Portion of FM Date
     30    ; BSDXEND -- pass date and h,m,s as well
     31    ;//smh
    2632        ;
    2733        ;BSDXTYPES is |-delimited list of Access Type Names
     
    5965        D
    6066        . S BSDXBS=0
    61         . S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
    62         . S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
    63         . ;S:BSDXEND["@0:00" BSDXEND=$P(BSDXEND,"@")
    64         . S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
    65         . I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
    66         . S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
    67         . I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
    6867        . S BSDXRESN=BSDXRES
    6968        . Q:BSDXRESN=""
  • Scheduling/trunk/m/BSDX05.m

    r614 r854  
    1 BSDX05  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX05  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 6:28pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    2020        D
    2121        . 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
    2923        . S BSDXRESN=BSDXRES
    3024        . Q:BSDXRESN=""
  • Scheduling/trunk/m/BSDX06.m

    r614 r854  
    1 BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:54pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    2121        D
    2222        . S BSDXBS=0
    23         . S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
    24         . S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
    25         . S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
    26         . I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
    27         . S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
    28         . I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
    29         . I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
     23        . ; I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day
     24    . S BSDXEND=BSDXEND+.9999 ;//smh - not sure about this change
    3025        . S BSDXRESN=BSDXRES
    3126        . Q:BSDXRESN=""
Note: See TracChangeset for help on using the changeset viewer.