Changeset 851 for Scheduling/trunk/m


Ignore:
Timestamp:
Jul 11, 2010, 10:11:26 AM (14 years ago)
Author:
Sam Habiel
Message:

Fixes to support i18n (Receive FM dates from C# instead of culture specific date).Also, fix for Rebooking. Now it works.

Location:
Scheduling/trunk/m
Files:
3 edited

Legend:

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

    r614 r851  
    1 BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:17pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    2828        D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
    2929        ;
    30         S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
    31         S:BSDXEND["@0000" BSDXEND=$P(BSDXEND,"@")
    32         S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
    33         I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
    34         S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
    35         I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
    36         ;
     30        ; S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
     31        ; I BSDXSTART=-1 S ^BSDXTMP($J,1)=$C(31) Q
     32        ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
     33        ; I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
     34    ;
    3735        S BSDXI=0
    3836        D STRES
  • Scheduling/trunk/m/BSDX33.m

    r614 r851  
    1 BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 11:38am
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ; Mods by WV/STAR
    34        ;
    45        ;
     
    4344        E  S Y=BSDXFND X ^DD("DD") S BSDXFND=Y
    4445        S BSDXI=BSDXI+1
     46    ;//smh - bug: Need to replace @ in FM date for C# to recognize it
     47    S BSDXFND=$TR(BSDXFND,"@"," ")
     48    ;//smh end fix
    4549        S ^BSDXTMP($J,BSDXI)="1^"_BSDXFND_"^"_$C(30)_$C(31)
    4650        Q
  • Scheduling/trunk/m/BSDX34.m

    r773 r851  
    1 BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:56pm
     1BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 11:28am
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    3939        ;Used in generating rebook letters for a clinic
    4040        ;BSDXCLST is a |-delimited list of BSDX RESOURCE iens.  (The last |-piece is null, so discard it.)
    41         ;BSDXBEG and BSDXEND are in external date form.
    4241        ;Called by BSDX REBOOK CLINIC LIST and BSDX CANCEL CLINIC LIST via entry point CANCLIN above
    43         ;
     42        ;Jul 11 2010 (smh):
     43    ;for i18n, pass BSDXBEG and BSDXEND in FM format.
    4444        ;
    4545        S X="RBERR^BSDX34",@^%ZOSF("TRAP")
     
    4848        N %DT,Y,BSDXJ,BSDXCID,BSDXCLN,BSDXSTRT,BSDXAID,BSDXNOD,BSDXLIST,BSDX,BSDY
    4949        ;Convert beginning and ending dates
    50         ;
    51         S X=BSDXBEG,%DT="XT" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
    52         I Y=-1 D RBERR Q
    53         S X=BSDXEND,%DT="XT" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999"
    54         I Y=-1 D RBERR Q
     50        ;TODO: Validation of date to make sure it's a right FM Date
     51        S BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
     52        S BSDXEND=BSDXEND_".9999"
     53    ;
    5554        I BSDXCLST="" D RBERR Q
    5655        ;
Note: See TracChangeset for help on using the changeset viewer.