Changeset 1036 for Scheduling/trunk/m/BSDX26.m

Timestamp:

Dec 8, 2010, 1:44:40 AM (13 years ago)

Author:

Sam Habiel

Message:

Refactoring and txn restart fix to routines 26,29,31

File:

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

Scheduling/trunk/m/BSDX26.m

@@ -1 @@
-BSDX26  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 11/18/10 5:36pm
+BSDX26  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 12/6/10 3:08am
     ;;1.42;BSDX;;Sep 29, 2010
     ; Change History:
@@ -34 +34 @@
     D EDITAPT(.ZZZ,188,NOTE)
     I +^BSDXTMP($J,1)'=-100 W "ERROR IN -100",! B
+    k bsdxdie
     ; Test 5: Trestart
     N bsdxrestart S bsdxrestart=1
@@ -40 +41 @@
     D EDITAPT(.ZZZ,188,NOTE)
     I ^BSDXAPPT(188,1,1,0)'=NOTE W "ERROR in TRESTART",! B
-    ; Test for Hosp Location Update
+    ; Test 6: for Hosp Location Update
     N DATE S DATE=$$NOW^XLFDT()
+    S DATE=$E(DATE,1,12) ; Just get minutes b/c of HL file input transform
     D APPADD^BSDX07(.ZZZ,DATE,DATE+.001,3,"Dr Office",30,"Old Note",1)
     N APPID S APPID=+$P(^BSDXTMP($J,1),U)
-    D EDITAPT(.ZZZ,APTID,"New Note")
+    D EDITAPT(.ZZZ,APPID,"New Note")
     I ^BSDXAPPT(APTID,1,1,0)'="New Note" W "Error in HL Section",! B
     I $P(^SC(2,"S",DATE,1,1,0),U,4)'="New Note" W "Error in HL Section",! B