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_troubleshootingprompt
“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 BADTPLAN 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_IDORDER BY
BAR.ACQUIRED_DT_TM DESC, BAR.CLINICAL_DT_TM, BDP.EVENT_CD DESCWITH MAXREC = 100, FORMAT, SEPARATOR= ” ”
/**************************************************************
; DVDev DEFINED SUBROUTINES
**************************************************************/end
go