Changeset 849 for Scheduling/trunk/m


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

Updated BSDX27 - Receives FM dates rather than regular dates to support i18n

File:
1 edited

Legend:

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

    r773 r849  
    1 BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
     1BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/5/10 9:57pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     
    182182        ;Called by BSDX CLINIC LETTERS
    183183        ;
     184    ; July 10, 2010 -- to support i18n, we pass dates from client in
     185    ; locale-neutral Fileman format. No need to convert it.
    184186        N BSDXI,BSDXNOD,BSDXNAM,BSDXDOB,BSDXHRN,BSDXSEX,BSDXCID,BSDXCNOD,BSDXDT
    185187        N BSDXJ,BSDXAID,BSDXPAT,BSDXPNOD,BSDXCLN,BSDXCLRK,BSDXMADE,BSDXNOT,BSDXLIN
     
    195197        ;Convert beginning and ending dates
    196198        ;
    197         S X=BSDXBEG,%DT="X" D ^%DT S BSDXBEG=$P(Y,"."),BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
    198         I Y=-1 D ERR(BSDXI,0,"Routine: BSDX27, Error: Invalid Date") Q
    199         S X=BSDXEND,%DT="X" D ^%DT S BSDXEND=$P(Y,"."),BSDXEND=BSDXEND_".9999"
    200         I Y=-1 D ERR(BSDXI,0,"Routine: BSDX27, Error: Invalid Date") Q
     199        S BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
     200        S BSDXEND=BSDXEND_".9999"
    201201        I BSDXCLST="" D ERR(BSDXI,0,"Routine: BSDX27, Error: Null clinic list") Q
    202202        ;
Note: See TracChangeset for help on using the changeset viewer.