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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | Global Variables Directly Accessed | Naked Globals | Local Variables | 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.

Directly Accessed By Routines, Total: 8

Package	Total	Routines
Prosthetics	8	RMPR4LI RMPRLI ^RMPR(663 HO LETTER 3 LIST RMPR293 RMPR31U RMPR71 RMPRCT

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Prosthetics	1	RMPR7

Pointed To By FileMan Files, Total: 4

Package	Total	FileMan Files
Prosthetics	4	RECORD OF PROS APPLIANCE/REPAIR(#660)[52, 64, 74, 75, 76, 77] PROS ITEM MASTER(#661)[1, 2, 3, 4, 5, 6] ACTIVITIES NEW/REPAIR WORKSHEET TOTALS(#663.2)[#663.21(.01), #663.22(.01)] PROS LABORATORY/RESTORATIONS WORKSHEET(#664.4)[16]

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

CODE: 01 A	CODE: 01 B	CODE: 04 A	CODE: 04 B	CODE: 04 C	CODE: 05 A	CODE: 05 B	CODE: 05 C
CODE: 05 D	CODE: 06	CODE: 07	CODE: 08	CODE: 09	CODE: 10	CODE: 11	CODE: 12
CODE: 13 A	CODE: 13 B	CODE: 13 C	CODE: 13 D	CODE: 13 E	CODE: 13 F	CODE: 13 G	CODE: 13 H
CODE: 13 I	CODE: 13 J	CODE: 13 K	CODE: 14 A	CODE: 14 B	CODE: 14 C	CODE: 15	CODE: 16 A
CODE: 16 B	CODE: 16 C	CODE: 17 A	CODE: 17 B	CODE: 18	CODE: 19	CODE: 20	CODE: 21 A
CODE: 21 B	CODE: R03 B	CODE: R03 D	CODE: R10	CODE: R14	CODE: R02	CODE: R04	CODE: R15
CODE: R06	CODE: R09	CODE: R12	CODE: R16	CODE: R03 A	CODE: R01	CODE: R03 C	CODE: R17
CODE: 02	CODE: 03	CODE: R05	CODE: R07	CODE: R08	CODE: R11	CODE: R13	CODE: 01
CODE: 02	CODE: 03	CODE: 04	CODE: 05	CODE: 06	CODE: 07	CODE: 08 A	CODE: 08 B
CODE: 08 C	CODE: 08 D	CODE: 08 E	CODE: 09	CODE: 10	CODE: 11	CODE: 12	CODE: 13
CODE: 14	CODE: R15 A	CODE: R15 B	CODE: R15 C	CODE: R15 D	CODE: R15 E	CODE: R16	CODE: 01
CODE: 02	CODE: 03	CODE: 04	CODE: 05 A	CODE: 05 B	CODE: 05 C	CODE: 05 D	CODE: 06
CODE: 07	CODE: 08	CODE: 09	CODE: 10	CODE: 11	CODE: R12	CODE: R13

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #6533	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	CODE (.01). Access: Direct Global Read & w/Fileman LINE DESCRIPTION (2). Access: Direct Global Read & w/Fileman ISSUE/REPAIR CODE (3). Access: Direct Global Read & w/Fileman	File 663 "B" cross reference - used to look up by CODE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPR(663 - [#663]	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3.5(XREF 1S), 3.5(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3.5(XREF 1S), 3.5(XREF 1K)
>> DIC	ID3+1
U	ID2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3.5+1! , 3.5(XREF 1S), 3.5(XREF 1K)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | Global Variables Directly Accessed | Naked Globals | Local Variables | All