package QuestQRM; use strict; use Exporter; use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS); @ISA = qw(Exporter); @EXPORT_OK = qw(repScreenOne); %EXPORT_TAGS = ( ':repReq'=>[qw!repScreenOne!] ); sub repScreenOne { my ($m,$d,$y) = @_; print qq! QRM - Rep Requests
Name of Quest Sales Rep:
First: Last:
When to schedule:
From:
Day:      Month:      Year:      Hour:   :      AM PM
To:
Day:      Month:      Year:      Hour:   :      AM PM
Contact name:
Name:
Contact Phone: Alternate Phone:
What is the address where the appointment will be?
Street and Number:
City:
      Zip:
Company's Primary Business
(IE: Manufacturing, Telecommunications, etc):
Hardware Environment with Quantity, Type, and Operating System
(IE: 4 E3500 with Solaris 2.6 and/or 8 Quad PIII with Win NT 4.0, etc):
Application(s) to be Managed
(IE: PeopleSoft, Oracle Apps, SAP, Apache server, etc):
Databases involved:
Competition Being Considered and Status:
Customer Critical Issues:
Issues to Avoid:
Travel Info Recommendations
(Airport, Hotel, Rental Car Required, Departure Time, etc):
!; } 1;