Global: ^AUPNOPIU

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `JUN 11, 2002` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000027^B` 1)= S ^AUPNOPIU("B",$E(X,1,30),DA)="" 2)= K ^AUPNOPIU("B",$E(X,1,30),DA)
.02	MAINTENANCE OPIOID STATUS	0;2	SET	'E' FOR ELIGIBLE; 'I' FOR INELIGIBLE; LAST EDITED: `JUN 11, 2002`
.03	MOS DATE	0;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 11, 2002`
.04	OXYCONTIN	0;4	SET	'A' FOR APPROVED BY ORC; 'D' FOR DECLINED BY ORC; LAST EDITED: `JUN 11, 2002`
.05	DATE OXYCONTIN APPROVE/DECLINE	0;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 03, 2003`

Information