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 |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^RMPR(667

Package: Prosthetics

Global: ^RMPR(667


Information

FileMan FileNo FileMan Filename Package
667 VEHICLE OF RECORD Prosthetics

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Prosthetics 10 RMPOPAT1    RMPRAINQ    RMPRAUT    RMPRAVR    RMPRAVR1    RMPRPAT1    RMPRPRT1    RMPRSEA
^RMPR(667    ^RMPR(669.1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Prosthetics 1 RMPRAUT    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Prosthetics 1 V.O.R. TRANSACTION(#667.3)[1]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Prosthetics 2 PROSTHETICS PATIENT(#665)[1]    AUTO-ADAPTIVE MANUFACTURER(#667.2)[5]    
Kernel 1 INSTITUTION(#4)[11]    

Fields, Total: 15

Field # Name Loc Type Details
.01 VEHICLE ID# 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  NOV 15, 1991
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    This is the Identification Number on the vehicle of record, this is a Unique Key.
  • CROSS-REFERENCE:  667^B
    1)= S ^RMPR(667,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(667,"B",$E(X,1,30),DA)
1 PATIENT NAME 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665) PROSTHETICS PATIENT(#665)

  • LAST EDITED:  FEB 02, 1992
  • HELP-PROMPT:  Please Enter the Patient's name.
  • DESCRIPTION:  
    This field is a pointer to the Prosthetics Patient File and is an internal entry number.
  • CROSS-REFERENCE:  667^C
    1)= S ^RMPR(667,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(667,"C",$E(X,1,30),DA)
    Allows sorting and lookups by the Patient IEN.
2 VAF21-4502 DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 06, 1993
  • HELP-PROMPT:  Please Enter the VAF21-4502 Date for this entry.
  • DESCRIPTION:  
    The initial date that a veteran is issued the authority to purchase a Vehicle of record.
  • CROSS-REFERENCE:  667^AD^MUMPS
    1)= I $D(^RMPR(667,DA)) S ZZ=$P(^RMPR(667,DA,0),U,2) I ZZ S ^RMPR(667,"AD",ZZ,X,DA)="" K ZZ
    2)= I $D(^RMPR(667,DA)) S ZZ=$P(^RMPR(667,DA,0),U,2) I ZZ K ^RMPR(667,"AD",ZZ,X,DA),ZZ
    Allows lookup of 4502 date that the Veteran was determinded for eligibility.
2.1 ANKYLOSIS OR VOC REHAB 0;9 SET
  • 'A' FOR ANKYLOSIS;
  • 'V' FOR VOC REHAB;

  • LAST EDITED:  APR 23, 1993
  • HELP-PROMPT:  Enter the proper code for this vehicle action.
  • DESCRIPTION:  
    Contains set of codes for Ankylosis and Voc Rehab.
2.2 TYPE OF TRANSACTION 2;2 SET
************************REQUIRED FIELD************************
  • 'I' FOR INITIAL ISSUE;
  • 'R' FOR REPLACE;
  • 'S' FOR SPARE;
  • 'X' FOR REPAIR;

  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Enter `I` for Initial Issue, `R` for Replace, `S` for Spare, `X` for Repair.
  • DESCRIPTION:  
    Explains what type of transaction is on this Vehicle of Records.
2.3 PATIENT CATEGORY 2;3 SET
************************REQUIRED FIELD************************
  • '1' FOR SC/OP;
  • '2' FOR SC/IP;
  • '3' FOR NSC/IP;
  • '4' FOR NSC/OP;

  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Enter `1` for SC/OP, `2` for SC/IP, `3` for NSC/IP, `4` for NSC/OP
  • DESCRIPTION:  
    This field stores the patient category for this vehicle transaction.
2.4 SPECIAL CATEGORY 2;4 SET
  • '1' FOR SPECIAL LEGISLATION;
  • '2' FOR A&A;
  • '3' FOR PHC;

  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Please enter the Special Legislation for this Patient
  • DESCRIPTION:  
    This field stores the patient's special category if applicable for this vehicle transaction.
3 DATE PURCHASED 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Please Enter the Date that the Vehicle was purchased.
  • DESCRIPTION:  
    This is the date that the Vehicle was purchased.
4 YEAR 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 02, 1992
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the model year of the vehicle.
5 MAKE 0;6 POINTER TO AUTO-ADAPTIVE MANUFACTURER FILE (#667.2)
************************REQUIRED FIELD************************
AUTO-ADAPTIVE MANUFACTURER(#667.2)

  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Please Enter the Vehicle Manufacturer.
  • DESCRIPTION:  
    The make of the Vehicle purchased.
6 MODEL 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The model of the Vehicle that was purchased.
7 DATE PROCESSED 0;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 15, 1991
  • HELP-PROMPT:  Answer must be a valid date. Date cannot be greater than the Date of Purchase.
  • DESCRIPTION:  
    The date that this transaction is being processed.
9 EXCEPTION FLAG 2;1 SET
  • '1' FOR ACTIVE;
  • '0' FOR INACTIVE;

  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Enter `1` for Active or `0` for Inactive.
  • DESCRIPTION:  
    This shows that the Vehicle of Record is active or inactive.
10 EXCEPTION RULE COMMENTS 1;0 WORD-PROCESSING #667.01

  • LAST EDITED:  DEC 19, 1991
  • DESCRIPTION:  
    This is the general description of the vehicle purchased.
11 STATION NAME 0;10 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  AUG 18, 1992
  • HELP-PROMPT:  Enter the Station Name or Station Prefix.
  • DESCRIPTION:  
    Pointer to the institution file.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2305
  • Scheduling
  • VEHICLE ID# (.01).
    Access: Direct Global Read & w/Fileman

    'C' xref.

    External References

    Name Field # of Occurrence
    ^%DT 2+1, 3+1, 7+1

    Global Variables Directly Accessed

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 2+1*, 3+1*, 7+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
    U 2(XREF 1S), 2(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1*!, 2(XREF 1S), 2(XREF 1K), 3+1*!, 4+1!
    , 6+1!, 7+1*!
    >> Y 2+1, 3+1, 7+1
    ZZ 2(XREF 1S), 2(XREF 1K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All