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(661.2

Package: Prosthetics

Global: ^RMPR(661.2


Information

FileMan FileNo FileMan Filename Package
661.2 PROS STOCK ITEM RECORD Prosthetics

Description

Directly Accessed By Routines, Total: 18

Package Total Routines
Prosthetics 18 HO LETTER 3 LIST    RMPR29LD    RMPR29LU    RMPR5N1    RMPR5N4    RMPR5NAE    RMPR5NEE    RMPR5NOR
RMPR5NRE    RMPR5NTU    RMPR5NU1    RMPR61PG    RMPRED4    RMPRED5    RMPRED6    RMPRPIUH
RMPRPS35    ^RMPR(661.2    

Accessed By FileMan Db Calls, Total: 11

Package Total Routines
Prosthetics 11 RMPR29LD    RMPR29LU    RMPR5NAE    RMPR5NEE    RMPR5NOR    RMPR5NRE    RMPR5NTU    RMPR5NU1
RMPR61PG    RMPRED4    RMPRED5    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Prosthetics 1 PROSTHETIC TRANSACTION PATIENT ISSUE(#661.63)[3]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Prosthetics 3 PROSTHETIC HCPCS(#661.1)[3]    PROS ITEM LOCATION(#661.3)[17]    PROSTHETICS PATIENT(#665)[1]    
Kernel 2 INSTITUTION(#4)[16]    NEW PERSON(#200)[7]    
IFCAP 1 UNIT OF ISSUE(#420.5)[5]    

Fields, Total: 19

Field # Name Loc Type Details
.01 DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 09, 1998
  • DESCRIPTION:  
    This is the date when an item issued to a Patient or Veteran.
  • CROSS-REFERENCE:  661.2^B
    1)= S ^RMPR(661.2,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.2,"B",$E(X,1,30),DA)
1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665) PROSTHETICS PATIENT(#665)

  • LAST EDITED:  FEB 10, 1998
  • DESCRIPTION:  
    This is a patient or veteran whom an item issued to. It is a pointer to Prosthetics Patient file (#665).
  • CROSS-REFERENCE:  661.2^C
    1)= S ^RMPR(661.2,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.2,"C",$E(X,1,30),DA)
2 SOURCE 0;3 SET
  • 'V' FOR VA;
  • 'C' FOR COMMERCIAL;

  • LAST EDITED:  SEP 02, 1998
  • DESCRIPTION:  
    This is a source of an item, either Va or Commercial.
3 HCPCS 0;4 POINTER TO PROSTHETIC HCPCS FILE (#661.1) PROSTHETIC HCPCS(#661.1)

  • LAST EDITED:  AUG 14, 1998
  • DESCRIPTION:  
    Pointer to Prosthetics HCPCS file (#661.1).
  • CROSS-REFERENCE:  661.2^D
    1)= S ^RMPR(661.2,"D",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.2,"D",$E(X,1,30),DA)
5 UNIT OF ISSUE 0;5 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  AUG 19, 1998
  • DESCRIPTION:  
    This is the unit used issuing an item or stock.
7 USER 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 25, 1998
  • DESCRIPTION:  
    A user responsible of stock item issue.
  • CROSS-REFERENCE:  661.2^F
    1)= S ^RMPR(661.2,"F",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.2,"F",$E(X,1,30),DA)
8 QTY 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 09, 1998
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Quantity issue to a patient or veteran.
9 HCPCS/ITEM 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  AUG 14, 1998
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enternal entry of an HCPCS concatenated to an enternal entry of an item in file #661.1
10 QTY ORDERED 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 24, 1998
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Quantity of an item or stock being ordered.
11 QTY RECEIVED 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 24, 1998
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Quantity of an item or stock received.
12 CURRENT BALANCE 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 30, 1998
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the current balance of an item as of date.
13 COMMENT 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • LAST EDITED:  MAY 01, 1998
  • HELP-PROMPT:  Answer must be 2-60 characters in length.
  • DESCRIPTION:  
    This is a free text field for user to enter any comments or justifications.
14 CURRENT TOTAL COST 0;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 01, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the current total cost of an item as of this date.
15 SERIAL NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  AUG 21, 1998
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This field comes from a serial # of an item during the stock issue option.
16 STATION 0;15 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  AUG 26, 1998
  • DESCRIPTION:  
    A station or site for an inventory workload or statistics.
  • CROSS-REFERENCE:  661.2^E
    1)= S ^RMPR(661.2,"E",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.2,"E",$E(X,1,30),DA)
17 LOCATION 0;16 POINTER TO PROS ITEM LOCATION FILE (#661.3) PROS ITEM LOCATION(#661.3)

  • LAST EDITED:  AUG 26, 1998
  • DESCRIPTION:  
    A location of an item where a workload completed.
  • CROSS-REFERENCE:  661.2^G
    1)= S ^RMPR(661.2,"G",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.2,"G",$E(X,1,30),DA)
18 AVERAGE COST 0;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  AUG 27, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the average cost of an ITEM based on COST and BALANCE ration.
20 LAB HOUR 1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAR 13, 1998
  • HELP-PROMPT:  Type a Number between 0 and 1000, 2 Decimal Digits
  • DESCRIPTION:  
    Number of hours used by lab technician to process an item or stock.
21 LABOR COST 1;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • LAST EDITED:  MAR 13, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    An issuance cost of an item furnished to patient or veteran based on the users' salary and hour spent by a Technician to fit an item.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3873
  • M DATA EXTRACTOR
    		•

    External References

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(661.2 - [#661.2] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 16(XREF 1S), 16(XREF 1K)
    , 17(XREF 1S), 17(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 16(XREF 1S), 16(XREF 1K)
    , 17(XREF 1S), 17(XREF 1K)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8+1!
    , 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1*!, 15+1!, 16(XREF 1S), 16(XREF 1K), 17(XREF 1S)
    , 17(XREF 1K), 18+1*!, 20+1!, 21+1*!
    >> Y .01+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