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

Package: Prosthetics

Global: ^RMPR(661.7


Information

FileMan FileNo FileMan Filename Package
661.7 PROSTHETIC CURRENT STOCK Prosthetics

Description

Directly Accessed By Routines, Total: 35

Package Total Routines
Prosthetics 33 RMPRPI01    RMPRPI02    RMPRPI07    RMPRPIU2    RMPRPIU3    RMPRPIU6    RMPRPIU7    RMPRPIU8
RMPRPIU9    RMPRPIUA    RMPRPIUB    RMPRPIUC    RMPRPIUD    RMPRPIUE    RMPRPIUF    RMPRPIUJ
RMPRPIUT    RMPRPIUV    RMPRPIX7    RMPRPIXE    RMPRPIXJ    RMPRPIXR    RMPRPIY6    RMPRPIY7
RMPRPIYF    RMPRPIYI    RMPRPIYL    RMPRPIYO    RMPRPIYV    RMPRPIYZ    RMPRPS34    RMPRPS35
RMPRPS36    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Prosthetics 2 RMPRPIX7    RMPRPIXR    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IFCAP 1 UNIT OF ISSUE(#420.5)[8]    
Kernel 1 INSTITUTION(#4)[4]    
Prosthetics 1 PROSTHETIC STOCK LOCATION(#661.5)[5]    

Fields, Total: 9

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

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X
  • LAST EDITED:  SEP 08, 2005
  • HELP-PROMPT:  Answer must be 5-20 characters in length.
  • DESCRIPTION:  
    This field is a pointer to the Prosthetic HCPCs file (661.1).
  • CROSS-REFERENCE:  661.7^B
    1)= S ^RMPR(661.7,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.7,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  XHDS (#36), XSHIDS (#37), XSLHIDS (#63)
1 DATE&TIME STAMP 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 28, 2001
  • HELP-PROMPT:  (No range limit on date)
  • RECORD INDEXES:  XHDS (#36), XSHIDS (#37), XSLHIDS (#63)
2 SEQUENCE 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  MAR 28, 2001
  • HELP-PROMPT:  Type a number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the same SEQUENCE as in the PROSTHETIC TRANSACTION file (661.6)
  • RECORD INDEXES:  XHDS (#36), XSHIDS (#37), XSLHIDS (#63)
3 HCPCS ITEM 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 2001
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is a pointer to the 661.12 sub-file of the PROSTHETIC HCPCS file (661.1).
  • CROSS-REFERENCE:  661.7^D
    1)= S ^RMPR(661.7,"D",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.7,"D",$E(X,1,30),DA)
  • RECORD INDEXES:  XSHIDS (#37), XSLHIDS (#63)
4 STATION 0;5 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 28, 2001
  • DESCRIPTION:  
    This field is a pointer to the INSTITUTION file (4).
  • RECORD INDEXES:  XSHIDS (#37), XSLHIDS (#63)
5 LOCATION 0;6 POINTER TO PROSTHETIC STOCK LOCATION FILE (#661.5) PROSTHETIC STOCK LOCATION(#661.5)

  • LAST EDITED:  APR 06, 2001
  • DESCRIPTION:  
    This field points to the PROSTHETIC STOCK LOCATION file (661.5).
  • CROSS-REFERENCE:  661.7^C
    1)= S ^RMPR(661.7,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.7,"C",$E(X,1,30),DA)
  • RECORD INDEXES:  XSLHIDS (#63)
6 QUANTITY 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1.N) X
  • LAST EDITED:  JAN 17, 2001
  • HELP-PROMPT:  Type a number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is the quantity of stock.
7 VALUE 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999)!(X?.E1"."3.N) X
  • LAST EDITED:  JAN 17, 2001
  • HELP-PROMPT:  Type a Dollar amount between -999999999 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This field is the total dollar value of the stock item held on this record.
8 UNIT OF ISSUE 0;9 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  NOV 18, 2002
  • DESCRIPTION:  
    This field is a pointer to Unit of Issue file (#420.5).

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #7121
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • HCPCS (.01).
    Access: Read w/Fileman

    DATE&TIME STAMP (1).
    Access: Read w/Fileman

    SEQUENCE (2).
    Access: Read w/Fileman

    HCPCS ITEM (3).
    Access: Read w/Fileman

    STATION (4).
    Access: Read w/Fileman

    LOCATION (5).
    Access: Read w/Fileman

    QUANTITY (6).
    Access: Read w/Fileman

    VALUE (7).
    Access: Read w/Fileman

    UNIT OF ISSUE (8).
    Access: Read w/Fileman

    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All