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

Directly Accessed By Routines, Total: 8

Package Total Routines
Prosthetics 8 ^RMPR(669.1    RMPR293    RMPR31U    RMPR4LI    RMPR71    RMPRCT    ^RMPR(663    RMPRLI

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)[526474757677]    PROS ITEM MASTER(#661)[123456]    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