Changeset 1461 for Scheduling/trunk/m/BSDXAPI.m

Timestamp:

Jun 26, 2012, 8:01:30 PM (12 years ago)

Author:

Sam Habiel

Message:

Refactoring cont.
Many changes in BSDX08. Extensive changes in BSDX31. Creation of BSDXAPI1 as continuation of BSDXAPI.
BSDXUT1 now has UTs for BSDX31. Transactions now gone from BSDX08 and BSDX31.
BSDX08 needs more tests at failure points. BSDX31 still needs analysis for transaction failure and
code for rollback points, plus tests for that.

File:

• Scheduling/trunk/m/BSDXAPI.m (modified) (5 diffs)

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/25/12 6:13pm
+BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/26/12 4:55pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL  
@@ -8 +8 @@
         ; Change History:
         ; 2010-11-5: (1.42)
-        ; - Fixed errors having to do uncanceling patient appointments if it was a patient cancelled appointment.
-        ; - Use new style Fileman API for storing appointments in file 44 in $$MAKE due to problems with legacy API.
+        ; - Fixed errors having to do uncanceling patient appointments if it was 
+        ;   a patient cancelled appointment.
+        ; - Use new style Fileman API for storing appointments in file 44 in 
+        ;   $$MAKE due to problems with legacy API.
         ; 2010-11-12: (1.42)
-        ; - Changed ="C" to ["C" in SCIEN. Cancelled appointments can be "PC" as well. 
+        ; - Changed ="C" to ["C" in SCIEN. Cancelled appointments can be "PC" as 
+        ;   well. 
         ; 2010-12-5 (1.42)
         ; Added an entry point to update the patient note in file 44.
@@ -37 +40 @@
         ; that the appointment is okay to make before committing to make it. We
         ; still have the provision to delete the data though if we fail when we 
-        ; actually make the appointment
+        ; actually make the appointment.
+        ; CANCELCK exists for the same purpose.
         ;
 MAKE1(DFN,CLIN,TYP,DATE,LEN,INFO)       ; Simplified PEP w/ parameters for $$MAKE - making appointment
@@ -307 +311 @@
         ; remember before status
         NEW SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL,SDMODE
+        NEW IEN S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"))
         S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN
         S SDCPHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL
@@ -318 +323 @@
         S DATE=$P($G(^SC(SDCL,"S",SDT,1,IEN,0)),U,7)
         ;
-        ; update file 2 info --old code
+        ; update file 2 info --old code; keep for reference
         ;NEW DIE,DA,DR
         ;S DIE="^DPT("_DFN_",""S"",",DA(1)=DFN,DA=SDT