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

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

@@ -1 @@
-BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 3/15/11 11:50am
-           ;;1.5V3;BSDX;;Mar 16, 2011
+BSDX07  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS  ; 4/11/11 12:12pm
+           ;;1.6;BSDX;;Mar 16, 2011
            ;
            ; Change Log:
@@ -10 +10 @@
            ; v1.5  Mar 15 2011 - End time does not have to have time anymore.
            ;      It could be midnight of the next day
+           ; v1.6 Apr 11 2011 - Support for Scheduling Radiology Exams...
            ;
            ; Error Reference:
@@ -78 +79 @@
            QUIT
            ; 
-APPADD(BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID)     ;EP
+APPADD(BSDXY,BSDXSTART,BSDXEND,BSDXPATID,BSDXRES,BSDXLEN,BSDXNOTE,BSDXATID,BSDXRADEXAM) ;EP
+           ;
            ;Called by RPC: BSDX ADD NEW APPOINTMENT
            ;
@@ -97 +99 @@
            ; if BSDXATID = "WALKIN" then BSDAPI is called to create a walkin appt.
            ; if BSDXATID = a number, then it is the access type id (used for rebooking)
+           ;BSDXRADEXAM is used to store the Radiology Exam to which this appointment is tied to (optional)
            ;
            ;Return:
@@ -105 +108 @@
            ;BSDX ADD NEW APPOINTMENT^3091122.0930^3091122.1000^370^Dr Office^30^EXAM^WALKIN
            ;
+           ; Deal with optional arguments
+           S BSDXRADEXAM=$G(BSDXRADEXAM)
            ; Return Array; set Return and clear array
            S BSDXY=$NA(^BSDXTMP($J))
@@ -172 +177 @@
            ; Done with all checks, let's make appointment in BSDX APPOINTMENT
            N BSDXAPPTID
-           S BSDXAPPTID=$$BSDXADD(BSDXSTART,BSDXEND,BSDXPATID,BSDXRESD,BSDXATID)
+           S BSDXAPPTID=$$BSDXADD(BSDXSTART,BSDXEND,BSDXPATID,BSDXRESD,BSDXATID,BSDXRADEXAM)
            I 'BSDXAPPTID D ERR(BSDXI,"-9~BSDX07 Error: Unable to add appointment to BSDX APPOINTMENT file.") Q
            I BSDXNOTE]"" D BSDXWP(BSDXAPPTID,BSDXNOTE)
@@ -216 +221 @@
            Q BSDXZ
            ;
-BSDXADD(BSDXSTART,BSDXEND,BSDXPATID,BSDXRESD,BSDXATID)   ;ADD BSDX APPOINTMENT ENTRY
+BSDXADD(BSDXSTART,BSDXEND,BSDXPATID,BSDXRESD,BSDXATID,BSDXRADEXAM)       ;ADD BSDX APPOINTMENT ENTRY
            ;Returns ien in BSDXAPPT or 0 if failed
            ;Create entry in BSDX APPOINTMENT
@@ -228 +233 @@
            S:BSDXATID="WALKIN" BSDXFDA(9002018.4,"+1,",.13)="y"
            S:BSDXATID?.N BSDXFDA(9002018.4,"+1,",.06)=BSDXATID
+           S BSDXFDA(9002018.4,"+1,",.14)=BSDXRADEXAM
            N BSDXIEN,BSDXMSG
            D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")