Sub-Field: 550.215

Parent File	Name	Number	Package
CMOP TRANSMISSION(#550.2)	PRESCRIPTIONS	550.215	CMOP

Details

Field #	Name	Loc	Type	Details
.01	PRESCRIPTIONS	0;1	POINTER TO PRESCRIPTION FILE (#52)	PRESCRIPTION(#52) LAST EDITED: `DEC 04, 2002` DESCRIPTION: `Prescription to be transmitted.` CROSS-REFERENCE: `550.215^B` `1)= S ^PSX(550.2,DA(1),15,"B",$E(X,1,30),DA)=""` `2)= K ^PSX(550.2,DA(1),15,"B",$E(X,1,30),DA)` RECORD INDEXES: `C (#325)`
.02	FILL	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>45)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `DEC 04, 2002` HELP-PROMPT: `Type a number between 0 and 45, 0 Decimal Digits` DESCRIPTION: `Fill number of the prescription to transmit.` RECORD INDEXES: `C (#325)`
.03	PATIENT	0;3	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `DEC 04, 2002` DESCRIPTION: `Patient name on the prescription to transmit. (Pointer)` RECORD INDEXES: `C (#325)`
.04	PATIENT NAME		COMPUTED	MUMPS CODE: `X ^DD(550.215,.04,9.2) S D0=$P(Y(550.215,.04,1),U,3) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S Y(550.215,.04,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(550.215,.04,101),U,1) S D0=Y(550.215,.04,80) S D1=Y(550.215,.04,81)` `9.2 = S Y(550.215,.04,81)=$G(D1),Y(550.215,.04,80)=$G(D0),Y(550.215,.04,1)=$S($D(^PSX(550.2,D0,15,D1,0)):^(0),1:"")` ALGORITHM: `.03:.01` LAST EDITED: `DEC 04, 2002` DESCRIPTION: `Patient name on the prescription to transmit. (Free text)`
.05	SUSPENSE IEN	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `MAR 06, 2003` HELP-PROMPT: `Type a number between 1 and 999999999, 0 Decimal Digits`