Changeset 1141 for Scheduling/branches/Radiology-Support/m/BSDX02.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/BSDX02.m (modified) (3 diffs)

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

@@ -1 @@
-BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/21/11 11:49am
+BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/11/11 12:21pm
         ;;1.5V3;BSDX;;Mar 16, 2011
-           ; 
-           ; Change Log
-           ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
+        ; 
+        ; Change Log
+        ; July 15 2010: UJO/SMH - Pass FM dates in instead of US dates for i18n
         ; March 21 2011: UJO/SMH (v 1.5) - Return new fields: Patient SEX, PID, and DOB
+        ; April 11 2011: UJO/SMH (v 1.6) - Added Radiology Exam Field, to retrieve Radiology Exam associated with appt
         ;
         ;
@@ -29 +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"_$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")
         ;
@@ -99 +100 @@
         ; Outputs it in MM/DD/YYYY format, which is ambigous for C#.
         N DOB S DOB=$$FMTE^XLFDT($$GET1^DIQ(2,BSDXPATD,.03,"I"))  ; DOB
-        S ^BSDXTMP($J,BSDXI)=SEX_U_PID_U_DOB_$C(30)
+        N RADEX S RADEX=$P(BSDXNOD,U,14)
+        S ^BSDXTMP($J,BSDXI)=SEX_U_PID_U_DOB_U_RADEX_$C(30)
         ; end new code
         Q