Changeset 858 for Scheduling/trunk


Ignore:
Timestamp:
Jul 13, 2010, 2:58:25 AM (14 years ago)
Author:
Sam Habiel
Message:

changes to BSDX29 for i18n

File:
1 edited

Legend:

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

    r614 r858  
    1 BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
     1BSDX29  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/13/10 9:47am
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    1414        ;
    1515        ;Returns ADO Recordset formatted fields containing count of records copied and error message:
     16    ;
     17    ; July 13 2010: D dates (BEG and END) from US format to FM Dates for i18n
    1618        ;
    1719        ;
     
    2325        ;
    2426        ;Convert beginning and ending dates
    25         ;
    26         S X=BSDXBEG,%DT="X" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1
    27         I Y=-1 D ERR(BSDXI,0,"Routine: BSDX29, Error: Invalid Date") Q
    28         S X=BSDXEND,%DT="X" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND+1
    29         I Y=-1 D ERR(BSDXI,0,"Routine: BSDX29, Error: Invalid Date") Q
     27    ;
     28    ;TODO:Validate FM Dates coming through
     29        ;
     30        S BSDXBEG=BSDXBEG-1
     31        S BSDXEND=BSDXEND+1
    3032        ;
    3133        S ZTRTN="ZTM^BSDX29",ZTDTH=$H,ZTDESC="COPY PATIENT APPTS"
Note: See TracChangeset for help on using the changeset viewer.