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

Timestamp:

Jul 6, 2012, 2:28:15 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated version number on all routines to be 1.7T1.
Minor fixes here and there for XINDEX errors.

File:

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

Scheduling/trunk/m/BSDX02.m

@@ -1 @@
-BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/16/11 2:47pm
-        ;;1.6T2;BSDX;;May 16, 2011
+BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/6/12 11:09am
+        ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ;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^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"
+        S ^(0)=^(0)_"^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB^I00020RADIOLOGY_EXAM"_$C(30)
         D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
         ;
@@ -37 +38 @@
         ; 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