/* SHORT TITLE: Patient Quest-Dental, T1-T6 */
PROC FORMAT
;
VALUE REC01_F
01 = 'RECORD 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
'I1' = 'DENTAL VISITS '
;
VALUE VISITMF
97 = 'REFUSED '
98 = 'DK '
99 = 'NOT ASCERTAINED '
;
VALUE VISITYF
91 = 'YEAR '
97 = 'REFUSED '
98 = 'DK '
99 = 'NOT ASCERTAINED '
;
VALUE EXAM__F
1 = 'CIRCLED '
2 = 'NOT CIRCLED '
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE $GUM___F
'1' = 'CIRCLED '
'2' = 'NOT CIRCLED '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE $OTHS__F
'09' = 'ORAL SURGERY '
'12' = 'FLUORIDE RINSE/M'
'15' = 'BRACES '
'19' = 'BONDING ON TEETH'
'21' = 'TREATMENT PLAN/C'
'22' = 'BIOPSY '
'25' = 'DENTAL APPLIANCE'
'26' = 'PULP TREATMENT '
'27' = 'ULCER TREATMENT '
'28' = 'CANDIDIASIS FUNG'
'91' = 'OTHER SPECIFIED '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE $SORES_F
'1' = 'YES '
'2' = 'NO '
'7' = 'REFUSED '
'8' = 'DK '
'9' = 'NOT ASCERTAINED '
;
VALUE RECBILF
1 = 'YES '
2 = 'NO '
7 = 'REFUSED '
8 = 'DK '
9 = 'NOT ASCERTAINED '
;
VALUE $WHY___F
'01' = 'PAID IN FULL '
'02' = 'DIRECT BILLED TO'
'03' = 'PREPAID PLAN '
'04' = 'INCLUDED WITH OT'
'05' = 'WELFARE/MEDICAID'
'06' = 'FREE FROM PROVID'
'07' = 'RESEARCH STUDY '
'08' = 'DONATION/SLIDING'
'09' = 'FLAT FEE CHARGES'
'10' = 'PRIVATE CHARITY '
'91' = 'OTHER SPECIFIED '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE $NUMINCF
'00' = 'NONE '
'97' = 'REFUSED '
'98' = 'DK '
'99' = 'NOT ASCERTAINED '
;
VALUE $TOTCHRF
'000000' = 'NOTHING '
'999997' = 'REFUSED '
'999998' = 'DK '
'999999' = 'NOT ASCERTAINED '
;
VALUE $SPDPC_F
'000' = 'NOTHING '
;
VALUE $RWHO1_F
'001' = 'INSURANCE COMPAN'
'002' = 'UNION '
'003' = 'PUBLIC ASSISTANC'
'004' = 'PRIVATE CHARITY '
'005' = 'FAMILY '
'991' = 'OTHER SPECIFIED '
'997' = 'REFUSED '
'998' = 'DK '
'999' = 'NOT ASCERTAINED '
;
VALUE $RDOL2_F
'999997' = 'REFUSED '
'999998' = 'DK '
'999999' = 'NOT ASCERTAINED '
;
DATA SYSUT2 ; INFILE SYSUT1 END = EOF ;
/*****************************************************************************/
/* */
/* GENSAS run of 06/27/1994 at 22:49:10 */
/* */
/*****************************************************************************/
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
REC01 REC01_F.
SFORM $SFORM_F.
SFPART $SFPARTF.
VISITMO VISITMF.
VISITDY VISITMF.
VISITYR VISITYF.
EXAM EXAM__F.
CLEAN EXAM__F.
XRAY EXAM__F.
FILL EXAM__F.
EXTRC EXAM__F.
ROOT EXAM__F.
DENTURE EXAM__F.
GUM $GUM___F.
OTH EXAM__F.
OTHS $OTHS__F.
SORES $SORES_F.
RECBILL RECBILF.
EXPBILL $SORES_F.
WHY $WHY___F.
NUMINCLD $NUMINCF.
KNOWCHRG $SORES_F.
TOTCHRG $TOTCHRF.
SPDDOL $TOTCHRF.
SPDPC $SPDPC_F.
REIMBUR1 $SORES_F.
RWHO1 $RWHO1_F.
RDOL1 $TOTCHRF.
REIMBUR2 $SORES_F.
RWHO2 $RWHO1_F.
RDOL2 $RDOL2_F.
SPAY $SORES_F.
SDOL2 $RDOL2_F.
OTHPAID $SORES_F.
OWHOPD $RWHO1_F.
ODOLPD $RDOL2_F.
OTHPAY $SORES_F.
OWHOPY $RWHO1_F.
ODOLPY $RDOL2_F.
;
LABEL
/*****************************************************************************/
/* */
/* Begin Labels for Card 01 */
/* */
/*****************************************************************************/
PATID = '~PATIENT ID'
REC01 = '~RECORD NUMBER'
SUBREC = '~SUBRECORD NUMBER'
SFORM = '~QUESTIONNAIRE TYPE'
SFPART = '~QUESTIONNAIRE QUESTION'
VISITMO = '~MONTH OF VISIT'
VISITDY = '~DAY OF VISIT'
VISITYR = '~YEAR OF VISIT'
EXAM = '~EXAMINATION/LABWORK'
CLEAN = '~CLEANING TEETH/SCALING'
XRAY = '~XRAYS'
FILL = '~FILLINGS'
EXTRC = '~EXTRACTIONS'
ROOT = '~ROOT CANAL'
DENTURE = '~CROWN/BRIDGE OR DENTURE'
GUM = '~GUM CARE'
OTH = '~OTHER'
OTHS = '~OTHER SPECIFIED REASON FOR DENTAL VISIT'
SORES = '~TREATED FOR SORES IN MOUTH,THRUSH,OTHER'
RECBILL = '~RECEIVED BILL/STATEMENT FOR DENTAL VISI'
EXPBILL = '~EXPECT TO GET BILL/STATEMENT FOR VISIT'
WHY = '~WHY IS THAT?'
NUMINCLD = '~# OF REMAINING VISITS INCLUDED IN CHARG'
KNOWCHRG = '~KNOW THE TOTAL CHARGE FOR THIS VISIT'
TOTCHRG = '~HOW MUCH WAS THE TOTAL CHARGE FOR VISIT'
SPDDOL = '~DOLLAR AMOUNT PAID\'
SPDPC = '~PERCENT PAID'
REIMBUR1 = '~REIMBURSED ANYTHING FOR THE AMOUNT PAID'
RWHO1 = '~WHO REIMBURSED OR PAID YOU BACK?'
RDOL1 = '~DOLLAR AMOUNT PAID\'
RPC1 = '~PERCENT PAID'
REIMBUR2 = '~EXPECT ANY REIMBURSEMENT FOR WHAT PAID'
RWHO2 = '~WHO DO YOU EXPECT TO REIMBURSE YOU'
RDOL2 = '~DOLLAR AMOUNT PAID\'
RPC2 = '~PERCENT PAID'
SPAY = '~EXPECT TO PAY ANY AMT (MORE) FOR VISIT'
SDOL2 = '~DOLLAR AMOUNT PAID\'
SPC2 = '~PERCENT PAID'
OTHPAID = '~HAVE ANY (OTHER) SOURCES ALREADY PAID'
OWHOPD = '~WHO (ELSE) PAID?'
ODOLPD = '~DOLLAR AMOUNT PAID\'
OPCD = '~PERCENT PAID'
OTHPAY = '~EXPECT ANYONE ELSE TO PAY ANY CHARGES'
OWHOPY = '~SOURCES EXPECTED TO PAY FOR VISIT'
ODOLPY = '~DOLLAR AMOUNT PAID\'
OPCPY = '~PERCENT PAID'
;
RETURN;
/*****************************************************************************/
/* */
/* Input statement for Card 01 */
/* */
/*****************************************************************************/
CRD01 :
INPUT
PATID 001-009
REC01 010-011
SUBREC 012-013
SFORM $ 014
SFPART $ 015-016
VISITMO 017-018
VISITDY 019-020
VISITYR 021-022
EXAM 023
CLEAN 024
XRAY 025
FILL 026
EXTRC 027
ROOT 028
DENTURE 029
GUM $ 030
OTH 031
OTHS $ 032-033
SORES $ 034
RECBILL 035
EXPBILL $ 036
WHY $ 037-038
NUMINCLD $ 039-040
KNOWCHRG $ 041
TOTCHRG $ 042-047
SPDDOL $ 048-053
SPDPC $ 054-056
REIMBUR1 $ 057
RWHO1 $ 058-060
RDOL1 $ 061-066
RPC1 $ 067-069
REIMBUR2 $ 070
RWHO2 $ 071-073
RDOL2 $ 074-079
RPC2 $ 080-082
SPAY $ 083
SDOL2 $ 084-089
SPC2 $ 090-092
OTHPAID $ 093
OWHOPD $ 094-096
ODOLPD $ 097-102
OPCD $ 103-105
OTHPAY $ 106
OWHOPY $ 107-109
ODOLPY $ 110-115
OPCPY $ 116-118
;
RETURN;
;
PROC FREQ ; TABLES
PATID
REC01
SUBREC
SFORM
SFPART
VISITMO
VISITDY
VISITYR
EXAM
CLEAN
XRAY
FILL
EXTRC
ROOT
DENTURE
GUM
OTH
OTHS
SORES
RECBILL
EXPBILL
WHY
NUMINCLD
KNOWCHRG
TOTCHRG
SPDDOL
SPDPC
REIMBUR1
RWHO1
RDOL1
RPC1
REIMBUR2
RWHO2
RDOL2
RPC2
SPAY
SDOL2
SPC2
OTHPAID
OWHOPD
ODOLPD
OPCD
OTHPAY
OWHOPY
ODOLPY
OPCPY
;