Changeset 1438 for qrda/C0Q/trunk/p/C0QIMMUN.m

Timestamp:

May 25, 2012, 5:55:11 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated routines after many small fixes; added C0QKIDS as well

File:

• qrda/C0Q/trunk/p/C0QIMMUN.m (modified) (3 diffs)

qrda/C0Q/trunk/p/C0QIMMUN.m

@@ -1 @@
-C0QIMMUN        ;Prep Immunization Order data for HL7 Message creation ;
-        ;;0.1;C0Q;nopatch;noreleasedate;Build 27
+C0QIMMUN        ;Prep Immunization Order data for HL7 Message creation ; 5/23/12 5:40pm
+        ;;1.0;C0Q;;May 21, 2012;Build 43
         ;  ^XTMP("C0QIMMUN",0)=purge date^create date
         ;  ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value
         ;  ^XTMP("C0QIMMUN","LASTORDR")=last order processed
+        ; Changed by VEN/SMH to add timeout to the locks on May 23 2012
 FIND    ; Find the next set of immunization orders
         N X1,X2,X,%,%DT,%H,%T,NOW,ORDER,LASTORDR,SUBSC,DIR
         S LASTORDR=+$G(^XTMP("C0QIMMUN","LASTORDR"))
+        N C0QFAIL S C0QFAIL=0 ; Lock fail flag
         W !,"The ""Last Order"" from which to begin checking for Immunization orders is: ",LASTORDR
         S DIR("A")="Do you want to reset that value"
@@ -15 +17 @@
         . D:Y>0
         . . S LASTORDR=+Y
-        . . L +^XTMP("C0QIMMUN")
+        . . L +^XTMP("C0QIMMUN"):0
+        . . E  S C0QFAIL=1 QUIT
         . . S X1=DT,X2=365 D C^%DTC
         . . S ^XTMP("C0QIMMUN",0)=X_U_DT
@@ -22 +25 @@
         . . Q
         . Q
+        I C0QFAIL W !,"Failed to acquire lock, exiting..." QUIT
         S DIR("A")="Ready to prep more immunization orders for HL7 messages"
         S DIR(0)="Y",DIR("B")="YES" D ^DIR Q:Y'=1
-        L +^XTMP("C0QIMMUN")
+        L +^XTMP("C0QIMMUN"):0
+        E  W !,"Failed to acquire lock; exiting..." QUIT
         I '$D(^XTMP("C0QIMMUN",0)) D
         . S X1=DT,X2=365 D C^%DTC