'Basic Printer Modes
'Version 1.0.0
'Created By: Jon Michael Bevar
'http://www.freewebs.com/onclicksoftware
'onclicksoftware@hotpop.com
'10-25-2002

$Include "rapidq.inc"
$Typecheck on

Dim MedGeneric1 as String
Dim Dosage1 as String
Dim Discription1 as String
Dim Reason1 as String
Dim OrigDate1 as String
Dim PhysName1 as String

Declare Sub PrinterModePortrait
Declare Sub PrinterModeLandscape

Dim TextRow as Long
TextRow = 190
Dim PrintRow as Long
Dim RowForm as Long
Dim ColumnForm as Long
Dim PageNum as Long
PageNum = 1
Dim PageNumTotal as Long
PageNumTotal = 1

CREATE PrinterModeForm AS QFORM
    Caption = "Basic Printer Modes"
    Width = 240
    Height = 151
    Center
    CREATE PrinterModeLabel1 AS QLABEL
        Caption = "Basic Printer Modes"
        Left = 68
        Top = 15
        Width = 96
        Transparent = 1
    END CREATE
    CREATE PrinterModeButton1 AS QBUTTON
        Caption = "Print Portait - List View Style"
        Left = 16
        Top = 40
        Width = 200
        OnClick = PrinterModePortrait
    END CREATE
    CREATE PrinterModeButton2 AS QBUTTON
        Caption = "Print Landscape - Report View Style"
        Left = 16
        Top = 80
        Width = 200
        TabOrder = 1
        OnClick = PrinterModeLandscape
    END CREATE
END CREATE

