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

Fixes in BSDX27 referring to a routine that doesn't exist in VISTA. References changed to BSDXAPI.

This commit is contained in:
sam 2010-05-02 20:55:04 +00:00
parent 45af33a5cb
commit 3f21980cd0
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
m/BSDX27.m
View File

@ -1,4 +1,4 @@
BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ;
BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
;
;
@ -117,11 +117,11 @@ PADISP(BSDXY,BSDXPAT) ;EP
STATUS(PAT,DATE,NODE) ; returns appt status
;IHS/OIT/HMW 20050208 Added from BSDDPA
NEW TYP
S TYP=$$APPTYP^BSDU2(PAT,DATE) ;sched vs. walkin
S TYP=$$APPTYP^BSDXAPI(PAT,DATE) ;sched vs. walkin
I $P(NODE,U,2)["C" Q TYP_" - CANCELLED"
I $P(NODE,U,2)'="NT",$P(NODE,U,2)["N" Q TYP_" - NO SHOW"
I $$CO^BSDU2(PAT,+NODE,DATE) Q TYP_" - CHECKED OUT"
I $$CI^BSDU2(PAT,+NODE,DATE) Q TYP_" - CHECKED IN"
I $$CO^BSDXAPI(PAT,+NODE,DATE) Q TYP_" - CHECKED OUT"
I $$CI^BSDXAPI(PAT,+NODE,DATE) Q TYP_" - CHECKED IN"
Q TYP
;
ERROR ;

14
m/BSDXAPI.m
View File

@ -1,4 +1,4 @@
BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; Fri Jul 24 22:45:37 PDT 2009
BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm
;;2.1;BSDX;;24JUL2009
;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
;local mods (many) by WV/SMH
@ -246,3 +246,15 @@ SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC
. I +$G(^SC(CLINIC,"S",DATE,1,X,0))=PAT S IEN=X
Q $G(IEN)
;
APPTYP(PAT,DATE) ;PEP; -- returns type of appt (scheduled or walk-in)
NEW X S X=$P($G(^DPT(PAT,"S",DATE,0)),U,7)
Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??")
;
CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out
NEW X
S X=$G(SDIEN) ;ien sent in call
I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0
S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U,3)
Q $S(X:1,1:0)
;