/* SHORT TITLE: Patient Quest-Inpatient Stays, T1-T6 */ PROC FORMAT ; VALUE REC___F 01 = 'NUMBER ' ; VALUE $SFORM_F 'A' = 'TIME 1 ADULT QUE' 'B' = 'TIME 2 ADULT QUE' 'C' = 'TIME 3 ADULT QUE' 'G' = 'TIME 4 ADULT QUE' 'H' = 'TIME 5 ADULT QUE' 'I' = 'TIME 6 ADULT QUE' 'D' = 'TIME 1 PEDIATRIC' 'E' = 'TIME 2 PEDIATRIC' 'F' = 'TIME 3 PEDIATRIC' 'J' = 'TIME 4 PEDIATRIC' 'K' = 'TIME 5 PEDIATRIC' 'L' = 'TIME 6 PEDIATRIC' ; VALUE $SFPARTF 'C1' = 'INPATIENT STAY ' ; VALUE $PROVIDF '9999997' = 'REFUSED ' '9999998' = 'DK ' '9999999' = 'NOT ASCERTAINED ' ; VALUE SRENDMF 95 = 'STILL IN HOSPITA' 97 = 'REFUSED ' 98 = 'DK ' 99 = 'NOT ASCERTAINED ' ; VALUE $HSPNITF '000' = 'NONE ' '997' = 'REFUSED ' '998' = 'DK ' '999' = 'NOT ASCERTAINED ' ; VALUE $SREASOF '01' = 'TREATMENT OF MED' '02' = 'SPECIAL DIAGNOST' '03' = 'OPERATION OR SUR' '04' = 'TO HAVE A BABY ' '05' = 'OBSERVATION ' '91' = 'OTHER SPECIFIED ' '97' = 'REFUSED ' '98' = 'DK ' '99' = 'NOT ASCERTAINED ' ; VALUE $CONCD1F '99997' = 'REFUSED ' '99998' = 'DK ' '99999' = 'NOT ASCERTAINED ' ; VALUE $SRE_DOF '000000' = 'NOTHING ' '999997' = 'REFUSED ' '999998' = 'DK ' '999999' = 'NOT ASCERTAINED ' ; VALUE $SMELSPF '1' = 'YES ' '2' = 'NO ' '7' = 'REFUSED ' '8' = 'DK ' '9' = 'NOT ASCERTAINED ' ; VALUE $SRE_CAF '1' = 'CIRCLED ' '2' = 'NOT CIRCLED ' '7' = 'REFUSED ' '8' = 'DK ' '9' = 'NOT ASCERTAINED ' ; VALUE $SRE_EOF '01' = 'RESEARCH STUDY ' '03' = 'FLAT FEE ' '05' = 'GAY AIDS TASK FO' '14' = 'FAMILY MEMBER/FR' '29' = 'COMMUNITY HEALTH' '46' = 'PROVIDER ' '47' = 'PRIVATE CHARITY ' '50' = 'DRUG COMPANY ' '91' = 'OTHER SPECIFIED ' '97' = 'REFUSED ' '98' = 'DK ' '99' = 'NOT ASCERTAINED ' ; VALUE $SRE_NOF '01' = 'FREE FROM PROVID' '02' = 'PAID IN FULL ' '03' = 'CAN''T AFFORD TO' '05' = 'RESEARCH STUDY ' '06' = 'GOVT AGENCY/GOVT' '18' = 'INCLUDED IN OTHE' '91' = 'OTHER SPECIFIED ' '97' = 'REFUSED ' '98' = 'DK ' '99' = 'NOT ASCERTAINED ' ; VALUE $ICTMFLF 'ABCGHI' = 'SFORMS OF CONTIN' 'DEFJKL' = 'SFORMS OF CONTIN' ; VALUE $INSURFF '1' = 'SOP DISCREPANT W' ; DATA SYSUT2 ; INFILE SYSUT1 END = EOF ; /*****************************************************************************/ /* */ /* GENSAS run of 06/27/1994 at 22:25:15 */ /* */ /*****************************************************************************/ INPUT CRDTYP 010-011 @; IF CRDTYP = 01 THEN DO ; LINK CRD01; OUTPUT; END ; ELSE DO ; PUT 'INVALID CRDTYP : ' CRDTYP = ; INPUT ; /* Release input line */ END ; RETURN; FORMAT REC REC___F. SFORM $SFORM_F. SFPART $SFPARTF. PROVID $PROVIDF. SRENDMO SRENDMF. SRENDDY SRENDMF. SRENDYR SRENDMF. HSPNIT $HSPNITF. SREASON1 $SREASOF. CONCD1 $CONCD1F. PROCCD1 $CONCD1F. SRE_DOL $SRE_DOF. SMELSPY $SMELSPF. SRE_CAID $SRE_CAF. SRE_PUB $SRE_CAF. SRE_PRVI $SRE_CAF. SRE_CARE $SRE_CAF. SRE_OTHR $SRE_CAF. SRE_EOS $SRE_EOF. SRE_NOPY $SRE_NOF. SBPS $SMELSPF. ICTMFLG $ICTMFLF. INSURFLG $INSURFF. ; LABEL /*****************************************************************************/ /* */ /* Begin Labels for Card 01 */ /* */ /*****************************************************************************/ PATID = '~PATIENT ID' REC = '~RECORD NUMBER' SSUBREC = '~SUBRECORD NUMBER' SFORM = '~QUESTIONNAIRE TYPE' SFPART = '~QUESTIONNAIRE QUESTION' PROVID = '~WHAT IS THE NAME, ADDRESS AND TELEPHONE' SRBEGMO = '~ALWAYS BLANK' SRBEGDY = '~ALWAYS BLANK' SRBEGYR = '~ALWAYS BLANK' SRENDMO = '~MONTH OF DISCHARGE' SRENDDY = '~DAY OF DISCHARGE' SRENDYR = '~YEAR OF DISCHARGE' HSPNIT = '~HOW MANY NIGHTS WERE YOU IN THE' SREASON1 = '~WHAT WAS THE MAIN REASON YOU ENTERED' SREASON2 = '~ALWAYS BLANK' SREASON3 = '~ALWAYS BLANK' SREASON4 = '~ALWAYS BLANK' CONCD1 = '~CONDITION 1\' CONCD2 = '~CONDITION 2\' PROCCD1 = '~OPERATION/SURGICAL PROCEDURE 1\' PROCCD2 = '~OPERATION/SURGICAL PROCEDURE 2\' SHH_MED = '~ALWAYS BLANK' SHH_PER = '~ALWAYS BLANK' SHH_HOUS = '~ALWAYS BLANK' SHH_COUN = '~ALWAYS BLANK' SHH_MEAL = '~ALWAYS BLANK' SHH_OTH = '~ALWAYS BLANK' OSCODE = '~ALWAYS BLANK' SDRUGCD = '~ALWAYS BLANK' SRE_EVNT = '~ALWAYS BLANK' HRDYWK = '~ALWAYS BLANK' SRE_DOL = '~HOW MUCH DID YOU OR WILL YOU PAY FOR' SRE_UC = '~ALWAYS BLANK' SMELSPY = '~IS SOMEONE ELSE PAYING (AN ADDITIONAL' SRE_CAID = '~MEDICAID' SRE_PUB = '~OTHER PUBLIC ASSISTANCE' SRE_PRVI = '~PRIVATE INSURANCE' SRE_CARE = '~MEDICARE' SRE_RES = '~ALWAYS BLANK' SRE_OTHR = '~OTHER SPECIFIED' SRE_EOS = '~OTHER SPECIFIED CODE' SRE_NOPY = '~WHY WAS THERE NO (ADDITIONAL) PAYMENT?' SBPS = '~WERE THERE ANY MEDICAL OR OUTSIDE' SHSTAYFG = '~UNIQUE STAY FLAG (DERIVED)\' ICTMFLG = '~CONTINUOUS INTERVIEW PERIODS OF' ANOSTYF1 = '~FIRST NURSING HOME STAY NUMBER THAT' ANOSTYF2 = '~SECOND NURSING HOME STAY NUMBER THAT' AGE = '~ALWAYS BLANK' EMPYD = '~ALWAYS BLANK' HRSEPM = '~ALWAYS BLANK' RELAT = '~ALWAYS BLANK' INSURFLG = '~SOURCE OF PAYMENT FOR EVENT DISCREPANT' ; RETURN; /*****************************************************************************/ /* */ /* Input statement for Card 01 */ /* */ /*****************************************************************************/ CRD01 : INPUT PATID 001-009 REC 010-011 SSUBREC 012-013 SFORM $ 014 SFPART $ 015-016 PROVID $ 017-023 SRBEGMO 024-025 SRBEGDY 026-027 SRBEGYR 028-029 SRENDMO 030-031 SRENDDY 032-033 SRENDYR 034-035 HSPNIT $ 036-038 SREASON1 $ 039-040 SREASON2 $ 041-042 SREASON3 $ 043-044 SREASON4 $ 045-046 CONCD1 $ 047-051 CONCD2 $ 052-056 PROCCD1 $ 057-061 PROCCD2 $ 062-066 SHH_MED $ 067 SHH_PER $ 068 SHH_HOUS $ 069 SHH_COUN $ 070 SHH_MEAL $ 071 SHH_OTH $ 072 OSCODE $ 073-074 SDRUGCD $ 075-078 SRE_EVNT $ 079-084 HRDYWK $ 085-087 SRE_DOL $ 088-093 SRE_UC $ 094 SMELSPY $ 095 SRE_CAID $ 096 SRE_PUB $ 097 SRE_PRVI $ 098 SRE_CARE $ 099 SRE_RES $ 100 SRE_OTHR $ 101 SRE_EOS $ 102-103 SRE_NOPY $ 104-105 SBPS $ 106 SHSTAYFG $ 107-110 ICTMFLG $ 111-116 ANOSTYF1 $ 117-120 ANOSTYF2 $ 121-124 AGE $ 125-126 EMPYD $ 127 HRSEPM $ 128-130 RELAT $ 131-132 INSURFLG $ 133 ; RETURN; ; PROC FREQ ; TABLES PATID REC SSUBREC SFORM SFPART PROVID SRBEGMO SRBEGDY SRBEGYR SRENDMO SRENDDY SRENDYR HSPNIT SREASON1 SREASON2 SREASON3 SREASON4 CONCD1 CONCD2 PROCCD1 PROCCD2 SHH_MED SHH_PER SHH_HOUS SHH_COUN SHH_MEAL SHH_OTH OSCODE SDRUGCD SRE_EVNT HRDYWK SRE_DOL SRE_UC SMELSPY SRE_CAID SRE_PUB SRE_PRVI SRE_CARE SRE_RES SRE_OTHR SRE_EOS SRE_NOPY SBPS SHSTAYFG ICTMFLG ANOSTYF1 ANOSTYF2 AGE EMPYD HRSEPM RELAT INSURFLG ;