quote:

-*
JOIN CLEAR *
JOIN BLAH IN BLAH-BLAH TO SEED IN APPLES AS J1
JOIN ... IN FRUITY TO PITS IN CHERRIES AS J2
-RUN
-*
TABLE FILE HSCLARITY_ADT
PRINT
PAT_ID
PAT_ENC_CSN_ID AS 'CSN,ID'
BILL_NUM
EVENT_ID AS 'EVENT'
HOSP_ADMSN_TIME AS 'ADMIT_TIME'
EFFECTIVE_TIME AS 'EFFECT_TIME'
DEPARTMENT_ID AS 'DEPT_ID'
COMPUTE XDEPT/A20 = GETTOK(DEPARTMENT_NAME,254,1,'-',20,XDEPT); AS 'UNIT'
XFER_EVENT_ID AS 'XFER_OUT'
XFER_IN_EVENT_ID AS 'XFER_IN'
EVENT_TYPE_C AS 'EVENT_TY'
EVENT_SUBTYPE_C AS 'EVENT_STY'
-*
BY PAT_CONTACT_MPI_NO AS 'MRN' SKIP-LINE
BY HOSP_ADMSN_TIME NOPRINT
BY EFFECTIVE_TIME NOPRINT
WHERE BILL_NUM EQ '10037058';
WHERE EVENT_TYPE_C EQ '1' OR '2' OR '3' OR '4';
WHERE EVENT_SUBTYPE_C NE '2';
WHERE EFFECTIVE_TIME GE DT(&BEG1 00:00:00) AND EFFECTIVE_TIME LE DT(&END1 23:59:59);
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE HOLD AS FX1
END
-RUN
-*
?FF FX1
-RUN

quote:

DEFINE FILE FX1
XFER_IN/HYYMDS MISSING ON = IF (EVENT NE LAST EVENT)
AND EVENT EQ LAST XFER_IN
AND EVENT_TY EQ '3'
THEN EFFECT_TIME
ELSE MISSING;
END
-*
TABLE FILE FX1
HEADING CENTER
"TEST THE TIME STAMPS"
PRINT
XFER_IN
EFFECT_TIME
UNIT
BY MRN
END
-RUN

quote:

WHERE EFFECTIVE_TIME GE DT(&BEG1 00:00:00) AND EFFECTIVE_TIME LE DT(&END1 23:59:59);

quote:

WHERE EFFECTIVE_TIME GE DT(20090528 00:00:00) AND EFFECTIVE_TIME LE DT(20090528 23:59:59);

DEFINE FILE CAR
XFER_IN/HYYMDS MISSING ON = 
IF COUNTRY EQ 'ENGLAND' THEN DT(2009/12/01 10:23:56.000) 
ELSE MISSING;
END

TABLE FILE CAR
PRINT
CAR
XFER_IN
WHERE XFER_IN GT DT(2009/10/10 11:22:03.000)
END

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

SET NODATA=' ',ASNAMES = ON
-*
-SET &BEG1 = '20090528';
-SET &ZBEG1 = EDIT(20090528,'9999/99/99');
-*
-SET &END1 = '20090528';
-SET &ZEND1 = EDIT(20090528,'9999/99/99');
-*
JOIN CLEAR *
JOIN PAT_ENC_CSN_ID IN HSCLARITY_ADT TO PAT_ENC_CSN_ID IN HSPAT_ENC_HSP
JOIN DEPARTMENT_ID IN HSCLARITY_ADT TO DEPARTMENT_ID IN HSCLARITY_DEP AS J1
JOIN BED_ID IN HSCLARITY_ADT TO BED_ID IN HSCLARITY_BED AS J2
-RUN
-*
TABLE FILE HSCLARITY_ADT
HEADING CENTER
" All Patients in PACU "
PRINT
PAT_ID
PAT_ENC_CSN_ID AS 'CSN,ID'
BILL_NUM
EVENT_ID AS 'EVENT'
HOSP_ADMSN_TIME AS 'ADMIT_TIME'
EFFECTIVE_TIME
DEPARTMENT_ID AS 'DEPT_ID'
COMPUTE XDEPT/A20 = GETTOK(DEPARTMENT_NAME,254,1,'-',20,XDEPT); AS 'UNIT'
XFER_EVENT_ID AS 'XFER_OUT'
XFER_IN_EVENT_ID AS 'XFER_IN'
EVENT_TYPE_C AS 'EVENT_TY'
EVENT_SUBTYPE_C AS 'EVENT_STY'
-*
BY PAT_CONTACT_MPI_NO AS 'MRN' SKIP-LINE
BY HOSP_ADMSN_TIME NOPRINT
BY EFFECTIVE_TIME NOPRINT
WHERE BILL_NUM EQ '10037058';
-*OR '10039594';
WHERE EVENT_TYPE_C EQ '1' OR '2' OR '3' OR '4';
WHERE EVENT_SUBTYPE_C NE '2';
WHERE EFFECTIVE_TIME GE DT(2009/05/28 00:00:00) AND EFFECTIVE_TIME LE DT(2009/05/28 23:59:59);
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE HOLD AS FX1
END
-RUN
0 NUMBER OF RECORDS IN TABLE= 5 LINES= 5
-*

quote:

DEFINE FILE FX1
IN_TIME/HYYMDS MISSING ON = IF (EVENT NE LAST EVENT) AND (EVENT EQ LAST XFER_IN) AND (EVENT_TY EQ '3')
THEN EFFECTIVE_TIME
ELSE MISSING;
-GOTO NOTZ
-NOTZ
END
-*
TABLE FILE FX1
HEADING CENTER
"TEST THE TIME STAMPS"
PRINT
EVENT
IN_TIME
-*OUT_TIME
EFFECTIVE_TIME
ADMIT_TIME
XFER_IN
XFER_OUT
EVENT_TY
BY UNIT
BY MRN
END
-RUN

0 ERROR AT OR NEAR LINE 61 IN PROCEDURE ADHOCRQ FOCEXEC *
(FOC36346) INCORRECT USE OF DATE-TIME FIELD OR CONSTANT
BYPASSING TO END OF COMMAND
0 ERROR AT OR NEAR LINE 77 IN PROCEDURE ADHOCRQ FOCEXEC *
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: IN_TIME
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT
-EXIT

quote:

-SET &BEG1 = '20090528';
-SET &ZBEG1 = EDIT(&BEG1,'9999-99-99');
-*
-SET &END1 = '20090528';
-SET &ZEND1 = EDIT(&END1,'9999-99-99');

CHECK/A1= IF (EVENT NE LAST EVENT) AND (EVENT EQ LAST XFER_IN) AND (EVENT_TY EQ 3) THEN 'E' ELSE 'M';
IN_TIME/HYYMDS MISSING ON = IF CHECK EQ 'E' THEN EFFECTIVE_TIME ELSE MISSING;

GamP

---

- Using AS 8.2.01 on Windows 10 - IE11.
	in Focus since 1988

quote:

I have not figured out how to do that, or I would love to