Global: ^IBT(356.91

FileMan FileNo	FileMan Filename	Package
356.91	INPATIENT PROCEDURE	Integrated Billing

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Integrated Billing	4	IBTRE4 IBTRE6 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) LAST EDITED: `SEP 01, 1993` DESCRIPTION: This is the procedure for this patient. 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)

LAST EDITED: SEP 01, 1993
DESCRIPTION:
```
This is the procedure for this patient.
```

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	.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	.02+1!*
DIC("S"	.02+1, .02SCR+1
>> DIE	.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(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~*, .02+1, .03+1

Customize PDF page

Package: Integrated Billing