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    ^RMPR(661.7    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

    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