Global: ^IBAT(351.67

Information

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

This file stores the prosthetic devices that should be automatically billed for inpatient devices issued. Unless a device is in this file, it will only be billed for outpatient services (automatically). Per VHA Directive 10-93-142, this file definition should not be modified.

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

Field # Name Loc Type Details

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)`

ITEM

0;1

POINTER TO PROSTHETIC HCPCS FILE (#661.1)

************************REQUIRED FIELD************************

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)