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 |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^IBAT(351.67

Package: Integrated Billing

Global: ^IBAT(351.67


Information

FileMan FileNo FileMan Filename Package
351.67 TRANSFER PRICING INPT PROSTHETIC ITEMS Integrated Billing

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Integrated Billing 4 IB20P389    ^IBAT(351.67    ^IBE(399.6    IBATER    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Prosthetics 1 PROSTHETIC HCPCS(#661.1)[.01]    

Fields, Total: 1

Field # Name Loc Type Details
.01 ITEM 0;1 POINTER TO PROSTHETIC HCPCS FILE (#661.1)
************************REQUIRED FIELD************************
PROSTHETIC HCPCS(#661.1)

  • INPUT TRANSFORM:  S DIC("S")="I +$P(^(0),U,5)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 07, 2008
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  This is a direct pointer to file 661.1 for the prosthetic items to be automatically billed for inpatients. Most prosthetic devices for inpatients are covered by the price of the DRG for the inpatient stay. However, some
    are not. Sites may identify specific items that would not be covered by the price of the DRG.
  • SCREEN:  S DIC("S")="I +$P(^(0),U,5)"
  • EXPLANATION:  Active Codes Only!
  • CROSS-REFERENCE:  351.67^B
    1)= S ^IBAT(351.67,"B",$E(X,1,30),DA)=""
    2)= K ^IBAT(351.67,"B",$E(X,1,30),DA)

External References

Name Field # of Occurrence
^DIC .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBAT(351.67 - [#351.67] .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K)
DIC .01+1!*
DIC("S" .01+1*, .01SCR+1*
>> DIE .01+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K)
>> Y .01+1
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All