iSharkFly-Open
/
VistA-Scheduling
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

BSDX02 now returns Sex, DOB and PID in appointment list

This commit is contained in:
sam 2011-03-21 07:41:06 +00:00
parent 7e34215b78
commit 1a65cba5ce
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
m/BSDX02.m
View File

@ -1,8 +1,9 @@
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
;
;
CRSCHD(BSDXY,BSDXRES,BSDXSTART,BSDXEND) ;EP
@ -27,7 +28,7 @@ CRSCH(BSDXY,BSDXRES,BSDXSTART,BSDXEND,BSDXWKIN) ;
K ^BSDXTMP($J)
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")
;
; S %DT="T",X=BSDXSTART D ^%DT S BSDXSTART=Y
@ -89,8 +90,14 @@ STCOMM(BSDXAD,BSDXRESN) ;
. S:$E(BSDXNOT,$L(BSDXNOT)-1,$L(BSDXNOT))'=" " BSDXNOT=BSDXNOT_" "
. 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
;
ERR(BSDXI,BSDXERR) ;Error processing