Changeset 874 for Scheduling


Ignore:
Timestamp:
Jul 15, 2010, 9:38:10 AM (14 years ago)
Author:
Sam Habiel
Message:

Documentation plus a few tiny fixes to routines

Location:
Scheduling/trunk/m
Files:
1 added
7 edited

Legend:

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

    r851 r874  
    1 BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:17pm
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     1BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ;
     4    ; Change Log
     5    ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
    36        ;
    47        ;
  • Scheduling/trunk/m/BSDX04.m

    r854 r874  
    1 BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/11/10 6:14pm
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     1BSDX04  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/15/10 12:44pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ; Change Log:
     4    ; July 11 2010: Pass BSDXSTART and END as FM dates rather than US formatted dates
     5    ;       for i18n
    36        ;
    47        ;
     
    4144        ;
    4245        ;Test lines:
    43         ;D CASSCH^BSDX04(.RES,"REMILLARD,MIKE","1-8-2000@0001","1-12-2004@2300") ZW RES
    44         ;BSDX CREATE ASGND SLOT SCHED^ROGERS,BUCK^8-15-2003@0001^8-22-2003@2300^2
     46        ;D CASSCH^BSDX04(.RES,"REMILLARD,MIKE","<fmdate>","<fmdate>") ZW RES
     47        ;BSDX CREATE ASGND SLOT SCHED^ROGERS,BUCK^<fmdate>^<fmdate>^2
    4548        ;S ^HW("BSDX04")=BSDXRES_U_BSDXSTART_U_BSDXEND
    4649        ;
  • Scheduling/trunk/m/BSDX05.m

    r854 r874  
    1 BSDX05  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 6:28pm
     1BSDX05  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:51pm
    22        ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33        ;
     4    ; Change Log:
     5    ; UJO/SMH - July 11 2010: pass FM Dates for Start and End rather than US Dates
    46        ;
    57APBLKOV(BSDXY,BSDXSTART,BSDXEND,BSDXRES)         ;EP
    68        ;Called by BSDX APPT BLOCKS OVERLAP
     9    ; July 11 2010 - pass FM Dates for Start and End rather than US Dates
    710        ;(Duplicates old qryAppointmentBlocksOverlapB)
    811        ;BSDXRES is resource name
  • Scheduling/trunk/m/BSDX06.m

    r854 r874  
    1 BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 5:54pm
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     1BSDX06  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ; Change Log:
     4    ; UJO/SMH: July 15 2010: Change in BSDXSTART and BSDXEND: get
     5    ; dates in FM format for i18n
    36        ;
    47        ;
     
    912        ;
    1013        ;Test lines:
    11         ;D TPBLKOV^BSDX06(.RES,"5-12-2003","5-16-2003","REMILLARD,MIKE") ZW RES
    12         ;BSDX TYPE BLOCKS OVERLAP^1-1-2000^12-14-2004^REMILLARD,MIKE
     14        ;D TPBLKOV^BSDX06(.RES,"3030513","3030516","REMILLARD,MIKE") ZW RES
     15        ;BSDX TYPE BLOCKS OVERLAP^303513^3030516^REMILLARD,MIKE
    1316        ;S ^HW("BSDXD06")=BSDXSTART_U_BSDXEND_U_BSDXRES
    1417        ;
     
    2124        D
    2225        . S BSDXBS=0
    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
     26        . I $L(BSDXEND,".")=1 S BSDXEND=BSDXEND+.9999 ;Go to end of day if only date (not time) is passed
    2527        . S BSDXRESN=BSDXRES
    2628        . Q:BSDXRESN=""
  • Scheduling/trunk/m/BSDX27.m

    r849 r874  
    1 BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/5/10 9:57pm
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     1BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:22pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ;
     4    ; Change Log: July 15, 2010
     5    ; UJO/SMH - i18n: FM Dates passed into routine for Clinic Letters - CLDISP tag
    36        ;
    47        ;
  • Scheduling/trunk/m/BSDX33.m

    r863 r874  
    1 BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/10 8:43am
     1BSDX33  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:33pm
    22        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    33    ; Mods by WV/STAR
    44    ;
     5    ; Change Log:
    56    ; July 13, 2010
    6     ; v 1.3 adds fixes Rebooking behavior in application
     7    ; v 1.3 adds fixes Rebooking behavior in application (see RBNEXT)
    78    ; also adds i18 support - Dates passed in FM format from application
     9    ; in tag SETRBK and RBNEXT
    810        ;
    911        ;
     
    3335        I '+BSDXRESD D ERR2("BSDX REBOOK NEXT BLOCK: Invalid resource name") Q
    3436        ;
     37    ; i18n fix
    3538    ; S X=BSDXDATE,%DT="XT" D ^%DT
    3639        ; I Y=-1 D ERR2(1,"BSDX REBOOK NEXT BLOCK: Invalid datetime") Q
     
    5053        E  S Y=BSDXFND X ^DD("DD") S BSDXFND=Y
    5154        S BSDXI=BSDXI+1
    52     ;//smh - bug: Need to replace @ in FM date for C# to recognize it
     55    ;//smh - bug (V 1.3): Need to replace @ in FM date for C# to recognize it
    5356    S BSDXFND=$TR(BSDXFND,"@"," ")
    5457    ;//smh end fix
     
    6568        ;Sets rebook date into appointment
    6669        ;BSDXAPPT - Appointment ID
    67         ;BSDXDATE - Rebook Datetime in external format
     70        ;BSDXDATE - Rebook Datetime in internal format
    6871        ;Called by BSDX REBOOK SET
    6972        ;
     
    8588        ;S BSDXDATE=Y
    8689        S BSDXIENS=BSDXAPPT_","
    87         S BSDXFDA(9002018.4,BSDXIENS,.11)=BSDXDATE
     90        S BSDXFDA(9002018.4,BSDXIENS,.11)=+BSDXDATE
    8891        ;
    8992        K BSDXMSG
  • Scheduling/trunk/m/BSDX34.m

    r851 r874  
    1 BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/11/10 11:28am
    2         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
    3         ;
     1BSDX34  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:37pm
     2        ;;1.3;IHS WINDOWS SCHEDULING;;NOV 01, 2007
     3    ;
     4    ; Change Log:
     5    ; July 10 2010:
     6        ; CANCLIN AND RBCLIN: Dates passed in FM format for i18n
    47        ;
    58        Q
     
    2528        ;Used in generating cancellation letters for a clinic
    2629        ;BSDXCLST is a |-delimited list of BSDX RESOURCE iens.  (The last |-piece is null, so discard it.)
    27         ;BSDXBEG and BSDXEND are in external date form.
     30    ;v 1.3 BSDXBEG and BSDXEND are in fm format
    2831        ;Called by BSDX CANCEL CLINIC LIST
    2932        N BSDXCAN
     
    4952        ;Convert beginning and ending dates
    5053        ;TODO: Validation of date to make sure it's a right FM Date
     54    S BSDXBEG=$P(BSDXBEG,".")
     55    S BSDXEND=$P(BSDXEND,".")
    5156        S BSDXBEG=BSDXBEG-1,BSDXBEG=BSDXBEG_".9999"
    5257        S BSDXEND=BSDXEND_".9999"
Note: See TracChangeset for help on using the changeset viewer.