Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^RMPR(661

Package: Prosthetics

Global: ^RMPR(661

Information

FileMan FileNo	FileMan Filename	Package
661	PROS ITEM MASTER	Prosthetics

Description

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.

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 2

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO ITEM MASTER FILE (#441)	**********************REQUIRED FIELD********************** ITEM MASTER(#441) 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)`
1	AMIS ADMIN NEW CODE	0;3	POINTER TO PROS AMIS CODES FILE (#663)	**********************REQUIRED FIELD********************** PROS AMIS CODES(#663) 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`
2	AMIS ADMIN REPAIR CODE	0;4	POINTER TO PROS AMIS CODES FILE (#663)	PROS AMIS CODES(#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'`
3	AMIS ORTHOTIC NEW CODE	0;5	POINTER TO PROS AMIS CODES FILE (#663)	PROS AMIS CODES(#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`
4	AMIS ORTHOTICS REPAIR CODE	0;6	POINTER TO PROS AMIS CODES FILE (#663)	PROS AMIS CODES(#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`
5	AMIS RESTORATION NEW CODE	0;7	POINTER TO PROS AMIS CODES FILE (#663)	PROS AMIS CODES(#663) 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`
6	AMIS RESTORATIONS REPAIR CODE	0;8	POINTER TO PROS AMIS CODES FILE (#663)	PROS AMIS CODES(#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`

ICR, Total: 3

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All