Changeset 988 for Scheduling/trunk/m


Ignore:
Timestamp:
Oct 22, 2010, 3:56:18 PM (14 years ago)
Author:
Sam Habiel
Message:

Support for restartable transactions for BSDX07

File:
1 edited

Legend:

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

    r968 r988  
    1 BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:11pm
    2         ;;1.41;BSDX;;Sep 29, 2010
    3            ;
    4            ; Change Log:
    5            ; UJO/SMH
    6            ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
     1BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 10/4/10 6:22pm
     2        ;;1.42;BSDX;;Sep 29, 2010
     3        ;
     4        ; Change Log:
     5        ; UJO/SMH
     6        ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
     7    ; v1.42 Oct 22 2010 - Transaction now restartable by providing arguments
     8    ;   thanks to Rick Marshall and Zach Gonzalez at Oroville.
    79        ;
    810        ;
    911APPADDD(BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID)    ;EP
    1012        ;Entry point for debugging
    11         ;
    12         I +$G(^HWDEBUG("BREAK","APPADD")),+$G(^HWDEBUG("BREAK"))=DUZ D DEBUG^%Serenji("APPADD^BSDX07(.BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID)",$P(^HWDEBUG("BREAK"),U,2))
    13         E  G ENDBG
     13        D DEBUG^%Serenji("APPADD^BSDX07(.BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID)")
    1414        Q
    1515        ;
     
    2828        ;
    2929        ;Test lines:
    30 ENDBG   ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^2^PEDIATRICIAN,DEMO^EXAM^SCRATCH NOTE
    31         ;
     30    ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^2^PEDIATRICIAN,DEMO^EXAM^SCRATCH NOTE
     31        ;
     32        ;Lock BSDX node
     33        L +^BSDXAPPT(BSDXPATID):5 I '$T D ERR(BSDXI+1,"Another user is working with this patient's record.  Please try again later") Q
     34        ;
     35    ;Restartable Transaction; restore paramters when starting.
     36    TSTART (BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID):T="BSDX ADD NEW APPOINTMENT^BSDX07"
     37    ;
    3238        N BSDXERR,BSDXIEN,BSDXDEP,BSDXI,BSDXJ,BSDXAPPTI,BSDXDJ,BSDXRESD,BSDXRNOD,BSDXSCD,BSDXC,BSDXERR,BSDXWKIN
    3339        N BSDXNOEV
     
    4046        S ^BSDXTMP($J,BSDXI)="I00020APPOINTMENTID^T00020ERRORID"_$C(30)
    4147        S BSDXI=BSDXI+1
    42         ;
    43         ;Lock BSDX node
    44         L +^BSDXAPPT(BSDXPATID):5 I '$T D ERR(BSDXI+1,"Another user is working with this patient's record.  Please try again later") Q
    45         ;
    46         TSTART
    47            ; v1.3 - date passed in as FM Date, not US date.
     48        ; v1.3 - date passed in as FM Date, not US date.
    4849        ;Check input data for errors
    4950        ; S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")
Note: See TracChangeset for help on using the changeset viewer.