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

Package: Prosthetics

Global: ^RMPR(660.2


Information

FileMan FileNo FileMan Filename Package
660.2 PROSTHETICS RE-ISSUE ITEM Prosthetics

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Prosthetics 2 HO LETTER 3 LIST    ^RMPR(660.2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Prosthetics 1 PROS RETURNED/CONDEMNED(#660.1)[22]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Prosthetics 5 RECORD OF PROS APPLIANCE/REPAIR(#660)[11.5]    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: 17

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.2^B
    1)= S ^RMPR(660.2,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.2,"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:  JUL 23, 1992
  • HELP-PROMPT:  Enter the date of Loan or Return transaction.
  • DESCRIPTION:  
    This is the date of the loan to the veteran.
1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665)
************************REQUIRED FIELD************************
PROSTHETICS PATIENT(#665)

  • LAST EDITED:  NOV 13, 1992
  • HELP-PROMPT:  Enter the Patient's name for this loan transaction.
  • DESCRIPTION:  
    This is the name of the patient for this loan transaction.
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.
4 COST 0;5 NUMBER

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!(X["^") X
  • LAST EDITED:  NOV 30, 1992
  • 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.2^AD
    1)= S ^RMPR(660.2,"AD",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.2,"AD",$E(X,1,30),DA)
    For tracking used items on 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:  DEC 17, 1992
  • HELP-PROMPT:  Enter the date the item was returned.
  • DESCRIPTION:  
    This file holds the date the loaned item was returned to prosthetics.
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:  MAY 28, 1993
  • 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.2^AP
    1)= S ^RMPR(660.2,"AP",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.2,"AP",$E(X,1,30),DA)
    Used to indicate appliance repairs from the patient 2319 that have been placed on loan.
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:  DEC 22, 1992
  • HELP-PROMPT:  Enter the Catetory of this item
  • DESCRIPTION:  
    Set of codes for type of loan category for a returned item if the item is to be placed on the Loan Program.
13 RETURNED STATUS 0;14 SET
  • '1' FOR RETURNED;
  • '2' FOR CONDEMNED;
  • '3' FOR TURNED-IN;
  • '4' FOR LOST;
  • '5' FOR BROKEN;

  • LAST EDITED:  JUN 03, 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 item a new item 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 AVAILABEL 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 if item is available for re-issue or not- available for re-issue when it has been returned.
23 AUTO-ADAPTIVE ITEM 0;21 POINTER TO PROS AUTO-ADAPTIVE EQUIP FILE (#667.1) PROS AUTO-ADAPTIVE EQUIP(#667.1)

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

  • LAST EDITED:  DEC 27, 1992
  • HELP-PROMPT:  Enter the Auto-Adaptive Transaction date.
  • DESCRIPTION:  
    Pointer to Auto-Adaptive transaction file for loaned items.
  • CROSS-REFERENCE:  660.2^AC
    1)= S ^RMPR(660.2,"AC",$E(X,1,30),DA)=""
    2)= K ^RMPR(660.2,"AC",$E(X,1,30),DA)
    This x-ref is used to look-up Auto Adaptive equipment that is already on loan.

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(660.2 - [#660.2] .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 11.5(XREF 1S), 11.5(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*, 10+1*
>> DA .01(XREF 1S), .01(XREF 1K), 5(XREF 1S), 5(XREF 1K), 11.5(XREF 1S), 11.5(XREF 1K), 24(XREF 1S), 24(XREF 1K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .05+1*!, 4+1*!, 5+1!, 5(XREF 1S), 5(XREF 1K), 10+1*!, 11.5(XREF 1S)
, 11.5(XREF 1K), 20+1!, 24(XREF 1S), 24(XREF 1K)
>> Y .01+1, .05+1, 10+1
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All