STANDARD DATA DICTIONARY #661.1 -- PROSTHETIC HCPCS FILE 9/29/25 PAGE 1
STORED IN ^RMPR(661.1, (3209 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is a standardized Prosthetic HCPCS file that contains HCPCS code used in Prosthetics. Sites are not allowed to update, add,
edit or delete entries from this file. Only the SYNONYM and ITEM fields are editable, and can be edited in the sites, all other
fields will only be updated by the Prosthetics Data Validation Group and update nationally will take place through a patch.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: SHORT NAME (#.02)
POINTED TO BY: ITEM field (#.01) of the TRANSFER PRICING INPT PROSTHETIC ITEMS File (#351.67)
PSAS HCPCS field (#4.5) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
LATEST PSAS HCPCS field (#102) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
NEW HCPC CODE field (#1) of the PROSTHETIC HCPCS File (#661.1)
HCPCS field (#3) of the PROS STOCK ITEM RECORD File (#661.2)
HCPCS field (#.01) of the HCPCS sub-field (#661.31) of the PROS ITEM LOCATION File (#661.3)
HCPCS CODE field (#4) of the VENDOR PRODUCT HCPCS MAP File (#661.8)
PSAS HCPCS field (#16) of the BILLING ITEM sub-field (#664.02) of the PROSTHETICS 1358 File (#664)
PSAS HCPCS field (#13) of the ITEM sub-field (#664.16) of the PROSTHETIC 2529-3 File (#664.1)
HCPCS CODE field (#6) of the HOME OXYGEN ITEM sub-field (#665.194) of the PROSTHETICS PATIENT File (#665)
HCPCS CODE field (#2) of the ITEM sub-field (#665.723191) of the PATIENT sub-field (#665.72319) of the VENDOR
sub-field (#665.7231) of the BILLING MONTH sub-field (#665.723) of the HOME OXYGEN TRANSACTIONS FILE File
(#665.72)
CROSS
REFERENCED BY: NPPD NEW CODE(AC), HCPCS(B), SHORT NAME(C), SYNONYM(D), DESCRIPTION(F)
661.1,.01 HCPCS 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5) X
LAST EDITED: SEP 08, 2005
HELP-PROMPT: Answer must be 5-20 characters in length.
DESCRIPTION:
This is a unique Prosthetics HCPCS code that corresponds to the CPT code.
PRE-LOOKUP: D LKPHCPC^RMPRUTL
DELETE TEST: .01,0)= I 1 W " CANNOT DELETE."
UNEDITABLE
CROSS-REFERENCE: 661.1^B
1)= S ^RMPR(661.1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.1,"B",$E(X,1,30),DA)
661.1,.02 SHORT NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 10, 1998
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
A short description for the Prosthetics HCPCS code as in CPT file #81.
CROSS-REFERENCE: 661.1^C
1)= S ^RMPR(661.1,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(661.1,"C",$E(X,1,30),DA)
661.1,.03 CPT MODIFIER 4;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>36!($L(X)<2) X
LAST EDITED: DEC 15, 1999
HELP-PROMPT: Answer must be 2-36 characters in length.
DESCRIPTION:
List of CPT modifier authorized, consistent with the HCFA standard to be used under this HCPCS.
661.1,.04 NON-BILLABLE FLAG 4;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 01, 2000
DESCRIPTION: This field flags a HCPCS to be non-billable. This will be used in the future for billing purposes.
Currently this field is not used.
661.1,1 NEW HCPC CODE 0;3 POINTER TO PROSTHETIC HCPCS FILE (#661.1)
LAST EDITED: MAR 02, 1998
HELP-PROMPT: Enter Prosthetics HCPCS.
DESCRIPTION:
A new HCPCS code to be used once a HCPCS has been deactivated by Prosthetics Data Validation Group.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
661.1,1.1 DATE/TIME LAST UPDATE 0;11 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 14, 2005
DESCRIPTION:
This is the date and time the record was last updated.
661.1,1.2 LAST UPDATE 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: JAN 19, 2005
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
This is the identifier associated with the last update.
TECHNICAL DESCR: The Identifier is the value in XMFROM. A free text string identifying the process that triggered
the server update, to be used as an audit log.
661.1,1.3 VERSION DATE 5;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 15, 2010
HELP-PROMPT: Enter the date of the latest update to this HCPCS code.
DESCRIPTION: This date represents the most recent update to a HCPCS code in the PCM gold copy. Version date is
controlled by PCM and is used to synchronize VistA HCPCS updates with the enterprise asset
management system.
661.1,2 CPT 0;4 POINTER TO CPT FILE (#81)
LAST EDITED: MAY 24, 2004
HELP-PROMPT: Enter CPT code.
DESCRIPTION:
A pointer to cpt file (#81).
661.1,3 STATUS 0;5 SET
'1' FOR ACTIVE;
'0' FOR INACTIVE;
LAST EDITED: JUN 30, 1998
HELP-PROMPT: Enter HCPCS status; '1' for active and '0' for inactive
DESCRIPTION:
Set an entry active or inactive.
661.1,4 SYNONYM 1;0 Multiple #661.14
DESCRIPTION:
Allows local sites to set synonyms or local name widely used by local users.
661.14,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JAN 15, 1998
HELP-PROMPT: Answer must be 3-30 characters in length.
CROSS-REFERENCE: 661.14^B
1)= S ^RMPR(661.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661.1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 661.1^D^MUMPS
1)= S ^RMPR(661.1,"D",$E(X,1,20),DA(1))=""
2)= K ^RMPR(661.1,"D",$E(X,1,20),DA(1))
661.1,5 NPPD REPAIR CODE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<2) X
LAST EDITED: JUL 10, 1998
HELP-PROMPT: Answer must be 2-6 characters in length.
DESCRIPTION:
Repair code for NPPD.
661.1,6 NPPD NEW CODE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<2) X
LAST EDITED: SEP 02, 1998
HELP-PROMPT: Answer must be 2-6 characters in length.
DESCRIPTION:
New code for NPPD.
CROSS-REFERENCE: 661.1^AC^MUMPS
1)= S ^RMPR(661.1,"AC",$E(X,1,6),$E(X,1,6))=""
2)= K ^RMPR(661.1,"AC",$E(X,1,6),DA)
661.1,8 DESCRIPTION 2;0 Multiple #661.18
DESCRIPTION:
A long description for the Prosthetics HCPCS code.
661.18,.01 DESCRIPTION 0;1 FREE TEXT (Multiply asked)
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)
661.1,9 CALCULATION FLAG 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: MAY 28, 1998
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
To be used to associate like items on one HCPCS.
661.1,10 INVENTORY FLAG 0;9 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 15, 1998
DESCRIPTION:
Signifies if it's an inventory item.
661.1,11 PRE-DETERMINED LAB TIME 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 05, 1998
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Number of minutes to fit an item to a veteran.
661.1,20 ITEM 3;0 Multiple #661.12
DESCRIPTION:
This is an Item multiple.
661.12,.01 ITEM 0;1 FREE TEXT (Required)
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)
661.1,30 RENTAL FLAG 5;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 22, 1999
DESCRIPTION: This is a flag use by sites to designate an item issued under a particular HCPCS to have a possible
Rental (RR modifier). If this field is set to 'YES', user will be asked if the item issued is a
RENTAL.
FILES POINTED TO FIELDS
CPT (#81) CPT (#2)
PROSTHETIC HCPCS (#661.1) NEW HCPC CODE (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
RMPR LIST MAY 24, 2000@14:16 USER #0 PROSTHETIC HCPCS LIST
SORT TEMPLATE(S):
RMPR LIST MAY 24, 2000@11:04 USER #0
SORT BY: HCPCS// (HCPCS not null)
WITHIN HCPCS, SORT BY: STATUS="ACTIVE";L1// (STATUS=""ACTIVE"")
Print Prosthetic HPCPS List.
FORM(S)/BLOCK(S):