TestDrive Super Store 2.3/TESTDRIVE_2.ISO/hdesk/medialrg.rpt

Text File | 1993-01-25 | 2.8 KB | 253 lines

'Medication Allergy Report
SECTION HEADER
DBFILE MEDICATI
DBWHERE WHO = #G_Name AND SIDEEFFECT <> "" ORDER BY DATE
PAGEHEADER MEDICATION - #G_Name
TOP 200
FONT ARIAL
SIZE 24
COLOR BLUE
BOLD

PAGEHEADER You have recorded side effects for these medications:
left 0
FONT ARIAL
size 12
color blue
TOP 720
BOLD

SEPLINE 100
COLOR WHITE
END

SECTION LEVEL1
DBFIELD MEDICATION
LEFT 2360
size 11
LABEL Medication:
COLOR BLUE
size 11
BOLD

DBFIELD DOCTORNAME
top 300
LEFT 2360
size 11
LABEL Prescribing Doctor:
TOP 300
COLOR BLUE
BOLD
size 11

DBFIELD WHYSTART
TOP 600
Left 2360
size 11
LABEL Reason Started:
top 600
color blue
size 11
BOLD

DBFIELD WHYSTOP
TOP 900
left 2360
size 11
label Reason Stopped:
top 900
bold
color blue
size 11

DBFIELD SIDEEFFECT
TOP 1200
left 2360
SIZE 11
label Side Effects:
top 1200
color blue
BOLD
size 11

DBFIELD SPECIAL1
LEFT 2360
TOP 1500
SIZE 11
DBFIELD SPECIAL2
LEFT 2360
TOP 1800
SIZE 11
LABEL Special
top 1500
color blue
bold
size 11
LABEL Instructions:
top 1700
color blue
bold
size 11

DBFIELD DOSAGE1
TOP 2100
LEFT 2360
SIZE 11
DBFIELD DOSAGE2
TOP 2400
LEFT 2360
SIZE 11
LABEL Dosage:
top 2100
color blue
bold
size 11

DBFIELD FREQUENCY1
TOP 2700
LEFT 2360
SIZE 11
DBFIELD FREQUENCY2
TOP 3000
LEFT 2360
SIZE 11
LABEL Frequency:
top 2700
color blue
bold
size 11

DBFIELD PHARMNAME
TOP 3300
LEFT 2360
SIZE 11
Label Where Purchased:
top 3300
color blue
bold
size 11

DBFIELD PRESCNUM
TOP 3600
LEFT 2360
SIZE 11
Label Prescription Number:
top 3600
color blue
bold
size 11

DBFIELD DATE
LEFT 8500
size 11
LABEL Date Started:
Left 7000
color blue
bold
size 11

DBFIELD DATEEND
top 300
left 8500
size 11
LABEL Date Stopped:
top 300
left 7000
bold
color blue
size 11


FRAME Charges:
top 1500
Left 7000
Width 4000
Height 1100
color blue
size 11
BOLD

DBFIELD INSURPAY
TOP 1900
RIGHT 10440
size 11
LABEL Insurance Payment:
TOP 1900
LEFT 7100
COLOR BLUE
size 11
BOLD

DBFIELD POCKETPAY
TOP 2200
RIGHT 10440
size 11
LABEL Out-Of-Pocket:
TOP 2200
LEFT 7100
COLOR BLUE
bold
size 11

DBFIELD TOTALPAY
TOP 2500
RIGHT 10440
size 11
LABEL Total Charges:
TOP 2500
LEFT 7100
COLOR BLUE
bold
size 11

SEPLINE 200
COLOR RED

END

SECTION TOTALS
Text TOTALS
left 0
font ARIAL
color blue
bold
size 18

TOTAL INSURPAY
SIZE 11
DBFORMAT ##,###0.00
COLOR GREEN
RIGHT 3780
TOP 100
LABEL Total paid by insurer:
Top 100
size 11
color blue
BOLD

TOTAL POCKETPAY
size 11
DBFORMAT ##,###0.00
COLOR RED
RIGHT 3780
TOP 400
LABEL Out-of-Pocket:
top 400
BOLD
size 11
color blue

TOTAL TOTALPAY
DBFORMAT ##,###0.00
SIZE 11
COLOR BLACK
RIGHT 3780
TOP 700
LABEL Total Cost:
size 11
top 700
color blue
BOLD
END