STANDARD DATA DICTIONARY #351.71 -- IB DM EXTRACT DATA FILE 9/29/25 PAGE 1
STORED IN ^IBE(351.71, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains data collected via the Diagnostic Measures Extraction process. Within each entry is a series of DM reports from
which summary data has been collected on a monthly basis.
Per VHA directive 10-93-142, this file definition should not be modified.
CROSS
REFERENCED BY: STATUS(AC), STATUS(AD), MONTH/YEAR(B)
351.71,.01 MONTH/YEAR 0;1 DATE
INPUT TRANSFORM: S %DT="E,M",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1!($E(Y,6,7)'="00") X I $D(X) S DINUM=X
LAST EDITED: DEC 10, 2003
HELP-PROMPT: Enter the month/year corresponding to the extracted data. Future dates are not allowed.
DESCRIPTION:
This is the month/year corresponding to the extracted data.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 351.71^B
1)= S ^IBE(351.71,"B",$E(X,1,30),DA)=""
2)= K ^IBE(351.71,"B",$E(X,1,30),DA)
351.71,.02 STATUS 0;2 SET (Required)
'1' FOR ON STANDBY;
'2' FOR STARTED;
'3' FOR COMPLETED;
LAST EDITED: MAY 18, 1999
HELP-PROMPT: Enter the current extraction status for this entry.
DESCRIPTION:
This is the current status of the data extraction process for this file entry.
CROSS-REFERENCE: 351.71^AC
1)= S ^IBE(351.71,"AC",$E(X,1,30),DA)=""
2)= K ^IBE(351.71,"AC",$E(X,1,30),DA)
351.71,.03 START RUN DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 03, 1999
HELP-PROMPT: Enter the extraction start date for this entry.
DESCRIPTION:
This is the date the extraction process for this file entry started.
351.71,.04 END RUN DATE 0;4 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 03, 1999
HELP-PROMPT: Enter the extraction end date for this entry.
DESCRIPTION:
This is the date the extraction process for this file entry ended.
351.71,.05 EXTRACT MESSAGE SENT? 0;5 SET
'1' FOR YES;
LAST EDITED: NOV 04, 1999
DESCRIPTION: This field, if set to YES, means that a mail message containing the DM extract data for this entry
was transmitted to the FORUM mail group.
351.71,.06 MESSAGE NUMBER 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 04, 2001
HELP-PROMPT: Type a Number between 0 and 999999999999999, 0 Decimal Digits.
DESCRIPTION:
This is the number that identifies the mail message sent with the extracted information.
TECHNICAL DESCR:
This field is automatically stored by the Extract process (IBJDE).
351.71,1 REPORT 1;0 POINTER Multiple #351.711
351.711,.01 REPORT 0;1 POINTER TO IB DM EXTRACT REPORTS FILE (#351.7) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: MAR 07, 1999
HELP-PROMPT: Enter one of the extract reports corresponding to this entry.
DESCRIPTION:
This is the report where data is being extracted from.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 351.711^B
1)= S ^IBE(351.71,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^IBE(351.71,DA(1),1,"B",$E(X,1,30),DA)
351.711,.02 STATUS 0;2 SET (Required)
'1' FOR REPORT QUEUED;
'2' FOR EXTRACT STARTED;
'3' FOR EXTRACT COMPLETED;
LAST EDITED: MAY 18, 1999
HELP-PROMPT: Enter the current extraction status for this report.
DESCRIPTION:
This is the current status of the data extraction process for this report.
CROSS-REFERENCE: 351.71^AD
1)= S ^IBE(351.71,"AD",$E(X,1,30),DA(1),DA)=""
2)= K ^IBE(351.71,"AD",$E(X,1,30),DA(1),DA)
351.711,.03 START RUN DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 03, 1999
HELP-PROMPT: Enter the extraction start date for this report.
DESCRIPTION:
This is the date the extraction process for this report started.
351.711,.04 END RUN DATE 0;4 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 03, 1999
HELP-PROMPT: Enter the extraction end date for this report.
DESCRIPTION:
This is the date the extraction process for this report ended.
351.711,1 DATA ELEMENT 1;0 POINTER Multiple #351.7111
LAST EDITED: MAR 08, 1999
351.7111,.01 DATA ELEMENT 0;1 POINTER TO IB DM EXTRACT DATA ELEMENTS FILE (#351.701) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: MAR 17, 1999
HELP-PROMPT: Enter the data element/line item associated with this report.
DESCRIPTION:
This is the report's summary line item from which data is extracted.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 351.7111^B
1)= S ^IBE(351.71,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^IBE(351.71,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
351.7111,.02 DATA VALUE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 13, 1999
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION: This is the total value of the report's summary line item, which is taken from the report via
the extraction process.
FILES POINTED TO FIELDS
IB DM EXTRACT DATA ELEMENTS
(#351.701) DATA ELEMENT:DATA ELEMENT (#.01)
IB DM EXTRACT REPORTS (#351.7) REPORT:REPORT (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
IBJD DM REPT PRINT MAY 13, 1999@16:56 USER #0 @
IBJD DM V/P EXTRACTS MAR 17, 1999@12:42 USER #0 @
SORT TEMPLATE(S):
IBJD DM REPT SORT MAY 14, 1999@09:24 USER #0
SORT BY: MONTH// (User is asked range)
WITHIN MONTH, SORT BY: REPORT//
REPORT SUB-FIELD: STATUS// (User is asked range)
FORM(S)/BLOCK(S):