Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | 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

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.
  • LAST EDITED:  JUL 22, 1992
  • HELP-PROMPT:  Enter the description of the item loaned or returned.
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 ACQ TOOL
    		•  DATE (.01).
    Access: Both R/W w/Fileman

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

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

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

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

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

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

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

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

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

    APPLIANCE REPAIR (11.5).
    Access: Both R/W w/Fileman

    OBLIGATION NUMBER (20).
    Access: Both R/W w/Fileman

    AUTO-ADAPTIVE ITEM (23).
    Access: Read w/Fileman

    AUTO-ADAPTIVE TRANSACTION (24).
    Access: Read w/Fileman

    COMMENTS (2.5).
    Access: Read w/Fileman

    COMMENTS (.01).
    Access: Read w/Fileman

    		 File 660.1 'AC' cross reference Used to look up byAPPLIANCEREPAIRFile 660.1 'C' cross reference Used to display/printloan card information
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All