Changeset 1177 for Scheduling/trunk/m/BSDX28.m

Timestamp:

May 11, 2011, 7:57:58 AM (13 years ago)

Author:

Sam Habiel

Message:

M routines to support Radiology Scheduling Integration; version bumped to 1.6t1

File:

• Scheduling/trunk/m/BSDX28.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX28.m

@@ -1 +1 @@
 BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am
-        ;;1.5;BSDX;;Apr 28, 2011
+        ;;1.6T1;BSDX;;May 11, 2011
         ; Licensed under LGPL
         ; Change Log:
@@ -28 +28 @@
         I '+$G(DUZ) S BSDXY=BSDXRET_$C(31) Q
         I '$D(DUZ(2)) S BSDXY=BSDXRET_$C(31) Q
-DFN ;If DFN is passed as `nnnn, just return that patient
+DFN     ;If DFN is passed as `nnnn, just return that patient
         I $E(BSDXP)="`" DO  SET BSDXY=BSDXRET_$C(31) QUIT
         . N BSDXIEN S BSDXIEN=$E(BSDXP,2,99)