Changeset 1108

Timestamp:

Mar 21, 2011, 3:41:06 AM (14 years ago)

Author:

Sam Habiel

Message:

BSDX02 now returns Sex, DOB and PID in appointment list

File:

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

Scheduling/trunk/m/BSDX02.m

@@ -1 @@
-BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm
+BSDX02  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/21/11 9:44am
         ;;1.5V2;BSDX;;Mar 03, 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
         ;
         ;
@@ -28 +29 @@
         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"_$C(30)
+        S ^BSDXTMP($J,0)="I00020APPOINTMENTID^D00030START_TIME^D00030END_TIME^D00030CHECKIN^D00030AUXTIME^I00020PATIENTID^T00030PATIENTNAME^T00030RESOURCENAME^I00005NOSHOW^T00020HRN^I00005ACCESSTYPEID^I00005WALKIN^T00250NOTE^T00006SEX^T00040PID^D00030DOB"_$C(30)
         D ^XBKVAR S X="ETRAP^BSDX02",@^%ZOSF("TRAP")
         ;
@@ -90 +91 @@
         . S BSDXI=BSDXI+1
         . S ^BSDXTMP($J,BSDXI)=BSDXNOT
+        S ^BSDXTMP($J,BSDXI)=^BSDXTMP($J,BSDXI)_U ; Add "^" to separate note from next fields.
         S BSDXI=BSDXI+1
-        S ^BSDXTMP($J,BSDXI)=$C(30)
+        ; new code for V1.5. Extra fields to return.
+        N SEX S SEX=$$GET1^DIQ(2,BSDXPATD,.02)  ; SEX
+        N PID S PID=$$GET1^DIQ(2,BSDXPATD,.363) ; PRIMARY LONG ID
+        N DOB S DOB=$$FMTE^XLFDT($$GET1^DIQ(2,BSDXPATD,.03,"I"))  ; DOB
+        S ^BSDXTMP($J,BSDXI)=SEX_U_PID_U_DOB_$C(30)
+        ; end new code
         Q
         ;