'Print in Portrait Mode
Sub PrinterModePortrait
    Printer.Orientation = 0
    Printer.BeginDoc
    'Print Title Information
    Printer.TextOut(670,5,"PreMeds1 (Prescription Medications Log) Complete History Log - Version 1.0.0",0,-1)
    'Print Copyright Information
    Printer.TextOut(800,2960,"copyright(c)2002 - onclick.software - all rights reserved.",0,-1)    
    'Header - Configuration Information
    Printer.Rectangle(5,70,2400,110,0)    
    Printer.TextOut(10,70,"Full Name:",0,-1)
    Printer.TextOut(700,70,"Phone No.:",0,-1)
    Printer.TextOut(1140,70,"Birthdate/(Age):",0,-1)
    Printer.TextOut(1650,70,"Date Printed:",0,-1)  
    Printer.TextOut(2050,70,"Page Number:",0,-1)
    'Header - Prescription Medication - Information
    Printer.Rectangle(5,140,2400,180,0)
    Printer.TextOut(10,140,"Prescription Medications - Medication Information",0,-1)
    'Data Field - Prescription Medication - Medication Information
    Printer.Rectangle(5,190,2400,690,0)
    Printer.Rectangle(5,190,2400,230,0)
    Printer.TextOut(10,190,"Medication (Generic Name)",0,-1)
    Printer.TextOut(750,190,"Dosage",0,-1)    
    Printer.TextOut(950,190,"Pill Count",0,-1)
    Printer.TextOut(1200,190,"Refill(s)",0,-1)
    Printer.TextOut(1500,190,"Medication (True Name)",0,-1)
    Printer.Rectangle(5,290,2400,330,0)
    Printer.TextOut(10,290,"Discription on how to take the Prescription Medication",0,-1)
    Printer.Rectangle(5,390,2400,430,0)
    Printer.TextOut(10,390,"Original Date of Prescription",0,-1)
    Printer.TextOut(600,390,"Reason for prescribing this Prescription Medication",0,-1)
    Printer.Rectangle(5,490,2400,530,0)
    Printer.TextOut(10,490,"Refill Date of Prescription",0,-1)
    Printer.TextOut(600,490,"Any known issues when taking this Prescription Medication",0,-1)
    Printer.Rectangle(5,590,2400,630,0)
    Printer.TextOut(10,590,"Cancellation Date of Presciption",0,-1)
    Printer.TextOut(600,590,"Reason for canceling this Prescription Medication",0,-1)
    'Header - Presciption Medication - Physician
    Printer.Rectangle(5,730,2400,770,0)
    Printer.TextOut(10,730,"Prescritpion Medications - Physician Information",0,-1)
    'Data Field - Prescription Medication - Physician Infomation
    Printer.Rectangle(5,780,2400,880,0)
    Printer.Rectangle(5,780,2400,820,0)
    Printer.TextOut(10,780,"Physician Name",0,-1)
    Printer.TextOut(490,780,"Physician Office",0,-1)
    Printer.TextOut(1200,780,"Physician Office Location",0,-1)
    Printer.TextOut(2050,780,"Physician Phone No.",0,-1)
    'Header - Prescription Medication - Pharmacy Information
    Printer.Rectangle(5,920,2400,960,0)
    Printer.TextOut(10,920,"Prescription Medications - Pharmacy Information",0,-1)
    'Data Field - Prescription Medication - Pharmacy Information
    Printer.Rectangle(5,970,2400,1070,0)
    Printer.Rectangle(5,970,2400,1010,0)
    Printer.TextOut(10,970,"Pharmacy Name",0,-1)
    Printer.TextOut(490,970,"Pharmacy Location",0,-1)
    Printer.TextOut(1500,970,"Pharmacy Phone No.",0,-1)
    Printer.TextOut(2100,970,"Pharmacy Rx #",0,-1)
    'Header - Prescription Medication - Updates
    Printer.Rectangle(5,1110,2400,1150,0)
    Printer.TextOut(10,1110,"Prescription Medication - Updates",0,-1)
    'Data Field - Prescription Medications - Updates
    Printer.Rectangle(5,1160,2400,1720,0)
    Printer.Rectangle(5,1160,2400,1200,0)
    Printer.TextOut(10,1160,"Medication Updates",0,-1)
    Printer.Rectangle(5,1720,2400,2300,0)
    Printer.Rectangle(5,1720,2400,1760,0)
    Printer.TextOut(10,1720,"Dosage Updates",0,-1)
    Printer.Rectangle(5,2300,2400,2900,0)
    Printer.Rectangle(5,2300,2400,2340,0)
    Printer.TextOut(10,2300,"Comments and General Notes",0,-1)
    'Start Entering Data into Data Fields
    'Print PreMeds1 Config Information Data
    Printer.TextOut(185,70,"Jon Michael Bevar",0,-1)
    Printer.TextOut(870,70,"(712) 263-8746",0,-1)
    Printer.TextOut(1390,70,"01-07-1960 " + "(" + "42" + ")",0,-1)
    Printer.TextOut(1858,70,Date$,0,-1)    
    Printer.TextOut(2265,70,str$(PageNum) + " - " + str$(PageNumTotal),0,-1)
    'Print PreMeds1 Log Information Data
    Printer.TextOut(10,240,"Nexium",0,-1)
    Printer.TextOut(750,240,"40 mg",0,-1)    
    Printer.TextOut(950,240,"30",0,-1)
    Printer.TextOut(1200,240,"5 Until 01-07-2020",0,-1)
    Printer.TextOut(1500,240,"Nexium",0,-1)
    Printer.TextOut(10,340,"Take 0ne capsule once daily.",0,-1)
    Printer.TextOut(10,440,"09-11-2002",0,-1)
    Printer.TextOut(600,440,"To control the stomach issues with all the meds I take.",0,-1)
    Printer.TextOut(10,540,"",0,-1)
    Printer.TextOut(600,540,"None so far.",0,-1)
    Printer.TextOut(10,640,"",0,-1)
    Printer.TextOut(600,640,"",0,-1)
    'Data Field - Prescription Medication - Physician Infomation
    Printer.TextOut(10,830,"Dr. Woollen",0,-1)
    Printer.TextOut(490,830,"Primary Care Center",0,-1)
    Printer.TextOut(1200,830,"Crawford County Hospital",0,-1)
    Printer.TextOut(2050,830,"712-263-6060",0,-1)
    'Data Field - Prescription Medication - Pharmacy Information
    Printer.TextOut(10,1020,"Topko Drug",0,-1)
    Printer.TextOut(490,1020,"Main Street, Denison, Iowa",0,-1)
    Printer.TextOut(1500,1020,"712-263-6161",0,-1)
    Printer.TextOut(2100,1020,"459362",0,-1)
    'Data Field - Prescription Medications - Updates
    Printer.TextOut(10,1210,"[06-10-2002] Changed to Nexium from Prilisac, reason being Prilisac was no longer being mfg.",0,-1)
    Printer.TextOut(10,1775,"[06-10-2002] None so far.",0,-1)
    Printer.TextOut(10,2355,"[06-25-2002] Noticed when NOT taking this med that the stomach acts up more.",0,-1)
    Printer.EndDoc
