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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^RMPR(662

Package: Prosthetics

Global: ^RMPR(662


Information

FileMan FileNo FileMan Filename Package
662 PROS DISABILITY CODE Prosthetics

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Prosthetics 15 CORRESPONDING MAS DISABILITY    RMPOPAT    RMPOPRT    RMPR 2529 HDR    RMPR 2529 INQ    RMPR 25293    RMPR29I    RMPR29W
RMPRPAT    ^RMPR(662    RMPR9DEM    RMPRDIS    RMPRPRT    ^RMPR(669.1    RMPRPAT5    
Remote Order Entry System 4 RMPFDT2    RMPFDT5    RMPFET4    RMPFPOSU    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Prosthetics 2 PROSTHETIC 2529-3(#664.1)[#664.15(.01)]    PROSTHETICS PATIENT(#665)[#665.01(.01)]    
Remote Order Entry System 1 STATION ORDER(#791810)[2.01#791810.0101(3.02)]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
HINQ 1 DISABILITY CONDITION(#31)[#662.06(.01)]    

Fields, Total: 6

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a whole number between 1 and 9999
  • DESCRIPTION:  
    This is the internal number of the Prosthetic Disability Code.
.01 ARABIC DISABILITY NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • HELP-PROMPT:  Answer must be 3-12 Character in length.
  • DESCRIPTION:  
    This is the Arabic initials for a disability code, such as AMP/LAE for Amputee/Arm, Left, Above Elbow.
  • DELETE TEST:  .01,0)= I 1 W " CANNOT DELETE."
  • CROSS-REFERENCE:  662^B
    1)= S ^RMPR(662,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(662,"B",$E(X,1,30),DA)
4 MAJOR DISABILITY CODE SYMBOLS 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Contains the Major Disability Code Symbol for the Prosthetics Disability Code (e.g. AMPUTEE).
5 GROUP EXTENT OF DISABILITY 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-100 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Contains the area of the Veterans disability. Reference to the parts of body disabled.
  • TECHNICAL DESCR:  
5.5 DISABILITY GROUPING 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 01, 1992
  • HELP-PROMPT:  Type a Number between 1 and 10, 0 Decimal Digits
  • DESCRIPTION:  
    Contains the Number 1 through 10. The 10 major disability groupings are displayed on the VAF 10-7306d AMIS report.
6 CORRESPONDING MAS DISABILITY 1;0 POINTER Multiple #662.06 662.06

Found Entries, Total: 67

ARABIC DISABILITY NAME: AMP/LAE    ARABIC DISABILITY NAME: AMP/LAK    ARABIC DISABILITY NAME: AMP/LBE    ARABIC DISABILITY NAME: AMP/LC    ARABIC DISABILITY NAME: AMP/LEO    ARABIC DISABILITY NAME: AMP/LHD    ARABIC DISABILITY NAME: AMP/LKB    ARABIC DISABILITY NAME: AMP/LL    
ARABIC DISABILITY NAME: AMP/LPH    ARABIC DISABILITY NAME: AMP/LS    ARABIC DISABILITY NAME: AMP/LSD    ARABIC DISABILITY NAME: AMP/LWD    ARABIC DISABILITY NAME: AMP/RAE    ARABIC DISABILITY NAME: AMP/RAK    ARABIC DISABILITY NAME: AMP/RBE    ARABIC DISABILITY NAME: AMP/RBK    
ARABIC DISABILITY NAME: AMP/RC    ARABIC DISABILITY NAME: AMP/RHD    ARABIC DISABILITY NAME: AMP/RKB    ARABIC DISABILITY NAME: AMP/RL    ARABIC DISABILITY NAME: AMP/RPH    ARABIC DISABILITY NAME: AMP/RS    ARABIC DISABILITY NAME: AMP/RSD    ARABIC DISABILITY NAME: AMP/RWD    
ARABIC DISABILITY NAME: AMP/UEO    ARABIC DISABILITY NAME: AO/AUTO    ARABIC DISABILITY NAME: AO/DIS    ARABIC DISABILITY NAME: AO/ELAS    ARABIC DISABILITY NAME: AO/GLAS    ARABIC DISABILITY NAME: AO/HER    ARABIC DISABILITY NAME: AO/SURG    ARABIC DISABILITY NAME: AO/WIG    
ARABIC DISABILITY NAME: BLD/AO    ARABIC DISABILITY NAME: BLD/P    ARABIC DISABILITY NAME: BLD/T    ARABIC DISABILITY NAME: BLD/TLE    ARABIC DISABILITY NAME: BLD/TRE    ARABIC DISABILITY NAME: COS/AO    ARABIC DISABILITY NAME: COS/B    ARABIC DISABILITY NAME: COS/EL    
ARABIC DISABILITY NAME: COS/ER    ARABIC DISABILITY NAME: COS/F    ARABIC DISABILITY NAME: DEAF/B    ARABIC DISABILITY NAME: DEAF/U    ARABIC DISABILITY NAME: ORTH/LAS    ARABIC DISABILITY NAME: ORTH/RAS    ARABIC DISABILITY NAME: ORTH/BBR    ARABIC DISABILITY NAME: ORTH/LABR    
ARABIC DISABILITY NAME: ORTH/LLBR    ARABIC DISABILITY NAME: ORTH/NBR    ARABIC DISABILITY NAME: ORTH/PBL    ARABIC DISABILITY NAME: ORTH/PLL    ARABIC DISABILITY NAME: ORTH/PLS    ARABIC DISABILITY NAME: ORTH/PLU    ARABIC DISABILITY NAME: ORTH/PQD    ARABIC DISABILITY NAME: ORTH/PRL    
ARABIC DISABILITY NAME: ORTH/PRS    ARABIC DISABILITY NAME: ORTH/PRU    ARABIC DISABILITY NAME: ORTH/RABR    ARABIC DISABILITY NAME: ORTH/RLBR    ARABIC DISABILITY NAME: ORTH/DLF    ARABIC DISABILITY NAME: ORTH/DRF    ARABIC DISABILITY NAME: ORTH/SLL    ARABIC DISABILITY NAME: ORTH/SRL    
ARABIC DISABILITY NAME: REN/DIAL    ARABIC DISABILITY NAME: AMP/LBK    ARABIC DISABILITY NAME: ORTH/HER    

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1235
  • Remote Order Entry System
  • ARABIC DISABILITY NAME (.01).
    Access: Read w/Fileman

    PROS DISABILITY CODE
    ICR #6509
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • ARABIC DISABILITY NAME (.01).
    Access: Direct Global Read & w/Fileman

    MAJOR DISABILITY CODE SYMBOLS (4).
    Access: Read w/Fileman

    GROUP EXTENT OF DISABILITY (5).
    Access: Read w/Fileman

    DISABILITY GROUPING (5.5).
    Access: Read w/Fileman

    "B" CROSS REFERENCE - Used to look up by ARABICDISABILITY NAME

    Global Variables Directly Accessed

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA .01(XREF 1S), .01(XREF 1K)
    X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), 4+1!, 5+1!, 5.5+1!
    Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  Global Variables Directly Accessed |  Local Variables  | All