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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^RMPR(667.3

Package: Prosthetics

Global: ^RMPR(667.3


Information

FileMan FileNo FileMan Filename Package
667.3 V.O.R. TRANSACTION Prosthetics

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Prosthetics 7 RMPRAINQ    ^RMPR(669.1    RMPRAVR    RMPRRET9    RMPRSEA    ^RMPR(667.3    RMPRAVR1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Prosthetics 3 RMPRAINQ    RMPRAVR    RMPRAVR1    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Prosthetics 2 PROS RETURNED/CONDEMNED(#660.1)[24]    PROSTHETICS RE-ISSUE ITEM(#660.2)[24]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[12]    NEW PERSON(#200)[13]    
Prosthetics 2 VEHICLE OF RECORD(#667)[1]    PROS AUTO-ADAPTIVE EQUIP(#667.1)[2]    

Fields, Total: 16

Field # Name Loc Type Details
.01 DATE PROCESSED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1!($P(X,".")>DT) X
  • LAST EDITED:  JUN 03, 1993
  • HELP-PROMPT:  Answer must be a valid date. Future Dates are not allowed.
  • DESCRIPTION:  
    The date that the item or repair was processed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  667.3^B
    1)= S ^RMPR(667.3,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(667.3,"B",$E(X,1,30),DA)
1 VEHICLE ID# 0;2 POINTER TO VEHICLE OF RECORD FILE (#667) VEHICLE OF RECORD(#667)

  • LAST EDITED:  FEB 02, 1992
  • HELP-PROMPT:  Please enter the Identification Number of the Vehicle.
  • DESCRIPTION:  
    The Identification number of the Vehicle of Records. This points to file 667 and is an internal entry number.
  • CROSS-REFERENCE:  667.3^C
    1)= S ^RMPR(667.3,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(667.3,"C",$E(X,1,30),DA)
    Allows lookups of transactions by Vehcile ID# IEN.
2 ITEM 0;3 POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1)
************************REQUIRED FIELD************************
PROS AUTO-ADAPTIVE EQUIP(#667.1)

  • LAST EDITED:  FEB 18, 1992
  • HELP-PROMPT:  Please enter the Auto Adaptive Equipment Item.
  • DESCRIPTION:  
    The name of the item that will be on the Vehicle of Records.
  • CROSS-REFERENCE:  667.3^AD^MUMPS
    1)= S ZZ=$P(^RMPR(667.3,DA,0),U,2) S:ZZ ^RMPR(667.3,"AD",ZZ,X,DA)="" K ZZ
    2)= S ZZ=$P(^RMPR(667.3,DA,0),U,2) K:ZZ ^RMPR(667.3,"AD",ZZ,X,DA) K ZZ
    Allows lookups to find all items associated with the Vehicle ID# IEN.
2.5 QTY 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 13, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Contains the quantity of items purchased.
3 COST 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    The cost of the item.
4 AMIS CODE 0;5 SET
************************REQUIRED FIELD************************
  • '21B' FOR A;
  • '21A' FOR V;
  • 'R16' FOR R;

  • LAST EDITED:  FEB 25, 1992
  • HELP-PROMPT:  Enter A for New Items, V for Van Mods, R for Repair
  • DESCRIPTION:  
    This field contains the AMIS code for the transaction.
5 DESCRIPTION 1;0 WORD-PROCESSING #667.35

  • DESCRIPTION:  
    This field contains the description of the vehicle transaction.
6 SERIAL NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  NOV 18, 1991
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This field contains the serial number of the item being purchased or repaired.
7 AMIS 3;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 06, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the grouper number stored in the Site Parameters file 669.9 and should not be edited.
    UNEDITABLE
8 TYPE OF TRANSACTION 0;8 SET
************************REQUIRED FIELD************************
  • 'I' FOR INITIAL ISSUE;
  • 'R' FOR REPLACE;
  • 'S' FOR SPARE;
  • 'X' FOR REPAIR;

  • LAST EDITED:  MAR 16, 1992
  • HELP-PROMPT:  Enter the Correct Transaction type for this entry.
  • DESCRIPTION:  
    Set of Codes for type of transaction processed.
9 PATIENT CATEGORY 0;9 SET
************************REQUIRED FIELD************************
  • '1' FOR SC/OP;
  • '2' FOR SC/IP;
  • '3' FOR NSC/IP;
  • '4' FOR NSC/OP;

  • LAST EDITED:  MAR 16, 1992
  • HELP-PROMPT:  Enter the correct Category for the transaction.
  • DESCRIPTION:  
    This field stores the patient category for this V.O.R. transaction.
10 SPECIAL CATEGORY 0;10 SET
  • '1' FOR SPECIAL LEGISLATION;
  • '2' FOR A&A;
  • '3' FOR PHC;

  • LAST EDITED:  MAR 16, 1992
  • HELP-PROMPT:  Enter the correct Special Category for this Transaction.
  • DESCRIPTION:  
    This field stores the patient's special category for this V.O.R. transaction.
11 SOURCE 0;11 SET
************************REQUIRED FIELD************************
  • 'V' FOR VA;
  • 'C' FOR COMMERCIAL;

  • LAST EDITED:  MAR 16, 1992
  • HELP-PROMPT:  Enter 'VA' for (PDC) VA or 'C' for Commercial.
  • DESCRIPTION:  
    Set of codes for the source of the item either Commercial or VA.
12 STATION NAME 2;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  AUG 11, 1992
  • HELP-PROMPT:  Enter the Station name or Number from the Institution File
  • DESCRIPTION:  
    This field is a pointer to the Insitution file. If the data base is Multi Divisional entries are screened out by the station number.
13 USER 2;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 07, 1992
  • HELP-PROMPT:  Enter the User Name.
  • DESCRIPTION:  
    Person who entered the transaction.
14 RETURN DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 29, 1993
  • HELP-PROMPT:  Enter the date the Auto-Adaptive equipment was returned.
  • DESCRIPTION:  
    Contains the date that the item was retunred thru the Flag Item a Returned /Condemned option.

ICR, Total: 2

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

    ITEM (2).
    Access: Direct Global Read & w/Fileman

    COST (3).
    Access: Direct Global Read & w/Fileman

    QTY (2.5).
    Access: Direct Global Read & w/Fileman

    'C' xref.
    ICR #6829
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • DATE PROCESSED (.01).
    Access: Both R/W w/Fileman

    VEHICLE ID# (1).
    Access: Both R/W w/Fileman

    ITEM (2).
    Access: Both R/W w/Fileman

    COST (3).
    Access: Both R/W w/Fileman

    AMIS CODE (4).
    Access: Both R/W w/Fileman

    SERIAL NUMBER (6).
    Access: Both R/W w/Fileman

    QTY (2.5).
    Access: Both R/W w/Fileman

    TYPE OF TRANSACTION (8).
    Access: Both R/W w/Fileman

    PATIENT CATEGORY (9).
    Access: Both R/W w/Fileman

    SPECIAL CATEGORY (10).
    Access: Both R/W w/Fileman

    SOURCE (11).
    Access: Both R/W w/Fileman

    RETURN DATE (14).
    Access: Both R/W w/Fileman

    DESCRIPTION (5).
    Access: Both R/W w/Fileman

    STATION NAME (12).
    Access: Both R/W w/Fileman

    USER (13).
    Access: Both R/W w/Fileman

    AMIS (7).
    Access: Both R/W w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .01+1, 14+1
    Y^DIQ ID2+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(667.1 ID2+1
    ^RMPR(667.1 - [#667.1] ID2+1
    ^RMPR(667.3 - [#667.3] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 2S), 2(XREF 2K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*, 14+1*
    %I ID2+1*!
    >> C ID2+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 2S), 2(XREF 2K)
    >> DIC ID2+1
    DT .01+1
    U ID2+1, 2(XREF 2S), 2(XREF 2K)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2.5+1!, 3+1*!, 6+1!
    , 7+1!, 14+1*!
    >> Y ID2+1*, .01+1, 14+1
    ZZ 2(XREF 2S), 2(XREF 2K)
    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 |  Naked Globals |  Local Variables  | All