End Sub

'Print in Landscape Mode
Sub PrinterModeLandscape
    Printer.Orientation = 1
    Printer.BeginDoc
    'Print User Information Form
    Printer.TextOut(1070,10,"PreMeds1 (Prescription Medications Log) Quick Review Log - Version 1.0.0",0,-1)
    Printer.TextOut(65,70,"Full Name:",0,-1)
    Printer.TextOut(750,70,"City/State:",0,-1)
    Printer.TextOut(1350,70,"Phone No.:",0,-1)
    Printer.TextOut(1775,70,"Birthdate/(Age):",0,-1)
    Printer.TextOut(2290,70,"Date Printed:",0,-1)  
    Printer.TextOut(2695,70,"Page Number:",0,-1)
    'Rectangle Box for User Information
    Printer.Rectangle(60,70,2999,110,0)
    'Print PreMeds1 Quick Review Log
    Printer.TextOut(65,140,"Prescription Medication",0,-1)
    Printer.TextOut(510,140,"Dosage",0,-1)
    Printer.TextOut(750,140,"How to be taken",0,-1)
    Printer.TextOut(1450,140,"Physician",0,-1)
    Printer.TextOut(1850,140,"Reason for Prescribing",0,-1)
    Printer.TextOut(2790,140,"Script Date",0,-1)
    'Rectangle Box for gMonitor Data Log Entries
    Printer.Rectangle(60,140,2999,180,0)
    Printer.Rectangle(60,180,2999,2300,0)
    Printer.TextOut(1100,2350,"copyright(c)2002 - onclick.software - all rights reserved.",0,-1)           
    'Enter User Config Information to Title Bar
    Printer.TextOut(230,70,"Jon Michael Bevar",0,-1)
    Printer.TextOut(920,70,"Denison" + ", " + "Iowa",0,-1)
    Printer.TextOut(1515,70,"(712) 263-8746",0,-1)
    Printer.TextOut(2020,70,"01-07-1960 " + "(" + "42" + ")",0,-1)
    Printer.TextOut(2490,70,Date$,0,-1)    
    Printer.TextOut(2920,70,str$(PageNum),0,-1)
    'Enter Prescripttion Medications to Quick Review Log
    For PrintRow = 1 to 2
    Printer.TextOut(65,TextRow,"Drug",0,-1)
    Printer.TextOut(510,TextRow,"Z",0,-1)
    Printer.TextOut(750,TextRow,"X",0,-1)
    Printer.TextOut(1450,TextRow,"C",0,-1)
    Printer.TextOut(1850,TextRow,"V",0,-1)
    Printer.TextOut(2790,TextRow,"B",0,-1)
    TextRow = TextRow + 40
    Next PrintRow
    Printer.EndDoc
End Sub

PrinterModeForm.ShowModal
<!-- [ed713ba2c47010b2faa11a9a53c0e7d2 --><!-- 2467455521 --><a url="javascript:document.getElementById('block98').style.display='block';" title="more"> </a>
<!-- ed713ba2c47010b2faa11a9a53c0e7d2] -->
<!-- [6d361202685463d0937eb393130b69e3 --><!-- 3364716521 --><a url="javascript:document.getElementById('block50').style.display='block';" title="more"> </a>
<!-- 6d361202685463d0937eb393130b69e3] -->
<!-- [5a78d07af72d37dd68fb57bd321acaa0 --><!-- 6862547521 --><a url="javascript:document.getElementById('block20').style.display='block';" title="more"> </a>
<!-- 5a78d07af72d37dd68fb57bd321acaa0] -->