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 |  External References |  Global Variables Directly Accessed |  Local Variables  | 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: 37

Package Total Routines
Prosthetics 35 HO LETTER 3 LIST    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    ^RMPR(661.7    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

    File 661.7 'XHDS' INDEX Used to look up byHCPCS &DATE&TIME STAMP & SEQUENCEFile 661.7 'XSHIDS' index Used to look up bySTATION &HCPCS & HCPCS ITEM & DATE&TIMESTAMP & SEQUENCEFile 661.7 'XSLHIDS' index Used to look up bySTATION &LOCATION & HCPCS & HCPCS ITEM& DATE&TIME STAMP & SEQUENCE

    External References

    Name Field # of Occurrence
    ^%DT 1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^RMPR(661.7 - [#661.7] IXXHDSSL+1*, IXXHDSKL+1!, IXXHDSKEIC+1!, IXXSHIDSSL+1*, IXXSHIDSKL+1!, IXXSHIDSKEIC+1!, IXXSLHIDSSL+1*, IXXSLHIDSKL+1!, IXXSLHIDSKEIC+1!, .01(XREF 1S)
    .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 5(XREF 1S), 5(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*
    >> DA IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1, .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K)
    5(XREF 1S), 5(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 2+1!, 3+1!, 3(XREF 1S), 3(XREF 1K), 5(XREF 1S), 5(XREF 1K)
    , 6+1!, 7+1*!
    X(1 IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
    X(2 IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
    X(3 IXXHDSSL+1, IXXHDSKL+1, IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
    X(4 IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
    X(5 IXXSHIDSSL+1, IXXSHIDSKL+1, IXXSLHIDSSL+1, IXXSLHIDSKL+1
    X(6 IXXSLHIDSSL+1, IXXSLHIDSKL+1
    >> Y 1+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All