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

Timestamp:

May 8, 2011, 4:11:34 AM (13 years ago)

Author:

Sam Habiel

Message:

Merging Radiology Support branch back to trunk.

Location:

Scheduling/trunk/m

Files:

• . (modified) (1 prop)
• BSDX02.m (modified) (3 diffs)

Scheduling/trunk/m/BSDX02.m

@@ -5 +5 @@
         ; 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