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 | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^RMPR(663

Package: Prosthetics

Global: ^RMPR(663

Information

FileMan FileNo	FileMan Filename	Package
663	PROS AMIS CODES	Prosthetics

Description

Contains prosthetic AMIS codes assigned to each item purchased for a veteran. File 661, PROS ITEM MASTER, points to this file. Do not edit these codes.

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 4

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `MAR 07, 1991` HELP-PROMPT: `Enter the AMIS code line number in the format defined by Prosthetic regulations.` DESCRIPTION: `The CODE is in the format "01 A" where the first two characters are numeric (the AMIS line number) followed by one space and then alphabetic characters. CODE is needed for sorting in the proper sequence on reports, since` `the computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B.` DELETE TEST: `.01,0)= I 1 W " CANNOT DELETE."` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `663^B` `1)= S ^RMPR(663,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(663,"B",$E(X,1,30),DA)`
1	RATIO	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `NOV 26, 1991` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This is the national ratio set by VACO for AMIS calculations.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	LINE DESCRIPTION	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 19, 1991` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This is the AMIS Line Item Description.` CROSS-REFERENCE: `663^C` `1)= S ^RMPR(663,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(663,"C",$E(X,1,30),DA)` `Allows lookups of Prosthetic Amis Codes by the actual Prosthetic Amis code Description.`
3	ISSUE/REPAIR CODE	0;4	SET	'A' FOR ADMINISTRATIVE ISSUE; 'AR' FOR ADMINISTRATIVE REPAIR; 'O' FOR ORTHOTIC LAB; 'R' FOR RESTORATION LAB; 'OR' FOR ORTHOTIC LAB REPAIR; 'RR' FOR RESTORATION LAB REPAIR; LAST EDITED: `NOV 12, 1993` HELP-PROMPT: `Enter code for new AMIS group.` DESCRIPTION: `This is a code defining what group within prosthetics the AMIS code will be counted.` CROSS-REFERENCE: `663^D` `1)= S ^RMPR(663,"D",$E(X,1,30),DA)=""` `2)= K ^RMPR(663,"D",$E(X,1,30),DA)` `Allows lookups of Amis Codes by New Admin Codes, Repair Admin Codes, Orthotic Lab Codes, Restoration Lab Codes, and Shoe Last Codes. This x-ref also groups Amis codes together by their respective type.`
3.5	AMIS SEGMENT NO	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 24, 1993` HELP-PROMPT: `Type a Number between 122 and 128, 0 Decimal Digits` DESCRIPTION: `This fields contains the segment number for the related disability codes. Used for the Generation of Generic Code Sheets.` CROSS-REFERENCE: `663^E` `1)= S ^RMPR(663,"E",$E(X,1,30),DA)=""` `2)= K ^RMPR(663,"E",$E(X,1,30),DA)` `This x-ref is used to separate Prosthetics AMIS codes by the actual AMIS segment number. Used for sorting Prosthetics AMIS Codes by segment number when code sheets are generated.`

Found Entries, Total: 103

ICR, Total: 1

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