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 | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^IBT(356.9

Package: Integrated Billing

Global: ^IBT(356.9

Information

FileMan FileNo	FileMan Filename	Package
356.9	INPATIENT DIAGNOSIS	Integrated Billing

Description

This file is designed to hold all inpatient diagnoses. Per VHA Directive 10-93-142, this file definition should not be modified.

Directly Accessed By Routines, Total: 9

Package	Total	Routines
Integrated Billing	6	IBTRE3 IBTRE6 IBTRED1 IBTRV2 ^IBE(399.6 ^IBT(356.9
Utilization Management Rollup	1	IBQL356

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Integrated Billing	1	IBTRE3

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Integrated Billing	1	CLAIMS TRACKING(#356)[.3]

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
DRG Grouper	1	ICD DIAGNOSIS(#80)[.01]
Registration	1	PATIENT MOVEMENT(#405)[.02]

Fields, Total: 5

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO ICD DIAGNOSIS FILE (#80)	**********************REQUIRED FIELD********************** ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="I $$ICD9ACT^IBACSV(+Y,$P($G(^IBT(356.9,+$G(DA),0)),U,3))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `APR 21, 2003` DESCRIPTION: `This is the diagnosis for this patient for this episode of care.` SCREEN: `S DIC("S")="I $$ICD9ACT^IBACSV(+Y,$P($G(^IBT(356.9,+$G(DA),0)),U,3))"` EXPLANATION: `Only active diagnosis codes may be selected.` CROSS-REFERENCE: `356.9^B` `1)= S ^IBT(356.9,"B",$E(X,1,30),DA)=""` `2)= K ^IBT(356.9,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `356.9^ADG^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,4)=3&($P(^(0),U,2)) ^IBT(356.9,"ADG",+$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.9,"ADG",+$P(^IBT(356.9,DA,0),U,2),X,DA)` `Cross-reference of admitting diagnosis by admission movement.` CROSS-REFERENCE: `356.9^ADGPM^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,"ADGPM",+$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.9,"ADGPM",+$P(^IBT(356.9,DA,0),U,2),X,DA)` `Cross-reference of all diagnosis by admission movement`
.02	ADMISSION MOVEMENT	0;2	POINTER TO PATIENT MOVEMENT FILE (#405)	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: `SEP 01, 1993` DESCRIPTION: `This field should point to the admission movement of the inpatient episode that this diagnosis is for. For ASIH movements it should point to the admission in the acute setting.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=1"` EXPLANATION: `Must be an admission movement` CROSS-REFERENCE: `356.9^C` `1)= S ^IBT(356.9,"C",$E(X,1,30),DA)=""` `2)= K ^IBT(356.9,"C",$E(X,1,30),DA)` CROSS-REFERENCE: `356.9^APD^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,3) ^IBT(356.9,"APD",X,-$P(^(0),U,3),DA)=""` `2)= K ^IBT(356.9,"APD",X,-$P(^IBT(356.9,DA,0),U,3),DA)` `cross reference of all diagnoses by tracking id and inverse date` CROSS-REFERENCE: `356.9^ATP1^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,4) ^IBT(356.9,"ATP",X,$P(^(0),U,4),DA)=""` `2)= K ^IBT(356.9,"ATP",X,+$P(^IBT(356.9,DA,0),U,4),DA)` `Cross reference of primary diagnosis for a tracking entry so only one diagnosis can be primary` CROSS-REFERENCE: `356.9^ADG1^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,4)=3&(+^(0)) ^IBT(356.9,"ADG",X,+^(0),DA)=""` `2)= K ^IBT(356.9,"ADG",X,+^IBT(356.9,DA,0),DA)` `Cross-reference of admitting diagnosis by admission movement.` CROSS-REFERENCE: `356.9^ADGPM1^MUMPS` `1)= S:+^IBT(356.9,DA,0) ^IBT(356.9,"ADGPM",X,+^(0),DA)=""` `2)= K ^IBT(356.9,"ADGPM",X,+^IBT(356.9,DA,0),DA)` `Cross-reference of all diagnoses by admission movement.`
.03	ONSET DATE THIS VISIT	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X K:$G(X)+.9<+$G(^DGPM(+$P(^IBT(356.9,DA,0),U,2),0)) X` LAST EDITED: `SEP 02, 1993` HELP-PROMPT: `Dates must be during the admission.` DESCRIPTION: `This is the date of the onset of this diagnosis for this episode of care. If the diagnosis is for an admission then the date of onset should be within the dates of admission and discharge. If the diagnosis is for an` `outpatient visit then the date of onset should be the visit date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `356.9^D` `1)= S ^IBT(356.9,"D",$E(X,1,30),DA)=""` `2)= K ^IBT(356.9,"D",$E(X,1,30),DA)` CROSS-REFERENCE: `356.9^APD1^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,"APD",+$P(^(0),U,2),-X,DA)=""` `2)= K ^IBT(356,"APD",+$P(^IBT(356.9,DA,0),U,2),-X,DA)` `cross reference of all diagnoses by tracking id and inverse date.`
.04	TYPE	0;4	SET	'1' FOR PRIMARY; '2' FOR SECONDARY; '3' FOR ADMITTING; LAST EDITED: `SEP 01, 1993` DESCRIPTION: `Enter 'PRIMARY' if this is the primary diagnosis for this date, enter 'SECONDARY' if this is not the primary diagnosis for this date. Enter "ADMITTING" if this is the admitting diagnosis.` SCREEN: `S DIC("S")="I $$DICS^IBTRED1(Y)"` EXPLANATION: `Only one diagnosis can be primary or admitting diagnosis for an admission.` CROSS-REFERENCE: `356.9^ATP^MUMPS` `1)= S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,"ATP",$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.9,"ATP",+$P(^IBT(356.9,DA,0),U,2),X,DA)` `Cross reference of primary diagnosis for a tracking entry so only one diagnosis can be primary at a time.` CROSS-REFERENCE: `356.9^ADG2^MUMPS` `1)= S:X=3&($P(^IBT(356.9,DA,0),U,2))&(+^(0)) ^IBT(356.9,"ADG",+$P(^(0),U,2),+^(0),DA)=""` `2)= K ^IBT(356.9,"ADG",+$P(^IBT(356.9,DA,0),U,2),+^(0),DA)` `Cross-reference of admitting diagnosis by admission movement.`
.05	POA INDICATOR	0;5	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Insufficient Documentation; 'W' FOR Clinically Undetermined; LAST EDITED: `FEB 18, 2014` HELP-PROMPT: `Enter the value that correctly indicates if this condition was present at the time the patient was admitted.` DESCRIPTION: `The Present On Admission (POA) for the Inpatient Diagnosis indicates if this condition was present at the time the patient was admitted.` `One of the following values should be assigned in accordance with the official coding guidelines:` `Y = Present at the time of inpatient admission N = Not present at the time of inpatient admission U = Documentation is insufficient to determine if condition is present` `on admission W = Provider is unable to clinically determine whether condition was` `present on admission or not`

ICR, Total: 1

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1354	Utilization Management Rollup	DIAGNOSIS (.01). Access: Direct Global Read & w/Fileman	The 'ADG' x-ref is used to return the patientsdiagnosis.

External References

Name	Field # of Occurrence
^%DT	.03+1
^DIC	.01+1, .02+1

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .02(XREF 5S), .02(XREF 5K), .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
DIC	ID.04+1, .01+1!, .02+1!
DIC("S"	.01+1, .01SCR+1, .02+1, .02SCR+1, .04SCR+1*
>> DIE	.01+1, .02+1
U	ID.03+1, IDWRITE+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K) , .02(XREF 4S), .03+1, .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .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), .02(XREF 5S), .02(XREF 5K), .03+1*!, .03(XREF 1S) , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S)
Y	IDWRITE+1~*, .01+1, .02+1, .03+1

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