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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | 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

Directly Accessed By Routines, Total: 42

Package Total Routines
Prosthetics 41 HO LETTER 3 LIST    MATERIALS USED    RMPR 2529 VIEW    RMPR 2529-3 STATUS    RMPR21    RMPR21B    RMPR21C    RMPR29A
RMPR29B    RMPR29C    RMPR29CB    RMPR29GA    RMPR29I    RMPR29J    RMPR29L2    RMPR29LA
RMPR29LC    RMPR29LS    RMPR29LU    RMPR29M    RMPR29MG    RMPR29P    RMPR29R    RMPR29T
RMPR29U    RMPR29W    RMPR29W2    RMPR421    RMPR421B    RMPR421C    RMPR4C21    RMPR4D1
RMPR4E21    RMPR4E22    RMPR7    RMPRC21    RMPRD1    ^RMPR(664.2    RMPRE21    RMPRE22
RMPRM    

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

    External References

    Name Field # of Occurrence
    ^%DT 1.8+1, 8+1, 10+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(664.2 - [#664.2] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1.8+1*, 8+1*, 10+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1.7+1!, 1.8+1*!, 4+1*!, 5+1*!, 8+1*!
    , 10+1*!
    >> Y 1.8+1, 8+1, 10+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All