Sub-Field: 661.12

Parent File	Name	Number	Package
PROSTHETIC HCPCS(#661.1)	ITEM	661.12	Prosthetics

Parent File

Name

Number

Package

ITEM

661.12

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ITEM	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X Q:'$D(X) D CONV^RMPR5NU1` LAST EDITED: `JAN 14, 1999` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `This is an Item or Appliance under PSAS HCPCS kept by local site in Prosthetics Inventory module.` DELETE TEST: `1,0)= I DUZ(0)'="@"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `661.12^B` `1)= S ^RMPR(661.1,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.1,DA(1),3,"B",$E(X,1,30),DA)`

ITEM

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X Q:'$D(X) D CONV^RMPR5NU1
LAST EDITED: JAN 14, 1999
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
This is an Item or Appliance under PSAS HCPCS kept by local site in Prosthetics Inventory module.
DELETE TEST: 1,0)= I DUZ(0)'="@"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 661.12^B
1)= S ^RMPR(661.1,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.1,DA(1),3,"B",$E(X,1,30),DA)