BMDI Associate / Disassociate Monitor Problem

 Computers and Networking, Nursing
Nov 092010
 

Error Message: Please disassociate this person first before associating it with a new location.

Associate Monitor Problem

use adreference_prod; select * from acquired_data_track where person_id = 1234567890

use adreference_prod;
 
select * from acquired_data_track where person_id = 1234567890;
-- delete from acquired_data_track where person_id = 1234567890;

 

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

BMDI GetCareAware

 Computers and Networking, Nursing
May 142010
 

Get Latest CareAware Data (1bh_bmdi_getcareaware_data.prg)

My test prg is: PRHOLLAND_BMDI.prg on PCMA1P.

drop program 1bh_bmdi_getcareaware_data go
create program 1bh_bmdi_getcareaware_data

prompt
	"Output to File/Printer/MINE" = "MINE"   ;* Enter or select the printer or file name to send this report to.
	, "Person ID" = 123456.00 

with OUTDEV, Person_ID

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

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

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

;    Your Code Goes Here
SELECT into $1
	B.PERSON_ID
	, P.NAME_FULL_FORMATTED
	, BMD.DEVICE_ALIAS
	, BA.RESULT_VAL
	, B.ACTIVE_IND
	, BA.ACQUIRED_DT_TM';;'
	, BA.CLINICAL_DT_TM';;'
	, B.ASSOCIATION_DT_TM';;'
	, B.DIS_ASSOCIATION_DT_TM';;'

FROM
	PERSON P,
	BMDI_ACQUIRED_DATA_TRACK B,
	BMDI_MONITORED_DEVICE BMD,
	BMDI_ACQUIRED_RESULTS   BA
PLAN B where B.person_id = $2
join P where P.PERSON_ID = B.PERSON_ID
join BMD where B.MONITORED_DEVICE_ID = BMD.MONITORED_DEVICE_ID
join BA where B.Person_ID = BA.Person_ID
WITH MAXREC = 100, FORMAT, SEPARATOR = " "

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

end
go