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 (#234)`
.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 (#234)`
.03	PATIENT	0;3	POINTER TO VA PATIENT FILE (#2)	VA PATIENT(#2) LAST EDITED: `DEC 04, 2002` DESCRIPTION: Patient name on the prescription to transmit. (Pointer) RECORD INDEXES: `C (#234)`
.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`