Sub-Field: 661.18

Parent File	Name	Number	Package
PROSTHETIC HCPCS(#661.1)	DESCRIPTION	661.18	Prosthetics

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DESCRIPTION	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JUL 13, 1998` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS IN LENGTH` `UNEDITABLE` CROSS-REFERENCE: `661.18^B` `1)= S ^RMPR(661.1,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.1,DA(1),2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `661.1^F^MUMPS` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&() -+={}[]~`:;,./<>?\\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(661.18,.01,9.9)'[I S ^RMPR(661.1,"F",I,DA(1),DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&() -+={}[]~`:;,./<>?\\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^RMPR(661.1,"F",I,DA(1),DA)

DESCRIPTION

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X
LAST EDITED: JUL 13, 1998
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
UNEDITABLE
CROSS-REFERENCE: 661.18^B
1)= S ^RMPR(661.1,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.1,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 661.1^F^MUMPS
1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(661.18,.01,9.9)'[I S ^RMPR(661.1,"F",I,DA(1),DA)=""
2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890"""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^RMPR(661.1,"F",I,DA(1),DA)