Changeset 1141 for Scheduling/branches/Radiology-Support/m/BSDX28.m

Timestamp:

Apr 13, 2011, 2:38:19 AM (13 years ago)

Author:

Sam Habiel

Message:

BSDX32: Hospital Location has extra column IS_RADIOLOGY_LOCATION to link if that HL is tied to the Radiology Package
BDDX01: GETRADEX: Get Radiology Exams for a Patient in a specific HL;
BSDX01: SCHRAEX: Schedule Radiology Exam
BSDX01: HOLDRAEX: Hold Radiology Exam
BSDX02: Added Radiology Exam Field, to retrieve Radiology Exam associated with appt
BSDX07: Support for adding Radiology Exams to Appointment. BSDX APPOINTMENT file now has a Radiology Exam that points to file 75.1 (RAD/NUC MED ORDERS)
BSDX28: Added support for searching by DFN from Scheduling GUI by accent grave notation.

File:

• Scheduling/branches/Radiology-Support/m/BSDX28.m (modified) (2 diffs)

Scheduling/branches/Radiology-Support/m/BSDX28.m

@@ -1 @@
-BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm
+BSDX28  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/10/11 2:34pm
         ;;1.5V3;BSDX;;Mar 16, 2011
         ; 
@@ -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
+        I $E(BSDXP)="`" DO  SET BSDXY=BSDXRET_$C(31) QUIT
+        . N BSDXIEN S BSDXIEN=$E(BSDXP,2,99)
+        . I BSDXIEN'=+BSDXIEN QUIT  ; BSDXIEN must be numeric
+        . N NAME S NAME=$P(^DPT(BSDXIEN,0),U)
+        . N HRN S HRN=$P($G(^AUPNPAT(BSDXIEN,41,DUZ(2),0)),U,2)
+        . N PID S PID=$P(^DPT(BSDXIEN,.36),U,3)
+        . N DOB S DOB=$$FMTE^XLFDT($P(^DPT(BSDXIEN,0),U,3))
+        . S BSDXRET=BSDXRET_NAME_U_HRN_U_PID_U_DOB_U_BSDXIEN_$C(30)
 PID     ;PID Lookup
            ; If this ID exists, go get it. If "UJOPID" index doesn't exist,