Changeset 988 for Scheduling

Timestamp:

Oct 22, 2010, 3:56:18 PM (14 years ago)

Author:

Sam Habiel

Message:

Support for restartable transactions for BSDX07

File:

• Scheduling/trunk/m/BSDX07.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX07.m

@@ -1 @@
-BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;  ; 7/18/10 2:11pm
-        ;;1.41;BSDX;;Sep 29, 2010
-           ;
-           ; Change Log:
-           ; UJO/SMH
-           ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
+BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 10/4/10 6:22pm
+        ;;1.42;BSDX;;Sep 29, 2010
+        ;
+        ; Change Log:
+        ; UJO/SMH
+        ; v1.3 July 13 2010 - Add support i18n - Dates input as FM dates, not US.
+    ; v1.42 Oct 22 2010 - Transaction now restartable by providing arguments
+    ;   thanks to Rick Marshall and Zach Gonzalez at Oroville.
         ;
         ;
 APPADDD(BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID)    ;EP
         ;Entry point for debugging
-        ;
-        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))
-        E  G ENDBG
+        D DEBUG^%Serenji("APPADD^BSDX07(.BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID)")
         Q
         ;
@@ -28 +28 @@
         ;
         ;Test lines:
-ENDBG   ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^2^PEDIATRICIAN,DEMO^EXAM^SCRATCH NOTE
-        ;
+    ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^2^PEDIATRICIAN,DEMO^EXAM^SCRATCH NOTE
+        ;
+        ;Lock BSDX node
+        L +^BSDXAPPT(BSDXPATID):5 I '$T D ERR(BSDXI+1,"Another user is working with this patient's record.  Please try again later") Q
+        ;
+    ;Restartable Transaction; restore paramters when starting.
+    TSTART (BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID):T="BSDX ADD NEW APPOINTMENT^BSDX07"
+    ;
         N BSDXERR,BSDXIEN,BSDXDEP,BSDXI,BSDXJ,BSDXAPPTI,BSDXDJ,BSDXRESD,BSDXRNOD,BSDXSCD,BSDXC,BSDXERR,BSDXWKIN
         N BSDXNOEV
@@ -40 +46 @@
         S ^BSDXTMP($J,BSDXI)="I00020APPOINTMENTID^T00020ERRORID"_$C(30)
         S BSDXI=BSDXI+1
-        ;
-        ;Lock BSDX node
-        L +^BSDXAPPT(BSDXPATID):5 I '$T D ERR(BSDXI+1,"Another user is working with this patient's record.  Please try again later") Q
-        ;
-        TSTART
-           ; v1.3 - date passed in as FM Date, not US date.
+        ; v1.3 - date passed in as FM Date, not US date.
         ;Check input data for errors
         ; S:BSDXSTART["@0000" BSDXSTART=$P(BSDXSTART,"@")