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(667.3    HO LETTER 3 LIST    RMPRAVR    RMPRAVR1    RMPRRET9    RMPRSEA    

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.
  • LAST EDITED:  NOV 16, 1991
  • HELP-PROMPT:  Enter the description of this vehicle transaction.
  • 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

    		 File 667.3 'B' cross reference Used to look up by DATEPROCESSEDFile 667.3 'AD' cross reference Used to look up by ITEMFile 667.3 'C' cross reference Used to look up byVEHICLE ID#

    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