Sub-Field: 1964000.1313

Information

Parent File	Name	Number	Package
1964000.131	REASON DISCONTINUED	1964000.1313	Uncategorized

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	REASON DISCONTINUED	0;1	SET	'1' FOR NEW MEDICATION; '2' FOR FORMULARY CHANGE; '3' FOR NONCOMPLIANCE; '4' FOR ALLERGIC REACTION; '5' FOR NO LONGER NEEDED (PT); '6' FOR NO LONGER NEEDED (MD); LAST EDITED: `APR 29, 1990` CROSS-REFERENCE: `1964000.1313^B` 1)= S ^DIZ(1964000,DA(3),3,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^DIZ(1964000,DA(3),3,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)

REASON DISCONTINUED

0;1

SET

CROSS-REFERENCE: 1964000.1313^B

1)= S ^DIZ(1964000,DA(3),3,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""

2)= K ^DIZ(1964000,DA(3),3,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)