Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 664.22

Package: Prosthetics

PROSTHETIC WORK ORDER(#664.2)-->664.22

Sub-Field: 664.22


Information

Parent File Name Number Package
PROSTHETIC WORK ORDER(#664.2) MATERIALS USED 664.22 Prosthetics

Details

Field # Name Loc Type Details
.01 MATERIALS USED 0;1 POINTER TO PROS ITEM MASTER FILE (#661) PROS ITEM MASTER(#661)

  • OUTPUT TRANSFORM:  .01:.01:SHORT DESCRIPTION
  • LAST EDITED:  NOV 18, 1993
  • HELP-PROMPT:  Enter the materials used to provide the item/service requested on the Lab Work Order.
  • DESCRIPTION:  
    Component or stock issue item(s) used to complete the item(s)/service(s) requested on the Lab Work Order.
  • CROSS-REFERENCE:  664.22^B
    1)= S ^RMPR(664.2,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(664.2,DA(1),1,"B",$E(X,1,30),DA)
1 QTY 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 16, 1993
  • HELP-PROMPT:  Enter the number of units you wish to order. Keep in mind what unit of issue you will be using (e.g., 1 pair or 2 each).
  • DESCRIPTION:  
    This is the number of units ordered for this item. Keep in mind that this will be governed by the unit of issue (e.g., pair, each).
2 MATERIALS COST 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
  • LAST EDITED:  NOV 16, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The charge associated with the item(s)/service(s) used on the Lab Work Order.
3 VA or COMMERCIAL SOURCE (V/C) 0;4 SET
  • 'V' FOR VA;
  • 'C' FOR COMMERCIAL;

  • LAST EDITED:  MAR 27, 1994
  • HELP-PROMPT:  Enter `V` for VA Source or `C` for Commercial Source
  • DESCRIPTION:  
    This is the source for the items ordered on VAF 10-2421 (V for VA or C for Commercial).
4 INVENTORY POINT 0;5 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • LAST EDITED:  NOV 21, 1993
  • HELP-PROMPT:  Select the appropriate Inventory Point for this request.
  • DESCRIPTION:  
    This is the pointer to the GENERIC INVENTORY file (#445) that tells which inventory point is charged for the item(s).
  • CROSS-REFERENCE:  664.2^AC
    1)= S ^RMPR(664.2,"AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^RMPR(664.2,"AC",$E(X,1,30),DA(1),DA)
    Used to lookup inventory point from file 445
5 VENDOR 0;6 POINTER TO VENDOR FILE (#440)
************************REQUIRED FIELD************************
VENDOR(#440)

  • LAST EDITED:  APR 14, 1995
  • HELP-PROMPT:  Enter the name of the Vendor for the item(s) ordered on this request.
  • DESCRIPTION:  
    This is the name of the Vendor for the items(s) ordered on the request.
6 UNIT OF ISSUE 0;7 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  NOV 19, 1993
  • HELP-PROMPT:  Enter the appropriate unit of issue for this item.
  • DESCRIPTION:  
    This the is unit by which item(s)/service(s) are issued (e.g., each, pair, box, case, etc.).
7 SERIAL NBR 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  NOV 20, 1993
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This is number assigned by the manufacturer of the item.
9 REMARKS 3;0 WORD-PROCESSING #664.229

  • DESCRIPTION:  
    These are the remarks entered by the Lab Technician concerning the materials used on the Lab Work Order.
  • LAST EDITED:  NOV 21, 1993
  • HELP-PROMPT:  Enter appropriate remarks concerning the materials used.
10 REFERENCE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  NOV 24, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the VAF 10-2421 C Number from the VAF 4-1358 Daily Record entry.
11 PURCHASE FORM 0;11 POINTER TO PROSTHETICS 1358 FILE (#664) PROSTHETICS 1358(#664)

  • LAST EDITED:  MAY 08, 1994
  • DESCRIPTION:  
    Points to the Prosthetics 1358 file if the materials had to be purchased on a VAF 10-2421 and could not be taken from stock.
  • CROSS-REFERENCE:  664.22^AC
    1)= S ^RMPR(664.2,DA(1),1,"AC",$E(X,1,30),DA)=""
    2)= K ^RMPR(664.2,DA(1),1,"AC",$E(X,1,30),DA)
    Used to determine if Work Order has a purchase that is pending delivery of the item.
  • CROSS-REFERENCE:  664.22^AF^MUMPS
    1)= I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) S ^RMPR(664.2,"AF",$P(^(0),U,2),X,DA(1))=""
    2)= I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) K ^RMPR(664.2,"AF",$P(^(0),U,2),X,DA(1))
    Used to determine if specific job has a Purchased item pending Delivery.
12 APPLIANCE/REPAIR 0;12 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660) RECORD OF PROS APPLIANCE/REPAIR(#660)

  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Enter the date of the associated RECORD OF PROS APPLIANCE/REPAIR from file #660.
  • DESCRIPTION:  
    Pointer to associated RECORD OF PROS APPLIANCE/REPAIR file (#660).
13 PURCHASE STATUS 0;9 SET

  • LAST EDITED:  AUG 29, 1994
  • HELP-PROMPT:  Enter `PD` for Pending Delivery or `D` for Delivered.
  • DESCRIPTION:  
    This field indicates if a purchase on a VAF 10-2421 is Pending Delivery (PD) or Delivered (D).
  • CROSS-REFERENCE:  664.22^E^MUMPS
    1)= S ^RMPR(664.2,"E",X,DA(1),DA)=""
    2)= K ^RMPR(664.2,"E",X,DA(1),DA)
    Used to check status of pending 2421.
14 2529-3 0;13 POINTER TO PROSTHETIC 2529-3 FILE (#664.1) PROSTHETIC 2529-3(#664.1)

  • LAST EDITED:  SEP 14, 1994
  • HELP-PROMPT:  Enter the VAF 10-2529-3 related to this work order.
  • DESCRIPTION:  
    Contains VAF 10-2529-3 request used to obtain materials for current Work Order.
  • CROSS-REFERENCE:  664.22^AR3^MUMPS
    1)= S ^RMPR(664.2,"AR3",DA(1),X,DA)=""
    2)= K ^RMPR(664.2,"AR3",DA(1),X,DA)
    X-ref is used to determine if materials where aquired using a Remote 2529-3 Request.
  • CROSS-REFERENCE:  664.22^AR4^MUMPS
    1)= I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) S ^RMPR(664.2,"AR4",$P(^(0),U,2),X,DA(1),DA)=""
    2)= I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) K ^RMPR(664.2,"AR4",$P(^(0),U,2),X,DA(1),DA)
    Specifies if Item in 660 was procured by a 2529-3 so Amis Item cannot be edited.
  • CROSS-REFERENCE:  664.2^A1
    1)= S ^RMPR(664.2,"A1",$E(X,1,30),DA)=""
    2)= K ^RMPR(664.2,"A1",$E(X,1,30),DA)
Info |  Details