Sub-Field: 661.31

Parent File	Name	Number	Package
PROS ITEM LOCATION(#661.3)	HCPCS	661.31	Prosthetics

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	HCPCS	0;1	POINTER TO PROSTHETIC HCPCS FILE (#661.1)	PROSTHETIC HCPCS(#661.1) LAST EDITED: `FEB 09, 2001` HELP-PROMPT: `Only valid PSAS HCPCS in file #661.1 can be used.` DESCRIPTION: `This is a PSAS HCPCS being tracked for Prosthetics Inventory and it is a pointer to file #661.1.` PRE-LOOKUP: `D LKP^RMPRSTI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `661.31^B` `1)= S ^RMPR(661.3,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(661.3,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `661.3^C` `1)= S ^RMPR(661.3,"C",$E(X,1,30),DA(1),DA)=""` `2)= K ^RMPR(661.3,"C",$E(X,1,30),DA(1),DA)`
2	ITEM	1;0	Multiple #661.312	661.312 DESCRIPTION: `An ITEM multiple under a certain HCPCS.` IDENTIFIED BY: `DESCRIPTION(#28)`

HCPCS

0;1

POINTER TO PROSTHETIC HCPCS FILE (#661.1)

LAST EDITED: FEB 09, 2001
HELP-PROMPT: Only valid PSAS HCPCS in file #661.1 can be used.
DESCRIPTION:
This is a PSAS HCPCS being tracked for Prosthetics Inventory and it is a pointer to file #661.1.
PRE-LOOKUP: D LKP^RMPRSTI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 661.31^B
1)= S ^RMPR(661.3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.3,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 661.3^C
1)= S ^RMPR(661.3,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(661.3,"C",$E(X,1,30),DA(1),DA)

ITEM

1;0

Multiple #661.312