STANDARD DATA DICTIONARY #409.39 -- EWL CLEAN-UP FILE 6/27/25 PAGE 1 STORED IN ^SDWL(409.39, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- DD ACCESS: @ RD ACCESS: @ WR ACCESS: @ DEL ACCESS: @ LAYGO ACCESS: @ AUDIT ACCESS: @ CROSS REFERENCED BY: PATIENT(B) 409.39,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required) LAST EDITED: AUG 31, 2007 DESCRIPTION: Pointer to the PATIENT file (#2). CROSS-REFERENCE: 409.39^B 1)= S ^SDWL(409.39,"B",$E(X,1,30),DA)="" 2)= K ^SDWL(409.39,"B",$E(X,1,30),DA) 409.39,1 TREATING FACILITY CAL 0;2 SET 'N' FOR NEW; 'E' FOR ESTABLISHED; 'P' FOR PRIOR; 'U' FOR UNKNOWN; LAST EDITED: AUG 10, 2007 DESCRIPTION: This field stores the calculation computed for the ORGINATION DATE in the EWL PATIENT file (#409.3) and a valid date, (if found) in the TREATING FACILITY FILE (#391.91). 409.39,2 ENROLL API CAL 0;3 SET 'N' FOR NEW; 'E' FOR EST; 'P' FOR PRIOR; 'U' FOR UNKNOWN; LAST EDITED: AUG 10, 2007 DESCRIPTION: This field contains the result of the ENROLLMENT API ($$ENROLL^EASWTAPI) computation. 409.39,3 VSSC DATA CAL 0;4 SET 'N' FOR NEW; 'E' FOR EST; 'P' FOR PRIOR; 'U' FOR UNKNOWN; LAST EDITED: AUG 10, 2007 DESCRIPTION: This field contain the computation computed from the VSSC data import file. 409.39,4 CURRENT CAL EWL FILE 0;5 SET 'N' FOR NEW; 'E' FOR EST; 'P' FOR PRIOR; 'U' FOR UNKNOWN; LAST EDITED: AUG 10, 2007 DESCRIPTION: This field contains the extracted EWL ENROLLEE STATUS from the EWL PATIENT file (409.3). 409.39,5 TF DATE USED 0;6 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 10, 2007 DESCRIPTION: Date used from the TREATING FACILITY file (#391.91) to determine the TREATING FACILITY calculation. 409.39,6 ENROLLEE API DATE USED 0;7 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 10, 2007 DESCRIPTION: Date used from the ENROLLMENT API to determine the EWL ENROLLEE STATUS. 409.39,7 VSSC DATE USED 0;8 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 10, 2007 DESCRIPTION: Date used from the VSSC to determine the EWL ENROLLEE STATUS. 409.39,8 EWL ORIG DATE 0;9 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 10, 2007 DESCRIPTION: Date extracted from the EWL PATIENT FILE (409.3) ORIGINATION DATE. 409.39,8.1 NEW CAL STATUS 0;11 SET 'N' FOR NEW; 'U' FOR UNDETERMINED; 'P' FOR PRIOR; 'E' FOR ESTABLISHED; LAST EDITED: AUG 10, 2007 DESCRIPTION: This field contains the new calculated EWL ENROLLEE STATUS. 409.39,9 EWL IEN 0;10 NUMBER INPUT TRANSFORM: K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: AUG 10, 2007 HELP-PROMPT: Type a Number between 0 and 999999999999, 0 Decimal Digits DESCRIPTION: This field contains the internal IEN of the EWL PATIENT file (409.3). FILES POINTED TO FIELDS PATIENT (#2) PATIENT (#.01) INPUT TEMPLATE(S): PRINT TEMPLATE(S): PATCH 486 PRINT TEMPLATE AUG 10, 2007@12:23 USER #0 (S/C) EWL Enrolle Status Clean-up Report PATCH 525 PRINT TEMPLATE AUG 10, 2007@12:23 USER #0 (S/C) EWL Enrollee Status Clean-up Report SORT TEMPLATE(S): PATCH 486 SORT TEMPLATE AUG 10, 2007@11:02 USER #0 SORT BY: ]NUMBER// (NUMBER not null) Sort template for the EWL Enrollee Clean-up report. PATCH 525 SORT TEMPLATE AUG 10, 2007@11:02 USER #0 SORT BY: ]NUMBER// (NUMBER not null) Sort template for the EWL Enrollee Status Clean-up report. FORM(S)/BLOCK(S):