Global: ^IBT(356.91

FileMan FileNo	FileMan Filename	Package
356.91	INPATIENT PROCEDURE	Integrated Billing

Directly Accessed By Routines, Total: 5

Package	Total	Routines
Integrated Billing	5	IBTRE6 ^IBE(399.6 IBTRE4 IBTRV2 ^IBT(356.91

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Integrated Billing	1	IBTRE4

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
DRG Grouper	1	ICD OPERATION/PROCEDURE(#80.1)[.01]
Registration	1	PATIENT MOVEMENT(#405)[.02]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROCEDURE	0;1	POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)	**********************REQUIRED FIELD********************** ICD OPERATION/PROCEDURE(#80.1) INPUT TRANSFORM: `S DIC("S")="I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$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 procedure for this patient.` SCREEN: `S DIC("S")="I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$G(DA),0)),U,3))"` EXPLANATION: `Only active operation/procedure codes may be selected.` CROSS-REFERENCE: `356.91^B` `1)= S ^IBT(356.91,"B",$E(X,1,30),DA)=""` `2)= K ^IBT(356.91,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `356.91^ADGPM^MUMPS` `1)= S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,"ADGPM",+$P(^(0),U,2),X,DA)=""` `2)= K ^IBT(356.91,+$P(^IBT(356.91,DA,0),U,2),X,DA)` `Cross-reference of procedures by patient 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 is the pointer to the admission movement that this is associated with.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=1"` EXPLANATION: `Must be an admission movement` CROSS-REFERENCE: `356.91^C` `1)= S ^IBT(356.91,"C",$E(X,1,30),DA)=""` `2)= K ^IBT(356.91,"C",$E(X,1,30),DA)` CROSS-REFERENCE: `356.91^APP^MUMPS` `1)= S:$P(^IBT(356.91,DA,0),U,3) ^IBT(356.91,"APP",X,-$P(^(0),U,3),DA)=""` `2)= K ^IBT(356.91,"APP",X,-$P(^IBT(356.91,DA,0),U,3),DA)` `Cross reference of all procedures by tracking ID and procedure date.` CROSS-REFERENCE: `356.91^ADGPM1^MUMPS` `1)= S:+^IBT(356.91,DA,0) ^IBT(356.91,"ADGPM",X,+^(0),DA)=""` `2)= K ^IBT(356.91,"ADGPM",X,+^IBT(356.91,DA,0),DA)` `Cross-reference of all procedures by patient movement`
.03	PROCEDURE DATE	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.91,DA,0),U,2),0)) X` LAST EDITED: `SEP 02, 1993` HELP-PROMPT: `Dates must be during admission.` DESCRIPTION: `This is the date that the procedure was performed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `356.91^D` `1)= S ^IBT(356.91,"D",$E(X,1,30),DA)=""` `2)= K ^IBT(356.91,"D",$E(X,1,30),DA)` CROSS-REFERENCE: `356.91^APP1^MUMPS` `1)= S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,"APP",$P(^(0),U,2),-X,DA)=""` `2)= K ^IBT(356.91,"APP",+$P(^IBT(356.91,DA,0),U,2),-X,DA)` `Cross reference of all procedures by tracking ID and procedure date.`

.01

PROCEDURE

0;1

POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)

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

ICD OPERATION/PROCEDURE(#80.1)

INPUT TRANSFORM: S DIC("S")="I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$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 procedure for this patient.
SCREEN: S DIC("S")="I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$G(DA),0)),U,3))"
EXPLANATION: Only active operation/procedure codes may be selected.
CROSS-REFERENCE: 356.91^B
1)= S ^IBT(356.91,"B",$E(X,1,30),DA)=""
2)= K ^IBT(356.91,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 356.91^ADGPM^MUMPS
1)= S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,"ADGPM",+$P(^(0),U,2),X,DA)=""
2)= K ^IBT(356.91,+$P(^IBT(356.91,DA,0),U,2),X,DA)
Cross-reference of procedures by patient 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 is the pointer to the admission movement that this is associated with.
SCREEN: S DIC("S")="I $P(^(0),U,2)=1"
EXPLANATION: Must be an admission movement
CROSS-REFERENCE: 356.91^C
1)= S ^IBT(356.91,"C",$E(X,1,30),DA)=""
2)= K ^IBT(356.91,"C",$E(X,1,30),DA)
CROSS-REFERENCE: 356.91^APP^MUMPS
1)= S:$P(^IBT(356.91,DA,0),U,3) ^IBT(356.91,"APP",X,-$P(^(0),U,3),DA)=""
2)= K ^IBT(356.91,"APP",X,-$P(^IBT(356.91,DA,0),U,3),DA)
Cross reference of all procedures by tracking ID and procedure date.
CROSS-REFERENCE: 356.91^ADGPM1^MUMPS
1)= S:+^IBT(356.91,DA,0) ^IBT(356.91,"ADGPM",X,+^(0),DA)=""
2)= K ^IBT(356.91,"ADGPM",X,+^IBT(356.91,DA,0),DA)
Cross-reference of all procedures by patient movement

.03

PROCEDURE DATE

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.91,DA,0),U,2),0)) X
LAST EDITED: SEP 02, 1993
HELP-PROMPT: Dates must be during admission.
DESCRIPTION:
This is the date that the procedure was performed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 356.91^D
1)= S ^IBT(356.91,"D",$E(X,1,30),DA)=""
2)= K ^IBT(356.91,"D",$E(X,1,30),DA)
CROSS-REFERENCE: 356.91^APP1^MUMPS
1)= S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,"APP",$P(^(0),U,2),-X,DA)=""
2)= K ^IBT(356.91,"APP",+$P(^IBT(356.91,DA,0),U,2),-X,DA)
Cross reference of all procedures by tracking ID and procedure date.

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.91 - [#356.91]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K) , .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)

Naked Globals

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

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), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K) , .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
DIC	.01+1!, .02+1!
DIC("S"	.01+1, .01SCR+1, .02+1, .02SCR+1
>> DIE	.01+1, .02+1
U	ID.03+1, IDWRITE+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .03+1, .03(XREF 2S), .03(XREF 2K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .02(XREF 3S), .02(XREF 3K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
Y	IDWRITE+1~*, .01+1, .02+1, .03+1

Customize PDF page

Package: Integrated Billing