BMDI GetCareAware

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