STANDARD DATA DICTIONARY #356.91 -- INPATIENT PROCEDURE FILE 9/29/25 PAGE 1
STORED IN ^IBT(356.91, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds inpatient procedures.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PROCEDURE DATE (#.03)[R]
"WRITE": N Y S Y=$G(^(0)) W " ",$P($G(^DPT(+$P($G(^DGPM(+$P(Y,U,2),0)),U,3),0)),U)
CROSS
REFERENCED BY: PROCEDURE(ADGPM), ADMISSION MOVEMENT(ADGPM1), ADMISSION MOVEMENT(APP), PROCEDURE DATE(APP1), PROCEDURE(B),
ADMISSION MOVEMENT(C), PROCEDURE DATE(D)
356.91,.01 PROCEDURE 0;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) (Required)
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
356.91,.02 ADMISSION MOVEMENT 0;2 POINTER TO PATIENT MOVEMENT FILE (#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
356.91,.03 PROCEDURE DATE 0;3 DATE (Required)
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.
FILES POINTED TO FIELDS
ICD OPERATION/PROCEDURE (#80.1) PROCEDURE (#.01)
PATIENT MOVEMENT (#405) ADMISSION MOVEMENT (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):