Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^ECX(727

Package: DSS Extracts

Global: ^ECX(727

Information

FileMan FileNo	FileMan Filename	Package
727	DSS EXTRACT LOG	DSS Extracts

Description

This file contains data about the extracts from DHCP packages. Each entry includes the date of the extract, the package for which the extract was run, the date range covered by the extract, and the number of records sent. Data is entered into this file by the extract routines at the time extracts are transmitted to the commercial software. Data in this file may be viewed by appropriate options within the DSS package. It is not intended that this file be read directly via VA FileMan and DATA IN THIS FILE MUST NEVER BE EDITED. Editing data in this file will severely compromise the integrity of all DSS applications.

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 30

Pointer To FileMan Files, Total: 3

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	RECORD NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 01, 1997` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `The record numbers will be sequential and be reused at some point in the future.` `UNEDITABLE` CROSS-REFERENCE: `727^B` `1)= S ^ECX(727,"B",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"B",$E(X,1,30),DA)`
1	EXTRACT DATE	0;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 19, 1991` DESCRIPTION: `The date the DSS extract was run.` `UNEDITABLE` CROSS-REFERENCE: `727^AC` `1)= S ^ECX(727,"AC",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"AC",$E(X,1,30),DA)`
2	TYPE	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 01, 1994` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `The type of extract that was run. Example: Admission for MAS Admission extract.` TECHNICAL DESCR: `Taken from the variable ECPACK used in the extract routines.` `UNEDITABLE` CROSS-REFERENCE: `727^AD` `1)= S ^ECX(727,"AD",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"AD",$E(X,1,30),DA)` CROSS-REFERENCE: `727^C` `1)= S ^ECX(727,"C",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"C",$E(X,1,30),DA)` CROSS-REFERENCE: `727^D^MUMPS` `1)= S ^ECX(727,"D",$TR(X,"zxcvbnmasdfghjklqwertyuiop","ZXCVBNMASDFGHJKLQWERTYUIOP"),DA)=""` `2)= K ^ECX(727,"D",$TR(X,"zxcvbnmasdfghjklqwertyuiop","ZXCVBNMASDFGHJKLQWERTYUIOP"),DA)` `Upper case for lookup`
3	START DATE/TIME	0;4	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 26, 2005` DESCRIPTION: `The beginning date covered by the extract.` `UNEDITABLE` CROSS-REFERENCE: `727^AE` `1)= S ^ECX(727,"AE",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"AE",$E(X,1,30),DA)` `Cross reference of start/date and time.`
4	END DATE/TIME	0;5	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 19, 1991` DESCRIPTION: `The ending date covered by the extract.` `UNEDITABLE`
5	NUMBER OF RECORDS	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 19, 1991` HELP-PROMPT: `Type a Number between 0 and 100000, 0 Decimal Digits` DESCRIPTION: `The number of records included in this extract.` `UNEDITABLE`
6	HEADER FOR MESSAGE	HEAD;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 01, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `The header for the extract run. Example: ADMISSIONS/DEMOG for the MAS Admissions extract.` `UNEDITABLE` CROSS-REFERENCE: `727^E` `1)= S ^ECX(727,"E",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"E",$E(X,1,30),DA)`
7	FILE NUMBER	FILE;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<727)!(X?.E1"."5N.N) X` LAST EDITED: `NOV 12, 1991` HELP-PROMPT: `Type a Number between 727 and 999, 4 Decimal Digits` DESCRIPTION: `An indicator (pointer) of the file in ECX in which the data for this extract can be found.` `UNEDITABLE`
8	GROUP	GRP;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 12, 1991` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `The mail group to which this extract summary message was sent. The actual mail group name will be "DSS-"group name. Example: ADM for the mail group DSS-ADMS for the MAS Admission extract.` `UNEDITABLE`
9	PURGED	PURG;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 16, 1996` DESCRIPTION: `The date on which the data for this extract was deleted from the local extract file.` TECHNICAL DESCR: `This date is set when data is deleted from the corresponding local extract file.` `UNEDITABLE`
10	OTHER IFCAP EXTRACT	IFCAP;1	POINTER TO DSS EXTRACT LOG FILE (#727)	DSS EXTRACT LOG(#727) LAST EDITED: `NOV 02, 1992` DESCRIPTION: `The combined IFCAP extract consists of two separate extracts, the detailed extract and the summary extract. This field is used to link the two so that they can be purged simultaneously. Like all fields in this file, it` `is set by the extract routines and should not be edited.` TECHNICAL DESCR: `Pointer to the DSS EXTRACT LOG file (#727).`
11	QUEUED	Q;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 05, 1993` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field will contain the number of the task (ZTSK) for this queued transmission. It is set by the transmit routine (ECXTRANS) when the job is queued and cleared by the same routine when the transmission is completed.` `This field should not be edited directly via VA FileMan.` TECHNICAL DESCR: `The variable ZTSK is set into this field by line SET^ECXTRANS when the job is queued to run and cleared by line CLEAN^ECXTRANS when the job completes. It is used to prevent the user from queuing the same transmission` `twice. This field should not be edited via VA FileMan.`
12	LOCAL EXTRACT	L;1	SET	'L' FOR LOCAL; LAST EDITED: `AUG 05, 1993` DESCRIPTION: `This field will be set for any extract designed to be transmitted to some local non-DHCP database rather than to the commercial vendor database. If this field is set, this extract can not be chosen for transmission to the` `commercial vendor.` TECHNICAL DESCR: `This field is used in a DIC("S") screen in routine ECXTRANS to prevent an extract intended for local use to be transmitted to the commercial vendor.` `UNEDITABLE`
13	VERSION	VER;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `JUL 31, 1995` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This field contains a version identifier to be used as part of the header in transmissions to Austin. It can then be used by the SAS programs at Austin to change the processing logic as versions change.` TECHNICAL DESCR: `Picked up in line START+2^ECXTRANS and padded to a length of 3 and tacked onto the header at START+7`
14	EXTRACT LOGIC	VER;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<4)!'(X?4N.1N.1A.1" ") X` LAST EDITED: `JUL 10, 2003` HELP-PROMPT: `Enter the fiscal year extract logic used` DESCRIPTION: `Fiscal year extract logic used when extracting the data. Format of is the extract year + an optional revision denotion (ex: "2004", "2004A", "20041"). Note that "2004" and "2004 " are considered the same value.`
15	DIVISION	DIV;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `JUL 15, 1998` HELP-PROMPT: `Enter the division of the user that completed the extract.` DESCRIPTION: `This field indicates the division of the user that generated the extract. This field will also indicate the division from which information was extracted for prosthetics extracts.` TECHNICAL DESCR: `ECXTRAC defines the value of this field. To address the divisional considerations at some hospitals with prosthetic services, this field was added and will indicated the division for which the prosthetic extract contains` `information.` `SOURCE OF DATA: The DSS Extract software (ECXTRAC).`
16	USER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 20, 2005` DESCRIPTION: `Internal Entry Number (IEN) from the New Person File (#200) of the user that ran the specified extract.`
300	TRANSMITTED	TR;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 05, 1993` DESCRIPTION: `This field is set when the entries for this file are transmitted to the commercial vendor. This field and the cross reference are essential for managing and purging data in this file.` TECHNICAL DESCR: `The date when these file entries were loaded into a mail message for transmission, set by the transmit routine.` `UNEDITABLE` CROSS-REFERENCE: `727^AT` `1)= S ^ECX(727,"AT",$E(X,1,30),DA)=""` `2)= K ^ECX(727,"AT",$E(X,1,30),DA)` `3)= This cross reference is essental for managing and purging data in several files. DO NOT DELETE.`
301	MESSAGE NUMBER	1;0	Multiple #727.0301	727.0301 DESCRIPTION: `This multiple holds the message numbers sent to the Austin Automation Center for this extract.`

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All