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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^RMPR(664.2

Package: Prosthetics

Global: ^RMPR(664.2


Information

FileMan FileNo FileMan Filename Package
664.2 PROSTHETIC WORK ORDER Prosthetics

Description

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Prosthetics 10 RMPR29A    RMPR29B    RMPR29BG    RMPR29C    RMPR29CA    RMPR29GA    RMPR29LC    RMPR29LU
RMPR29U    RMPR29W    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Prosthetics 3 RECORD OF PROS APPLIANCE/REPAIR(#660)[71]    PROSTHETICS 1358(#664)[22]    PROSTHETIC 2529-3(#664.1)[34, #664.16(6)]    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Prosthetics 4 RECORD OF PROS APPLIANCE/REPAIR(#660)[1, #664.22(12)]    PROS ITEM MASTER(#661)[#664.22(.01)]    PROSTHETICS 1358(#664)[#664.22(11)]    PROSTHETIC 2529-3(#664.1)[#664.22(14)]    
IFCAP 3 VENDOR(#440)[#664.22(5)]    UNIT OF ISSUE(#420.5)[#664.22(6)]    GENERIC INVENTORY(#445)[#664.22(4)]    
Kernel 2 INSTITUTION(#4)[1.5, 6]    NEW PERSON(#200)[9, 11]    

Fields, Total: 15

Field # Name Loc Type Details
.01 WORK ORDER NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  NOV 02, 1993
  • HELP-PROMPT:  Enter the WORK ORDER Number (Station Number-Fiscal Year-Quarter-Type of Lab-Sequence Number, e.g., 644-95-2-O-0016).
  • DESCRIPTION:  This is the permanent number used to identify and track the Lab request. It is built from both information the user enters and a sequence number assigned by the computer (e.g., 644-95-2-O-0016).
    644 = Station Number
    95 = Fiscal Year
    2 = Quarter
    O = Type of Laboratory (Orthotic, Restoration, Shoe Last,
    Wheelchair Repair, National Foot Center, or Denver
    Distribution Center)
  • CROSS-REFERENCE:  664.2^B
    1)= S ^RMPR(664.2,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(664.2,"B",$E(X,1,30),DA)
1 APPLIANCE/REPAIR 0;2 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660) RECORD OF PROS APPLIANCE/REPAIR(#660)

  • LAST EDITED:  NOV 16, 1993
  • HELP-PROMPT:  Enter the date of the associated RECORD OF PROS APPLIANCE/REPAIR file (#660).
  • DESCRIPTION:  
    Pointer to associated RECORD OF PROS APPLIANCE/REPAIR entry in file #660.
  • CROSS-REFERENCE:  664.2^C
    1)= S ^RMPR(664.2,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(664.2,"C",$E(X,1,30),DA)
    Used for lookup to update file 660 with materials costs.
1.5 STATION 0;3 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  NOV 18, 1993
  • HELP-PROMPT:  Enter the Station Name or Station Number.
  • DESCRIPTION:  
    This field is a pointer to the INSTITUTION file (#4). If a site is multidivisional, entries are screened out by site number.
1.7 JOB NUMBER 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 23, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a job number, which may be between 1 and 999. Each job number is associated withan item on the 2529-3. The numbers are not entered by the user, but set in the background in the lab routines.
1.8 DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 26, 1993
  • HELP-PROMPT:  Enter the date.
  • DESCRIPTION:  
    This is the DATE the Lab Work Order was entered.
2 MATERIALS USED 1;0 POINTER Multiple #664.22 664.22

  • LAST EDITED:  APR 03, 1994
  • DESCRIPTION:  
    Contains components required to complete the fabricated item. May be the fabricated item if the item was taken from stock.
4 EST. SHIPPING CHARGE 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated shipping cost for delivery of item(s) on VAF 10-2421.
5 ACTUAL SHIPPING CHARGE 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  DEC 16, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the actual shipping cost for delivery of item(s) on VAF 10-2421.
6 REFERRAL STATION 0;8 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  DEC 19, 1993
  • HELP-PROMPT:  Enter the Station Name or Station Number.
  • DESCRIPTION:  
    This is the Station Name or Station Number of the facility that is referring the VAF 10-2529-3 to a Prosthetic Laboratory.
7 WORK FOR OTHER STATION 0;9 SET
  • '1' FOR OTHER STATION;

  • LAST EDITED:  DEC 19, 1993
  • HELP-PROMPT:  Enter a `1` to indicate work done by a Prosthetic Laboratory for another station.
  • DESCRIPTION:  Prosthetic Laboratories processing a Work Order for another facility should enter a `1` in order to get the appropriate AMIS credit. The referring facility receives the administrative AMIS credit, and the facility
    processing the Work Order receives the laboratory AMIS credit.
8 DATE COMPLETED 0;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 02, 1994
  • HELP-PROMPT:  Enter the date that the Item/Job was completed.
  • DESCRIPTION:  
    This is the date that the Item/Job on the Lab Work Order was completed.
9 COMPLETED BY 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Enter the name of the person who completed this Item/Job.
  • DESCRIPTION:  
    This is the name of the person who completed the Item/Job.
10 DATE MEASURED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 11, 1994
  • HELP-PROMPT:  Enter the date the patient was measured for the items/services requested on the Lab Work Order.
  • DESCRIPTION:  
    This is the date that the Lab Technician measured or fitted the patient for the items/services requested on the Lab Work Order.
11 CHECKED BY 0;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 13, 1994
  • HELP-PROMPT:  Enter the name of the inspecting official.
  • DESCRIPTION:  
    This is the name of the person checking the completed item/service requested on the Lab Work Order for quality control monitoring.
12 REMARKS 3;0 WORD-PROCESSING #664.212

  • DESCRIPTION:  
    Additional comments noted on the Lab Work Order.
  • LAST EDITED:  MAY 11, 1994
  • HELP-PROMPT:  Enter appropriate remarks.
  • DESCRIPTION:  
    Additional comments noted on the Lab Work Order.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6535
  • ADVANCED PROSTHETICS ACQUISITION TOOL
    		•  WORK ORDER NUMBER (.01).
    Access: Both R/W w/Fileman

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

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

    JOB NUMBER (1.7).
    Access: Both R/W w/Fileman

    DATE (1.8).
    Access: Read w/Fileman

    EST. SHIPPING CHARGE (4).
    Access: Read w/Fileman

    ACTUAL SHIPPING CHARGE (5).
    Access: Read w/Fileman

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

    WORK FOR OTHER STATION (7).
    Access: Read w/Fileman

    DATE COMPLETED (8).
    Access: Both R/W w/Fileman

    COMPLETED BY (9).
    Access: Both R/W w/Fileman

    CHECKED BY (11).
    Access: Read w/Fileman

    MATERIALS USED (.01).
    Access: Both R/W w/Fileman

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

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

    VA or COMMERCIAL SOURCE (3).
    Access: Both R/W w/Fileman

    INVENTORY POINT (4).
    Access: Read w/Fileman

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

    UNIT OF ISSUE (6).
    Access: Both R/W w/Fileman

    SERIAL NBR (7).
    Access: Both R/W w/Fileman

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

    REFERENCE (10).
    Access: Both R/W w/Fileman

    PURCHASE FORM (11).
    Access: Both R/W w/Fileman

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

    2529-3 (14).
    Access: Read w/Fileman

    REMARKS (.01).
    Access: Both R/W w/Fileman

    		 File 664.2 'C' cross reference Used for lookup toupdate file660 with materials costs
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All