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

Package: Prosthetics

Global: ^RMPR(661.9


Information

FileMan FileNo FileMan Filename Package
661.9 PROSTHETICS HCPCS RUNNING BALANCE Prosthetics

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Prosthetics 7 RMPR5HQ5    RMPRPIQ5    RMPRPIXJ    RMPRPIXR    RMPRPS34    RMPRPS35    RMPRPS36    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[4]    

Fields, Total: 6

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  FEB 22, 2001
  • HELP-PROMPT:  (No range limit on date)
  • CROSS-REFERENCE:  661.9^B
    1)= S ^RMPR(661.9,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(661.9,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  ASHID (#79)
1 HCPCS 0;2 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 is the HCPCS name as it shows in file #661.1.
  • RECORD INDEXES:  ASHID (#79)
2 HCPCS ITEM 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  FEB 22, 2001
  • HELP-PROMPT:  Type a number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a pointer to ITEM sub-record (#661.12) in file (#661.1).
  • RECORD INDEXES:  ASHID (#79)
4 STATION 0;5 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 22, 2001
  • DESCRIPTION:  
    This is a pointer to Institution file (#4).
  • RECORD INDEXES:  ASHID (#79)
7 TOTAL QUANTITY 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 16, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the total quantity of an item for only one location and station.
8 TOTAL VALUE 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 16, 2001
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total value or cost of an item for only one location and station.
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields