BMDI Troubleshooting by Monitor ID

 Computers and Networking, Nursing
Jul 152010
 

The program 1bh_bmdi_troubleshooting.prg

/*
Author: Robert Holland
Date: 20100415
Purpose: Get latest CareAware data from patient monitors
This data is the same as running “bmdi_troubleshooting go” on the
backend and selecting option 1 “View Formatted Results” and then
selecting option 3 “View Results by Monitor”.

User will only have to select the Monitor ID and click “Execute”.
*/

drop program 1bh_bmdi_troubleshooting go
create program 1bh_bmdi_troubleshooting

prompt
“Output to File/Printer/MINE” = “MINE”   ;* Enter or select the printer or file name to send this report to.
, “Monitor ID” = “”

with OUTDEV, Monitor_ID

/**************************************************************
; DVDev DECLARED SUBROUTINES
**************************************************************/

/**************************************************************
; DVDev DECLARED VARIABLES
**************************************************************/

/**************************************************************
; DVDev Start Coding
**************************************************************/

SELECT DISTINCT INTO $1
BAR.CLINICAL_DT_TM’;;’;Current
, EVENT_CD = UAR_GET_CODE_DISPLAY(BDP.EVENT_CD)
, BAR.RESULT_VAL
, Monitor_ID = BMD.DEVICE_ALIAS
, BAR.ACQUIRED_DT_TM’;;’;Current
, BAR.UPDT_DT_TM ‘;;’;Current
, P.NAME_FULL_FORMATTED
, BAR.PERSON_ID
, BDP.ACTIVE_IND
, Facility = UAR_GET_CODE_DISPLAY(BADT.DEVICE_CD)

FROM
BMDI_MONITORED_DEVICE BMD
, BMDI_ACQUIRED_RESULTS BAR
, BMDI_DEVICE_PARAMETER BDP
, PERSON P
, BMDI_ACQUIRED_DATA_TRACK BADT

PLAN BMD where BMD.DEVICE_ALIAS =  $2 ;Monitor ID
JOIN BAR where BMD.MONITORED_DEVICE_ID = BAR.MONITORED_DEVICE_ID
JOIN BDP WHERE BAR.DEVICE_PARAMETER_ID = BDP.DEVICE_PARAMETER_ID
JOIN P WHERE BAR.PERSON_ID = P.PERSON_ID
JOIN BADT WHERE BMD.MONITORED_DEVICE_ID = BADT.MONITORED_DEVICE_ID

ORDER BY
BAR.ACQUIRED_DT_TM DESC, BAR.CLINICAL_DT_TM, BDP.EVENT_CD   DESC

WITH MAXREC = 100, FORMAT, SEPARATOR= ” ”

/**************************************************************
; DVDev DEFINED SUBROUTINES
**************************************************************/

end
go