Changeset 1563 for Scheduling/trunk/m/BSDX02.m

Timestamp:

Oct 8, 2012, 6:59:10 AM (12 years ago)

Author:

Tariq Hamkari

Message:

updated the BSDX version to 1.7

• fix "BSDX01.m" routine , it was take too long time to retrieve patient radiology exams.

File:

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

Scheduling/trunk/m/BSDX02.m

@@ -1 @@
-BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 11:09am
-        ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
+BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/16/11 2:47pm
+        ;;1.6;BSDX;;Aug 31, 2011;Build 25
         ;Licensed under LGPL 
         ; Change Log
@@ -30 +30 @@
         S BSDXERR=""
         S BSDXY="^BSDXTMP("_$J_")"
-        S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME"
-        S ^(0)=^(0)_"^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB^I00020RADIOLOGY_EXAM"_$C(30)
+        S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB^I00020RADIOLOGY_EXAM"_$C(30)
         D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
         ;
@@ -38 +37 @@
         ; S %DT="T",X=BSDXEND D ^%DT S BSDXEND=Y
         ; I BSDXEND=-1 S ^BSDXTMP($J,1)=$C(31) Q
-        ;
+           ;
         S BSDXI=0
         D STRES