Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^RMPR(661.63

Package: Prosthetics

Global: ^RMPR(661.63


Information

FileMan FileNo FileMan Filename Package
661.63 PROSTHETIC TRANSACTION PATIENT ISSUE Prosthetics

Description

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Prosthetics 4 RECORD OF PROS APPLIANCE/REPAIR(#660)[2]    PROS STOCK ITEM RECORD(#661.2)[3]    PROSTHETIC STOCK LOCATION(#661.5)[8]    PROSTHETIC INVENTORY TRANSACTION(#661.6)[.01]    
IFCAP 2 VENDOR(#440)[9]    UNIT OF ISSUE(#420.5)[11]    
Kernel 1 INSTITUTION(#4)[7]    

Fields, Total: 12

Field # Name Loc Type Details
.01 INVENTORY TRANSACTION 0;1 POINTER TO PROSTHETIC INVENTORY TRANSACTION FILE (#661.6)
************************REQUIRED FIELD************************
PROSTHETIC INVENTORY TRANSACTION(#661.6)

  • LAST EDITED:  NOV 22, 2000
  • DESCRIPTION:  
    This field points to the Prosthetic Inventory Transaction file (661.6).
  • CROSS-REFERENCE:  661.63^B
    1)= S ^RMPR(661.63,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.63,"B",$E(X,1,30),DA)
2 PATIENT TRANSACTION 0;2 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660) RECORD OF PROS APPLIANCE/REPAIR(#660)

  • LAST EDITED:  NOV 22, 2000
  • DESCRIPTION:  
    This field points to the patient 2319 file (660).
3 CONVERSION POINTER 0;3 POINTER TO PROS STOCK ITEM RECORD FILE (#661.2) PROS STOCK ITEM RECORD(#661.2)

  • LAST EDITED:  JUN 11, 2001
  • DESCRIPTION:  This field is only updated by the Old to New PIP file conversion utility (RMPRPIUG). It saves the pointer to the old 661.2 Inventory Transaction file which is held in file 660. Should a conversion ever need to be reversed
    then the 660 file should be re-populated with this value (see RMPRPIXZ).
4 HCPCS 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X
  • LAST EDITED:  SEP 28, 2005
  • HELP-PROMPT:  Answer must be 5-20 characters in length.
  • DESCRIPTION:  
    The HCPCS that is being issued to patient.
5 HCPCS ITEM 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JAN 08, 2003
  • HELP-PROMPT:  Type a number between 1 and 9999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is an HCPCS item issued to patient.
6 DATE&TIME 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JAN 08, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This is the date and time the item was received in the inventory.
7 STATION 0;7 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JAN 08, 2003
  • DESCRIPTION:  
    This is the station where the patient belongs.
8 LOCATION 0;8 POINTER TO PROSTHETIC STOCK LOCATION FILE (#661.5) PROSTHETIC STOCK LOCATION(#661.5)

  • LAST EDITED:  JAN 08, 2003
  • DESCRIPTION:  
    This is where the HCPCS/ITEM was located prior to issueing to patient.
9 VENDOR 0;9 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • LAST EDITED:  JAN 08, 2003
  • DESCRIPTION:  
    This is a pointer to the Vendor file #440.
10 COST 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  JAN 08, 2003
  • HELP-PROMPT:  Type a Dollar amount between 0 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the cost of an item being issued to patient.
11 UNIT OF ISSUE 0;11 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  JAN 08, 2003
  • DESCRIPTION:  
    This is a pointer to Unit of Issue file #420.5.
12 QUANTITY 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JAN 08, 2003
  • HELP-PROMPT:  Type a number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a quantity of item issued to patient.
Info |  Desc |  Pointer To FileMan Files |  Fields