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

Package: Prosthetics

Global: ^RMPR(660.1


Information

FileMan FileNo FileMan Filename Package
660.1 PROS RETURNED/CONDEMNED Prosthetics

Description

Directly Accessed By Routines, Total: 18

Package Total Routines
Prosthetics 18 RMPOBIL5    RMPOBIL7    RMPOPAT1    RMPOPAT2    RMPR9S4    RMPR9S8    RMPRKIL    RMPRPAT1
^RMPR(669.1    RMPRPOST    RMPRPRT1    ^RMPR(660.1    FOLLOW-UP DATE    RMPR9S7    RMPRPAT2    RMPRRET1
RMPRRET2    RMPRRET9    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Prosthetics 3 RMPRRET1    RMPRRET2    RMPRRET9    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Prosthetics 6 RECORD OF PROS APPLIANCE/REPAIR(#660)[11.5]    PROSTHETICS RE-ISSUE ITEM(#660.2)[22]    PROS ITEM MASTER(#661)[2]    PROSTHETICS PATIENT(#665)[1]    PROS AUTO-ADAPTIVE EQUIP(#667.1)[23]    V.O.R. TRANSACTION(#667.3)[24]    
IFCAP 1 GENERIC INVENTORY(#445)[11]    
Kernel 1 INSTITUTION(#4)[14]    

Fields, Total: 24

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

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 15, 1992
  • HELP-PROMPT:  Enter the Date of the Loan transaction.
  • DESCRIPTION:  
    This field stores the date of the loaner transaction.
  • CROSS-REFERENCE:  660.1^B
    1)= S ^RMPR(660.1,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"B",$E(X,1,30),DA)
.05 DATE OF LOAN 0;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 05, 1993
  • HELP-PROMPT:  Enter the date of Loan or Return transaction.
  • DESCRIPTION:  
    This is the date of the loan to the veteran.
  • CROSS-REFERENCE:  660.1^AG
    1)= S ^RMPR(660.1,"AG",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"AG",$E(X,1,30),DA)
    Used to look up loan transactions for 1465 report.
1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665)
************************REQUIRED FIELD************************
PROSTHETICS PATIENT(#665)

  • LAST EDITED:  JUL 21, 1992
  • HELP-PROMPT:  Enter the Patient's name for this loan transaction.
  • DESCRIPTION:  
    This is the name of the patient for this loan transaction.
  • CROSS-REFERENCE:  660.1^C
    1)= S ^RMPR(660.1,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"C",$E(X,1,30),DA)
    Used to display/print loan card information.
2 ITEM 0;3 POINTER TO PROS ITEM MASTER FILE (#661) PROS ITEM MASTER(#661)

  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the item for this loan transaction.
  • DESCRIPTION:  
    This is a pointer field to the Prosthetic Item file.
2.5 COMMENTS 1;0 WORD-PROCESSING #660.11

  • LAST EDITED:  JUL 22, 1992
  • DESCRIPTION:  
    This word-processing field stores information about the loan transaction.
3 QUANTITY 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 29, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the quantity of the item on this loan.
4 COST 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  MAY 29, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the cost of the item on loan.
5 SERIAL NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!($E(X)=" ") X I $D(X) K:$L(X)>15!($L(X)<1)!(X["^") X
  • LAST EDITED:  MAY 15, 1995
  • HELP-PROMPT:  Answer must be 1-15 characters in length and cannot contain an `^`.
  • DESCRIPTION:  
    This field stores the serial number of the item on loan.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  660.1^AD
    1)= S ^RMPR(660.1,"AD",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"AD",$E(X,1,30),DA)
    For tracking used items on loan
6 PURCHASE DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 15, 1992
  • HELP-PROMPT:  Enter the date the appliance was purchased.
  • DESCRIPTION:  
    This is the date the item was purchased by prosthetics.
7 ASSET EXPIRATION DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 15, 1992
  • HELP-PROMPT:  Enter a date 5 years subsequent to the purchase date.
  • DESCRIPTION:  
    This field stores the date the asset expires (5 yr from date of purchase).
8 FOLLOW-UP DATE 2;0 DATE Multiple #660.18 660.18

  • LAST EDITED:  MAR 15, 1993
  • DESCRIPTION:  
    These are dates uses by prosthetics to follow-up with the patient the status of the loaned item.
9 TYPE OF LOAN TRANSACTION 0;9 SET
  • '1' FOR LOAN;
  • '2' FOR RETURN;
  • '3' FOR TEMP LOAN;

  • LAST EDITED:  OCT 28, 1992
  • HELP-PROMPT:  Enter the type of loan transaction.
  • DESCRIPTION:  
    Stores the type of loan.
10 DATE OF RETURN 0;11 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Enter the date the item was returned.
  • DESCRIPTION:  
    This field holds the date the loaned item was returned to prosthetics.
  • CROSS-REFERENCE:  660.1^AR
    1)= S ^RMPR(660.1,"AR",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"AR",$E(X,1,30),DA)
    X-ref for Date of Return Field that is used to calculate part IV AMIS Report.
11 INVENTORY POINT 0;12 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • LAST EDITED:  JUL 30, 1992
  • HELP-PROMPT:  Enter the GIP Inventory Point for this loan transaction.
  • DESCRIPTION:  
    If the item was loaned from inventory with GIP running, the inventory point is stored in this field.
11.5 APPLIANCE REPAIR 0;16 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660) RECORD OF PROS APPLIANCE/REPAIR(#660)

  • LAST EDITED:  OCT 02, 1992
  • HELP-PROMPT:  Enter the Internal Appliance Repair record number.
  • DESCRIPTION:  
    This field stores the internal number of an entry in file 660.
  • CROSS-REFERENCE:  660.1^AC
    1)= S ^RMPR(660.1,"AC",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"AC",$E(X,1,30),DA)
    Used to indicate items returned that have been previously issued.
12 LOAN CATEGORY 0;13 SET
  • '1' FOR BED;
  • '2' FOR VAN LIFT;
  • '3' FOR DIALYSIS SUPPLIES;
  • '4' FOR INVALID LIFTS;
  • '5' FOR RESPIRATORS;
  • '6' FOR WHEELCHAIR;
  • '7' FOR ALL OTHER;

  • LAST EDITED:  AUG 17, 1992
  • HELP-PROMPT:  Enter the loan category
  • DESCRIPTION:  
    This is the category of the item loaned.
13 RETURNED STATUS 0;14 SET
************************REQUIRED FIELD************************
  • '1' FOR RETURNED;
  • '2' FOR CONDEMNED;
  • '3' FOR TURNED-IN;
  • '4' FOR LOST;
  • '5' FOR BROKEN;

  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Enter the returned status code
  • DESCRIPTION:  
    This field stores the returned status code for items turned-in by the patient.
14 STATION 0;15 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  SEP 29, 1992
  • HELP-PROMPT:  Enter the Station number for this loan transaction.
  • DESCRIPTION:  
    This field stores the station number of the loan transaction.
19 ITEM STATUS 0;17 SET
************************REQUIRED FIELD************************
  • 'N' FOR NEW ITEM;
  • 'R' FOR RECOVERED ITEM;

  • LAST EDITED:  NOV 03, 1992
  • HELP-PROMPT:  Enter 'N' for NEW ITEMS or 'R' for 'RECOVERED' ITEMS
  • DESCRIPTION:  
    Indicates if the item loaned was a new purchase or a recovered item.
20 OBLIGATION NUMBER 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 03, 1992
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Obligation number of item that has been purchased on a 1358 and loaned to the veteran.
21 RE-ISSUE STATUS 0;19 SET
************************REQUIRED FIELD************************
  • 'A' FOR AVAILABLE FOR RE-ISSUE;
  • 'N' FOR NOT AVAILABLE FOR RE-ISSUE;

  • LAST EDITED:  DEC 17, 1992
  • HELP-PROMPT:  Enter 'A' for AVAILABLE FOR RE-ISSUE or 'N' for NOT AVAILABLE FOR RE-ISSUE
  • DESCRIPTION:  
    Indicates item is Available for Re-issue or not available for re-issue when the item has been returned.
22 RE-ISSUE ENTRY 0;20 POINTER TO PROSTHETICS RE-ISSUE ITEM FILE (#660.2) PROSTHETICS RE-ISSUE ITEM(#660.2)

  • LAST EDITED:  DEC 27, 1992
  • HELP-PROMPT:  Enter the Item that has been returned for Loan
  • DESCRIPTION:  
    Pointer to file 660.2 re-issue entry.
  • CROSS-REFERENCE:  660.1^AF
    1)= S ^RMPR(660.1,"AF",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"AF",$E(X,1,30),DA)
    Used to find 660.1 entries that point to 660.2 with the re-issue entry filed.
23 AUTO-ADAPTIVE ITEM 0;21 POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1) PROS AUTO-ADAPTIVE EQUIP(#667.1)

  • LAST EDITED:  MAR 10, 1993
  • HELP-PROMPT:  Enter the Auto Adaptive Item Number or Name
  • DESCRIPTION:  
    Pointer to file 667.1 Auto-Adaptive Equipment file.
24 AUTO-ADAPTIVE TRANSACTION 0;22 POINTER TO V.O.R. TRANSACTION FILE (#667.3) V.O.R. TRANSACTION(#667.3)

  • LAST EDITED:  FEB 15, 1994
  • DESCRIPTION:  
    Pointer to Auto-Adaptive Equipment file #667.3
  • CROSS-REFERENCE:  660.1^AP
    1)= S ^RMPR(660.1,"AP",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.1,"AP",$E(X,1,30),DA)
    This x-ref is used to look for auto-adaptive transactions that are on loan.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6500
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • DATE OF RETURN (10).
    Access: Direct Global Read & w/Fileman

    'AC' cross reference Used to look up by APPLIANCEREPAIR

    External References

    Name Field # of Occurrence
    ^%DT .01+1, .05+1, 6+1, 7+1, 10+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(660.1 - [#660.1] .01(XREF 1S), .01(XREF 1K), .05(XREF 1S), .05(XREF 1K), 1(XREF 1S), 1(XREF 1K), 5(XREF 1S), 5(XREF 1K), 10(XREF 1S), 10(XREF 1K)
    11.5(XREF 1S), 11.5(XREF 1K), 22(XREF 1S), 22(XREF 1K), 24(XREF 1S), 24(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

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