STANDARD DATA DICTIONARY #661 -- PROS ITEM MASTER FILE 3/24/25 PAGE 1
STORED IN ^RMPR(661, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the ITEM MASTER file for Prosthetics that points to File 441, IFCAP ITEM MASTER file. The main purpose of this file is to
store AMIS codes for prosthetic items.
DD ACCESS: @
DEL ACCESS: @
IDENTIFIED BY: NAME (#.01)[R]
POINTED TO BY: ITEM field (#4) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
ITEM field (#2) of the PROS RETURNED/CONDEMNED File (#660.1)
ITEM field (#2) of the PROSTHETICS RE-ISSUE ITEM File (#660.2)
ITEM MASTER field (#7) of the PROSTHETICS HCPCS ITEM MASTER FILE File (#661.11)
BILLING ITEM field (#.01) of the BILLING ITEM sub-field (#664.02) of the PROSTHETICS 1358 File (#664)
ITEM field (#.01) of the ITEM sub-field (#664.16) of the PROSTHETIC 2529-3 File (#664.1)
MATERIALS USED field (#.01) of the MATERIALS USED sub-field (#664.22) of the PROSTHETIC WORK ORDER File (#664.2)
ITEM field (#1) of the PSC ISSUE CARD sub-field (#665.012) of the PROSTHETICS PATIENT File (#665)
ITEM field (#.01) of the HOME OXYGEN ITEM sub-field (#665.194) of the PROSTHETICS PATIENT File (#665)
ITEM field (#.01) 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: NAME(B)
661,.01 NAME 0;1 POINTER TO ITEM MASTER FILE (#441) (Required)
OUTPUT TRANSFORM: NAME:NAME:SHORT DESCRIPTION
LAST EDITED: JUL 02, 1993
HELP-PROMPT: Please Enter the Item from the Item Master File.
DESCRIPTION:
This is the IFCAP Item Master Number.
DELETE TEST: .01,0)= I 1 W " CANNOT DELETE ENTRY."
CROSS-REFERENCE: 661^B
1)= S ^RMPR(661,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(661,"B",$E(X,1,30),DA)
661,1 AMIS ADMIN NEW CODE 0;3 POINTER TO PROS AMIS CODES FILE (#663) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter the AMIS Code associated with all new issues.
DESCRIPTION:
Enter the AMIS code to be reported on New Items. This should always be numeric.
SCREEN: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""A"""
EXPLANATION: SELECT ONLY AMIS ADMIN NEW CODES
661,2 AMIS ADMIN REPAIR CODE 0;4 POINTER TO PROS AMIS CODES FILE (#663)
INPUT TRANSFORM: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""AR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter the AMIS Code associated with items to be repaired.
DESCRIPTION:
Enter the AMIS code to be reported on Repair Items. This should always start with an "R."
SCREEN: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""AR"""
EXPLANATION: Enter a code that begins with an 'R'
661,3 AMIS ORTHOTIC NEW CODE 0;5 POINTER TO PROS AMIS CODES FILE (#663)
INPUT TRANSFORM: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""O""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter the AMIS Orthotic New Code
DESCRIPTION:
This field holds the Orthotics Lab AMIS code.
SCREEN: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""O"""
EXPLANATION: SCREEN FOR ORTHOTICS AMIS NEW CODE
661,4 AMIS ORTHOTICS REPAIR CODE 0;6 POINTER TO PROS AMIS CODES FILE (#663)
INPUT TRANSFORM: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""OR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter in the AMIS Code for Items for Restorations Lab.
DESCRIPTION:
This field holds the Restoration Lab AMIS code.
SCREEN: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""OR"""
EXPLANATION: SELECT ONLY AMIS ORTHOTICS REPAIR CODES
661,5 AMIS RESTORATION NEW CODE 0;7 POINTER TO PROS AMIS CODES FILE (#663)
SHOE AMIS CODE
INPUT TRANSFORM: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter the AMIS code associated with Shoe Lab for this item.
DESCRIPTION:
This field holds the Shoe Lab AMIS code.
SCREEN: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""R"""
EXPLANATION: ONLY SELECT AMIS RESTORATIONS CODES
661,6 AMIS RESTORATIONS REPAIR CODE 0;8 POINTER TO PROS AMIS CODES FILE (#663)
INPUT TRANSFORM: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""RR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 20, 1993
HELP-PROMPT: Enter the AMIS code associated with the Restorations Lab for this item.
DESCRIPTION:
This field hold the AMIS Restorations Repair Code.
SCREEN: S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""RR"""
EXPLANATION: SELECT ONLY AMIS RESTORATION REPAIR CODE
FILES POINTED TO FIELDS
ITEM MASTER (#441) NAME (#.01)
PROS AMIS CODES (#663) AMIS ADMIN NEW CODE (#1)
AMIS ADMIN REPAIR CODE (#2)
AMIS ORTHOTIC NEW CODE (#3)
AMIS ORTHOTICS REPAIR CODE (#4)
AMIS RESTORATION NEW CODE (#5)
AMIS RESTORATIONS REPAIR CODE (#6)
INPUT TEMPLATE(S):
RMPR ITEM EDIT AUG 16, 1994@14:22 USER #0
Update Prosthetic Item Master file.
PRINT TEMPLATE(S):
RMPR PRINT ITEM OCT 05, 1994@16:22 USER #0 PROS ITEM MASTER LIST
Prints AMIS info for item.
SORT TEMPLATE(S):
RMPR PRINT ITEM FEB 21, 1991@09:10 USER #0
SORT BY: @.01:.05// (.01:.05 not null)
Sorts Prosthetics Item file by short description.
FORM(S)/BLOCK(S):