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 | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^IBT(356.94

Package: Integrated Billing

Global: ^IBT(356.94

Information

FileMan FileNo	FileMan Filename	Package
356.94	INPATIENT PROVIDERS	Integrated Billing

Description

This file is to allow the claims tracking module store the admitting physician. In addition, the attending and resident providers can be identified in this file. If attending and resident providers are entered then they are assume to be entered completely for an episode of care being tracked. If no provider other than admitting physician is entered then the providers and attending from MAS will be considered to the the correct providers. Because QM data may be extracting this data on the national roll-up, it is necessary to correctly identify the attending physician. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 9

Package	Total	Routines
Integrated Billing	5	IBTRE6 ^IBE(399.6 IBTODD IBTRE5 ^IBT(356.94
Utilization Management Rollup	3	IBQL356 IBQLD3 IBQLR3

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Integrated Billing	1	IBTRE5

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.03]
Registration	1	PATIENT MOVEMENT(#405)[.02]

Fields, Total: 4

Field #	Name	Loc	Type	Details
.01	DATE OF CHANGE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:'$$DTCHK^IBTRE5($G(DA),$G(X)) X` LAST EDITED: `FEB 22, 1994` HELP-PROMPT: `Enter the date the is provider assumes responsibility for the patient. It can not be before the admission date or after the discharge date or if not discharged, more than 7 days into the future.` DESCRIPTION: `This is the first day that this provider is responsible for care for the patient. Enter the date that the provider assumes responsibility. For claims tracking purposes the provider will be resonsible for the care from` `this date (inclusive) until another provider assumes responsibility for the same level.` `The date must not be before the admission date or after the discharge date. If a current inpatient, it can not be more than 7 days into the future.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `356.94^B` `1)= S ^IBT(356.94,"B",$E(X,1,30),DA)=""` `2)= K ^IBT(356.94,"B",$E(X,1,30),DA)`
.02	ADMISSION MOVEMENT	0;2	POINTER TO PATIENT MOVEMENT FILE (#405)	**********************REQUIRED FIELD********************** PATIENT MOVEMENT(#405) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 22, 1994` DESCRIPTION: `This is the admission movement that the provider is responsible for.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=1"` EXPLANATION: `Must be an admission movement.` CROSS-REFERENCE: `356.94^C` `1)= S ^IBT(356.94,"C",$E(X,1,30),DA)=""` `2)= K ^IBT(356.94,"C",$E(X,1,30),DA)` `Regular cross reference of all inpatient provider entries by the admission movement.` CROSS-REFERENCE: `356.94^ADG^MUMPS` `1)= S:$P(^IBT(356.94,DA,0),U,4)=3&($P(^(0),U,3)) ^IBT(356.94,"ADG",X,+$P(^(0),U,3),DA)=""` `2)= K ^IBT(356.94,"ADG",X,+$P(^IBT(356.94,DA,0),U,3),DA)` `Cross reference of all admitting provider entries by admission movement, by provider.` CROSS-REFERENCE: `356.94^ADGPM^MUMPS` `1)= S:$P(^IBT(356.94,DA,0),U,3) ^IBT(356.94,"ADGPM",X,+$P(^(0),U,3),DA)=""` `2)= K ^IBT(356.94,"ADGPM",X,+$P(^IBT(356.94,DA,0),U,3),DA)` `Cross reference of all inpatient provider entries by patient movement, by provider.` CROSS-REFERENCE: `356.94^ATP^MUMPS` `1)= S:$P(^IBT(356.94,DA,0),U,4) ^IBT(356.94,"ATP",X,+$P(^(0),U,4),DA)=""` `2)= K ^IBT(356.94,"ATP",X,+$P(^IBT(356.94,DA,0),U,4),DA)` `Cross reference of all inpatient provider entries by admission movement by type of provider.`
.03	PROVIDER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 22, 1994` DESCRIPTION: `Enter the name of the provider who is responsible for care of this patient.` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1),+Y))"` EXPLANATION: `Must be a provder.` CROSS-REFERENCE: `356.94^D` `1)= S ^IBT(356.94,"D",$E(X,1,30),DA)=""` `2)= K ^IBT(356.94,"D",$E(X,1,30),DA)` `Regular cross-reference of all inpatient provider entries by provider.` CROSS-REFERENCE: `356.94^ADG1^MUMPS` `1)= S:$P(^IBT(356.94,DA,0),U,4)=3&($P(^(0),U,2)) ^IBT(356.94,"ADG",+$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.94,"ADG",+$P(^IBT(356.94,DA,0),U,2),X,DA)` `Cross reference of all admitting provider entries by admission movement, by provider.` CROSS-REFERENCE: `356.94^ADGPM1^MUMPS` `1)= S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,"ADGPM",+$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.94,"ADGPM",+$P(^IBT(356.94,DA,0),U,2),X,DA)` `Cross reference of all inpatient provider entries by patient movement, by provider.`
.04	TYPE PROVIDER	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR ATTENDING; '2' FOR PROVIDER; '3' FOR ADMITTING; LAST EDITED: `FEB 22, 1994` DESCRIPTION: `Enter whether this physician is an attending physician, admitting physician, or the daily care provider (or resident).` `It may be that the admitting physician is different from either the attending or provider. If the admission to acure care does not meet UR criteria, it is important to track the admitting physician.` `The attending physician is the physician responsible for the care of the patient, more than one physician may be the attending.` `The provider is the physician directly providing patient care. In affiliated hospitals this can be a resident or intern who is not necessarily responsible (the attending is responsible).` `Because UR reviews are done every day, it is important to be able to accurately track attendings and providers related to care that does not meet critea.` SCREEN: `S DIC("S")="I $$DICS^IBTRE5(Y)"` EXPLANATION: `Only one admitting physician allowed.` CROSS-REFERENCE: `356.94^ADG2^MUMPS` `1)= S:X=3&($P(^IBT(356.94,DA,0),U,2))&($P(^(0),U,3)) ^IBT(356.94,"ADG",+$P(^(0),U,2),+$P(^(0),U,3),DA)=""` `2)= K ^IBT(356.94,"ADG",+$P(^IBT(356.94,DA,0),U,2),+$P(^(0),U,3),DA)` `Cross reference of all admitting provider entries by admission movement, by provider.` CROSS-REFERENCE: `356.94^ATP1^MUMPS` `1)= S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,"ATP",+$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.94,"ATP",+$P(^IBT(356.94,DA,0),U,2),X,DA)` `Cross reference of all inpatient provider entries by admission movement by type of provider.`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1352	Utilization Management Rollup	PROVIDER (.03). Access: Direct Global Read & w/Fileman TYPE PROVIDER (.04). Access: Direct Global Read & w/Fileman	The 'C' x-ref is used to retrieve patient providerinformation related to the PATIENT MOVEMENT of the patient.

External References

Name	Field # of Occurrence
^%DT	.01+1
^DIC	.02+1, .03+1
Y^DIQ	ID.02+1, ID.03+1
$$DTCHK^IBTRE5	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	ID.03+1
^DD(405	ID.02+1
^DGPM - [#405]	ID.02+1, IDWRITE+1
^DPT - [#2]	IDWRITE+1
^IBT(356.94 - [#356.94]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K) , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
^VA(200 - [#200]	ID.03+1

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, ID.03+1, IDWRITE+1, .02(XREF 2S), .02(XREF 3S), .02(XREF 4S), .03(XREF 2S), .03(XREF 3S), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
%I	ID.02+1!, ID.03+1!
>> C	ID.02+1, ID.03+1
>> DA	.01+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S) , .02(XREF 4K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S) , .04(XREF 2K)
DIC	ID.02+1, ID.03+1, .02+1!, .03+1!
DIC("S"	.02+1, .02SCR+1, .03+1, .03SCR+1, .04SCR+1*
>> DIE	.02+1, .03+1
U	ID.02+1, ID.03+1, IDWRITE+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03(XREF 2S) , .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K) , .02(XREF 4S), .02(XREF 4K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S) , .04(XREF 2S), .04(XREF 2K)
Y	ID.02+1, ID.03+1, IDWRITE+1~*, .01+1, .02+1, .03+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All