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

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

@@ -1 @@
-BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 3/16/11 7:08am
+BSDX01  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/10/11 4:50pm
         ;;1.5V3;BSDX;;Mar 16, 2011
         ;
@@ -318 +318 @@
            I $$INDIV2(27)'=1 W "ERROR",!
            QUIT
+GETRADEX(BSDXY,DFN,SCIEN)
+ S BSDXY=$NA(^BMXTEMP($J))
+ K @BSDXY
+ N BSDXRLIEN S BSDXRLIEN=$ORDER(^RA(79.1,"B",SCIEN,""))  ; IEN of HL in file 79.1, to get Radiology Imaging IEN
+ I 'BSDXRLIEN QUIT  ; This will crash the client. Intentionally!!!!
+ N BSDXI S BSDXI=0
+ S @BSDXY@(BSDXI)="I00015BMXIEN^T00015STATUS^T00100PROCEDURE^D00030REQUEST_DATE"_$C(30)
+ N BSDXOUT,BSDXERR ; Out, Error
+ D LIST^DIC(75.1,"","@;5;2;16","P","","","","B","I $P(^(0),U)=DFN&(35[$P(^(0),U,5))&($P(^(0),U,20)=BSDXRLIEN)","","BSDXOUT","BSDXERR")
+ ;TODO: do something about BSDXERR
+ I +BSDXOUT("DILIST",0)>0 FOR BSDXI=1:1:+BSDXOUT("DILIST",0) DO
+ . N BMXIEN,BMXSTAUS,BMXPROC,BMXDATE ; Proc IEN, Proc Status, Proc Name
+ . S BMXIEN=$P(BSDXOUT("DILIST",BSDXI,0),U)
+ . S BMXSTATUS=$P(BSDXOUT("DILIST",BSDXI,0),U,2)
+ . S BMXPROC=$P(BSDXOUT("DILIST",BSDXI,0),U,3)
+ . S BMXDATE=$TR($P(BSDXOUT("DILIST",BSDXI,0),U,4),"@"," ")
+ . S @BSDXY@(BSDXI)=BMXIEN_U_BMXSTATUS_U_BMXPROC_U_BMXDATE_$C(30)
+ S @BSDXY@(BSDXI+1)=$C(31)
+ QUIT
+ ;
+SCHRAEX(BSDXY,RADFN,RAOIFN) ; Schedule a Radiology Exam
+ N RAOSTS S RAOSTS=8  ; Status of Scheduled
+ D ^RAORDU  ; API in Rad expects RADFN, RAOIFN, and RAOSTS
+ S BSDXY=1 ; Success
+ QUIT
+HOLDRAEX(BSDXY,RADFN,RAOIFN) ; Hold a Radiology Exam
+ N RAOSTS S RAOSTS=3  ; Status of Hold
+ N RAOREA S RAOREA=20 ; Reason: Exam Cancelled
+ D ^RAORDU
+ S BSDXY=1 ; Success
+ QUIT