Sponsor:.GEORGIAINSTITUTE

Sponsor:.
GEORGIA INSTITUTE OF TECHNOLOGY
OFFICE OF RESEARCH AOMINISTRAYION
Title Do4elopt.,,zu a Family Plani=4;13. aiiat taut Network: oject
Project No:
Type Agieement: ti4dt. . t*-75-76n02
Amount- 47,90
Reports Required: .. Elam/ .gchoditle linerattili.,rrogr Repprto: Teel. Asgiotttl co Reports,
& Eval; ilroposed . RIRT Objective
2ss.
ni.,?Outraat'Foriat$ ,Tizptip. .;
rormati tasign; Vrelial..1itt-eork Deal o.; Flnal..,XliputiOutput;PD21 , -InPleatntation rian;

?Cr'RetItPj73(4i1 tlf4
eetnicat -ilAtt6ra tiaatual:Mattero ..?,..
'ilar.....3 . Loc000. 'Via L. Pintolater
.
?
Piarailiag & Eva.14utt of at Suppte
',4eal.th fl'arvico., ,
i. t o ieaitti,Ediicatio:i an V6-1.fare
/ ::'-Stii.ei:
, ta Yi
Iricipal Investigator Library
School Director Rich Electronic Computer Center
:` Dea of the College Photographic Laboratory

Director, Research Administration' Project File.
Director, Financial Affairs (2) ....
Secur,ity-Reports-property . Office
paterit Coordinator
' -f
RA-3 (6-71
SPONSORED PROJECT TERMINATION
GEORGIA INSTITUTE OF TECHNOLOGY
OFFICE OF CONTRACT ADMINISTRATION
Date: September 14, 1976
Project Title: Development of A Family Planning Regional Data Network
Project No: G-36-614
Project Director: Mr. A.P. Jensen
Sponsor: DHEW/PHS - Region IV, Atlanta, Georgia 30323
Effective Termination Date:

6/30/76


Clearance of Accounting Charges: ASAP
Grant/Contract Closeout Actions Remaining: None
Final Invoice and Closing Documents
Final Fiscal Report
Final Report of Inventions
Govt. Property Inventory & Related Certificate
Classified Material Certificate
Other
Assigned to: Information & Computer Sciences (School/Laboratory)
COPIES TO:
Project Director
Division Chief (EES)
School/Laboratory Director
Dean/Director?EES
Accounting Office
Procurement Office
Security Coordinator (OCA)% 7".
Reports Coordinator (OCA)
Library, Technical Reports Section
Office of Computing Services
Director, Physical Plant
EES Information Office
Project File (OCA)
Project Code (GTRI)
Other

CA-4 (3/76)
Georgia
Institute
of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE / (404) 894-3152 ATLANTA, GEORGIA 30332
April 14, 1975
TO: Ms. Jean Cobb
Evaluation Specialist, Region IV DHEW
FROM: A. P. Jensen
Senior Research Engineer, Georgia Institute of Technology
SUBJECT: Implementation Plan and Schedule (Family Planning RDN Project)
Dear Jean:
In order to identify existing and anticipated data processing
capabilities of the states within Region IV, a site visit to each state
is being planned. During these visits, interviews will be conducted with
administrators at various levels to determine the extent to which the
existing systems satisfy their information requirements and to identify
those data elements which the administrators feel should be included
in a regional data network. The product of these visits will be a
generalized knowledge of the information needs of the various levels of
family planning administrators within Region IV, a detailed knowledge of
the family planning data bases and information systems currently in use
in Region IV, and a catalog of computer routines which are available for
implementation within Region IV and can be implemented on either existing
or anticipated equipment.
In the event that it becomes desirable to obtain clarifying information
or documentation beyond that obtained during the course of the site visits,
we assume we have your permission to contact directly any of the following
State Data Coordinators/Evaluators whose names you gave to us:
Alabama Mr. Gene Dickey
Florida Mr. Harry Larsen
Georgia Ms. Barbara Capron
Kentucky Ms. Rondia Burdine
Mississippi Dr. Stephen L. Moore
North Carolina Ms. Jane Hedgecock
South Carolina Mr. Jim Deaton
Tennessee Mr. Jack Leath
As of this date, we have been informed of the following confirmed
site visit dates:
Alabama May 29 - 30
Florida May 8 - 9
Kentucky May 15 - 16
North Carolina May 20 - 21
South Carolina May 22 - 23
Tennessee April 17 - 18
Georgia anytime
Please let us know when you decide about the visit to Mississippi. (As
we agreed, Georgia can be worked into the schedule at any mutually
convenient time during the next two months.)
A site visit protocol is outlined below. It is our understanding
that, prior to each site visit, we will meet with you in order to prepare
the interview schedule for the upcoming visit and to associate with the
topics listed in the protocol the names of specific individuals at the
site being visited. Subsequent to that meeting, we will provide you with
copies of the protocol (along with the attached data processing capabilities
survey instrument) for your approval and for transmission to all of the persons
thus identified.
An additional task under this phase of the project will be an investi-
gation of existing computer routines and data which are available for acqui-
sition for use in the RDN. As part of this task we will be reviewing the
numerous statistical routines, data base handlers, and report generators
available commercially, and considering their relevance to a family planning
information system. We may also need to look at the census data purchased
by Planned Parenthood under contract HSM-110-71-56; if so, we would like to
ask your help in obtaining this information.
Site Visit Protocol

A. Interviews With Appropriate Member(s) of the F. P. Program Staff.
The purpose of the interviews will be to review the current status
of the state's family planning information system. Documents which
should be available during this review are: completed copies of
the Quarterly Monitoring Chart; copies of all data collection
forms; and copies of all reports produced by the state family
planning information system. The principal topics to be discussed
are as follows:
I. Workflow Responsibilities
A) Description of Workflow
B) Key People at Each Checkpoint
C) Timing Factors and Constraints
II Data Elements Review
A) Female Patient Items
B) Male Patient Items
C) Clinic Information
D) Third Party Data
E) Fiscal/Management/Budgetary
F) Facility and Manpower
G) Vital Statisitcs
III. Data Quality Control
A) Error Types
B) Correction Procedures.
C) Time Factors
IV. Data Collection Procedures
A) Forms Design
B) Forms Control and Distribution
C) Forms Completion
V. Reports Formats/Data Aggregation
A) Review of Existing Report Formats
B) Data Aggregation Levels
C) Output Error Checks
D) Reports Design and Control
E) Reports Usage
B. Interviews With Appropriate Member(s) of Data Processing Staff.
The purpose of the interviews will be to determine existing and
anticipated data processing capabilities of the state for supporting
that state's family planning information system. Documents which
should be available during this review are: the completed Survey of
Data Processing Capabilities for Family Planning Services (see
attached) and copies of all input forms, all programming and system
documentation, and all output reports relevant to the state's
family planning information system. The principal topics to be
discussed are as follows:
I. General Data Processing Capabilities
A. Site Information
B. Organization and Staffing
C. Hardware
D. Software
II. Data Processing Services Supporting F. P. Program
A. Site Information
B. Organization and Staffing
C. Hardware
D. Software
E. Data Processing Procedures
C. Combined Session With Key Members of Family Planning Staff and
Data Processing Staff.
The purpose of this session will be to provide an opportunity for a
wide-ranging discussion of information problems as seen from the
different perspectives of personnel engaged in different roles
within the state's overall family planning information system.
Date: State:
SURVEY OF STATE DATA PROCESSING CAPABILITIES FOR FAMILY PLANNING
I. General Data Processing Capabilities
A. Site Information:
Where Located
Who Operates
Type and Model of Computer(s)
Operating System(s)
Multiprogramming Capabilities (Circle One) Yes No
Hours of Operation
Mean Time Between Failures
B. Organization and Staffing:
List Personnel and Position in the Following Departments:
(attach chart if possible)
Administrative:
Software:
Hardware:
Please use attachments as necessary to provide a full description of
your facilities and operations.
- 5 -
Data Preparation:
Other:
Total Number of Employees
C. Hardware
1. Tape Drives
Model
BPI

Number of Drives



Number of Tracks



2. Disks
Model
Storage Capacity/Unit

Number of Units



3. Optical Form Reader
Model
Speed

Number of Readers




4. Line Printers
Model Number of Printers
Speed Characters/Line
5. Card Readers
Model Number of Readers
Speed
6. Card Punch
Model Number of Punches
Speed
7. Communications Equipment
Model Number of Terminals
Speed
8. Plotter
Model Number of Plotters
9. Microfiche
Model
2. List the Personnel that are Active in and the Percent
Time Spent in the Family Planning Program:
3. How is Job Priority Established for the FP Programs? How
is Run-Time Priority Determined for FP Programs? (Attach
Necessary Comments)
C. Hardware:
Of the Hardware Indicated in Section I.C., which is Currently
Being Used for the Family Planning Project
Tape Drives
Disks
Optical Form Readers
Line Printers
Card Readers
Card Punch
Communications Equipment
Plotter
Microfiche
Other
D. Software
1. List Language(s) Used for Family Planning Program
2. List Software Packages Used for Family Planning Program
Package

Vendor Type Documentation




E. Data Processing Procedures, Reports, and Data
1. Time Between Receiving Form(s) and Delivering
Reports
2. Time Between Request for Minor Programming Changes and
Implementation
3. Time Between Request for New Programming and Printed
Report
4. Percent Error of Input Documents
5. How are Errors Handled
6. Who is Contacted at Your Center for Changes in Data
7. Do You Offer Customized Reports (Circle One) Yes No
8. Describe Forms Used to Collect Data
9. Do You Have Cost Data Capabilities (Circle One) Yes No
10. Are Your Forms Readily Available (Circle One) Yes No
11. Are Additional Types of Reports Available on Request
(Circle One) Yes No
12. Are Simple Statistical Measures Used in Reports
(Circle One) Yes No
13. Are Graphic Techniques Included in Reports
(Circle One) Yes No
14. Describe Reports Used for Family Planning Program
1 . Data Element Availability Survey, Please put a checkmark
next to each data element which is in use in your state's
family planning information system. (List is on the following
page.)
16. Reports Availability Survey. Please indicate the availability
status in your state of each of the report types listed on
the last two pages of this survey.
15. Data Elements Survey

1. Clinic Number
2. Patient Number
3. Date of Visit
4. Type of Visit
5. Date of Birth
6. Services Provided (Medical/Counseling)
7. Referrals to Other Programs
8. Past-Visit Contraceptive Method
9. Next Appointment Date
10. Pregnancy History
a. Number of Live Births
b. Number of Fetal Deaths
c. Number of Living Children
11. Welfare Status (P.A./Medicaid Recipient)
12. Educational Attainment Level
13. Place of Birth
14. Latin American Origin or Descent
15. Race
16. Sex
17. Source of Referral
18. Contraceptive History
19. Funding Source
20. Service Site Number and Location
21. Address of Patient
22. Age of Patient
23. Marital Status
24. Name of Patient (Full)
25. Name of Partner, Parent, Guardian
26. Regional Patient Number
27. Religious Preference
28. Social Security Number
29. Telephone Number
30. Encounters
31. Appointment Failures
32. Clinic Last Visited
33. Clinic Professionals Seen
34. Date of Last Visit
35. Patient Type
36. Reason for Closure
37. Session Time
38. Types of Encounters
39. Project Status at Time of Admission
40. Medical History
41. Complications in Contraceptive Use
42. Hospitalization History
43. Follow-Up
44. Family Planning Desires
45. Source of Sex Education
46. Public Services Used
47. Employment Status
48. Financial Status
49. Payment Sources
50. Amount of Payment
16. Reports Availability Survey
Now Could Be Could Not Be
Available Available Made Available
1.. Accumulative Patient Profile
2. Patient Services - All Patients
3. Patient Services - New Patients
4. Patient Services - Return Patients
5. Clinic Services - Program Contacts
6. Patient Contraceptive Summary
7. Family Planning Desires -
Profile #1
8. Education & Employment -
Profile #2
9. Economics - Profile #3
10. Community & Social Services -
Profile #4
11. Service Group Potential -
Profile #5
12. Patient Parity by Age -
Profile #6
13. Patient Problem Disposition
14. Physical Exams & Lab Services -
New Patients
15. Physical Exams & Lab Services -
Return Patients
16. Lab Test Results - All Patients
17. Outreach Follow-Up
18. Patient Dropout Analysis
19. Master Patient
20. Patient Appointment List
21. Missed Appointment/Overdue
Patient List
22. Patients by Visit Type
23. Patients by Services Provided
24. Patients by Visit Type and
Services Provided
Now Could Be Could Not Be
Available Available Made Available
25. Patients by Age, Race, and
Sex
26. Patients by Age, Race and
Method
27. Patients by Income, Parity,
Method and Race
28. Problem Visits by Type, Method
and Age
29. Patients by Marital Status, Parity;
Age and Method
30. Patient Contraceptive History by
Last Method, Present Method,
Problem Visit Type
31. Patients on Medicaid and Public
Assistance
32. Public Assistance Patients by
Parity, Race, Age and Method
33. Source and Number of Third-Party
Reimbursements
34. Patient Breakdown by Target Area
35. Patients by Education and Employment
Status
36. Discontinuation and Retention Rates
by Age, Marital Status Method
37. Employment Status by Income
and Parity
38. Patient Payment Analysis
39. Cost Analysis by Seniors - Number
and Type of Examinations and
Prescriptions Provided
40. Patient Encounters per Physician
(per period)
41. Program Cost Breakdown by a
Functional Cost
Now Could Be Could Not Be
Available Available Made Available
42. Third Party Reimbursement Analysis
by Type and Number of Patients
43 Cost Analysis by Type of Method
per Encounter
44. Patient Service Costs by Services
Provided
45. Laboratory Examination Costs per
Patient and Method
46. Average Number of Total Encounters
per Total Patients by Services
Provided
47. Average Time of Encounters per
Services Provided
Georgia
Institute
of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE / (404) 894-3152 / ATLANTA, GEORGIA 30332
BIMONTHLY PROGRESS SUMMARY
April 1, 1975 - May 31, 1975
Project G-36-614, Contract. No. 294-75-002
Development of a Family Planning Regional Data Network
I. Survey of State Information Processing Capabilities
A survey of the data processing facilities available to Region IV
statewide family planning programs is being conducted. The desired
information has been obtained from five of the eight states. The
three states which have not yet responded to the survey are Florida,
Georgia and Mississippi. An evaluation of that portion of the total
information which has, to this date, been made accessible to the project
is proceeding continuously; however, the task cannot be completed until
the data not yet furnished can be obtained and integrated into the over-
all analysis. Assurances have been given from the appropriate data
coordinators that the three remaining states will have supplied the
desired information by the end of June. Current task status: 60% complete.
II. Site Interviews at State Family Planning Offices.
Site visits are being made by Georgia Tech representatives working
in close cooperation with the DHEW project coordinator. At the present
time, site visits have been made to all of the states within Region IV
except Mississippi and Florida. The original plan was to have completed
all of the required visits during the very first month of the project;
however, this plan had to be abandoned because of unmanageable scheduling
conflicts. A visit to the Mississippi statewide family planning office
is scheduled for June 17-18, and one to the Florida statewide family
planning office is scheduled for June 23-24. Task completion status:
75% complete.
III. Revised Schedule of Reports Due Dates
Because of the scheduling difficulties referred to in the preceding
paragraph, DHEW Region IV has agreed to approve a revision of the time-
table of due dates for scheduled project reports. This revised timetable
reflects the fact that several site visits originally planned for April
could not be made until May or June. The principal readjustments pertain
only to reports due during the first few months of the project, and this
revision does not contain a request for an extension of the project beyond
the scheduled originally scheduled completion date of April 1, 1976.
P. Jensen
enior Research Engineer
Georgia Institute of Technology
Georgia
Institute of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE / (404) 894-3152 / ATLANTA, GEORGIA 30332
REVISED REPORTS DUE DATE SCHEDULE
Project G-36-614, Contract No. 294-75-002
Development of a Family Planning Regional Data Network
This revised schedule reflects the fact that several site visits
originally planned for April could not be made until May or June. The
principal readjustments pertain only to reports due during the first
few months of the project, and this revision does not contain a request
for an extension of the project beyond the originally scheduled comple-
tion date of April 1, 1976.
Preliminary List & Evaluation
Proposed RDN Objectives
Output Formats Design
Input Formats Design
Preliminary Network Design
Input/Output Procedures
RDN Implementation Plan
Final Report With Manuals
Due 8/1/75
Due 8/22/75
Due 9/8/75
Due 10/1/75
Due 11/1/75
Due 1/15/76
Due 3/1/76
Due 4/1/76
In addition to the above, regular progress reports will be made
for each bimonthly segment of the project, and special reports on any
technical assistance given to states and projects will be due one week
after the TA is given.
For Georgi ech For DHEW
Georgia
Institute
of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE / (404) 894-3152 / ATLANTA, GEORGIA 30332
BIMONTHLY PROGRESS SUMMARY
June 1, 1975 - July 31, 1975
Project G-36-614, Contract No. 294-75-002
Development of a Family Planning Regional Data Network
I. Survey of State Data Processing Capabilities
During the period covered by this progress summary, informa-
tion about their data processing capabilities was obtained from
the three states which had not previously responded to our inquiries:
Florida, Georgia, and Mississippi. The results of the survey have
been incorporated into our preliminary report.
II Site Visits at State Family Planning Offices
Site visits to Mississippi and Florida were made during the
period covered by this report. Initial visits have now been made
to all of the eight states within DHEW Region IV.
III. Visits to Federal Agencies and Contractors
During June and July interviews were obtained from appropriate
representatives at BCHS, NCHS, Informatics, and Census Bureau.
IV. Revised Schedule of Reports Due Dates
The revised reports due data schedule proposed in our letter
submitted as an attachment to the Bimonthly Progress Summary for
April 1, 1975 to May 31, 1975, was approved by DREW Region IV.
V. Preliminary Report Completed
A preliminary project report (Design Considerations for a
Regional Data Network: A Preliminary Assessment of the Needs and
Capabilities of an Information System for Family Planning Evaluation)
has been delivered to DHEW Region IV.
Jensen
enior Research Engineer
Georgia Institute of Technology
Georgia
Institute
of
Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE / (404) 894-3152 / ATLANTA, GEORGIA 30332
BIMONTHLY PROGRESS SUMMARY
August 1, 1975 - September 30, 1975
Project G-36-614, Contract No. 294-75-002
Development of a Family Planning Regional Data Network
I. Distribution of Preliminary Report
The preliminary report and working document entitled "Design
Considerations for a Regional Data Network" was distributed to the
Statewide Family Planning Directors in each of the eight states in
Region IV. By separate memo Project Officer Jean Cobb requested
that the directors carefully review the working document with appro-
priate state-level personnel in order to verify the accuracy of the
material presented therein.
Since no exceptions to the statements made in the working docu-
ment had been received by the end of the reporting period covered by
this progress summary, the presumption is that those statements are
substantially correct.
II. Interview at Alan Guttmacher Institute
Project staff members interviewed Joy Dreyfoos and several of
her associates at the Alan Guttmacher Institute and discussed with
her the findings of the preliminary report. Special attention was
focused on the problems related to the use of demographic data.
III. Review of Region I Data System
Discussions were held with Joel Lambstein and several of his
associates at Management Sciences for Health, which is the contractor
that designed and now operates the Region I Family Planning Data
System. MSH has installed a system which is, intentionally, quite
unsophisticated in its reporting formats, and Mr. Lambstein feels
that, because of that lack of sophistication, the Region I system
is very successful as a management tool at the clinic level of operation.
IV. Presentation at Statewide Directors' Meeting
Project staffers participated in a Statewide Family Planning
Directors' Meeting held on October 1, 1975. Progress was reviewed
and several questions answered. The Directors were once again invited
to submit written corrections of any inaccuracies found in the prelim-
inary project report and once again urged to communicate any questions
or comments they might have about the work in progress.
V. Revised Schedule of Reports Due Dates
Discussions between DREW and Georgia Tech staff resulted in an
agreement to revise the reports due schedule slightly in order to make
that schedule correspond with the general work timetable and the anti-
cipated consultants' workshop. Thus, the proposed RDN objectives will
now be stated in a document to be issued on November 1, 1975, and the
preliminary network design will appear in a report due on December 15,
1975.
VI. Finalized Date for Consultants' Workshop
A Consultants' Workshop has been scheduled at Georgia Tech on
November 4 and 5 in order to review the alternatives presented in Design
Considerations for a Regional Data Network and to make suggestions for
the future development of the project. At least one representative from
each of the following organizations has been invited to serve as a con-
sultant in the Workshop: National Center for Health Statistics,
Bureau of Community Health Services, Center for Disease Control,
Alan Guttmacher Institute, MACRO, Management Sciences for Health,
Regional Training Center, Carolina Population Center, Family Planning
Evaluation Institute, Naomi Gray Association and HEW.
A g-sen
S nior Research Engineer
Georgia Institute of Technology
Georgia
Institute
of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE I (404) 894-3152 I ATLANTA, GEORGIA 30332
BIMONTHLY PROGRESS SUMMARY
October 1, 1975 -- November 30, 1975
Project G-36-614, Contract No. 294-75-002
Development of a Family Planning Regional Data Network
I. Briefing of Statewide Directors. James Doyle, John Gehl, and A.P.
Jensen attended the October Statewide Family Planning Directors
Meeting (held at the Raddison Motel in Atlanta) in order to brief
the Directors on the progress of the RDN, to answer any questions
they might have on the network design, and to invite their parti-
cipation in the November Consultants Workshop to be held at Georgia
Tech. Pete Jensen stressed the importance of a careful review of the
Working Document ("Design Considerations for a Regional Data Network")
and urged again that the Directors respond in writing if their study
of that document revealed any inaccuracies.
II. Preparation of Goals Report. A report dated November 1, 1975 and
entitled "Technical Objectives for the Proposed Linkage of Eight
Family Planning Data Systems" was completed and delivered to the
project Officer.
III. Consultants Workshop. A Consultants' Workshop was held at the School
of Information and Computer Science, Georgia Institute of Technology,
on November 4 - 5, 1975. The purpose of the Workshop was to review
the alternatives presented in "Design Considerations for a Regional
Data Network." The following is a list of persons who participated
in the Workshop:
Dick Awalt, Dept. of Health, Education & Welfare
Al Baldwin, Dept. of Health, Education & Welfare
Carita Bernsohn, Naomi Gray Associates
Jeanne Bille, Regional Training Center
Rondia Burdine, Kentucky Family Planning Program
Bobbi Cleveland, Bron Cleveland Associates
Jean Cobb, Dept. of Health, Education & Welfare
Marsha Corey, Alan Guttmacher Institute
Jerry Cover, South Carolina
James Doyle, Georgia Institute of Technology
Gene Dickey, Alabama Family Planning Program
Joy Dryfoos, Alan Guttmacher Institute
John Gehl, Georgia Institute of Technology
Don Harrison, Dept. of Health, Education & Welfare
Barbara Haupt, National Center of Health Statistics
Keiko M. Holloman, North Carolina Family Planning Program
Pete Jensen, Georgia Institute of Technology
Steve Johnson, Mississippi Family Planning Program
James X. Lococo, Dept. of Health, Education & Welfare
Bob Loddengaard, Carolina Population Center
Jack Reynolds, Family Planning Evaluation Institute
Jerri Shaw, MACRO
James Shelton, Georgia Family Planning Program
Morton Silver, Planned Parenthood Federation of America
Jack Smith, Center for Disease Control
Scot Stoney, Management Science for Health
Chrystal Whipkey, Dept. of Health, Education & Welfare
IV. Revised Project Schedule. Project Officer, Jean Cobb will furnish
a detailed listing of desired data elements and reporting elements
no later than mid-January, when that listing is received, detailed
flow-charting activities necessary to produce the required trans-
formations will proceed. A revised project time-table will be
effected to reflect appropriate corresponding changes in deliverable
due dates, and the project will be extended in time, under current
funding, to terminate June 30, 1975.
eeJensen
nior Research Engineer
Georgia Institute of Technology
Georgia
Institute
of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE / (404) 894-3152 / ATLANTA, GEORGIA 30332
BIMONTHLY PROGRESS SUMMARY
December 1, 1975 -- January 31, 1976
Project G-36-614, Contract No. 294-75-002
Development of a Family Planning Regional Data Network
I. Conversion Procedures for State Patient Files. Most of the effort
of the two-month period reported herein has been devoted to detailed
examination of the problems that will arise from the conversion of
state patient-data transaction tapes for integration in a common
regional data base for analysis and reports generation. Tapes have
been received from all states except North and South Carolina (the
latter's tapes are currently en route). A reminder request will be
sent to North Carolina.
II. Detailed Specification of Reporting, Requirements. Project Officer
has continued her work on the preparation of detailed specifications
of reporting requirements. The revised target date for our presenta-
tion of the results of her analysis is Feb. 23, 1976. These detailed
specifications and evaluation algorithms will provide the foundation
for continuing project efforts and for finalization of the reports
formatting system.
III. Revised Project Schedule. A report outlining the basic structure
of the report formatting system will be prepared in response to and
in conjunction with the Project Officer's presentation of detailed
reporting-element specifications as outlined in (II) above. Subse-
quently, two formal reports will be due as shown below:
May 3, 1976: Network Design With Input/Output Procedures
June 30, 1976: final Report With Implementation Plan, User's
Guide, and Suppliers Procedures
( frr
x . ensen
S for Research Engineer
eorgia Institute . of Technology
tss
Georgia
][115Litute
of
Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE (404) 894-3152 ATLANTA, GEORGIA 30332
February 23, 1976
OUTLINE OF A REPORTS FORMATTING SYSTEM FOR A FAMILY PLANNING DATA NETWORK
Project G-36-614, DHEW Contract 294-75-002
Development of a Family Planning Regional Data Network
I. Introduction
The purpose of this report is to outline the basic structure of
the report formatting system of a Region IV Family Planning Data Network
by presenting the results of the Project Officer's selection of data and
reporting elements and her specifications for certain detailed report
types. It is our understanding that the Project Officer's selection
of data and reporting elements may be considered final but that she is
still engaged in the process of formulating detailed specifications of
reporting requirements associated with her program evaluation needs. We
will amend the system design appropriately if any additional specification
documents are furnished.
II. Augmented Data Base Details
This section of the report will be used to set forth the data elements
selected by the Project Officer for inclusion in the four principal data
base subcomponents: a patient data component; a demographics data component;
a facilities data component; and a fiscal data component. It will be possible
to add a fifth component for state plan information if the Project Officer
decides that such a component is desirable and specifies a set of appropriate
state plan data elements.
PATIENT DATA COMPONENT
The following patient data elements are reproduced from the working
document, Design Considerations for a Regional Data Network (August 1, 1975),
pp. 184-187. The only change is the deletion of data element A013, State
Assigned Number, which Ims been blanked out on all test tapes sent from the
participating states. (he Project Officer may deem it desirable to substi-
tute in its place an activity status code calculated by the states prior
to submission of the tapes to the Regional Office or a contractor for pro-
cessing.
Clinic
DATA ELEMENT
DATA
TYPE
NO. OF
CHAR. COMMENTS
STATE
A003 COUNTY NUMBER N 3.
A004 CLINIC NUMBER N 5
Patient
A096 REGISTERED FOR MEDICAID A 1 Y = "YES"
N = "NO"
A093 MEDICAID NUMBER N 6
A009/11 SEX A 1 F = 'FEMALE'
M = 'MALE'
A037/38 RACE N 1 1 = 'WHITE'
122/123 2 = 'BLACK'
114/115 3 = 'AMERICAN INDIAN'
4 = 'MEXICAN AMERICAN'
5 = 'ORIENTAL'
6 = 'OTHER'
A010 ETHNIC (Latin American
Origin) A 1 Y - "YES"
N = "NO"
A018/19 MARITAL STATUS N 1 1 = 'MARRIED'
2 = 'NEVER MARRIED'
3 = 'SEPARATED'
4 = 'DIVORCED'
5 g. 'SPOUSE DECEASED'
A008 BORN ON N 6 MO/DA/YR
A016 WHAT COUNTY DO YOU
LIVE IN N 3
A017 HIGHEST GRADE OF SCHOOL
COMPLETED N 2
A095 CURRENTLY ON WELFARE N 1 Family receiving financial assistance
from the Dept. of Social Services:
0 "NO"
1 = 'AFDC'
2 = 'APTD'
3 = 'AB'
4 = 'OTHER'
DATA NO. OF
DATA ELEMENT TYPE C}1AR. COMMENTS

A116 FINANCIAL STATUS
A119 NUMBER IN FAMILY,
HOUSEHOLD
Visit A002 TODAY'S DATE
A094/110 TYPE OF THIS VISIT
N 1
N 2
N 6
N 1
MO/DA/YR
0 = 'SUPPLY ONLY (SCHED.)'
1 'INTAKE'
2 = 'REVISIT (ANNUAL CHECKUP)'
3 ,m 'REVISIT (NOT FIRST OF
YEAR)'
4 = 'SUPPLY ONLY (UNSCHED.)'
5 = 'UNSCHED. REVISIT FOR
ANNUAL CHECKUP'
6 = "UNSCHED. NON PROBLEM'
7 =
8 = 'UNSCHED. PROBLEM VISIT
(including Annual Checkup)'
9 = 'UNSCHED. PROBLEM REVISIT' .
Preg.
History
A097
A098
A029
A100
NUMBER OF PREGNANCIES
NUMBER BORN ALIVE
DATE LAST PREGNANCY
ENDED
OUTCOME OF LAST
DELIVERY
N
N
N
N
2
2
6
1
MO/DA/YR
1 = 'BORN ALIVE - TERM'
2 = 'BORN ALIVE - PREMATURE'
3 = 'BORN DEAD'
4 = 'MISCARRIAGE/ABORTION'
5 = 'NEVER PREGNANT'
6 = 'OTHER'
7 = 'UNKNOWN'
A032 NUMBER OF FETAL DEATHS N 2
A031 NUMBER OF PATIENT'S
CHILDREN ALIVE NOW N 2
Contra- A105 EVER USED ANY METHOD
ceptive TO PREVENT PREGNANCY A 1 Y = "YES"
History N = "NO"
A107/131 METHOD MOST USED IN
LAST 2 YEARS N 2 00 = 'NONE'
A040 01 -'ORAL'
A039 02 'IUD'
A044 03 = 'DIAPHRAGM'
A042 04 = 'FOAM'
A046 05 = 'RYTHM'
A043 06 = 'CONDOM'
A041 07 = 'INJECTION'
A045 08 = 'STERILIZATION'
A047 09 = 'OTHER'
A048 10 = 'METHOD NOT KNOWN'
A049 WHO PRESCRIBED LATEST
METHOD N 1 1 = 'PRIVATE DOCTOR'
A050 2 = 'PUBLIC CLINIC'
A051 3 = 'DRUGGIST'
A132 4 = 'OTHER'
DATA NO. OF
DATA ELEMENT TYPE MR. COMMENTS

Services
Provided
A026
A027
A033
A028
A023
A034
COUNSELING N 1 1 = 'CONTRACEPTION COUNS.'
2 = 'STERILIZATION COUNS.'
3 = 'INFERTILITY COUNS.'
4 = 'ABORTION COUNS.'
5 = 'SOCIAL SERVICES COUNS.'
6 = 'OTHER'
A067 BLOOD PRESSURE A 1 Y = YES N = NO
A074 V.D. BLOOD TEST A 1 Y = YES N = NO
A073 HCT OR HGB A 1 Y = YES N = NO
Al29 BLOOD TEST A 1 Y = YES N = NO
Al28 VDRL A/N 2 1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
A069 PAP SMEAR A/N 2 1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
A070 G.C. - culture A/N 2 1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
A068 BREAST A 1 Y = YES N = NO
A071 PELVIC EXAM A 1 Y = YES N = NO
A072 URINALYSIS A 1 Y = YES N = NO
A075 SICKLE CELL ANEMIA A/N 2 1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
A076 STERILIZATION A 1 Y = YES N = NO
A077 INFERTILITY A 1 Y = YES N = NO
A079/80 PREGNANCY TEST A/N 2 1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
A078 OTHER A 1 Y = YES N = NO
Contra- A061 METHOD AFTER VISIT 1 0 = 'NONE'
ceptive A053 - 1 = 'ORAL'
Methods A052 2 = 'IUD'
Used A057 3 = 'DIAPHRAGM'
After A055 4 = 'FOAM'
Visit A059 5 = 'RYTHM'
A056 6 = 'CONDOM'
A054 7 = 'INJECTION'
A058 8 = 'STERILIZATION'
A060 9 = 'OTHER'
A062 REASON FOR STOPPING
METHOD N 1 1 = 'PREGNANT - PLANNED'
A063 2 = 'PREGNANT - UNPLANNED'
A064 3 = 'SEEKING PREGNANCY'
A065 4 = 'MEDICAL REASON'
A066 5 = 'OTHER'
A087 REFERRED ELSEWHERE N 1 1 = 'SOCIAL SERVICES'
A088 2 = 'MEDICAL SERVICES'
A089 3 = 'STERILIZATION'
A090 4 = 'ABORTION'
A091 5 = 'INFERTILITY TREATMENT'
A092 6 = 'OTHER'
A0135 PATIENT SEEN BY N 1 0 = 'PHYSICIAN' 6 = 'AIDE'
1 = 'P.H.N.' 7 = 'CLERK'
2 = 'F.P.H.N.' 8 = 'NUTRITIONIST'
3 = 'NURSE MIDWIFE' 9 = 'OTHER'
4 = 'L.P.N.'
5 = 'SOCIAL SERVICES'
DATA ELEMENT
DATA
TYPE
NO. OF
CHAR. COMMENTS
A101 MAIN SOURCE OF
REFERRAL N 2 00 = 'SELF'
01 = 'OUTREACH WORKER'
02 = 'OTHER FP CLINIC'
03 = 'HOSPITAL OR OTHER HEALTH
AGENCY'
04 = 'PRIVATE DOCTOR/NURSE'
05 = 'WELFARE AGENCY'
06 = 'ANOTHER CLINIC PATIENT'
07 = 'FAMILY OR FRIEND'
08 = 'TV, RADIO, PAPER AD'
09 = 'OTHER'
10 = 'UNKNOWN'
A086
A081
DATE OF NEXT
APPOINTMENT
PURPOSE OF NEXT
N 6 MO/DA/YR
APPOINTMENT N 1 1 = 'SUPPLY VISIT OR STRING
CHECK'
A082 2 = 'ANNUAL EXAMINATION'
A083 3 = 'MEDICAL PROBLEM'
A084 4 = 'OTHER'
A085 5 = 'NO NEXT APPOINTMENT'
A112 REASON FOR DISCHARGE N 1 1 = 'STERILIZATION'
2 = 'MENOPAUSE'
3 = 'MEDICAL REASON'
4 = 'PATIENT MOVED'
5 = 'PATIENT LOST INTEREST'
6 = 'PREGNANCY DESIRED'
7 = 'PREGNANCY UNPLANNED'
8 = 'UNKNOWN'
COUNTY DEMOGRAPHICS FILE
Item # No. Bytes
1. County ID 3
2. State Code 1
3. District Code 2
4. HSA Code 2
5. Rurality Code 1
Values 1 = SMSA
2 = Non-SMSA over 50,000
3 = Adjacent to 1 or 2 Above
4 - Isolated Rural
Item # Item No. Bytes

6. Medical Service Code 1
Values 1 = MU, MS, DS
2 = MU, MS
3 = MU, DS
4 = MU only
5 = MS, DS
6 = MS only
7 = DS only
7. Total 1970 DVS Population Estimate 6
8. Total Current Year DVS Population Estimate 6
9. % Charge: Current Year/Base Year 1970
10. Number Dependent: 65+ and <20 6
11. % Dependent: 65+ and <20 4
12. Number Women 15 - 44
13. % Women 15 - 44
14. Current Year FP Need - 150% 6
15. Current Year FP Need - 200% 6
16. Current Year FP Need % by Age <20 6
17. Current Year FP Need % by Age 20 - 29 6
18. Current Year FP Need % by Age 30 - 44 6
19. Current Year FP Need % by Age 45+ 6
Number Live Births
Age Race
20. .4-20 W 5
21. < 20 B 5
22. 20 - 29 W 5
23. 20 - 29 B 5
24. 30 - 44 W 5
25. 30 - 44 B 5
26. 45+ W 5
27. 45+ B 5
Item # Item No. Bytes
28.
29.
Number Infant Deaths
Age Race
<20 W
<20 B
5
5
30. 20 - 29 W 5
31. 20 - 29 B 5
32. 30 - 44 W 5
33. 30 - 44 B 5
34. 45+ W 5
35. 45+ B 5
UD Rates
36. <: 20 W 5
37. <20 B 5
38. 20 - 29 W 5
39. 20 - 29 B 5
40. 30 - 44 W 5
41. 30 - 44 B 5
42. 45+ W 5
43. 45+ B 5
44. Per Capita Income S M 5
45. % Population Below State Median 4
46. Physician Ratio 4
47. % High Risk Births 4
48. % Out of Wedlock
COUNTY FACILITIES FILE
Item // Item No. Bytes

1.
2.
3.
4.
5.
County ID
State Code
District Code
HSA Code
Total No. Clinics in County
3
1
2
2
3
6. Number Medical 3
7. Number Non-Medical 3
8. Total No. Clinician-Staffed Hrs. Per Qtr. 3
9. No. MD Clinician Hrs. Per Qtr. 3
10. No. NP Clinician Hrs. Per Qtr. 3
Site Types
11. N - L.H.D. 2
12. N - State or Local Welfare 2
13. N - Other Govt. Bldg. 2
14. N - Hospital 2
15. N - School 2
16. N - Store 2
17. N - Physician Office 2
18. N - Church 2
19. N - Community Health Center 2
20. N - Mobile Unit 2
21. N - Other 2
Staff Types
22. N - Administrator/Director 2
23. N - Physician 2
24. N - Physician's Assistant 2
25. N - Registered Nurse 2
26. N - Nurse Midwife/Nurse Practioner 2
27. N - Licensed Practical Nurse 2
28. N - Clinic Aide 2
29. N - Nutritionist 2
30. N - Health Educator 2
31. N - Social Worker 2
32. N - Clerk/Secretary 2
33. N - Outreach Worker 2
34. N - Other 2
Item # Item No. Bytes
Methods Provided With County
Yes = 1
No = 2
35. Oral (pill) 1
36. IUD 1
37. Foan 1
38. Condom 1
39. Diaphragm/Jelly 1
40. Natural family planning 1
41. Sterilization (female) 1
42. Sterilization (male) 1
43. Abortion 1
44. Injection 1
45. Post-coital pill 1
46. Other 1
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
Ancillary Services
Individual counseling about
family planning 1
Follow up program 1
Referral to other clinic for
family planning or medical
services not provided at this time 1
Referral to appropriate agency for
social services 1
Transportation to the clinic or
service site 1
Babysitting 1
Provide space, equipment,
contraceptive supplies and/or
staff to others who provide medical
family planning services 1
Contract or pay others for the
provision of medical family planning 1
Outreach Program
Classroom or group sessions about
family planning 1
Classroom or group sessions on sex
education 1
Other 1
\41
GA.
PATIENT
FILE
ALA.
PATIENT
FILE
FLA.
PATIENT
FILE
KY.
PATIENT
FILE
MISS.
PATIENT
FILE

S.C. TENN.
PATIENT PATIENT
FILE / FILE
HARDWARE
DECODE
PROCESS
<?,, f
ALA. 7.--F-.1:22N GA. \\'? 7 KY. \\
STATE STATE STATE I STATE
FILE y FILE FILE
MISS.
STATE
\FILE
(I
N.C.
PATIENT
FILE
STORAGE
N.C. S.C. \ TENN.
STATE ' STATE , STATE
FILE i FILE , I FILE

/ /" -N\
CA. KY. MISS. ; N.C. '
STATE STATE STATE STATE
FILE FILE FILE i FILE /
FLA.
STATE
FILE
S.C. TENN.
STATE STATE
FILE i FILE
(ALA.
STATE
FILE
9-TRACK 800 or 1600 BPI
EBCDIC or ASCII
COPY TO
MASS
STORAGE
7-TRACK 556 BPI BCD
PATIENT-FILE TAPE CONVERSION PROCEDURE
OPERATOR
INSTRUCTION
MASTER
CROSS
REFERENCE
PROGRAM
FLA.
STATE
FILE
GA. 1 KY.
STATE STATE
FILE / FILE
MISS. N.C. S.C. TENN.
STATE ,\.. STATE STATE STATE
,' F FILE ILE FILE FILE
ALA.
STATE
FILE
7-TRACK 556 BPI BCD
LOGICAL
DECODE
PROGRAM
S.C. TENN.
/ STATE
FILE/ FILE
7-TRACK 556 BPI BCD
80 CHAR PER REC
DEMO- s
GRAPHIC
FILE
LLYIN
OG
FISCAL
FILE
DATA
BASE
TAPE
OPERATOR
INFORMATIO
FACILITIE
FILE j
REGIONAL DATA BASE GENERATION PROCESS
PLOT
DATA
FILE
REMOTE
INTERACT ION
/417INTER BACK UP
DATA
MAP
DENSITY
\ DATA
PLOT REPORT MAP
SEARCH AND SEARCH AND SEARCH AND
ANALIZE ANALIZE ANALIZE
PROGRAM PROGRAM PROGRAM
REMOTE
INTERACTION
DATA
BASE
TAPE
(
CALCOMP
DATA
FILE MAPS
REPORTS
REMOTE
INTERACT ION
REMOTE
INTERACT ION
PLOT
PROGRAM
MAP
DATA
MAPPING
PROGRAM
TRANSFER
TO
TAPE
CALCOMP
DATA
FILE
DESIGN OF DATA BASE ACCESS AND REPORT PREPARATION
III. Specification of Reporting Types
Presented on the following pages are reports requirements identified
thus far by the Project Officer. They do not of course represent the system's
full reporting capability. That is to say, any elements included in the
data base (see section II) will be reportable (at a processing cost) alone
or in conjunction with virtually any other elements included in that data
base, subject to identification and specification of particular evaluation
needs.
The selection of variables of special interest and the specification
of their relationships with other variables is an evaluation function and
is the basis for all reports generation. If additional evaluation algorithms
(such as the ones implied in the report-types listed below) are identified,
they will be incorporated into the reporting subsystem to whatever extent is
possible in terms of the defined data base.
BUDGET MONITORING -- STATE NAME
* Expenditure
This Qtr. Yr-to-Date Index
Planned Actual Planned Actual Qtr. 4-10-0
Federal
Title X
Title V (MCH)
Other . . (3 = max)
Noft-Vederd1
State Approp.
Other State (In Kind)
Other (2 = max)
Third Party
Title XIX
Title XX
Patient Fees
Private Ins.
Other (3 = max)
Total
** Expenditure Index
Planned/Actual
PROJECTED FOR FISCAL YEAR
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn. Total
r
Budget Categories
Federal
Title X
Title V (MCH)
Other . . . (3 = max)
Non-Federal
State Approp.
Other State (In-Kind)
Other (2 = max)
Third Party
Title XIX
Title XX
Patient Fees
Private Ins.
Other (3 = max)
44,
Total
Previous Qtr. Balance
Actual Billing
this Qtr.
Collections this Qtr.
End of Qtr. Balance
Total Expenditures
this Qtr.
Index
End - Qtr. Balance
Year - Data Expenditures
Accounts Receivable
Quarter
Fla. Ga. EY2 Miss. N.C. S.C. Tenn. Region
Actual Exp.
Prin. Year Same Qrt. Cum.
Fiscal Year Projection Expenditures This Qrt. Last Year For Year
Federal
Title X
Title V (MCH)
Other e A (3 = max)
Non-Federal
State Approp.
Other State (In-Kind)
Other (2 = max)
Third Party
Title XIX
Title XX
Patient Fees
Private Ins.
Other (3 = max)
Total
PATIENTS SERVED (PLANNED VS. ACTUAL)
Annual
Planned Actual Difference
Served Active Served Active Served Active
U.S.
1. This Qtr.
2. Last Qtr.
3. Current Qtr. r
4. Last Year
5. .Like COunties
Region IV
1. This ,Qtr.
2. Last, Qtr.
3. Current Year
4. Last Year
5. Like Counties
State
1. This Qtr.
2. Last Qtr.
3. Current Qtr.
4. Last Year
5. Like Counties
District
1. This Qtr.
2. Last Qtr.
3. Current Qtr.
4. Last Year
5. Like Counties
County
1. This Qtr.
2. Last Qtr.
3. Current Qtr.
4. Last Year
5. Like Counties
REGION IV COUNTIES, DISTRICTS, AND STATES FAILING TO MEET EXPECTED
PERFORMANCE CRITERIA FOR CLINIC PHYSICIAN HOURS
Needed
Capacity
Planned
Capacity
Utilization
Factor
Utilization
Rate
Norm 175/hr
r
175/hr 5.9 7.0
Region IV
(date)
175/hr 160/hr 6.5 5.0
Exceptions-by-State
Alabama 175/hr 145/hr 4.8 4.5
Florida
Georgia
Kentucky
Mississippi
North Carolina
South Carolina
Tennessee
District I 175/hr 175/hr 7.0 6.0
. County - Greene 175/hr 60/hr 2.3 3.3
Comment
IV. Assessment of Work Status
Work is in progress so that the network will be able to fulfill the
reporting requirements specified above as well as any additional reporting
requirements which may be specified in the future. However, one problem
evident at this time is the requirement for certain reporting elements
which are not computable from elements in the defined data base as set
forth in section II; another problem, conversely, is that various data
elements have been specified at the county level and at the patient data
level which seem unlikely to be needed for the generation of reports. It
is therefore suggested that DREW project staff conduct a further detailed
screening of both the data elements and their relationships with the desired
reporting elements. When such relationships have been established it will
be possible for the project team to proceed with the development of the
design specifications for computer software necessary to meet the reporting
requirements of the family planning evaluation program in DREW Region IV.
Georgia
Institute
of
'Technology SCHOOL OF INFORMATION AND COMPUTER SCIENCE I (404) 894-3152 / ATLANTA, GEORGIA 30332
BIMONTHLY PROGRESS SUMMARY
December 1, 1975 -- January 31, 1976
Project G-36-614, Contract No. 294-75-002
Development of a Family Planning Regional Data Network
I. Conversion Procedures for State Patient Files. Most of the effort
of the two-month period reported herein has been devoted to detailed
examination of the problems that will arise from the conversion of
state patient-data transaction tapes for integration in a common
regional data base for analysis and reports generation. Tapes have
been received from all states except North and South Carolina (the
latter's tapes are currently en route). A reminder request will be
sent to North Carolina.
II. Detailed Specification of Reporting Requirements. Project Officer
has continued her work on the preparation of detailed specifications
of reporting requirements. The revised target date for our presenta-
tion of the results of her analysis is Feb. 23, 1976. These detailed
specifications and evaluation algorithms will provide the foundation
for continuing project efforts and for finalization of the reports
formatting system.
III. Revised Project Schedule. A report outlining the basic structure
of the report formatting system will be prepared in response to and
in conjunction with the Project Officer's presentation of detailed
reporting-element specifications as outlined in (II) above. Subse-
quently, two formal reports will be due as shown below:
May 3, 1976: Network Design With Input/Output Procedures
June 30, 1976: Final Report With Implementation Plan, User's
Guide, and Suppliers Procedures
2:p'rensen
S for Research Engineer
,eorgia Institute of Technology
tss
6 - e/y
BASIC NETWORK DESIGN AND OUTLINE OF INPUT-OUTPUT PROCEDURES
(Family Planning Regional Data Network)
The Regional Data Network is a data processing system designed to
serve as a managerial and information resource tool for Region IV of the
U.S. Department of Health, Education & Welfare's family planning program
by the School of Information and Computer Science, Georgia Institute of
Technology, under the auspices of DHEW Contract 294-75-002.
A. Present design considerations have caused the project team to construct
the following system programs:
1. Logical Decode Programs. There are 10 programs that have been
developed and are presently being tested. These programs take
as input the 8 state patient transaction* and master tape files* .
These 10 different formats are then logical-rearranged to produce
the standard data base file structure (refer to pp. 205 of "Outline
of a Report Formatting System for a Family Planning Data Network",
Feb. 23, 1976, for detailed file structure mentioned here). For
each patient record on the input tape there will be a corresponding
patient record on the output tape. The only change will be one of
data-representation. The purpose of this process is to allow all
of the patient data (coming from 8 different states in 10 different
formats) to be read by a single tabulation program. These programs
are all basically similar in structure and requirements. Each requires
2-tape drives and approximately 7-10K of storage (dependent on pro-
cessing facility). For more detailed information on each individual
program refer to "Technical Objectives for the Proposed Linkage of
Eight Family Planning Data Systems," November 1, 1975.
2. Patient Data Base Tallying Program. This is the largest and most
demanding of the programs in terms of CPU time, storage space
(magnetic tape, core, disk -- object and source codes for that
program only, no data stored on disk), operator interaction and
*
The system requires the states of South Carolina and Alabama to send both
transaction and master files.
other basic computer facility resources. Its purpose is to take
as input the 10 logically decoded patient data files (output from
logical decode programs will be stored on magnetic tape) and do
all cross-referencing and tallying that is necessary to produce
the patient data base tape. The patient data base file is an
aggregated tally of all patient data base items broken down in
county, state, and regional levels. The data is in order by
county number starting with the state of Alabama and processing
in alphabetical order through the state of Tennessee. This
program has been equipped with an automatic recovery system in
case of computer failure during processing. This is due to the
fact that the running of this program will require close to or
more than 24 hours real time (on the B-5500) during which the
chance of at least one system failure is a distinct possibility.
This program uses the "display" and "accept" verbs of standard
COBOL for operator interaction. This program requests whether
a restart or recovery is needed, whether a logically decoded
tape file from a specific state is available or not, and instruc-
tions for handling errors and inconsistencies in the input tape
files. It requires 3 tape drives, 15-20K core storage, approxi-
mately 6K disk storage (object code), and significant operator
interaction. A general flowchart containing only "COBOL paragraph
names" (subroutines) and statements that alter logic control is
included in this report.
3. Search and Analyze Programs. This system contains 3 Search and
Analyze programs which use the patient data base tape file and
the fiscal, demographic, and facilities tape file to produce output.
These 3 programs produce disk data files for the plot and map programs
and a printer backup file for reports. Each program will request
input parameters for type of plot, report, or map to produce and
whether to look at data on a county, state, or regional level.
Program requirements are min. 2 tape drives with CPU time and
disk space proportional to the amount of output desired.
4. Map and Plot Programs. These 2 programs take disk files as input
(provided by search and analyze programs) for the production of maps
and plots of the type illustrated in "Design Considerations for
a Regional Data Network," August 1, 1975, pp. 177-183. System
requirements are directly proportional to amount of output pro-
duced. Min. requirements are 2 tape drives, 2-5K disk storage
and high-speed printer (an offline device, the "Calcomp Plotter,"
is also required for plot production). These programs require
little operator interaction once set up.
B. Input Procedures:
All patient data files must be physically converted so that they are
readable by one computer system before logical conversion can take place
(currently, this involves a 9 to 7 track conversion procedure). A fiscal,
facilities, and demographic tape file must be produced from available
statistics before Search and Analyze programs may be run to produce output.
Operator input to the patient data tabulation program is explained by program
generated messages to the operator console and will be completely detailed
in final documentation. Patient data tabulating program does not require
all state patient files to be present when processing although obviously
regional data will be less accurate and there will be no output for missing
state files if they are not present. Data tabulation program will be run
only once a quarter although Search and Analyze and Output programs may be
run as often as new types of output are desired.
C. Output:
All line-printer output procedures (maps and reports) are currently
automatically handled by available standard operating system software on
computer system used. Plot output must be transferred from disk storage
to mag tape. This tape must then be mounted on off-line Calcomp plotter
for output. Standard Calcomp plotter software must be available on any
future computer system if plots are desired; This is not standardly supplied
with all computer systems.
D. System Choice Considerations:
Computing power the equivalent of a medium sized system (such as a
Burroughs B-5500) will be required to support this data network. Complete
3
elapsed time for quarterly processing could require 7 to 10 days on such
equipment depending on its availability and configuration.
E. Flowchart Explanation:
All COBOL "sections" (procedure division type) are outlined in heavy
dotted lines. All COBOL "paragraphs" are outlined in light dotted lines
or confined to one process box.
The flowchart illustrates only COBOL paragraphs and control transfer
statements. A complete flowchart of all statements in this program and
flowcharts of all other programs will be made available in later documentation.
Explanatory Note on "Perform Statements":
Each perform box should have one path into perform; one control path
out to section or paragraph to be performed; one control path back
from section or paragraph suit performed; and one path then into next
paragraph, section, or control transfer statement. All other notation
is ANSI standard.
PROCEDURE
DIVIS /ON
READ
RESTART-
PILE
RESTART
SMTIOU
0-
Ers PONSE
O-
RES ONSE
OK"
C -
STATE - .)ilF
COENTY -
CE
999
SC-
TAPE
READ
DETAILED-
MASTER
PERFORM
'FORWARD-4
TAPE 22
VMS
CANT
RECOVER
LOAD-
TAPE-
SECTION.
OPER-
TAPE
TOWARD-
TAPE
STATE-
TRACK
* "KEN.
READ
COMFIT -
PIASTER
READ
DETAILED- TRAC T

MASTER
"an=
MS
4 0
mospitylNIE TRAGIC
ROUND I
`RA
A STTE-
IESPOIISE REI2C1 SP3ORSE 1111P7- 111?"GA

:
COUNTY-
/111 I4""?'
11
NT:
O
SPACE-
TAPL TAPE
STATE
TRACK 0 I TRACR I PERFORM I
I MEYER
READ
DETAILED-
MASTER
WRONG-
TAPE
STATE-
TRACK
" NC
"
RESTART-
TAPE

COMPLY-
WRITER
READ
RESTART
PILL
0-
RESPONSE ESCAPE
TAPE OUT
?-
RESPONSE . TATE-
TRA , IK
RESET-
TAPE STATE-
CONROE
COETTY-
. m
CRSCIE-
TAPS
T ATE -
I RAC lc
ST ATE -
T FA pc
TATE-
T RA cr
=Mb
CLoS INC-UP
SECTION
READ
DETAILED-
MASTER
=TATE-
('
? I
I
RESTART-
,
I WRITE
!
SECTION
1
CR0 s-RET-
AC2-RACE
I? ,
COUNTY-
VA ITT
SECTION
HOVE-
STATE
[-TALLY
READ
DETAILED-
MASTER
MOVE-
REG
?
s: ATE -
TRACE MOVE-
STATE
C-WRITE
DATA-
TABULATION
SECTION
REG-WRITE
SECTION C-TALLT
READ
DETAILED-
MASTER
READ
DETA LED-
MASTER
ZERO-
STATE
sursL
WRITE
SECTION
EGEND
PERFORM STATEMENT
1CcIC PERFORM T LOGIC
READ STATEMENT RON CONTROL CONNECTOR
AT END FRANCA
DECISION STATEMENT
TRUE AND FALSE
BRANCHES
GENERAL FLOWCHART
PATIENT DATA TABULATION PROGRAM
(PAGE 2 )
DESIGN CONSIDERATIONS FOR A REGIONAL DATA NETWORK
A Preliminary Assessment of the Needs and Capabilities
of an Information System for Family Planning Evaluation
Prepared by
James F. Doyle, John Gehl, and A. P. Jensen
School of Information and Computer Science
Georgia Institute of Technology
For
Jean Cobb, Evaluation Specialist
U.S. Department of Health, Education and Welfare
Public Health Service, Region W
Under the Auspices of
DHEW Contract 294-75--002
James X. Lococo, Project Officer and
Assistant Regional Health Administrator
August 1, 1975
SCHOOL OF INFORMATION AND COMPUTER SCIENCE
Georgia Institute of Technology
Acknowledgment
We would like to thank the following individuals for their valuable
assistance in preparing the material used in this document: Richard
Carling, Danny Crider, Richard Greene, Dorothy Hughes, Rawya Mohsen,
Jochen Schaeffer, Terry Shank, and Fereydoun Taslimi. We would also
like to extend our sincere appreciation to Jean Cobb, Chrystal Darter,
and James X. Lococo of DHEW Region IV. Finally, our gratitude is ex-
pressed to the many family planning statewide coordinators, data coor-
dinators, systems analysts and others throughout Region IV who gave
generously of their time in order to help us learn about the information
needs of the family planning program in this region. We are looking
forward to working further with all of these fine people as the project
continues into its next phases.
iii
CONTENTS
Acknowledgment iii
1.0 INTRODUCTION 1
2 . 0 INFORMATION COLLECTION IN THE STATEWIDE PROGRAMS 3
2 .1 Data Elements Survey 4
2.2 Basic Data Collection Forms 6
2 . 3 Analysis of Primary Data Collection Elements 16
2.4 Computer File Definitions 96
3 . 0 DATA PROCESSING CAPABILITIES IN THE STATEWIDE PROGRAMS 131
4.0 CURRENT REPORTING CAPABILITIES AND TECHNIQUES 141
4.1 Survey of Reporting Elements 142
4.2 Monitoring and Evaluation Strategies 145
5 . 0 REGIONAL DATA NETWORK REQUIREMENTS 155
5.1 General System Features 156
5 . 2 Reporting Capabilities 169
5 . 3 Data Base Design 184
5.4 Software Considerations 190
5 . 5 Regional/State Responsibilities 216
6.0 A DECISION AGENDA 219
7 . 0 BIBLIOGRAPHY 223
1.0 INTRODUCTION
This report is intended as a working document, the purpose of which
is to facilitate review of design alternatives for a Regional Data Network
(RDN) for the family planning program in Region IV, U.S. Department of
Health, Education and Welfare. The decision to develop such a network
was motivated by the recognized need for a reliable system of data-exchange
between Region IV and the various states (as well as within the states them-
selves), along with a need to develop management parameters to use in moni-
toring and evaluating the delivery of family planning and related health
services throughout the Region. The RDN is expected to satisfy these needs
by developing a system which will accept, as input, data from existing patient
record systems, demographic profiles, and fiscal and budgeting information,
and clinic and provider agency characteristics (including facilities informa-
tion and manpower and staffing patterns); the output of the network will be
an integrated reporting system which will provide management tools the
enhancing the family planning program's ability to effectively allocate and
manage its resources.
The following constraints seem to reflect the context in which the
Regional Data Network is to be developed:
i. Each state's family planning patient system will continue to operate
as an independent data processing service designed to meet state
objectives.
2. The Regional Data Network will not duplicate existing information
services at either the state or the national level. This applies
particularly to the collection of information.
3. Insofar as possible, the Regional Data Network will operate on
existing data bases, thereby keeping to an absolute minimum the
generation of new data.
4. To the extent that the Regional Data Network requires the generation
of new information, this need of the Region will not result in the
imposition of additional data collection activities on the existing
state systems. Instead, new information needs imposed by the RDN
will be met through regional resources and provided as a service
to the states rather than the reverse.
5. Patient confidentially will be totally and at all times safeguarded
in all Regional uses of patient-level data.
The material in this working document represents a preliminary list
of recommended information needs to be met by the RDN, a review of the
capabilities of existing state family planning information systems in Region
IV, and a discussion of design considerations which will need attention as
the work of shaping the configuration of the Regional Data Network proceeds.
The material here presented is the result of site visits to the state family
planning program offices in each of the eight states in Region IV; interviews
with statewide family planning coordinators, planning and evaluation specialists,
training coordinators, and data processing personnel; a survey of state data
processing capabilities relevant to the operation of family planning informa-
tion systems; numerous discussions with Region IV evaluation specialists and
family planning program administrators; and an extensive review of available
documentation on topics related to the project.
Sections 2, 3 and 4 of this document focus, respectively, on the input,
processing, and output subsystems of the current family planning information
systems in the eight states within Region IV. Section 5 provides a transition
from existing to future processing requirements, by opening the discussion on
topics pertinent to the design of the proposed network. Section 6 sharpens
the focus of this discussion by posing a set of specific questions which
must be decided by responsible administrators before more detailed design
work can go forward. The document closes in section 7 with a bibliography
of selected family planning publications of interest to the current project.
Again, it should be emphasized that this report is not a compendium
of final recommendations but a working document, whose purpose is to serve
as a foundation for on-going and future efforts toward the development of a
data network capable of meeting the management and evaluation needs of the
family planning program in Region IV, and suitable for consideration as a
model for the management and evaluation of any health services program of
comparable sophistication.
2.0 INFORMATION COLLECTION IN THE STATEWIDE PROGRAMS
This section of the working document presents the results of an
analysis of the major characteristics of the input subsystems of the
eight state family planning data systems in Region IV. The amount and
type information available in these systems essentially represents an
upper bound on the amount and type of information which could be made
available to Region IV as a whole through the mechanism of a Regional
Data Network. It is therefore essential that the material presented in
this section be reviewed carefully, so the nature of that upper bound
will be understood and appreciated.
Section 2.1 reports the responses given by state personnel to a
survey of data elements used in their systems. The survey was limited to
a list of fifty data element types which were thought to be of possible
interest to any family planning information system. The list is not
intended to represent a set of ideal data element types, nor intended
to represent a minimum required data element set.
Section 2.2 reproduces, for convenient reference, the principal
patient data collection forms used by each of the eight states in Region
IV.
Section 2.3 contains the results of an analysis of the primary or
atomic data elements found on the various data collection forms exhibited
in the previous section. The analytic framework is comprised of computer-
produced matrices detailing information relative to the appearance, meaning
and use of particular data elements in each of the eight state information
systems.
Section 2.4 charts the transformation of collected data into computer-
processable form, by displaying, for project reference, the file definitions
used by the various state family planning information systems that will
comprise the outlying nodes of the Regional Data Network.
2.1 DATA ELEMENTS SURVEY
At the commencement of this study the appropriate staff members in
each statewide family planning program in Region IV were asked to respond
to a survey of data elements collected and processed in their family planning
information systems. The results of
table.
the survey are displayed in the following
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn.
1. Clinic Number X X X X X X X X
2. Patient Number X X X X X X X X
3. Date of Visit X X X X X X X X
4. Type of Visit X X X X X X X X
5. Date of Birth X X X X X X X X
6. Services Provided (Medical/
Counseling) X X X X X X X X
7. Referrals to Other Programs X X X X X X X
8. Past-Visit Contraceptive Method X X X X X X X X
9. Next Appointment Data X X X X X X X X
10. Pregnancy History X X X X X X X X
11. Welfare Status (P.A./Medicaid
Recipient) X X X X X X X X
12. Educational Attainment Level X X X X X X X X
13. Place of Birth X X
14. Latin American Origin or Descent X X X X X X
15. Race X X X X X X X X
16. Sex X X X X X X X X
17. Source of Referral X X X X X X X X
18. Contraceptive History X X X X X X X X
19. Funding Source X X
20. Service Site Number and Location X X X X X X X
21. Address of Patient X X X X X
22. Age of Patient X X X X X X X
23. Marital Status X X X X X X
24. Name of Patient (Full) X X X X X X X
25. Name of Partner, Parent, Guardian
26. Regional Patient Number
27. Religious Preference
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn.
28. Social Security Number X X X X X
29. Telephone Number X X X X X
30. Encounters X X X X X
31. Appointment Failures X
32. Clinic Last Visited X X X X X
33. Clinic Professionals Seen X X X X
34. Date of Last Visit X X X X
35. Patient Type X X X X X X
36. Reason for Closure X X X X X X
37. Session Time X X X X X X
38. Types of Encounters X X X X X
39. Project Status at Time of
Admission
40. Medical History X
41. Complications in Contraceptive Use X X X
42. Hospitalization History
43. Follow-up X X
44. Family Planning Desires
45. Source of Sex Education
46. Public Services Used
47. Employment Status X
48. Financial Status X X X
49. Payment Sources
50. Amount of Payment
2.2 BASIC DATA COLLECTION FORMS
For ready reference, the following pages of this working document
are used to reproduce the primary data collection forms used by the eight
states in Region IV. Secondary forms (such as forms used in some states
to capture aggregate figures on counseling sessions, encounters, etc.)
are not reproduced.
A single form is shown for two of the states: Alabama and Florida.
That form is the "Clinic Visit Record for Family Planning Services"
designed by NCHS. At present, it is used only by the Alabama system,
but its use is contemplated in the Florida system which is now being
programmed. The field indicators shown on the sample used in this
document are ones used for the Alabama statewide family planning program.
Two forms are included for North Carolina: the "Patient Master Record"
and the "Patient Visit Record." Both forms have been included because both
forms are used for primary data collection at the individual patient level.
Two forms are also included for the Tennessee system. The reason in
this case, however, is that Tennessee is presently developing a substan-
tial revision of their current system and has already sketched out a rough
design for a new data collection form. Though it is important that this
proposed form be included in this document in order to accomplish the pur-
poses of the present study, special care should be taken to remember that
the proposed document is still quite tentative, and subject to considerable
change prior to final approval by the Tennessee statewide family planning
program.
The wide diversity among the eight state family planning information
systems is reflected by the wide diversity apparent among the various primary
data collection forms used by the states to collect more or less the same
kind of information. Since the purpose of the present project is to link
existing systems in a network rather than design a single system with a
single form and unified procedures, close study will have to be given to
the nuances of meaning attached to the categories and labels employed by
these diverse forms. The foundational work for such a study is presented
in section 2.3 of this report.
b. If None, give realer,
Pregnant Seeking Pregnancy
Other Medical Reason Other
8. Contraceptive Method at the End of This Visit
a. Method:
Oral (Pill) Injection
IUD Srerilization
Diaphragm Other
Foam None
Rhythm
Condom
LI
Ej Interim Method
None
U Abortion
Sterilization
a
a
Another Clinic Patient
Family or Friend
TV, Radio, Paper Ad.
Other
Unknown
LI
fl
III
ALABAMA/FLOIiIDA ALABAMA/FLORIDA
Social Security No.
(Fid. 112)

DEE ADINEIT 111, UN EDITITIOI
AID 111:1.1111F
PHILP IIE11111 3111111 E
IfE11.TII NEW RO:3 IU111111all trill
DUMB. AMER HID
HEALTH
CLINIC VISIT RECORD
NAmF (N/A Fld 11 1)
pate or Last
FOR FAMILY PLANNING SERVICES Pregnancy Termination
# 13)
(N/A Fld. #2) (N/A Fld. 1%3) (N/A Fld. 164)
IMMULLI (1.ASEr rMAIDEN)
(N/A Fld. # 5)
P:,;.1,111 I
A I)DR ESS
(N/A Fld. 116)
IS1REE I r
(N/A Fld. #7) (N/A Fld 113)1(N/A Fld. 169)
PATH'. NT NO
(COYI tlIPCODEr 1P1i0Eri r
CONFIDENTIALITY ASSURANCE: All information which would perms identification of an individual will he held in strict confidence,
will be Used only by persons engaged in and for the purpose of the survey. and well not be disclosed or released by NCI IS to iithers except I or
statistical purposes. The provision of services is in 110 Way contingent up, n the patient's providing any information on this form.
(DETACH THIS PART AND RETAIN AT THE CLINIC)
Has a Clinic Visit Record been submitted to the NCHS National
Family Planning Reporting System for this patient since Jan. 1, 1972f
No - Complete items 10 through 18 below
Yes then:
Is this the first Record completed for this patient this year?
Yes - Complete only Items 10, 11, I L below
(Fld. 161) No - Stop here
SERVICF SITF NUMBF N
Dist. 11 - County 11
PATIENT NUMBER
(Fid. 11 1)
(Fid. #3)
(Fld. #4)
(rid. //13)
(Fid. 1114)
(Fid. # 15)
(rid. 1116)
(Fld. #17)
(Fid. #19)
(Fld. # 20)
(Fid. #6)
I (Fid. 11 7)
I (Fid. 11 8)
(Fid. #10)
(Fld. 11 11)
(Fld. #12)
(Fld. 11 5)
(Fid. # 9)
6. Services Provided
a. MEDICAL SERVICES Code A = Sickle Cell
Code B = Medical History
NCHS
X Fid 1/ 30)
XX (Fid. #31)
X (Fid. #33)
3. DATE OF VISIT
4. TYPE OF VISIT
Initial Visit
Revisit (fi.d riot tln, year)
Revisit (nor row LIM 311,1
Qi Readmission Visit
5. DATE OF BIRTH
Pap. Smear
Pelvic Exam Urinalysis (n.e.s.)
breast E cam Blood Test (n.e.s.)
U Blood Pressure V] Sterilization
Pregnancy Testing Infertility Treatment
V. D. Testing 0 Other
b. COUNSELING
O Sterilization Infertility
Contraception LI

Other
7. Referred Elsewhere
Infertility Services
Other Medical Services
Social Services
9. Next Appointment a. Date
b. Purpose
O Supply Only LI

Other
Annual Medical No Next Appointment
Other Medical
AGENCY USE
NCFPS 0E0 MCHS PP We
Average weekly income
No. in Family
Patient was seen by
d.
e.
10. Pregnancy Hisrory
a. Number of Live Births
b. N umber of Feral Deaths
(Srill(iialai, A bOlio 71 6, ilifocarriagel)
c. Number of Children Now Living
11 Welfare Status
a. Are You or Anyone in Your Family
Receiving Public Assistance?
b. Are You or Anyone in Your Family
Registered for Medicaid?
12. Highest Grade of School
Completed
None Elementary School High School
Code 0 1,23,4,3,6, 7 ,8, 9,10,11,12,
College More Than 4 Years College
Code 13,14.15 or 16 17
13. Place of
14. Latin-American Origin
or Descent
15. Race White Am. Ind .
Fl Black Ef Other
16. Sex
D Female ID Male
17. Source of Referral
Outreach Worker
Other FP Clinic
Hospital, or
Other Health Agency
Private Doctor or Nurse
Welfare Agency
18. Contraceptive History
a. Have You Ever Used Any Method to Prevent Pregnancy?
13. Are You Currently Using Contraception?
c. What is the Last Method Used? (Check One)
U Oral kJ Rhythm
IUD el Condom
III Diaphragm Q Injection
LI Foam 111 Other
d. Who Prescribed that Method:
I ll Clinic tij D ug Store (non-prescript/off)
2 Private Doctor .7:j Other
Medicaid Number
(Fid. # 32)
l (Fld. // 21)
(Fid. #22)
(Fid. #23)
(Fid. 11 24)
(Fld. #25)
(Fid. #26)
(Fid. 11 27)
(Fld. #28)
(Fid. 1129)
FORM APPROVED OMEI 6F1 R 57
2
3
4
S
6
MO YR
1 I
GEORGIA GEORGIA
FM
COUNTY NO CLINIC BLDG. NO.
IDENTIFYING NUMBERS
NO NO YES
TELEPHONE NO
BEEN Al _f
YES
ARE YOU 61.12PIED HAVE YOU !VIP
NOW?
YES NO I
Fr 00610226 FAMILY PLANNING VISIT MO OA YR
LL 1IL_
TUOAY ,DATE LAST NAME AT RIR IN 'MAIDEN NAME,
RACE
CURRENT LAST NAME (ENTER "XX" IF SAME AS ABOVE)
ETHNIC SEX
I Buck wHiTT NITRATE
(NEAREST) TOWN OR CITY (P12 COUNTY)
BORN ON:
BORN IN;
STATE
EL-ILLF T
FIRST NO NICKNAMES)

MO OA YR
I
ONLY COMFLETt THIS SECTION WHEN PATIENT NEN TO C.1^,!C -OR. NAME FLAGGED ON MASTER FILE .CR. UPCATE CR CGi:RECTION,
WHAT COUNTY DO YOU LIVE IN?
ADDRESS =, name, town)
elrs.c..tr.s..,r1 ?11
DO YOU WANT TO
RECEIVE LDFF'CATION
OF APPC,TrAYNTS AT HOME?
ZIP CODE
HON MANY GPAI:fl
E
YOU CC4A/LETEC?
1
CLINIC TYPE
STATE ASSIGNED
SOCIAL SECURITY
Li SP'(IR Ar.s NCY
I
...ar,r=cor."-.--t-,--amacrmea.=--,,..-zrawsmostresmon,
r:.a.r.j,;.U.:.(...f HL:II. C.)RY IF NEVER >:,-. 0 CR
M .:. DA YR IF NO C-IA!' GE
DAIS LAST
1 -I 1 ?I SINCE LAST
1-1. PREGNANC+ ENDED
SEE mASTEF !II,
SERVICEISI PROVIDED
a. mEOICAL/NUING b. COUNSELING
COMPLETE GREEN SECTIONS EVERY VISIT
IUD
PILLS
INJECTION
FOAM
CONDOMS
DIAPHRAGM
STERILIZATION
RHYTHM
OTHER
. NO METHOD
NOT KNOWN
PRESENTLY USING
METHOD MARKED ABOVE?
YES NO
If "NO", GIVE DATE
THIS METHOD WAS
STOPPED.
MO YR
WHO PRESCRIBED
LAST METHOD USED?
PRIVATE
DOCTOR
PUBLIC
CLINIC
NON-PRESCRIPTION
IDRUG STORE)
IUD
PILLS -I
INJECTION
FOAM
CONDOMS '
DIAPHRAGM
STERILIZATION
RHYTHM
OTHER
NO METHOD
IF "ND METHOD" OR METHOD
CHANGED. MARK REASON
PREGNANT-
PLANNED
PREGNANT.
UNPLANNED
SEEKING
PREGNANCY
MEDICAL
REASON
OTHER
ARC DE
0
P
0
N
A
L
S
P S
E
C U
I D
A
L E
S
PURPOSE(S) OF NEXT APPOINTMENT
SUPPLY VISIT OR
STRING CHECK
ANNUAL
EXAMINATION
MEDICAL
PROBLEM
OTHER
NO NEXT
APPOINTMENT
DATE OF NEXT APP.
NUMBER Of
PATIENT S CHILDREN
ALIVE NOW
MISCARRIAGES
TOTAL ABORTIONS
STILLBIRTHS
INFANT DEAT ,, S
BEFORE THIS VISIT
.... MARK METHOD"
FROM MASTER FILE
-IF PATIENT NOT ON TAASTER,
MARK LAST mETH'.:D Lay!
USED
AFTER THIS VISIT
ATARI( THE METHOD
TO BE vSED
AFTER THIS VISIT
ALSO LEST PATIENT
ON MASTER FILE IN:
COUNTY NO.
CLINIC REDO. NO.
t' CYCLES
DISPENSED
BLOOD PRESSURE
BREAST EXAM
PAP SMEAR
G. C. CULTURE
PELVIC EXAM
URINALYSIS
HEMATOCRIT
V.D. BLOOD TEST
STRING CHECK
STERILIZATION
VAGINITIS RX
OTHER
POSITIVE
PREG. TEST
NEGATIVE
PRIG. TEST
SOCIAL SERVICES
CONTRACEPTION
STERILIZATION
PROBLEM PREGNANCY
INFERTILITY
OTHER
REFERRED FOR:
SOCIAL SERVICES
MEDICAL SERVICES
STERILIZATION
ABORTION
INFERTILITY
TREATMENT
OTHER
OPH/111S(1)-55 (REV. 11-741
- 8 -
Type of Visit
0. Supply only (scheduled) 5. Unsched. revisit fur
1. Intake annual checkup
2. Revisit (annual checkup) 6. Unsched. non-problem visit
3. Revisit (not first of yr.) B. Unsched. problem visit
4. Supply only (unached.)

including annual checkup
9. Unsched. problem revisit
Has a Clinic Visit Record Is this the first Clinic Visit 1 1
Form ever been submitted to Record Form submitted this 55
SFPIS for this patient? calendar year?
1. Yes 1. Yes - complete sections "8 & C"
2. No - complete sections "A,B, & 2. No - complete section "C" only
C" below
3. sex
1. Female
2. Male
Race
1. Black
2. White
3. Am. Indian
4. Other
5. Mexican-American
6. Oriental
4.Curr
i
ent_ Residence p_ County State 2.1s patient of Latin American descent or origin?
1. Yes
2. No [_1
Section C - All Visits
Medicaid Number
17
20, Patient
Status 21. Medical Services
29
18. Who prescribed or dispensed
last method?
1. Clinic 3. Drug Store
2. Private doctor 4. Other
111.Associate Referrals
72 71
F-1
36
FIRST NAME
29
COUNTY REGION
1 1
37
MO. DAY YEAR
17
DATE OF BIRTH
MO. DAY YEAR
47
KENTUCKY
PATIENT NUMBER
FACILITY
11111
CLINIC NUMBER
KENTUCKY
SFP1S CLINIC VISIT RECORD FORM
DATE. OF VISIT LAST NAME
Section A - Initial Intake Only
64 65
now living pregnancies
13. Income 16.0ccupation
Li
U.Referral Source 15.Education 11.Receiving Public 12.Registered for
Assistance? Medicaid?
1. Yes
1
I 1. Yts
2. Na 2. No

Section B - Annual Updates
4.0utcome of last $.Number of
pregnancy I live
births
7.Number of fetal deaths
(stillborn, abortions,
miscarriages)
66
10.Number in household
I I
70
0.Number of children S.Nuther of unplanned
22.Counseling Services
1. Sterilization
2. Contraception
3. Infertility
4. Other
(specify)
23. Contraceptive method at
the end of this visit
(only one)
1. Oral (pills) 6. Condom.i
2. IUD 7, Injection
3. Diaphram 8. Sterilization
4. Foam 9. Other
5. Rhythm O. None
Li
NCFP5 CEO MCHS PPWP NCHS LOCAL
25 37 69 61 73
Program
Code
MCH - 200 (055. /751
a.
b.
c.
d.
e.
f.
Testing
31.Sickle Cell Pap Smear VDRI, GC Pre 32. Marital
I._
Status Li
O. None 3. Infertility serv.
1. Abortion 4. Other medical serv.
2. Sterilization 5. Social services
30. Problem visit
MU no method, the reason is -
1. Pregnant 4. Other
2. Other medical reasons
3. Seeking pregnancy
28. Purpose of next appointment
1. Supply only 4. Other
2. Annual medical 5. No next app.
3. Other medical LJ
2S.Date of termination 27.Date of next
of last pregnancy appointment
Mo. DaT
1
Year Mc. Day
sa 64,
1. Pap smear
2. Pelvic exam
3. Breast exam
4. Blood pressure
5. Pregnancy test
41
6. V.D. testing
7. Urinalysis
8. Blood test
9. Sterilization
0. Infertility treatment
1. Other
U. Last method of contraception
1. Oral (pills) 6. Condom
2. IUD 7. Injection
3. Diaphram 8. Other
4. Foam 9. None
5. Rhythm
24.Interim method?
Yes -
No blank El
41
Year

Zip (09-73) -1

Apt. City Census Tract (66-681 Telephone (74 801
ANSWER SHADED BLOCKS (QUESTIONS 28-501 FOR EACH ADMISSION. READMISSION. NEW TO DATA.
)
School Grades Complete (36-37)
Elm. HS. College
00 05 09 13
01 06 1C 14
02 07 11 15
03 03 12 16
04 17 or More
99 Unknown
No. of
Pregnancies (38)
0 5
1 6
2 7
3 8 or more
4 9 Unknown
(76)
Date(15-20) I I
PATIENT NAME
Last (21 321 Fiist (33 - 39) Ma1,110 (101
rADDRESS
(4 1 65 I-Muse * Street
EVERY VISIT
DEMOGRAPHIC/MEDICAL (1-4) - TFP2
COUNTY
COUNTY NO. CL NO
NAME/ADDRESS (1.4) TFA1
PATIENT NUMBER (5-141--- -4
LONG FORM
MISSISSIPPI
IddISSISSMI

FAMILY PLANNING PROGRAM
Registered for
Medicaid (27)
1. No
2. Yes
9. Unknown
Race (34) Marital Status
1. White (35)
2. Black 1. Never
8. Other Married
9. Unknown 2. Now Married
3. Previously
Mart ied
9. Unknown
Date of Birth (28-33)
1 1
Mo. Day Yr.
Currently on
Welfare (26)
1. No
2. Yes AFDC
3. Yes Other
9. Unknown
Type Visit (25)
1. New Admission
2. Medical followup
3. Readmission
4. New to Data Sys.
5. Annual Medical
Number of Living
Children (40)
0 5
1 6
2 7
3 8 or
4 more
9 Unknown
9 Link's, etin
Main Source of Referral (49)
Outreach WorkeorFrogram
Pal sonnel
2. ?the, FP Clinic
3. Another flospi to
Heal th Aire acy
4. Pvt. Do,:dor or Nurse
5. Wells Department
6 Other Clinic Patent
7. Friend or Relative
8. TV, Radio. Paper AD.
9. Other 0. Unknown
Children under
5 years (41)
0 5
I 6
2 7
3 8 or
4 mnie
9 Unknown
Oa e of Termination
o Last Pregnancy
442-471
Ou come Last Pregnancy
(.151
1. Bann Alive-Term
2. Bien .Alive-Premature
3. Coin Dead
4. MAir.1 , n:.gii/Abor I.
7. Neve, Pi candid
8. Othei
9. Unknown
Mo. Day Yr. 1
a
a
z
z
0
U
z
?,
a
2

0
!
Number Born
Alive (39)
1 01 67
I2 Bin
r 3 mole
1 4
5
FP Method most U., , c;
Past 7 Years (501
1. IUD 6. Infection
2. Pig 7. Timor Lig.
3. Foam 3. Other
4_ Diaphragm 9. Unknown
5. Condom 0. None
A. Vasectomy
RETURN VISIT ONLY (51-52) Problems of Method of FP (56-57)
01 Thrombophlebitis
02 Pregnancy 10 Irritation
03 Nausea 11 Sooting
04 Weight Gain 12 Increased
05 Headaches Menstruation
06 Infection 13 Decreased
07 Expulsion Menstruation
08 Pain 14 Psychological
09 Allergies 15 Other
00 None
Purpose of Visit
(551
1. FP Services
(Contraceptive)
2. Complications
of FP
3. Questionable
Pregnancy
4. Infertility
5. Other (Specify)
Have you
completed
a year of
school
since your
last visit?
1. Yes
2. No
3. Unknown
(52)
(531
Circle for
Followup to
S. C. Program
Counselling (58)
1. Contraceptive
2. Sterilization
3. Infertility
4. Other
Have you been Pregnant
since last visit (51)
INTENTIONALLY
1. Yes
2. No
UNINTENTIONALLY
3. Method Failure
4. Unable to obtain serv.
5. Dissatisfied/Discont.
6. Incorrect Utilization
9. Unknown
Patient was seen
by (59)
1. Physician
2. RN only
3. LPN only
4. Nurse-Midwife
5. Other Personnel
Only
6. FP Nurse
Practitioner
(54)
If Male
Patient
Circle here
CIRCLE EACH MEDICAL SERVICE PROVIDED THIS VISIT
Breast
(60)
1. Yes
2. No
Pelvic/Pap (61)
1. Both 3. Pelvic
2. Pap 4. Neither
Serology/GC (62)
1. Both 3. Serology
2. GC 4. Neither
Pregnancy
Test (63)
1. Yes
2. No
Urine/BP (64)
1. Both 3. Urine
2. B P 4. Neither
Hgb/Hct (651
1. Yes
2. No
Other Med/Lab
Test (66)
1. Both 3. Lab
2. Med. 4. None
Primary Method contraception until next
visit (67)
1. IUD 5. Condom 9. Unknown
2. Pill 6. Injection 0. None
3. Foam 7. Tuba! Lig. A. Vasec-
4. Diaphragm 8. Other tomy
Secondary Method Contraceptive until next
Visit (68)
1. IUD 5. Condom 9. Unknown
2. Pill 6. Injection 0. None
3. Foam 7. Tuba! Lig. A. Vasectomy
4. Diaphragm 8. Other
Mississippi State Board of Health
Date of Next
Appt. (69-74)
Mo. Day Yr.
Reason to Next Visit (75)
1. Medical/Routine 5. Medical/Complicated
2. Resupply Visit 8. Other Medical (Specify)
3. Counselling
4. Annual Medical 0. No Return Visit
Additional Comments
Signature
Form No. 208
IddISSISS
I J4

2. STREET ADDRESS
1. LAST NAME FIRST NAME
VNI
I1
011
VD
H
IIION

3. CITY
MJ.
Complete for potential, new, new to
system, transfer or readmission
patients: or to correct information.
4. ZIP CODE 13. DATE OF F RST VISIT 0 FAMILY
PLANNING
SERVICE
SITE
DEPARTMENT OF HUMAN RESOURCES
North Carolina Statewide
Family Planning Program
Patient Master Record
32. SERVICE SITE
NUMBER
33. PATIENT NUMBER
:14. LOCAL USE
23. NUMBER OF CHILDREN NOW LIVING 35. CENSUS TRACT (optional)
month day Year
6. MAIL
0: No
1: Yes
5. PHONE NUMBER 14, COUNTY OF RESIDENCE (use rode 001-199) 24. NUMBER OF INDUCED ABORTIONS
36. MODEL CITY NUMBER (optional)
r
7. PATIENT TYPE
I. New
2: Continuation (new to system)
3: Readmission
4: Transfer
5: Potential
0: Correction
8. BIRTH DATE
IS. MAIN SOURCE OF REFERRAL
1: Family Planning Program Staff
2: Hospital, or Other Health Agency
3: Private Doctor or Nurse
4: Welfare Agency
5: Another Clinic Patient
6: Fat-nits: or Friend
7: TV, Radio, Paper Ad
8: Other
9: Unknown
25. OUTCOME OF LAST PREGNANCY Of never
pregnant, leave blank)
I; Live, weight 51/4 Ills. or above
2: Live, weight below 5th
3: Fetal Death (etc. Abortion)
4: Induced Abortion
5: Other
26a. FAMILY'S NET INCOME (whole dollars)
7. STAFF NUMBER (OPtionol)
NAME AND AND ADDRESS DE SOMEONE ALWAYS
KNOWING PATIENT'S ADDRESS
month
9. RACE
1: White
2: Black
3; American Indian
4: Other
If Iatin American Origin,
a:so (X) Top Btts
1(1. SEX
I: Female
2: Male
II. MARITAL STATUS
Married
2. Never Married
3: Separated
4: Divorced
5: Spouse Deceased
16. HAVE YOU EVER USED ANY METHOD
TO PREVENT A PREGNANCY?
0: No
1: Yes
17. ARE YOU USING ANY METHOD NOW?
(1: No
1; Yes
'
I I
15. IS THIS AMOUNT RECEIVED
1: Weekly 2: Monthly 3: Annually?
OR, IF LEFT BLANK, WAS IT
4: Refused 5: Unknown?
27. NUMBER DE PEOPLE SUPPORTED BY
THIS INCOME
0: No
1: Al:DC
2: APTD
3: AB
4: Other (e. 8 food stomps)
THEIR PHONE NUMBER
18. WHAT IS THE LAST METHOD YOU USED? 28. FAMILY RECEIVING FINANCIAL
08: Sterilization
ASSISTANCE FROM THE DEPARTMENT OF 00: None
1: Oral
07: Injection SOCIAL SERVICES (not Social
2: IUD 99: Withdrawal Security)
3: Diaphragm 10: Other
4: roam, Jelly, etc.
5: Rhythm
6: Condom
19. WHO PRESCRIBED THAT METHOD?
0: No Method 3: Private Doctor
1: Clinic 4: Other
2: Drug Store (non-prescription)
day year
12. HIGHEST GRADE OF SCHOOL
COMPLETED
20. NUMBER OF LIVE BIRTHS 29. APPROVED FOR MEDICAID
0: No
1: Yes None Elementary
00 01, 02, 03, 04, 05, 06, 07, 08,
High School College
09, 10, 11, 12 11, 14, 15. 16
Over 4 Years of College
1 7
21. NUMBER OF FETAL DEATHS
(Stillbirths, abortions,
miscarriages)
22. TOTAL NUMBER OF PREGNANCIES
30. LOCAL USE
31. LOCAL USE
VN
I1
02
1V
D
MIS Form 1457 (Rey, 4-73) Mail blue copy to Patient Information System. Retain yellow copy at service site,
ADDITIONAL COMMENTS:
PREPARED BY:
34. SERVICE' SITE 35. PATIENT NUMBER
NUMBER
7: Injection
8: Sterlization
IS. Withdrawal
I)): Oilier
, interim
I
( (iN'I 1OACEP1 I'VE SERVICES PROVI F)ED IV. BLOOD TEST
0: None
I: Cottoselme
2' Ircr.linent
3: Si,pply
REFERRAL FOR:
4; Abortion
5: Sterilization
IC. IN I ERT ILI re SERVICES PROVIDED
VNY1011
V O H
IIION

VN
Ir1
0 11
V D HI
O
N
1. LAST NAME FIRST NAME
36. LOCAL USE
Complete for every visit.
DEPARTMENT OF HUMAN RESOURCES
North Carolina Statewide
Family Planning Program
Patient Visit Record
M.I,
5- NI, third Problem
6 Supply Only
7. ()wren, h Visit by Staff
9, I0 111,), up Care Home Visit
9: )
5. PHONE NUMBER I 6. MAIL ; 11. BREAST EXAM

0: No 0: No 2: Nurse
1, Yes ! I MD 3, Other
IlEART AND LUNG EXAM
7. PATIENT 10 E
New
2: Continuation
3, Readmission
lianster
5 : potent I al
( losme
12. 1)ATE OF THIS VISIT
anti) -7- day
I I ,
It: No 2: Nurse
- MI) 3: Other
15, PEI VIC EXAM
0: No 2: Nurse
510 3: Other
I 6. PAPANICOLA011 SMEAR
(e. g., Hemoglobin,
Ilematocrit. Blood Sugar)
20. PREGNANCY TEST
0: None 2: Treatment
1: Counseling 3: Referral
37. REASON FOR CLOSURE OF PATIENT
y ear 1--- - 0: Not Closed '
1 I I I I I, Unknown
L ' L I : 2: Medical Reason
27. CON tRAC Erl EVE MEI HOD USED PRIOR 3: Pregnancy (unplanned)
TO THIS VISIT (see
_. 4: Pregnancy (planned)
question 30 5: Personal for code)
[___i,

6: Death
29. COMPLIC ATIONS DUE TO ME1 HOD 7, Stet ilization
Ii: Nlo,ed 'I None
9. Other l - 1 1: PregnancV
2: Bleeding
3: Phlebitis
4: Pain/Cramps 10. 1 INII .t,? OVIE OF NEXT APPIAN ., MEN I
! 6. Explit).ion
5: Perforation
7: I re) lent Headaches or Dizziness
I [ hour p.,-''T-nOnth I-- day -1-- year
i n."- ; I I 1
(----"

B: ()Per Medical )97TYPE . Or NIX APPOINTM ENT
9: Other
!
(see que,tion B for code)

29. STAIN REASON FOR CHANGING METHOD
43. PLACE OF NEXT APPOINTMENT Inflict
0: No Change service site no.)
I: Patient Request
';' 2: Doctor Recommendation

3: Other
41. IF NIEDICAID l'A 1 II NT, < HECK BOX
I- AND A1-1-IX LABEL HERE.
30. CONTRACEPTIVE NIETI101) TO BE USED
UN'FIL NEXT VISIT (Interim method,
fill in top boxes)
18): None
CI. Oral
92: IUD
01: Diaphram
4: Foam, Jelly, etc.
5: Rhythm
tei: Condon,
26. SERVICE SITE LAST VISITED
2-4. MAILING ADDRESS
9. I STE (II '1 HIS VISIT
I: Irviuti Visit
2: Schedttled Reuiit
3, Annual Nledical
other Nledical
0: No ,-----
? 1: Yes I
0: No
Yes
0: No
ir Yes
21. URINALYSIS
0: No
1: Yes
0: No 2: Nurse
I: 1,11) 3: ()tiler
17. ()ONT.)Kliff177.A I TEST
n: No 2: Nurse
I: MD 3: Other
IS. SEROLOGY
IL 01 HER SERVICES PROVIDED
it None
1: Counseling
2: Treatment
3: Bab, ',maw
4, Transportation
REFERRALL TO:
5 Sled.,1 Services
6: Social Service,
7: Slental Health Service,
9: Other
22. VAGINAL SMEAR
23. BLOOD PRESSURE
24. CM HER LAB TESTS
(e. g., X-Ray)
25. OTHER MEDICAL EXAMS
re, g., lit., Wt.)
DIV. I inn 14 5 9 (Rev. 4 -73)
31. IF NONE. GIVE REASON 42, IF POTENTIAL (1R FORMER AFT)C
I: Pregnant 3: Seeking Pregnancy RECIPIENT, ENTER PATIENTS DSS
2: Other Medieal 4: Other
Reason
I I CASE OR ACCOUNT NUMBER BELOW.
12. I ()CAL USE '
0: No
Yes ;
0: No
I : y e , I 33. LOCAL ISE
IL No
Yes PREPARED BY:
Mail white COPY to Patient Information System. Retain green copy at service site.
0: No
Yes
I
I I
:Cc:
:71:k:
::t::
::t::
:1::
::t:
:17.7.
:3::
::3:1
::&.:
=4::
::4::
::4--7
:3:
:,,:
:3:: :a::
IS: -
: -
-- It :9n

:=f..,_ ..T-- - Sc-
CMMTIE S USING ONLY S-DIGIT NUMBERS LEAVE LAST TWO BLANK.
:3: :1:: :rt: :rt.: .L:41:: :3:: :3, ::T= :13, .:..:-
SOUTH CAROLINA SOUTH CAROLINA
SOUTH CAROLINA DEPARTMENT OF HEALTH AND ENVIRONMENTAL CONTROL
PATIENT FAMILY PLANNING SERVICE REPORT
NAME MARK IF NAIVE IS
TO BE RECORDED
LAST FIRST
Mai 11.11.11.
SECTION I !COMPLETE EACH VIOTI
DATE OF BIRTH
::2:: :S:
::S:
::4:: ::t: ::es :4E:
VISIT OR REPORT ONLY?
--- VISIT REPT. ONLY
COUNTY
?
::t:: =dr:
::t:
MI
SECTION I ICOMPLETE AS APPRopRIATEI
1:1::
;PATIENT NUMBER
'DATE OF VISIT OR REPORT
:3: :=1.= ::i-: :=4E: H
MALE FEMALE
AMER
WHITE BLACK IND OTHER
ORIGIN OR DESCENT !LATIN ANIL RICAN1
YES
PLACE OF BIRTH
S.C. OTHER U.S. OUTSIDE US.
MARITAL STATUS
SINGLE ----- MARRIED wiD. SEP. DIV.
FINANCIAL STATUS
SEX
RACE
::O: sra:
A
=Cts rrt: Y :TS: ::.7= =Er:.
:2: :
1:0: YEARS SCHOOL COMPLETED
::0: ::6:
:23: 1,..1c: A
- 3- - 3 - -7-- :9r:
CLINIC NUMBER
:.ort-: =1:: :rt.: :3:
":7:: :At': =SE:
nO: :ft: :cat
SOURCE OF REFERRAL AP
Cae......0.11...t. SEL. , HOsP PP pHN PVT DR. MEDIA DCS CLINIC OTHER
PARITY
=1:: :3:: :IS:::
PATIENT TYPE
NEW BY
NEW CONT. REAOM. TRANS. DITCH.
FETAL DEATHS
vs:c: ::t:: :3= :91:
LIVING CHILDREN "TYPE OF THIS VISIT
SCHEO. ANNUAL OTHER METH.
RTKST. MED. MED. tR08.
SUPPLY
ONLY OTHER
n4:
:3:: :a= :33t
"3- -3fi- 'AT: :3.
ONTRACEPTIVE METHOD
ORAL IUD FOAM STER. COND. WITH. EN.J. OTHER ,e= ,e:
7.767. =7.7:7 17B, INTERIM CONTRACEPTIVE METHOD
ORAL IUD FOAM SEER. COND. DIA ANY. WITH_ IN.). OTHER ?.
PREVIOUS CONTRACEPTIVE METHOD
?R" IUD FOAM DIR. RHY. WITH. INJ 0111ER
CLINICIAN CODE
:. :1:r.::--t-.-... :.ct: :zi: ::4D
5:0: T....t: :.:t: ::,: Trit:
EDUCATIONAL SERVICES PROVIDED
COUNSELING
EXAM
PELVIC . PREVIOUS METHOD CLINIC PVT. DR. DRUG STA OTHER '? PRESCRIBED BY
BLOOD
PRESS.
ABNORMAL ITY IN EXAM
PELVIC BR EAST
LAB TESTS
PAP __ LIZIBOR - URINE
G.C. SIB PREG.
....._ RUBELLA SICKLE CELL
X - RAY
,MONTILS OF CONTRACEPTIVE SUPPLIES GIVEN
:32:
BLOOD
PEE CS
::9:
:21:
:
:3:: 1 C:: 9:
REASON FOR DISCHARGE --
PEED. FRED.
MOVED
1 (.71THE ST PC17 ES% E 0 ME IHOD DIE0-11
--
?.... FAILURE FAILullE
UNABLE 10 1,, A, S TO 111,4 TO NOP. _____ NOT Sr /WALLY -- 01,0 . LL (In ACT PVT DR E Af,I NCY ACT IL t --.
?... :0:: :1:: :2,.: ::3-, :34:: :3:: :/3:: :2:: :II:: :2::
:92 :2:: :5:: :A:: :2:: :9::
sorer
RETURN DATE
om
::1): LEr 1:7:: . ::0:
::G: :II::

A
21:: :-4: R
:0: ::t:: ::3.:
77.5.
E. ic tml 114E%, lull
POSITIVE LAB RESULTS
PAP
PREG RUBELLA
STS

SICKLE ?
CELL .?.....
INFERTILITY
COUNSELING SERVICE
REFERRED ELSEWHERE
INFER . *BOR. STEEL
OTHER
soc
Ft

SECTION III ICOLIBLE TE WHEN PATIENT IS D:ScHABGEDI
? 13
(37-42) 1. (4 ,;)
I
Po+ir,rit Number (5-14
PATIENT NAME
CoLnty No
121-?2) i22-24)
Coun t y
phone (78-84) opt city census tract (70-72) zip (73-77) (45-69) house 4- street
(85-95) Medicaid Number F1111111111

no do yr
6. Other Social
Agency
7. Self
8. Other
9. Unknown
0. Hospital
Main Source of Referral (49)
1. Physician
2. P.H. Nurse
3. Other Health
Dept Staff
4, Friend or Re!.
5. Welfare Dept,
6. A.
7. B.
8. Other
9. Unknown
0. None
Family Plcnn .ng Method most (50)
used in last 2 years
I. IUD
2. Pill
3. Foam
4. Diaphragm
5. Condom
04. Diaphragm
05. Condom
06. A
07.
00. None
1. !_io
2.
3. Foc,1
08. Oi!- or
30.
Demographic/Medical (1-4) -
Maternal Health & Family Planning
PHLH Form No. 31.01
See. 6-73
N-15 SIT signature
aaS
S
aN
t12
,1
zas
s
am
mai

Name/Address (1.4)-TFAI TENNESSEE DEPARTMENT
OF PUBLIC HEALTH
FAMILY PLANNING
MEDICAL DEMOGRAPHIC RECORD
FOR COUNTY USE ONLY
Date Indexed Place Filed
Do not use carbon
Remove the white and yellow sheet from pad BEFORE writing
Name/Address Use Ballpoint Pen
Change
Where several answers are listed-please circle the correct NUMBER
ADDRESS
Every visit: Answer Shaded Blocks (Questions 28-50) for each Now Admission or Re-Admission Patient
Currently on (26)
welfare?
1. No
2. Yes-AFDC
3. Yes-Other
4. Potential
5. Former
9. Unknown
(28-33) Race (34)
1. White
Marital (35)
Status
School Grades Completed
High
(36-37) Number of (38)
Pre3ncnzies
2. Black 1. Single Elementary School College 0 5
8, Other 2. Married 00 39 13 6
9, Unknown 3. Separated 01 05 10 14 2 7
yr 4. Divorced 02 06 11 15 3 8 or more
5. Widowed 03 07 12 16 4 9 Unknown
9. Unknown 04 08 99 Unknown 17 or more
Potirif's main (25)
reason for visit
1. Nciw Admission
2. Mr...ical Follow-Up
3. Re-Admission
8. Other
Date of Birth
Number born (39)
olive
0 5
1 6
2 7
3 8 or more
4 9 Unknown
Number of (40)
Living Children
0 5
1 6
2 7
3 8 or more
4 9 Unknown
Children under (41)
5 years old
0 5
1 6
2 7
3
4 9 Unknown
Oatcome of (48)
Last Delivery
1. Born Alive-Term
2. Born Alive-Premature*
3. Born Dead
4. Miscarriage
5. Abortion
7. Never Been Pregnant
8. Other
9. Unknown
05 lbs. S oz. or less
Dote Lost (42-47)
Delivery.
Patient (59)
was seen by
1. Physician
2. Nurse only
1 Other personnel
only
4. Nurse Practi-
tioner
Circ a YES o NO for each medical service this visit.
Breast Pelvic Pap Serology Other Med Other Lab
Exam (60) Exam (61) Smear (62) (63) Test (64) Test (65)
1. Yes 1. Yes 1. Yes 1. Yes I. Yes 1. Yes
2. No 2. No 2. No 2. No 2. No 2. No
Additional Comments:
Have you been pregnant (51)
since your last visit?
1. Yes-if yes, this
should be a re-
admission visit.
2. No
9. Unknown
t.let6ori

Have you completed (52)
a yeor of school
since your last visit?
1. Yes
2. No
9. Unknown
Question (53)
0 5
1 6
2 7
3 8
4 9
Sex (54)
1. Male
2. Female
Dote of Next (o."/-74)
Apoi,intrlent
(
1I 7oson.; for Next (75)
Visit
1. Meo]co Foilaw Llp
2. .2,-,upp;y Virit
8. Oil.,
O. No v:s:!
DATE (15-20)
mu en yr
Registered for (27)
Medicaid?
1. No
2. Yes
9. Unknown
of Ccr.!rc, pirio; Urrtii Next Vis i t (67 - 68)
TENNESSEE - PROPOSED TENNESSEE - PROPOSED
EXPERIMENTAL
FAMILY PLANNING DATA FORM
TENNESSEE


(Proposed form - not final)
ADDRESS - Number Street Apt. No.
NAME - Last First
BIRTHDATE (mo-day-year) COUNTY CLINIC
PATIENT
NUMBER:L__Ci f 1 i-1 , 1'1 1 i J
M. I.
VISIT
DATE:
TYPE
OF
ENTRY:


State Zip Cen. Tr. City

TELEPHONE -
CONTACT 1 Telephone 4 Any method
MODE: 2 Mail 5 Do not contact
3 Home visit
I Initial visit 5
2 Medical revisit 6
3 Readmission 7
4 Annual exam 8
9
Termination
Certification
Change/ correct
Supply visit
Other
SEX:
RACE:
1 Male
1 White
2 Black
2 Female
3 Amer. Indian
4 Other
1
COUNSELLNG:
Contraception 1 Infertility
1 Pregnancy
Sterilization 1 Cther
MEDICAL
SERVICES:
PATIENT
SEEN
BY:
LATIN AMERICAN ORIGIN: I Yes
MARITAL 1 Single 4 Divorced
STATUS: 2 Married 5 Widowed
3 Separated
YEARS OF EDUCATION:
LNCOME: 1 2 3 4 5 6 7 8 9
WELFARE 1 No 4 Potential
STATUS: 2 AFDC 5 Former
3 Other 6 Not within 6mo.
1 Pap smear 1
1 Pelvic exam 1
1 Breast exam 1
1 Heart/lung 1
1 Other medical 1
1 Wet smears 1
1 Blood pressure:
1 Physician 1
1 -P. H. N. 1
I F. P. N. P. 1
1 Nurse midwife 1
1 L. P.N.
Pregnancy test
Sickle cell test
Urinalysis
G. C. Culture
V. D. R. L.
Other blood test
Social services
Aide
Clerk
Nutritionist
Other
MEDICAID 1 Yes 2 No
MEDICAID
Ni7MBER- tit I
LIVING 0 1 2 3 4 5 6 7
CHILDREN: 8 (or more)
LIVE 0 I 2" 3 4 5 6 7
BIRTHS: i (or more)
FETAL 9 1 2 3 4 5 6 7
DEATHS: 6 (or more)
C:1 Private M. D. 07 Self
0 Outreach 08 Other
03 Health Dept. 09 Clinic patient
04 Friend/relative 10 Nurse-midwife
05 Welfare Dept. program
06 News media 11 Hospital
Yes
No
SOURCE
OF
REFERRAL:
EVER USED
CONTRACEPTION:
1
2
CURR ENT
METHOD:
TYPE:
(inv. code)
01 IUD
02 Pill
03 Foam
04 Diaphragm
05 Condom
06 Rhythm
I 1 AMOUNT:
07 Injection
30 Sterilization
09 None
10 Method 'A'
11 Method 'B'
1
REFERRAL: 1
1
Sterilization 1
Infertility 1
Other medical 1
Social services
Voc. Rehab.
Other
DATE of NEXT
APPOINTMENT:
REASON 0 No next visit
FOR 1 Med. followup
NEXT 2 Resupply
VISIT: 3 Annual exam
4 First medical
5 Prenatal
6 Counseling
7 Other
REASON
NO
NEXT
VISIT:
NOW USING 1
CONTRACEPTION: 2
LAST 01 IUD 05
METHOD 02 Pill 03
USED: 03 Foam 07
04 Diaphragm 08
Yes
No
Condom
Rh:..thm
Injection
Other
01 Unint. preg'cy 20 Deceased
02 Desires preg'cy 30 Sterilization
03 Moved 35 Menopause
04 To private care 88 Other
05 Transient 90 Has app's.
10 Lost interest 91 Unknown
PRESCRTIED 1 Clinic
BY: 2 Private M. D.
3 Drugstore
4 Other PROVIDEP
- 15 -
2.3 ANALYSIS OF PRIMARY DATA COLLECTION ELEMENTS
This section of the working document presents the results of a
preliminary analysis of the primary data collection forms discussed and
reproduced in section 2.2. The analysis was conducted in order to provide
the foundation for an understanding and appreciation of the differences
between the eight state data systems operational or planned in Regional IV.
The differences emerge at every stage of processing, reformatting, and
reporting; they are clearest, however, at the collection stage, for that
is when they are in a sense created.
Immediately following are two simple listings of each of the data
elements analyzed. The first is arranged in simple alphabetic order,
according to whatever word happened to appear first in the label of each
data element; the second is divided into a number of various logical blocks,
each of which contains a subset of information relating to a particular
topic or activity and forming a natural cluster of data elements.
Following the two index listings are the tables used to conduct the
analysis. Each table contains an identification of the particular atomic
element, and this identifying label is associated with a control code for
project purposes only. The headings in the table proper are: State; Form
Number; Format; When Entered; and Comments. The first two labels are self-
explanatory, and only a few comments need be made on the others. The "Format"
column is used to record whether there are fixed specifications for entering
the data requested or whether the person filling out the form may enter the
information without restrictions; naturally, if there indeed are fixed
specifications, those specifications are recorded. The "When Entered"
column is used to indicate whether the data element is a required entry
for every patient visit or only for certain kinds of visits. The "Comments"
section is used primarily to provide a further description of the format
information specified in the "Format" column; that is, the wording of a
particular data element label may be described in the "Comments" section
(as for example, the variant labels: "Date of Visit", "Month-Day-Year",
"Date of Visit or Report", etc.).
Since Florida plans to use the same form as that currently being
used by Alabama, the two states are grouped together for purpose of
analysis and appear as Alabama/Florida.
As discussed earlier, North Carolina uses two primary data collection
documents. Whenever the same data element appears on both forms, the number
of only one of those forms (the "Patient Master Record") will be shown in
the table.
The final line in each table is "Prop-Tenn" -- that is to say, the
proposed Tennessee form which is being considered for use in the revised
Tennessee system but which is not final.
////////////////////////////////////////////////////////////////////////
M T P
ALPHABETICAL GROUPING A I E R
LGKSNSNO
DATA ELEMENT CODE A A Y S C C N P ************************************************************1.1.*********.
ABNORMALITY IN EXAM * A112m .y. . .
ABORTION (REFERRED FORS) *A090' -Y-Y' I Y I I .
ABORTION CUUNSELING *4026" Y I
ADDRESS * 0 0 21.y y.y y.y. .y.y
AMERICAN INDIAN (RACE) *A114 I Y I Y I -Y-Y- .Y
AMOUNTS *A142 Y
ANNUAL EXAMINATION *A082 I YwY I Y I Y I Y I YwY I Ym
APPOINTMENT NOTIFICATION AT HOME? *0020- -Y- - -Y- -Y-Y-
ARE YOU CURRENTLY USING CONTRACEPTION? *A107"Y" ' ' 'Y' '19 I Y I
ARE YOU MARRIED NOW *0018 I Y I YwYwY I Y Y I Y.
BLACK (RACE) *A037 I Y I Y I Y I Y I Y I YwYwYw
BLOOD PRESSURE *A067"1'Y-Y-Y -Y-Y- Y-
BLOOD TEST *Al29 I . mym ay. . Y
BORN IN *A012'Y Y I I w Yw I -
URNON *A008 I Y IYwYYwYYwY I Y
I
I
*A066 I Y I Y I Y I Y I Y I YwY I Y
CHitD4EN UNDER 5 YEARS OLD *A099w " I -Y- "Y.. I
CI.. VISIT REC. FORM BEEN SUBMTD. SFPIS FOR PT.? *Al25' ' 'Y

CLINIC NUMBER *A004" 'Y"YwY' - VmY I Y I
CLINIC TYPE *A005' 'Y I ' - ." I CONDOM (AFTER THIS VISIT). *A050 I YwY I Y I Y I Y I Y Y. -
CONDOM (BEFORE THIS VISIT) *A04 3 'Y'Y"Y"Y'Y'Y'Y'Y'
CONTRACEPTION COUNSELING *A026 I Y I Y I Y Y I Yw - I Y
COUNTY NUMBER *A003 I Y I Y I Y I Y I Y I Y I Y I Ym
CURRENT METHODS *A136..........y.Y.
CURRENTLY UN WELFARE? *A095"Y" wYwY'Y' "Y I Y I
DATE FIRST VISIT TO F.P. SERVICE SITE *A151 - - - . .y. . .
DATE LAST PREGNANCY ENDED *A029 I YwY I Y I Y
DATE OF LAST DELIVERY * A118 . - a - - .y. -
DATE OF NEXT APPOINTMENT *4086 I YwY Y I Y I Y Y I Y Y
DIAPHRAGM (AFTER THIS VISIT) *4057 I YwY Y I Y"Y Y'Y' -
DIAPHRAGM (BEFORE THIS VISIT) *A044 I YwY I Y I Y I Y I YwYwYm
DRUGGIST PRESCRIBED LATEST METHOD *A051wY I Y I Y -Y-Y- -Y-
EDUCATIONAL SERVICES PROVIDED *4111.. - m - m my. - -
ETHNIC *A010 Y Y I Y I Y I Y Y Y
FEMALE *A009 I Y I Y I Y I I Y I Y I YmYse
FINANCIAL STATUS * Allosmym my. moYmY.y.Y.
FIRST CLINIC VISIT REC. FORM SUBMITTED CAL. YR.? *Al24w I I Y I I - I I
FIRST NAM *A006"Y'Y"Y`Y"Y"Y'YwY I FOAM (AFTIR THIi VISIT) *A055wY"Y I Y I Y I Y I YY I I
FOAMIBEFO E THI VISIT2 *A042"YY I Y I YwY I YwY I Y I
E FORMER AFDC RC RECIPIENT ENTER DSS CASE OR ACCT. NO *A149 I I I I I Y I I m .
G.C. CULTURE *A
COMPLETED
wY I Y I Y I Y I Y I ..Y.
HAVE COMPLETED YEAR OF SCHOOL SINCE LAST VISIT? *A103- - -Y-Y- - "Y I
HAVE YOU BEEN PREGNANT SINCE YOUR LAST VISIT? *4102 - . my ... y
INF '48 BR' AB MR4E9HOD To PREVE NT PREGO nilg:Y Y : - :Y :Y:Y:
HCT OR HGB *A073- ay. ay. my. - -
HEART/LUNG *A07 ..... y. - .y.
HIGHEST GRADE OF SCHOOL COMPLETED *0017"Y"Y I YwYwYwY'YwY I
IF NEVER PREGNANT/NO CHANGE SINCE LAST VISIT *A030 -Y- - -Y- I
IF NO, DATE STOPPED *A025 Y
INFERTILITY *A077 Y I Y I Y Y. - -
INFERTILITY COUNSELING *4033 I YwY Y I Y I Y I Y -Y-
INFERTILITY TREATMENT (REFERRED FORS) *A091. mY Y. - - - - -
INJECI
NJECTION
tB
cAFTER THIS S VIS VISITIT) *A04)
*A051
I
Y4'Y
I Y
'Y
I Y
wY
I Y
wY
I Y I
YwYwYw I I
TION EFORE THI I Ym
IUD (AFTER THIS VISIT) *A052 I Y I Y Y I Y Y I YwY I I
IUD (BEFORE THIS VISIT) *A039'Y'Y'YwY'Y'Y'Y'Y I
LAST NAME (CURRENT) *A007wYwY I Y I Y I Y I Y I Y I Y I
LAST NAME AT BIRTH * A001mymy. a m . . m m
LOCAL U *6w w w I I Y I I . m
MAIN SOUR
SE
CE OF REFERRAL *A10
A15
1 Yw wYwY I Y I Y I Y I Y-
MA? *A011 Y I Y Y.Y I Y I Y I Y I Y.
MARK IF NAME IS TO BE RECORDED * A108. m - - my. - -
MEDICAID NUMBER *A093' ' 'Y' 'Y' "Y"Y"
MEDICAL HISTORY *Al20 y. - .....
MEDICAL PROBLEM (PURPOSE OF NEXT APPOINTMENT) *A003 I Y I Y I Y I YI Y I I Y I Yw
MEDICAL REASON (REASON FOR STOPPING METHOD) * A 0 65. y .y.y. .y. . . .
MEDICAL SERVICES (REFERRED FOR') *A088- -Y-Y
METHOD NOT KNOWN (BEFORE THIS VISIT) *A048- -Y- -Y- - - Y- - MEXICAN AMERICAN (RA CL) *Al27- ' " - - - - - -
MIDDLE NAME (OR INITIAL) *A106-Y- eq-Y-Y-Y-y-Y-
MODEL CITY NUMBER * A152m . - y. - - .
MONTHS OF CONTRACEPTIVE SUPPLIES GIVEN * A113 ...... y. - .
NAME,ADDR, SOMEONE ALWAYS KNOWING PATIENT"S ADDR *A154 ..... Y... w .. .
NEGATIVE I'REG. TEST *A080-Y Y- - -Y- - .
- 18 -
NO NEXT AEEPPOINIITMENNyTSS
NONE (ASSOCIATES T1T) NDNE REFERRAL)
NONE (BEFORE THIS VISIT)
NUMBER BORN ALIVE
NUMBER IN FAMILY
NUMBER OF INDUCED ABORTIONS
NUMBER OF PATIENT"S CHILDREN ALIVE NOW
NUMBER OF PREGNANCIES
OCCUPATION
ORIENTAL (RACE)
OTHER (BEFORE THIS VISIT)
OTHER (COUNSELING)
OTHER (MEDICAL/NURSING SERVICE(S) PROVIUEU)
OTHER (PURPOSE(S) OF NEXT APPOINTMENT) OTHER (RACE)
OTHER (REASON FOR NONE OR METHOD CHANGE)
OTHER (REFERRED FOR:)
OTHER (WHO PRESCRIBED LAST CONTRACEPTIVE METHOD?
OTHER METHOD (AFTER THIS VISIT)
OUTCOME OF LAST DELIVERY
PAP SMEAR
PATIENT SEEN BY:
PATIENT TYPE
PELVIC EXAMINATION
PILLS (AFTER THIS VISIT)
PILLS (BEFORE THIS VISIT)
PLACE OF NEXT APPT I (ENTER SERV. SITE NO.)
POSITIVE PREG, TEST
PREGNANCY (COUNSELI
E
NG)
PREGNANT*PLANNED (RASON FOR STOPPING METHOD)
PR
RE
EGNANT*UNPLANNED (REASON FOR STOPPING METHOD)
PR N
S
A
EN
AL
Y
T (USERAING SON FOR METHODM
NEXT
ARKPE A D A
POI
B
NTMENT)
PTL
PRIVATE DOCTOR PRESCRIBED LATEST
O
ME
VE
THOD
PROBLEM VISIT
PROBLEMS Uf METHOD OF F.P.
PROGRAM COUE
PUBLIC CLINIC PRESCRIBED LATEST METHOD
PURPOSE OF VISIT
WUESTION 53
REASON FOR DISCHARGE
REFERRED ELSEWHERE
REGISTERED FOR MEDICAID?
RHYTHM (AFTER TH1 VISIT)
RHYTHM (BEFORE TH S VISIT)
SECONDARY METHOD F CONTRA. UNTIL NEXT VISIT
SEEKING PREGNANCY (REASON FOR STOPPING METHOD)
SERVICE SITE LAST VISITED
SERVICE SITE NUMBER
SICKLE CEO. ANEMIA TEST
SOCIAL SECURITY NUMBER
SOCIAL SERVICES (REFERRED
SOCIAL SERVICES COUNSELING
FORS)

SPECIAL AGENCY NUMBER
SPECIAL STUDIES/ADDITIONAL COMMENTS
STAFF NUMBER
STATE ASSIUNED NUMBER
STERILIZATION
STERILIZATION (AFTER THIS VISIT1 STERILIZATION (BEFORE THIS VISIT)
STERILIZATION (REFERRED FORS)
STERILIZATION COUNSELING
SUPPLY ONLY
SUPPLY VISIT OR STRING CHECK
TELEPHONE NUMBER
THEIR TELEPHONE NUMBER
TOOAY"S PATE
TOTAL FETAL DEATHS
IRANSFERREO TO:
TYPE OF THIS VISIT
TYPE: (INV. CODE)
URINALYSIS
V.D. BLOOD TEST
VDRL
VISIT OR REPORT ONLY?
WET SMEARS
W
WHAT
E ( COUNTY RACE)DO YOU LIVE IN HIT
*A085.y y.y y. -Y-Y-
40 * 61*Y*Y*Y*Y*Y* *v. -
*A130. y =====
*A131. -Y- .y
*A098*Y Y*Y*Y* -Y-Y-
* A119.y. .y. .y. .
.A150. . al'. m
*A031 Y*Y*Y*Y*Y Y Y*Y.
*A097. - .y.y.y y.

*AI26 * *Y* - - * -
*Al23 * ......
*A047 Y*Y Y*Y Y Y y*Y.
*A034 y.y y.y y y.
* A0714.y y y.y.y .y.
*4084 Y Y YeY Y Y Y
.A115-y. y.y.y.y .y.
*A066 Y Y*Y* Y* - * -
*A09?' "- ...... *A132*


Y . Y . *Y*
*A060 Y Y Y Y T Y"Y
* A100. .y.y.v. .1. 4.
*A069*Y*Y*Y*Y*Y*Y*V*V.
* A135.y. . . 19. no ny Ym
*Allow In my. .y y.
*A07I*Y Y*Y Y*Y*Y*Y*Y
*A053*V*Y*Y*Y"Y"Y'Y' -
*AOAO Y*Y*Y*Y*Y Y*Y*Y*
.y.
* A079.y.y.y.y.y.y my.
*A139........y.
*A062 Y*Y* *Y* .
*A063- y.y. y.y. -
140 .....
*
01
0024* 'Y Y Y
19 *A04*Y*Y*Y* Y Y Y* *Al27. .y .....
*A144 - . Y.Y *A1344. .y ......
*A050 Y Y'(* -Y-Y- *Y*
*A104
* A117 mmmmm y.y.y.y

*Al21 Y Y Y*Y V
*A096 Y Y*Y*Y y.y
*15 9 "Y'Y Y -Y-Y- * - *A 46*Y*Y*Y* *Y*Y* y.
*A 43 .y.
.A064.y.y.y"y.y.
*A147. Y 0
*Ars. Y.
* A 7y.y.y. y. y.
*Apia.y y y
- Y -
* Ampl y. .y.y mmmmmm
*0621 y
* 015 Y
* AA 036. .y.y.y.y. y. -
* A153. -Y- -
*4013'Y'Y Y Y'Y 1"Y Y*
* A076.y y y
*A058 Y Y.Y.y y y y.
*A045 *Y *YeY*Y *
*A089 Y Y Y* - - -
*A027 Y*Y*Y*Y" - *Y* *A133.

y. - in
*A0B1*Y*Y*Y*Y*Y*Y*Y*Y.
*00r Y Y -Y-Y- -Y-Y-
* A 1 5. . .
*A0
32
02 Y*Y**Y Y*.
*APYY*Y
Y
* *Y
Y
*Y
Y
*Y*Y
Y
*
* A035 wympaanno n
*A094*Y* *Y*Y*Y Y*Y*Y*
*A141 *05/2*Y*Y*Y*Y Y*Y *Y*
* A074 y.y.y. -Y- -
*Al28. *Y .Y.
* 39 mmmmmm y.

* A/A/ 8 mmmmm y. .y.
*0016- y y.y .y.
*A0 R Y Y Y Y Y Y"Y Y
////////////////////////////////////////////////////////////////////////
- 19 -
////////////////////////////////////////////////////////////////////////
T P
LOGICAL GROUPING PAGE 1 A I E R
KNO
DATA ELEMENT CODF LAA
G
YS S CC S N N P
****************************************************************e*******
- PATIENT INFORMATION
LAST NAME (CURRENT)
FIRST NAME
MIDDLE NAME (oR INITIAL)
MARK IF NAME IS TO BE RECORDED
LAST NAME AT BIRTH
BORN ON
BORN IN
ADDRESS
NAME,AD0R 1 SOMEONE ALWAYS KNOWING PATIENTS ADDR
THEIR TELEPHONE NUMBER
WHAT COUNTY LIVE IN
STATE ASSIGNED NUMBER
i0EIVAL S VGAI NIT Y- NWEi R
r6RW I RFN M PRIPIENT ENTER DSS CASE OR ACCT. NO
FEMALE
MALE
BLACK (RACE) WHITE (RACE)
AMERICAN INDIAN (RACE) OTHER (A4)
MEXICA
R N AmERIcAN (RACE)
ORIENTAL (RACE)
ETHNIC
*A007 Y-Y-Y-Y-Y-Y y-Y-
*A006 - Y - Y - Y-Y - Y - Y - y - y-
:1182. Y
*A001-Y-Y -
*A00A-Y Y Y Y-Y Y Y I Y-
381?: Y41:Y:Y. Y Y.:y:y:
: : : :
*0016 y y y. - y
*0022 Y Y- -Y-Y- Y-Y*
*A013 Y-Y-Y I Y-Y-Y Y-Y*
* A94.y.y.y. . y.
*A093. .y y y y
* A 149 y. . .
*A009-Y 0 Y-Y -Tor-Y-Y-
*A011-Y-Y Y-Y-Y-Y y-Y.
*A037-Y Y-Y Y Y-Y y.y.
*A038-Y0Y Y Y-Y Y Y-Y-
*AII4-Y- -Y- -Y-Y- -Y-
*Ai ..y......
;:Y -Y-Y-Y-Y- -V.
*Al23 - - 'Y ......
*A010 Y Y-Y- Y Y y r-
-PATIENT HISTORY-
UCCUPATION
HIGHEST GRADE OF SCHOOL COMPLETED
HAVE COMPLETED YEAR OF SCHOOL SINCE LAST VISIT?
FINANCIAL STATUS
CURRENTLY UN WELFARE?
REGISTERED FOR MEDICAID?
ARE YOU MARRIED NOW
HAVE YOU EVER BEEN MARRIED
NUMBER IN FAMILY
NUMBER OF PREGNANCIES
NUMBER BORN ALIVE
NUMBER OF INDUCED ABORTIONS
CHILDREN UNDER 5 YEARS OLD
NUMBER OF PATICNI"S CHILDREN ALIVE NOW
OUTCOME OF LAST DELIVERY
UATE OF LAST DELIVERY
DATE LAST PREGNANCY ENDED
TOTAL FETAL DEATHS
HAVE YOU BEEN PREGNANT SINCE YOUR LAST VISIT?
IF NEVER PREGNANT/ND CHANGE SINCE LAST VISIT
*Al26 .y ......
*0017 Y Y Y-Y Y Y Y Y-
*A103 Y q- Y -
*A116'Y' Y -Y Y y Y I
*A095 Ya Y Y-Y y Y
*A096 Y Y Y Y- Y-Y
*001M -Y-Ymr-Y-Y y-Y-
* 0019. ay.
* A119.y. .y. Y. . .
*A097 -
*A096 Y
* Also. a a .Y.
*A099 - yap y
*A031 Y-Y-Y-Y Y Y y Y-
*A100 -Y-Y Y- Py-
. . . . . .y.
*A029"Y Y Y Y .....
*A032 Y Y I Y- -Y*Y*y.y.
*A102 Y Y I -
*A030 Y
M T P
A I H
LGKSNSN E O
DATA ELEMENT CODE A A Y S C C N P
************************************************************************
LOGICAL GRUUPING PAGE 2
'VISIT TYPE INFORMATION"
IODAY"S DATE
DATE FIRST VISIT TO F.P. SERVICE SITE
COUNTY NUMBER
CLINIC NUMBER
CLINIC TYPE
SERVICE SITE NUMBER
SERVICE SITE LASI VISITED
PLACE OF NEXT APPT.(ENTER SERV. SITE NO.)
FIRST CLINIC VISIT REC. FORM SUBMITTED CAL. YR.?
CL. VISIT REC. FORM BEEN SUBMTD, SFPIS FOR PT.?
PURPOSE OF VISIT
TYPE OF THIS VISIT
VISIT OR REPORT ONLY?
PROBLEM VISIT
SUPPLY
ONLY
MONTHS OF
L
CONTRACEPTIVE SUPPLIES GIVEN
PATIENT TYPE
APPOINTMENT NOTIFICATION AT HOME?
MEDICAL PRUBLEM (PURPOSE OF NEXT APPOINTMENT)
PRENATAL (REASON FOR NEXT APPOINTMENT)
OTHER (PURPOSE(S) OF NEXT APPOINTMENT)
NO NEXT APPOINTMENT
UATE OF NEXT APPOINTMENT
REASON FOR DISCHARGE
PATIENT SEEN BY:
STAFF NUMBER
* A002. y .y.y.y.y.y.y.y.
*A151.
- y -
*A003"Y I Y I Y I Y I Y I Y0Y I Y.
*A004 I Y I Y Y I I Y Y.Y.
* A005. v. -
*A146 ===== y.
*A147 - ' . . .Y. .
* A10 ..... y.
*A1.24. my ======
*4125. .y ======
*A145' "Y =====
4, 4094 Y I Y Y Y Y.Y.V. *AT.
- -
.y
* At 7. - m t, ======
*A081 Y Y"Y Y I Y Y If Y I *A133.
*Ati3 000000
* Attn. . .y. .y.y.
*0020- I Y I .Y.
*A083'Y'Y"Y"Y"Y" 'Y"Y"
.v.
*A0B4 Y Y"Y Y"Y" "V I Y
*A0B5'Y'Y"Y"Y" - y - Y-
*A086"Y"Y"Y.Y"Y"Y"Y.Y.
*A117" "Y'Y'Y . Y.
*A13S"Y - Y" "Y.Y.
* A 1 53 00000 y.
'MEDICAL TESTS'
ANNUAL EXAMINATION
ABNORMALITY IN EXAM
MEDICAL HISTORY HEART/LUNG
BLOOD PRESSURE
BLOOD TEST
HCT OR HGB
V.0, BLOOD TEST
BREAST
PAP SMEAR
mET SMEARS
G.C. CULTUME
PELVIC EXAMINATION
URINALYSIS
VDRL
SICKLE CELL ANEMIA TEST
STERILIZATION
INFERTILITY
POSITIVE PRE. TEST
NEGATIVE PREG. TEST
OTHER (MEDICAL/NURSING SERVICE(S) PROVIUEO)
*A082'Y'Y"Y"Y"Y"Y'Y I Y I
* A 1 12. . .v.
*Al20 Y
* A137 mmmmm y. y
*A067'Y'Y"Y"Y"Y Y "Y.
*Al29" 'Y' 'Y' "Y I
*A073' "Y Y I Y
*A074 Y Y Y I 0Y I
*A068"Y I Y Y.Y Y Y I Y Y.
*A069 I Y Y I Y I Y Y I Y Y I Y I *Al3g.
- -
yM .y.
*A070" Y'Y'Y'Y' 'Y'
*A071"V"Y'YYY'Y"If I Y.
*A072 Y Y Y'Y Y'Y Y
*Al28" - 'Y. I I .y.
*A075'Y'Y I Y I I -Y- y.
* A 0 705.y.y.v mmmmmm
*A077'Y'Y Y. 'Y. . .
* A079.y.v.y.y.y.y. .y.
*A080.y.y
- - Y - -
it, A078 Y Y I Y Y I Y. I -y.
LOGICAL GRUUPING PAGE 3 A
L
I E R
S
T
N 0P
DATA ELEMENT CODE A GA
K
M
S
C
N
YSCNP
***********************************************************************,
-CONTRACEPTIVE INFORMATION-
HAVE YOU EVER USED ANY METHOD TO PREVENT PREG
ARE YOU CURRENTLY USING CONTRACEPTION?
CURRENT mETHOD1
PRESENTLY USING METHOD MARKED ABOVE
IF NO, DATE STOPPED
IUD (BEFORE THIS VISIT2 PILLS (WORE IHIS VIs1T)
INJECTION (BEFORE THIS VISIT)
FOAM(BEFORE THIS VISIT)
CONDOM (BEFORE THIS VISIT)
DIAPHRAGM (BEFORE THIS VISIT)
STERILIZATION (BEFORE THIS VISIT)
RHYTHM (BEFORE THIS VISIT)
OTHER (BEFORE THIS VISIT)
METHOD NOT KNOWN (BLFoRE THIS VISIT)
NONE (BEFORE THIS VISI
PRIVATE DOCTOR PRESC
T)
RIBED LATEST METHOD
PUBLIC CLINIC PRESCRIBED LATEsT METHOD
DRUGGIST PRESCRIBED LATEST METHOD OTHER (WHO PRESCRIBED LAST CONTRACEPTIVE METHOD?
IUD (AFTER THIS VISIT)
PILLS (AFTER THIS VISIT)
INJECTION (AFTER THIS VISIT)
FOAM (AFTER THIS VISIT)
CONDOM (AFTER THIS VISIT)
DIAPHRAGM (AFTER THIS VISIT)
STERILIZATION (AFTER THIS VISIT)
RHYTHM (AFIR THIS VISIT) DIRER mETHO (AFTER THIS VISIT)IL NEXT VISIT
SECONDARY m THOD OF CONTRA. UNT
NONE FTR THIS VISIT) PREGNANT-PLANNLD (REASON FOR STOPPING METHOD) PRLGNANT-UNPLANNED (RLAsON FOR STOPPING MLTHOD)
SEII
A
NG PREGNANCy
E
(REA
R
SON iOR SITOPPINGOD) METHOD) mED CL REASO (RASON FO TOPpNG METH UTH R (REASON N FOR NONE OR M THOD CHANGE)
PROBLEMS OF METHOD OF F.P.
*A105*Y* - -Y- y-y-
*A107-Y - - -Y- -y.y
*A136 Y Y
*0024- Y*Y* - *Y-
*A025 Y
*A03945Y-Y*Y*Y Y*Y*Y*Y
*404 11 Y-Y*Y*Y Y Y*Y*Y*
*A041*Y Y*Y Y*Y-Y* *Y.
*A042*Y*Y*Y-Y*Y Y*Y*Y.
*4043*Y*Y*Y-Y*Y*Y*Y*Y
*A044 Y*Y*Y*Y*Y Y*y.Y.
*A045- -Y- -Y-Y-Y- .
*A046-y.y.y. y.y. .y.
*A047-Y-Y-Y-Y-Y-Y-Y-Y-
*A04g Y I
* A131. y y - -
*A049*Y Y*Y* Y*Y* *Y
* A050.y.y.y. -Y-Y- .y-
* A051 y y.y. y.y. y.
*A132- - -Y- -Y- .Y-
*A052 Y Y-Y-Y Y-Y - y- -
*A053-Y-Y-Y-Y-Y-Y y- - *A054-Y-Y-Y-Y-Y-Y- . -
*A055 Y-Y Y Y-Y-Y-Y-
*A056-Y-Y-Y-YY-Ymy- -
*A057-Y-Y-Y-Y-Y-Y-Y- -
*A05B-Y-Y-Y-Y-Y-T-Y-
*A059-Y-Y-Y- -Y-Y- - -
* A00.y.y.y.y.y.y.y. -
*A143- - - '
*A06I-Y-Y-Y-Y4q- -y-
*A62- -Y-Y- -Y- - -
*A63- -Y-Y- -Y-Y-
*A064*Y-Y*Y *Y-Y *Y.
*4065-Y Y Y *Y - -
*A066*Y*Y-Y Y* - - -
*A144 . * - *y*Y
'COUNSELLING SERVICES -
PREGNANCY (COUNSELING)
SOCIAL SERVICES COUNSELING
CONTRACEPTION COUNSELING
STERILIZATION COUNSELING
ABORTION COUNSELING
INFERTILITY COUNSELING
OTHER (COUNSELING)
MAIN SOURCE oF RLFERRAL
REFERRED ELSEWHERE
TRANSFERRED TO:
SOCIAL SERVICES (REFERRED FOR:)
MEDICAL SERVICES (REFERRED FORT)
STERILIZATION (REFERRED FOR:)
ABORTION (REFERRED FOR') INFERTILITY TREATMENT (REFERRED FOR:)
OTHER (REFERRED FOR:)
NONE (ASSOCIATE REFERRAL)
*4139
*0023 Y
*4026*Y*Y Y*Y-Y- *Y-
*A027 Y*Y*Y*(* - - -Y
*A028
*A033'Y'Y
Y
?Y'Y'Yar" Y
* A034 y y.y.y.y. - .y.
*A101*Y Y-Y Y-Y*Y-Y-
*Al21 Y Y* Y Y *Y-
* A035. .y. - - - - - .
*A087. .y.y ------
*A088* *Y*Y ------
*A89. -Y-Y- -Y- . -
*A90. y y .y. . - *A091 .y.y ----
*A092 Y
* A130. .y ------
- 22 -
M T P
LOGICAL GRUUPING PAGE 4
L
A I E R
GK S N
DATA ELEMENT C0DEAAYSCCNP
************************************************************************
- mIsCELLANEDUS .
SPECIAL STUDIES/ADDITIONAL COMMENTS *A036 -Y-Y-Y q- y- -
WUESTION 53 *A104. - .y.
PROGRAM CODE *A134- -Y
lYPE: (INV CODE) *A141 r
AmOu1 *A14? Y
MODEL
NT
giTy NUMdER * A l s2 ... . . . . .
EDUCATIONAL SERVICES PROVIDED *A1I1 .....
y
. Y- - -
LOCAL USE * A 1 56 ..... y. - - -
////////////////////////////////////////////////////////////////////////
/////////////////////////////////////;////////////////////////////////1/
DATA ELEMENT:LAST NAME AT BIRTH CODE1A001
****************************************** ***** ****************** ***** **
*STATE*FORM No. * FORMAT *WHEN ENTERED * COMMENTS
***** ** **** * ******* *** ************************* ******* **** * ****** * * * * ** *
*ALA,/*NCH5 *NONE
*F LA, * : H E N TV I314 0 : * *
*GA, *DPH/HIS *15 CHAR *EVERY VISIT *Al BIRTH(MAIDEN NAME) *
* *(7)"55 * * * *
*KY, * * * *DuFS NOT COLLECT THIS ITEM *
*MISS,* 206 * * *DuFS NOT COLLECT THIS DATA ITEM*
*N.C, * 1457 * * *DUES NUT COLLECT THIS DATA ITEM*
*S.C, * * * *DuFS NOT COLLECT THIS ITEM *
*IENN,*Fms 1317 * * *DUFs NOT COLLECT THIS DATA ITEM*
*PROP** N/A * * *DuFS NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:TODAY"S DATE CODFIA002
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*************************** * ******************* * ******* ** *** ** **********
*ALA,/*NCHS
*FLA, *
*GA, *DPH/HIS
*NONE *EVERY
* *
*2 DIGITS*EVEP(Y
VISIT
VISIT
*"UATE OF VISIT"
*
*HU"DA I YH
*
*
*
* *(f)'55 *EACH * * *
*KY, * *6CHAR *EVERY VISIT *"UATF OF VISIT"-- - - MO I DA-YK *
*MISS,* 206 *6 DIG1TS*EACH VISIT *DATE *
*N.C, *I45f *6 OIGITS*EVERY VISIT *DATE OF THIS VISIT-- MU-DA- YR *
*S.C. * *SENSE *EVERY VISIT *"UAIF OF VISIT OR REPORT" *
* * *MARK 2 * * *
* * *DIGITS * * *
* * *EACH * * *
*TENN,*FHS 617 *2 DIGITS*EVERY VISIT *MU-UA-YR *
* * *EACH * * *
*PROP..* N/A *NONE *EACH VISIT *VISIT DATL *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:COUNTY NUMBER CODE;A003
**************** ***** **************************** ***** ******************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
** * ** *** ** * *** ** ** * **** * ** ** ************** ** **** * **** ** **** * **** * * * *** **
*ALA./*NCHS *NONE *EVERY VISIT *SERVICE SITE NUMBER DISTRICT NO*
- 24 -
*FLA. * * * *, 4 COUNTY NO. *
*GA. *UPH/HIS *3 CHAR *EVERY VISIT * *
* *(f) 55 * * * *
*KY. *MCR - 280 *NONE *EACH VISIT *INCLU)EU UNDER CLINIC NUMBER *
* * * * *REGION COUNTY FACILITY *
*MISS.* 2 0 8 *NONE *EACH VISIT * *
*N.C. * 1457 *3 UIGITS*NLW ADMIS. & *COUNTY OF RESIDENCE *
* *
*REAUMIS. * *
*S.C.D*HEC 1618 *SENSE *EACH VISIT *CUUNTY *
* * *MARKS 2 * * *
* * *DIGITS * * *
*TENN.*FHS 817 *2 DIGITS*EVERY VISIT * *
*PROP..* N/A *NONE *EACH VISIT *CUUNTY *
*TENN * * * * *
///////////f///////////////////////////////////////////////////////////f
DATA ELEMENT:CLINIC NUMBER LODEtA004
*************************************** ***** ****************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
****************************** ***** *************************************
*ALA./*NCHS * * *DUFS NOT COLLECT THIS ITEM *
*FLA. * * * * *
*GA. *UPH/HIS *2 CHAR *EVERY VISIT *CLINIC bUILDING NUMBER *
* *(7)'55 * * * *
*KY. *MCH 280 *L0 *EACH VISIT *CLINIC NUMBER REGION COUNTY *
* * *DIGITS * *FACILITY *
*MISS.* 206 *NONE *EACH VISIT *CL. ND. *
*N.C. * 145( * * *DUFS NOT COLLECT THIS DATA ITEM*
*S.C. *DHEL Iblb*SENSE *EACH VISIT * *
* * *MARK * * *
*TENN.*FHS b17 *2 DIGITS*EVERY VISIT *CIO, NUMBER *
*PROP * N/A *NONE *EACH VISIT *CLINIC *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:CLINIC TYPE COUEIA005
********************* ***** **********************************************
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS *
************************* ***** ******** ***** ********************* ***** ***
*ALA./*NCHS
*FLA. *
* * *DUFS NOT COLLECT THIS DATA ITEM*
* * * *
*GA, *DPH/HIS *2 CHAR * * *
* *(7) 55 * * * *
*KY. *MCH 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * * *DUFS NOT COLLECT THIS DATA ITEM*
- 25 -
*N.C, * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *UHEL 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP * N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIFIRST NAME. CODESA006
************************************************************************
*STATF*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *NONE *EVERY VISIT * *
*FLA. * * * * *
*GA, *DPH/HIS *15 CHAR *EVERY VISIT *-(NU NICKNAMES) *
* *(7) 55 * * * *
*KY, *MCH 280 *7 CHAR *EVERY VISIT * *
*MISS,* 208 *1 CHAR *EVERY VISIT *PATIENT NAME -- FIRST *
*N,C, *145/ & *NONE *EVERY VISIT * *
* *1456 * * * *
*S.C. *DHEC 1618*NONE *EVERY VISIT * *
I ? IENN,*FHS 817 *7 CHAR *EVERY VISIT * *
*PROP * N/A *NONE *EVERY VISIT * *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:LAST NAME (CURRENT) CODEIA007
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
**** ** *** * ******** * ************ * ***** * ** ** ******* * ***** ** **** * ***** * ****
*ALA./*NCHS *NONE *EVERY VISIT * LAST *
*FLA, * * * * *
*GA. *UPH/HIS *15 CHAR *EVERY VISIT *ENTER "XX" IF SAME AS LAST NAME*
* *(7) 55 * * *Ai BIRTH *
*KY, *MCH 280 *12 CHAR *EVERY VISIT * *
*MISS.* 206 *12 CHAR *EACH VISIT *PATIENT NAME LAST *
*N.C. *1457 & *NONE *EACH VISIT * *
* *1458 * * * *
*S.C. *DHEC 1618*NONE *EVERY VISIT * LAST *
*TENN,*FHS 817 *12 CHAR *EVERY VISIT * *
*PROP=* N/A *NONE *EACH VISIT * *
*TENN * * * * *
- 26 -
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:BURN ON CDOEIA008
******************** *********** ****************** ***** ******************
*STATE*FORM Nn. * FEIRMAT *WHEN ENTERED * COMMENTS *
** *t*************************************** * ********************** * *****
*ALA,/*NCHS *NONE *EVERY VISIT *"UATE OF BIRTH" *
*FLA. * * * * *
*GA, *UPH/HIS *2 CHAR *EVERY VISIT * mn-DA-yR *
* *(7)-55 *EACH * * *
*KY. *MCH-280 *6 DIGITS*EvERY VISIT *"UATE OF BIRTH" ..- MO-UA - YR *
*HISS,* 208 *6 DIGITS*EACH VISIT *DATA OF BIRIH MO-DA-YR *
*N.C. * 1457 *6 DIGI1S*A0MIN. & *BIRTH DAIL *
* * * *READMIN. * *
*S.C. *DREG 1618*SENSL *AS *"UATE OF BIRTH" -- MO-DA - yR *
* * *MARK 2 *APPROPRIATE * *
* * *DIGIls * * *
* * *EACH * * *
*TENN,*FHS 817 *2 CHAR *NEw AOmISSION*"uATE OF BIRTH" -- MO-DA - yR *
* * *EACH *Ok RE- * *
* * * *ADMISION ONLY* *
*PROP-* N/A *NflrE *EACH VISIT *BIRTH DATt mn-DA-yR *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:FEMALE COUE:A009
***** ***** ** ***** ******************************** *********** ************
*STATE*EORm NO. * FORMAT *WHEN ENTERED * COMMENTS *
******** * ****** *** * ******* **** ** ** * * * *** **** ** ***** k kkt ** **** *** * *** ****
*ALA./*NCHS *NCHS *EVERY VISIT *sLx *
*FLA. * * * * *
*GA. *OPH/HIS *SENSE *EVERY VISIT *SLx *
* *(7) 1 55 *MARK * * *
*KY, *mCH"280 *1DIGIT *EVERY VISIT *sLx *
* * *CODE I * * *
*mISS,* 208 * * *Dins NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *1 DIGIT *NEW ADMIN. & *sEx *
* * *CODE 1 *REAUHIN. * *
*S.C. *DHEC 1618*SENSE *AS *SLx *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*IENN,*FHS 817 *CODE 2 *NEW ADMISSION*SLx *
* * * *OR RE- * *
* * * *ADMISSION * *
* * * *ONLY * *
*PROP-* N/A *CODE 2 *EACH VISIT *sLx *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTSEJHNIC GUDE:ACID
- 27 -
************* ** *** * ** ** ************ *** **** *** ***** ***** ** **** ** **** ** ***
*STATE*FORM NO, * FORMAT *WHEN ENTERED * COMMENTS
******* *** **** ** ***** ***** * **** * * ** ** * ** * *** ***** ************* * *********
*ALA./*NCHs *NONE *EVERY VISIT *"LATIN-AMERICAN ORIGIN OR *
*FLA. * * * *DESCENT" *
*GA. *DPH/HIS *BLOCK *EVERY VISIT *gliFsTION3HOw IS THIS ITEM *
* *(r)-55 * * *CUDED? *
*KY, *mCH - 280 *1 DIGIT *INITIAL *Ib PATIENt OF LATIN AMERICAN *
* * *YES OR *INTAKE ONLY *DESCENT OR ORIGIN? *
* * *No * * *
*mISS,* 208 * * *DuFs NUT COLLECT THIS DATA ITEM*
*N.c. * 1457 *1 DIGIT *NEW ADMIN, 8 *RACE-IF LATIN AMERICAN ORIGIN *
* * * *READmIN. *ALSO (X) TOP BOX *
*S,c, *oHEC 1618*sENSE *AS *"ORIGIN OR DESCENT (LATIN- *
* * *CODE 1 *APPROPRIATE *AMERICAN)" YES-- *
* * *DIGIT * * *
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA *
* * * * *ELEMENT *
*PROP-* N/A *CODE 1 *EACH VISIT *LATIN AMERICAN ORIGIN *
*IENN * *YES * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT,MALE CODE$A011
******************************************************************* *****
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
* ************ ***** * * ***** * ******** * ** ** *** * ***** *** ** *** *** * ******* * ****
*ALA,/*NCHS *CODE 2 *EVERY VISIT *SEX *
*FLA. * * * * *
*GA. *OPH/HIS *SENSE *EVERY VISIT *SEX S *
* *(7) - 55 *MARK * * *
*KY, *mCH-280 *1 DIGIT *EVERY VISIT *SLx *
* * *CODE 2 * * *
*MISS,* 206 *NONE *EACH VISIT *II. MALE PATIENT CIRCLE HERE *
*NBC. * 1457 *1 DIGIT *NEW ADMIN. & *SEX *
* * *CODE 2 *REAUMIN. * *
*S.C. *DHEC 1618*SENSE *AS *sLx *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 *CODE 1 *NEM AomISsION*sLx *
* * * *OR RE- * *
* * * *ADMISSION * *
* * * *ONLY * *
*PROP-* N/A *CODE 1 *EACH VISIT *SEX *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:BORN IN CODEIA012
*********************** ***** ********************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
- 28 -
************************************************************************
*ALA./*NCHS *NONE *EVERY VISIT *" ? LACE (Jr RIRTm a *
*FLA. * * * * *
*GA, *UPH/HIS *TOWN 24 *EVERY VISIT *(NEAREST TOWN OR CITY NU1 *
* *(7) - 55 *CHAR- * *CuuNTY) *
*KY, *MCH - 260 * * *DUES NOT COLLECT THIS ITEM *
*mISS,* 208 * * *DUFS NO1 COLLECT THIS DATA ITEM*
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *UHEC 161b*SENSE *AS *PLACE OF BIRTH -- S.C.
* * *MARK *APPROPRIATE *OIHER D.S. --OUTSIDE U.S. *
*TENN.*FMS 817 * * *DUES NUT COLLECT THIS DATA ITEM*
*PROP-* N/A * *DuES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENToSTATE ASSIGNED NUMBER COUEIA013
***************************************************************** ***** **
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
********* *** *** ** *** ******* ** * ** *** *** * ** *** * ** **** ** ** * *k **** ** * ** ** **#
*ALA./*NCHS *NONE *EVERY VISIT *PATIENT NUMBER *
*FLA. * * * * *
*GA. *OPH/HIS *4-3..2/2 *EVERY VISIT *UNDER IDENTIFYING NUMBERS *
* *(7) - 55 *CHAR * * *
*KY, *MCH?280 *9 DIGITS*EVERY VISIT *PATIENT NUMBER (THIS IS *
* * * * *PROBABLY THE SOCIAL SECURITY *
* * * * *NUMBER) *
*MISS.* 206

* *
*10
*DIGITS
*EACH
*
VISIT *PATIENT
*
NO, *
*
*N.c, *1451 &
* *1458
*9 UIGITS*EACH
* *
VISIT *PATIENT
*
NO. *
*
*S.C. *DHEC 1618*SENSE *EVERY VISIT *PATIENT NUMBER *
* * *MARK 5 * * *
* * *OR 7 * * *
* * *DIGITS * * *
*TENN.*FHS 817 * * *DUES NOT COLLECT TIS ITEM *
*PROP..* N/A
*TENN *
*10
*DIGITS
*EACH
*
VISIT *PATIENT
*
NU, *
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENTiSUCIAL SECURITY NUMBER CODEIA014
******************************* ***** * ***** ****** ***** *******************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
******* ***** *********** ***** ***** ***** **********************************
*ALA./*NCHS *NONE *EVERY VISIT *
*FLA. *
*GA. *DPW/HIS *3'2?4/2 *EVERY VISIT *UNDER IDENTIFYING NUMBERS
*(7) 6 55 *CHAR *QuESTIONtwHAT ARE THE LAST TWO *
? 29 ?
*
*
*
*
*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NUT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*KY, *MCH 280 *
*MISS,* 205
*N.C o * 1457
*S.C. *DHEC 1618*
*TENN,*EMS 817 *
*PROP** N/A
*TENN *
* * * * *DIGITS FOR?
*KY. *MCH 280 *9 DIGITS*EVERY VISIT *PATIENT NUMBER
*MISS,* 205
*N,C, * 1457
*S.C, *DHEC 1618*
*1ENN,*FHS 817 *NONE
* * *
* * *
* * *
*DUES NOT COLLEC THIS DATA ITEM *
*DUES NOT COLLECT THIS DATA ITEM*
* *DUES NOT COLLECT THIS DATA ITEM*
*EVERY VISIT *NLW SOCIAL SECURITY NUM5ER *
* *NUN...MEDICAL TRANSACTION RECORD.*
* *USED FOR CORRECTING TEMP, *
* *NumBERS. ODESTIONISAME AS *
* *PATIENT 1.00 *
*PROP * N/A
*TENN *
*
*
*
*
*DUES NOT COLLECT THIS DATA ITEM*
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:SPECIAL AGENCY NUMBER CODE1A015
********************************************* ***** **********************
*STATE*FORM NO. * FORMAI *WHEN ENTERED * COMMENTS
****** ** ************************ * * * **************************** * ********
*ALA,/*NCHS *DUES NOT COLLECT THIS DATA ITEM*
*FLA. *
*GA. *DPH/HIS *10 CHAR *EVERY VISIT *UNDER IDENTIFYING NUMBERS
*(7) 55 * *QDFSTION:wHAT ODES IT MEAN?
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:WHAT COUNTY DO YOU LIVE IN coot- t0016
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*** * ***** ** **** *** ** * * * **rni************* ** ****** *** ********4 * ** *** ****
*ALA,/*NCHS * * *DUES NOT COLLECT THIS ITEM
*FLA. * * * *OILY COUNTY NUMBER
*GA. *HAT *DpH/HIs *NEW PATIENT *
* *COUNTY DO*(7)-55 *OR NAME *
* *YOU LIVE * *FLAGGED ON *
* *IN * *MASTER FILE *
* * * *Ok UPDATE OR *
* * * *CORRECTION *
*KY. *MCH 280 *3 DIGITS*EVERY VISIT *CURRENT RLsinENcE
*MISS,* 205 *NONE *EACH VISIT *COUNTY
*N.C, * 1457 * *DUES NOT COLLECT THIS DATA ITEM*
? 30 ?
*S.C. *DHEC 1618* * *ASKS FOk COUNTY CODE *
*TENN.*VHS 817 *NONE *EVERY VISIT *CUUNTY *
*PROP..* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:HIGHEST GRAOF OF SCHOOL COMPLETE) CODE:0017
******************** ***** ***********************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
***** ** *** ** ******* * *** * * ** ** *** **** **** * ********* * * * ** *** *** ** ** * *****
*ALA,/*NCHS *NUMBERS *EVERY VISIT * *
*FLA. * *O''17 * * *
*GA. *DPH/HIS *2 CHAR *NEW PATIENT *
* *(7)=55 * *OR NAME * *
*
*FLAGED ON * *
* * * *MASTER FILE * *
*KY. *MCH 280 *1 DIGIT *ANNUAL *EDUCATION *
* * * *UPDATES *
*MISS.* 208 *2 DIGITS*NEW ADMIN. & *SCHOOL GRADES COMPLETED *
* * * *READMIN. * *
*N.C. * 1457 *2 DIGITS*NEW ADMIN. & *HIGHEST GRADE OF SCHOOL *
* * * *READMIN. *CUMPLETED *
*S.C. *DHEC 1618*SENSE *A5 *YLARS SCHOOL COMPLETED *
* * *MARK 2 *APPROPRIATE * *
* *DIGITS * *
*TENN.*FHS 817 *1-16 17..*NEknADMISSION*SLROOL GRADES COMPLETED FORM *
* * *OR MORE *OR RE.. *PROVIDES SEPARATE QUESTION FOR *
* *99.. *ADMISSION *UPDATING.
* *UNKNOWN * * *
*PROP..* N/A *2 DIGITS*EACH VISIT *YEARS OF EDUCATION *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:ARE YOU MARRIED NOW CODE:0018
***************************************************************** ***** *A.
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COM M EN T S
************************* ***** ******************************************
*ALA./*NCHS *DUES NOT COLLECT THIS DATA ITEM*
*FLA, *
*GA. *DPH/HIS *SENSE *NEW PATIENT * *
* *(7) 55 *MARK YES*OR NAME * *
* * *OR NO *FLAGGED ON * *
* * * *MASTER FILE * *
*KY, *MCH'280 *1 DIGIT * *ASKED AS MARTIAL STATUS *
*MISS.* 208 *1 DIGIT *NEW ADMIN. & *MARITAL STATUS *
* * *READMIN. * *
*N.C. * 1457 *1 DIGIT *NEW ADMIN. & *MARITAL STATUS ".. !.MARRIED , 2*
* * *CODES 1-*READMIN. *.NEVER MARRIED , 3.SEPARATEU , *
* * *5 * *4.DIVORCED , 5.SPOUSE DECEASED *
- 31 -
*S.C. *DHEC 1618*SENSE *AS APPROPIATE*MART/AL SIATUS"SINGLEPSLPARATED*
* * *MARKS * **MARRIED*OIVORCED*OR WIDOW
*TENN,*FH5 817 *CODE ? *NEW ADMISSION*MARITAL STATUS
* * * *OR RE.. *
* * * *ADMISSION *
* * * *ONLY *
*PROP..* N/A *CODE 2 *EACH VISIT *MARITAL STATUS
*TENN * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:HAVE YOU EVER BEEN MARRIED CODE:0019
******************* ***** ***************************************** ***** **
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
****************************** * ******* * ********** * * * **** * ***** * *** * *****
*ALA./*NCHS *
*FLA. * *
*GA, *DPH/HIS *SENSE
*(7)"55 *MARK ,
* * *YES OR
* * *NO
*KY. *MCH'280 *
* * *
*MISS,* 208 *
*N,C. * 1451 *
*S.C. *DHEC 1618*
* * *
*1ENN,*FHS 817 *
* * *
*PROP...* N/A *
*TENN * *
*
*
*NEW PATIENT
*OR NAME
*FLAGGED ON
*MASTER FILE
*
*
*
*
*
*
*
*
*
*
*DUES NO1
*ASKED AS
*
*
*
*DUES 401
*ASKED AS
*ASKED AS
*ASKED AS
*DUES OT
*ASKED
N
AS
*DUES NOT
*ASKED AS
*ASKED AS
*
COLLECT
MARITAL
COLLECT
MARITAL
MARITAL
MARITAL
COLLECT
MARITAL
COLLECT
MARITAL
MARITAL
THIS ITEM
STATUS
THIS DATA
STATUS
STATUS
STATUS
THIS DATA
STATUS
THIS D
STATUSATA
STATUS
*
*
*
*
*
*
ITEM*
*
ITEM*
ITEM*

*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:ARPOINTMEN1 NOTIFICATION AT HOME? CODE10020
************************************************************************
*STA1E*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
********* **************** ***** * ** ****** ** ** * * ***** ************* * ********
*ALA*/*NCHS
*FLA. *
*GA. *DPH/HIS *SENSE *(7) I 55 *MARK..
* * *YES UR
* * *NO
*NEW PATIENT
*OR
ON
*MASTER FILE
*DUES NOT COLLECT THIS DATA ITEM*
* *
* *
* *
* *
* *
*KY. *MCH 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N,C, *1457 8 *1 DIGIT *EACH VISIT *MAIL ".." 0-NO , 1-YES *
* *I458 * * * *
*S.C. *DHEC 1618* * *DUES NO1 COLLECT THIS DATA ITEM*
- 32 -
*TENN.*FHS 517 * * *DUES NUT COLLECT THIS DATA ITEM*
*PROP-* N/A *CODES 1 FACH VISIT *CONTACT MODE -- 1.TELEPHONE I 2*
*TENN * *5 *,MAIL I 3.HUME VISIT , 4,ANY *
* * * * *METHOD , 5,01 NOT CONTACT
////////////////////////////////////////////////////////////////////////
DATA ELEMENTiADDRESS CODE10021
**************************** ***** ***************************************
*STATE*FORM No. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*AEA./*NCHS *NONE *EVEhY VISIT *STREET, CITY, STATE, ZIP CODE *
*FLA. * * * * *
*GA. *DPH/hIS *ADDRESSp*NEW PATIENT *ADDRESS FORMAT IS STREET I, *
* *(7) 55 *32 CHARj*OR NAME *STREET NAME, TOWN *
* * *ZIP CODE*FLAGGED ON * *
* * *5 CHAR *MASTER FILE * *
*KY, *MCW'2130 *2 DIGITS*EACH VISIT *SLATE IS INCLUDED ONLY UNDER *
* * * * *CURRENT RESI1EMCE *
*MISS.* 205 *33 CHAR *NEW ADMIN. & *HuUSE NU,PSIREFT,CITY.CENSUS *
* * * *READMIN. *TRACTAZIP *
*N.C, *1457 & *NONE *EVERY VISIT *1457 STREET ADORESS,CITYPZIP *
* *1455 * * *CUDE,CENSUS TRACT 1458 MAILING*
* * * * *ADDRESS *
*S.C. *DHEC 1618* * *DUES Nnf COLLEC1 THIS DATA ITEM*
*TENN o *FHS 517 *33 CHAR *NEW AUMISSION*HUUSE, STREET, APT., CITY, *
* * * *Oh RE- *CENSUS TRACT, 7IP *
* * * *ADMISSION * *
*PROP.** N/A *NONE *EVERY VISIT *NUMbER,STREET,APT. NO,,CITY, *
*TENN * * * *SIATE,ZIP *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTiTELEPHONE NUMBER CODE$0022
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCHS *NONE
*FLA. *
*EACH VISIT *PHONE NO
* *
*
*
*GA, *UPH/HIS *7 CHAR *NEW PATIENT *
*(7) 55 drok NAME
* * * *FLAGGED ON *
* * * *MASTER FILE *
*KY, *MCH 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 205 *7 CHAR *NEW ADMISSION*TLLEPHONE *
* * * *OR HE- * *
* * * *ADMISSION * *
*N.C. *145( & *NONE *EACH VISIT *PHONE NUMBER *
* *1455 * * * *
*S.C. *DHEC 1618* * *OuES NOT COLLECT THIS DATA ITEM*
*TENNp*FHS 517 *7 CHAR *NEW ADMISSION* *
? 33 ?
*OR RE *
*ADMISSION
*ONLY
*
*
* *PROP * N/A *7 CHAR *EACH VISIT
*TENN * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTISOCIAL SERVICES COUNSELING CDOE10023
*************** ***** ************* ***** **********************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
********************************************* ***** **********************
* *
* *
* *
*DUES NOT COLLECT ThIS DATA ITEM*
* *
*ALA./*NCHS
*FLA. *
*GA, *DPH/HIS *SENSE *(7) 55 *MARK
*KY, *MCH 280 *
*MISS,* 208
*N.C, * 1457
*S.C. *DHEC 1618*
*TENN,*FHS 817 *
*PROP..* N/A
*TENN *
*
*
*EVERY VISIT *SLRVICE(S) PROVIDED SECTION
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* * *
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENIIPRESENTLY USING METHOD MARKED ABOVE CODEi0024
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************* ***** ******************************************************
*ALA./*NCHS *DUES NOT COLLECT THIS DATA ITEM*
*FLA, *
*GA. *DPH/HIS *SENSE *EVERY VISIT *RLLATES TO A042 A051
* *(7) 55 *MARK YES* *
* * *OR NO * *
*KY, *MCH 280 *1 DIGIT *EACH VISIT *INTERIM MLTHOD
* * *YES UR * *
* * *NO * *
*MISS,* 208 *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618*SENSE *AS *CONTRACEPTIVE METHOD *
* * *MARKS 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 * * * DUES NUT COLLECT THIS DATA ITEM*
*PROP * N/A * * *DUES NOf COLLECT THIS DATA ITEM*
*TENN * * * * *
- 34 -
*KY. *MCH*k80 *
*MISS.* 208
*N.C, * 1457
*S.C. *DREG 1618*
*TENN.*FHS 817 *
*PROP..* N/A
*TENN *
*DUES NUT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLEC THIS DA1A ITEM *
*DUES NOT COLLECT THIS DATA ITEM*
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:TF NO, DATE STOPPED CODEIA025
*************************** ***** ******* ***** ****************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
****************** ******** * ***** ****************************************
*ALA./*NCHS
*FLA. *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*GA.
R C
*(p)/HIS *MO/
A
YR 2 *EVERY VISIT *RELATES TO A024
* *
*(7)'5 *H
*EACH
*
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENTICONTRACEPTION COUNSELING CODEIA028
***************************************************i********************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************* ***** ******************
*ALA./*NCHS *CODE 2 *EVERY VISIT *SERVICES PROVIDED II. COUNSELING*
*FLA. * * * * *
*GA. *UPH/HIS *SENSE *EVERY VISIT *SERVICE(S) PROVIDED SECTION *
* *(7)*55 *MARK * *
*KY. *MCH*280 *1 DIGIT *EACH VISIT *CuUNSELING SERVICES (4 POSSIBLE*
* * *CODE 2 * *DIGITS) *
*CODE 1 *NEW ADMISSION*CUUNSELING *
* *OR RE.. * *
* *ADMISSION * *
*CODE 1 *EVERY VISIT *CUNTRACEPTIVE SERVICES PROVIDED*
* * *w I,COUNSELING *
* *OUFS NOT COLLECT THIS DATA ITEM*
* *DUES NOT COLLECT THIS DATA ITEM*
*AS APPROPIATE*CUUNSELING
* *
*MISS.* 208
* *
* *
*N.C. *1458
* *
*S.C. *DREG 1618*
*IENN.*FHS 817 *
*PROP..* N/A *NONE
*TENN *
////////////////////////////////////////////////////////////////////////
DATA EEEMENTISTERILIZATION COUNSELING CODEIA027
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************ ***** *******
- 35 -
*ALA,/*NCHS *CODE 1 *EVERY VISIT *SERVICES PROVIDED U. CUUNSELING*
*FLA. * * * * *
*GA. *OPH/HIS *SENSE *EVERY VISIT *SLRVICE(S) PROVIDED SECTION *
* *(7) - 55 *MARK * * *
*KY, *mCH*280 *1 DIGIT *EACH VISIT *CUUNSELING SERVICES (4 POSSIBLE*
* * *CODE 1 * *DIGITS)
*MISS.* 208 *CODE 2 *NEW ADMISSION*CUUNSELING *
* * * *OH RE* * *
* * * *ADMISSION * *
*N.C. * 1457 * * *DUFS NOT COLLECT THIS DATA ITEM*
*S.C. *DHEL 1618*
*TENNOrEHS 817 *
*PROP** N/A *NONE
*TENN *
* *DuES NOT COLLECT THIS DATA ITEM*
*DUFS NUT COLLECT THIS DATA ITEM*
*AS APPROPIATE*CUUNSELING
* * *
////////////////////77//////////////////////////////////////////////////
DATA ELEMENT:AdORTION COUNSELING CODE:402B
********************************************* ***** **********************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************ **** *** ** ****** ** ** ** *** **** *** * ** * ******************* ******
*ALA./*NCHS
*FLA. *
*GA, *DPH/HIS *SENSE
*(7)*55 *MARK
*KY, *MCH 4 280 *
*miss,* 208
*N.C. * 1457
*S.C. *PHU. 1618*
*TENN,*EHS 817 *
*PROP.* N/A
*TENN *
*DUES NOT COLLECT THIS DATA ITEM*
* * *
*EVERY VISIT *SERvICE(S) PROVIDED SECTION
* *
*DUES NOT COLLECT 1HIS DATA ITEM*
*DuFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT 1HIS DATA ITEM*
*DUES 401 COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*
*
*
*
*
*
*
*
*
//////////////////////////////////////////////7/7///////////////////////
DATA ELEMENT:DATE LAST PREGNANCY ENDED COOF1A029
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*** * *************** ** **** **** ********* **** * ***** ** *** ***** * *** * * **** * ***
*ALA./*NCHS *NONE *EVERY VISIT *DATE 3F LAST PREGNANCY
*FLA. * * * *TERMINATION
*GA. *DPH/HIS *MD/DA/YR*EVERY VISIT *SEE MASTER FILE'
* *(7) - 55 */ 2 CHAR* *
* * *EACH * *
*KY, *MCH=280 *6 DIGITS*EACH VISIT *DATE OF TERMINATION OF LAST
* * * * *PREGNANCY
*MISS,* 208 *6 DIGITS*NEW ADMISSION*DATE OF TERMINATION OF LAST
* *OR RE* *PREGNANCY
- 36 -
* * * *ADMISSION A
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:IF NEVER PREGNANT/ND CHANGE SINCE LAST VISIT CODEIA030
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
***************A******************************************** ***** *******
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *DPH/HIS *SENSE. *EVERY VISIT * *
* *(7)=55 *MARK * * *
*KY, *MCH=280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 *1 CHAR * *CODE 7 OF QUESTION "OUTCOME OF *
* * * * *LAST DELIVERY" *
*PROP* N/A * * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN A * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:NUMBER OF RATIENT"S CHILDREN ALIVE NOW CODE:A031
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************* * ********** * * * ******** * * * * * * * ******* * *** * ******
*ALA,/*NCHS *NONE *EXCEPT SUPPLY*PREGNANCY HISTnRY NUMBER OF *
*FLA. * * *VISIT *CHILDREN NOW LTVING ENTER *
* * * * *NUMBER *
*GA, *DPH/HIS *2 CHAR *EVERY VISIT * *
* *(7)"55 * * * *
*KY, *MCH I 280 *1 DIGIT *ANNUAL UPDATE*NUM8ER OF CHTLnREN NOW LIVING *
*MISS,* 208 *CODES 0 I *NEW ADMISSION*NUMBER OF LIVING CHILDREN I *
* * *9 *OR RE- *CODES 0 I 7PC0DE 8=8 OR MORE,(.0DE*
* * * *ADMISSION *98UNKNOWN *
*N.C. * 1457 *2 DIGITS*NEW ADMISSION*NUM8ER OF CHILOREN NOW LIVING *
* * * *OR RE.. * *
* * * *ADMISSION * *
*S.C. *DHEC 1618*SENSE *AS *LIVING CHILDREN *
* * *MARKS 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHS 817 *1 DIGIT *NEW AOMISSION*NUMUER OF LIVING CHILDREN 0 7*
- 37 -
* * * *OR *8 = 8 9 = UNKNnwN *
* * * *READMISSION * *
*PRUP-* N/A *CODES 0-*EACH VISIT *LIVING CHILDREN *
*TENN * *6 * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:TUTAL FETAL DEATHS CODE3A032
************************************************************************
*STATE*FORm No. * FORMAT *WHEN ENTERED * C OM M ENTS
************************************************************************
*ALA./*NCHS *NONE * *PREGNANCY HISTORY B, NUMbER OF *
*FLA. * * * *FETAL DEATHS ENTER NUMbER *
*GA. *DPH/HIS *2 CHAR *EVERY VISIT *MISCARRIAGES, ABORTIONS,
* *(7) - 55 * * *SIILL3IHTHS. INFANT DEATHS *
*KY. *comH-28 *1 DIGIT *ANNUAL UPDATE*NUMbFR OF FETAL DEATHS
*MISS.* 20b * * *DuFS NOT COLLECT THIS DATA ITEM*
*Noce * 1457 *CODE 1 *NEW AomISSION*NumbER OF FETAL DEATHS
* * * *OR RE- * *
* * * *ADMISSION * *
*S.C. *DHEC, 1618*SENSE *AS *FETAL DEATHS *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHS b17 * * *DUES NOT COLLECT THIS DATA *
*PRuP-* N/A *CODES 0-*EACH VISIT *FETAL DEATHS *
*TENN * *8 * * *
////////////////////////////////////////////////////////////////////////
DATA ELLmENT:INFERTILITY COUNSELING CDUEs4033
************************************************************************
*STATE*FORm ND. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 3 *EVERY VISIT *CuuNSELING *
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *SERvI:E(S) PROVIDED SECTION *
* *(7)-55 *MARK * * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *CuuNSELING SERVICES (4 POSSIBLE*
* * *CODE 3 * *DIGITS) *
*miss,* 20b *CODE 3 *EACH VISIT *COUNSELING *
*N.C. *145b *CODE 1 *EVERY VISIT *INFERTILITY SERVICES PRUvIDLD -*
* * * * *11C0UNSELING *
*S.C. *DHEC 161b*SENSE *AS * *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA *
*PROP-* N/A *NONE *AS *COUNSELING *
*TENN * * *APPROPRIATE * *
- 38 -
////////////////////////////////////////////////////////////////////////
DATA ELEMENIIDTHER (COUNSELING) CODEIA034
************************************************************************
*STA1E*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*MARK * * *
*1 DIGIT *EACH VISIT *CUUNSELING SERVICES (4 POSSIBLE*
*CODE 4 * *0101T5) 0.1,HER SPECIFY *
*MISS * 208 *CODE 4 *EACH VISIT *CUUNSELING *
*N,c, *1458 *CODE 1 *EVERY VISIT *DINER SERVICES PROVIDED I. *
* * * * *CUUNSELING *
*S.C. *UHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP** N/A *NONE *AS *CUUNSELING *
*TENN * * *APPROPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTsTRANSFERRED TOI CODEIA035
******************************************************* ***** ************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************ ******************************** ****************************
*ALA./*NCHS
*FLA. *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*GA, *OH/HIS *COUNTY * * *
* *(7)'55 *NO, J * * *
* * *CHAR,,* * *
* * * *
* * *BUILDING* * *
* * *NO, 2 * * *
* * *CHAR * * *
*ALA
/*NCHS *CODE 4 *EVERY VISIT *SERVICES PROVIDED B o COUNSELING*
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *SLRVICE(S) PROVIDED SECTION *
* *(7)'"55
*KY, *mCW?280
* *
*KY. *MCH'280 * *
*MISS.* 208 * *
*N.C. * 1457 * *
*S.C. *DHEG 1618* *
*TENN.*FHS 817 * *
*PROP* N/A * *
*DUES NO1 COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEmENTIsPEcIAL STUDIES/ADDITIONAL COMMENTS cODEIA036
********,i***************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
? 39 ?
* ***** ******* ***** ****** * **** * * ** ** * *** * ** **** ** * ** ** *** ***** * * ******* **
*ALA./*NCHS * * *DUES NO( COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *OPH/HIS *6 X 6 * *OPTIONAL *
* *(7)"55 *MATRIX * * *
* * *ROWS 1 -* * *
* * *6 COL. A* * *
* * *-F * * *
*KY,
*
*MCH'280 *6 X 6
* *MATRIX
EACH VISTT
*
*MISS.* 208 *NONE *EACH VISIT *ADDITIONAL COMMENTS *
*N,C,
*
* 1457*NONE
* *
*NEW ADMISSION*AUDITIONAL COMMENTS
*OR RE.. *
*
*
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NUT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 *NONE * *ADDITIONAL COMMENTS *
*PROP** N/A * * *DUFS 40T COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:BLACK (RACE) CUDE1A037
********* ***** ********* ***** ********************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*** * ** ** ******* * **** * ** ** ******* ***** *** *** ** **** *** ****** ** * ** * ****** **
*ALA /*NCMS *CODE 2 *EVERY VISIT *RACE
*FLA. * * * * *
*GA. *DPH/HIS *SENSE * *RACE
*(1)"55 *MARK
*KY. *MCH 280 *1 DIGIT *INITIAL *RACE *
* * *COUE 1 *INTAKE ONLY * *
*MISS.* 200 *CODE 2 *NEW AOMISSION*RACL *
* * * *OR HE * *
* * * *ADMISSION * *
*N.C. * 1457 *CODE 2 *NEW ADMISSION*RACE *
* * * *OR RE.. * *
* * * *ADMISSION * *
*S.C. *DHEC 1618*SENSE *AS *RACE *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 *CODE 2 *NEW ADMISSION*RACE *
* * * *OR * *
* * * *READMISSION * *
* * * *ONLY * *
*PROP-* N/A *CODE 2 *EACH VISIT *RACE *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:wHITE (RACE) CODE;A038
************* ***** **************************** ***** *********************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
-40-
************************************************************************
*ALA,/*NCHS *CODE 1 *EVERY VISIT *RACE
*FLA. *
*GA, *DPH/HIS *SENSE * *RACE
*(7) - 55 *MARK
*KY, *mCH?280 *1 DIGIT *INITIAL *RACE *
* * *CODE 2 *INTAKE ONLY * *
*MISS,* 208 *CODE 1 *NEW ADMISSION*RACE *
* * * *Ow RE- * *
* *
*ADMISSION * *
*N.C. * 1457 *CODE 1 *NEW AUMISSION*RACL *
* * * *OR HE- * *
* * * *ADMISSION * *
*S.C. *DHEC 1618*SENSE *AS *RACE *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 *CODE 1 *NEW AUMISSION*RACE *
* * * *OR * *
* * * *READmissT0N * *
*PROP-* N/A *CODE 1 *EACH VISIT *RACE *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:IUD (BEFORE THIS VISIT) CODE1A039
*************************** ***** ****************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 2 *EVERY VISIT *CONTRACEPTIVE HISTORY C WHAT *
*FLA. * * * IS THE LAST METHOD USED? *
*GA, :r7'74iS *SENSE
*
E *EVERY VISIT :14Lab? t8TTENT;41AiRrIEL
*
*
u FRAM MA
*KY, *MCH-280 *1 DIGIT *EACH VISIT *LAST METHOD OF CONTRACEPTION *
* * *CODE 2 * * *
*MISS,* 206 *CODE 1 *NEw AumISSION*FAmILY PLANNTNG METHOD MOST *
* * * *OR RE
*ADMISSION
*USED IN LAST TWO YEARS *
* * * * *
*N.C. * 1457 *2 DIGITS*NEW ADMISSION* *
* * *CODES 0-*OR HE- * *
* * *2 *ADMISSION * *
*S.C. *DHEC 1618*SENSE *AS *PREVIOUS CONTRACEPTION METHOD *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHS 817 *CODE 1 *NEW ADMISSION*FAmILY PLANNING METHOD MUST *
* * * *OR *READmISSION :USED IN LAST 2 YEARS *
* * * *
* * * *ONLY * *
*PROP..* N/A *CODE 01 *AS *APPROPRIATE *LAST METHOD USED *
*TENN * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PILLS (BEFORE THIS VISIT) CODE:04040
************************************************************************
- 41 -
*STATE*FURm NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCRS *CODE 1 *EVERY VISIT *CUNTRACEPTIVF HISTORY C, WHAT *
*FLA. * * * *IS LAST METHOD USED? ORAL *
*GA, *OH/HIS *SENSE *EVERY VISIT *IF OLD PATIENT, MARK CLINIC *
* *(7)?55 *MARK * *METHOD FRuM MASTER FILE *
*KY. *mCH'280 *1 DIGIT *EACH VISIT *LAST METHOD OF CONTRACEPTION *
* * *CODE 2 * * *
*mISS,* 206 *CODE 2 *NEW ADMISSION*FAMILY PLANNING METHOD USED IN *
* * *
* * *
*OR RE- *LAST TWO YEARS
*ADMISSION *
*
*
*N.C. * 1457 *CODE 01 *NEW ADMISSION*wHAT IS THE LAST METHOD YOU *
*
*
* *
* *
*OR HE- *USED? - ORAL
*ADMISSION *
*
*
*S.C. *DHEC 1618*SENSE *AS *ORAL PREVIOUS CONTRACEPTIVE *
*
*
* *MARK 1
* *DIGIT
*APPROPRIATE *METHOD *
*
*TENN.*FHS 817 *CODE 2 *NEW ADmISSION*FAMILY PLANNING METHOD MUST *
* * * *OR *USED IN LAST 2 YEARS *
* * * *READMISSION * *
*PROP-* N/A *CODE 02 *EVERY VISIT *LAST METHOD USED *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:INJECTION (BEFORE THIS VISIT) cODE:A041
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 7 * *CONTRACEPTIVE HISTORY C. WHAT *
*FLA, * * * *IS THE LAST METHOD USED? *
: GA, *DPH/HIS *SENSE *EVERY VISIT vi L T J.ibts mr4 E vA;Trior lFsTEL INIC *
*(7)"55 *MARK * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *LAST METHOD OF CONTRACEPTION *
7
6
07
1
07
* * *
*NEW ADMISSION*FAMILY pLANNTNo METHOD MOST *
*OR RE- *USED IN LAST TWO YEARS *
*ADMISSION * *
*NEW ADMISSION*wHAI IS THE LAST METHOD YOU *
*OR RE- *USED? *
*ADMISSION * *
*AS *PREVIOUS CONTRACEPTIVE METHOD *
*APPROPRIATE * *
* * *
* *DUES NOT COLLECT THIS DATA ITEM*
* * A DR B? *
*EACH VISIT *LAST METHOD USED *
* * *
////////////////////////////////////////////////////////////////////////
DATA ELEME NI:FOAMCBEFORE THIS VISIT) CODETA042
************************************* ***** ******************************
-42-
* * *CODE
*mISS,* 200 *CODE
* * *
* * *
*N.C, * 1457 *CODE
* * *
* * *
*S.C. *DHEC 1618*SENSE
* * *MARK
* * *DIGIT
*TENN.*FHS 817 *
* * *
*PROP-* N/A *coDE
*TENN * *
*STATE*EORM NO. * FORMAT
*ALA./*NCHS*CODE 4
*FLA. * *
*GA, *DpH/HIS *SENSE
* *(7) - 55 *MARK
*KY. *mCH-280 *1 DIUI1
* * *CODE
*MISS.* 200 *CODE 3
* * *
* * *
*N.C. * 1457 *CODE 04
* * *
* * *
*S.C. *DHEC 1616*SENSL
* * *MARK 1
* * *DIGIT
*TENN.*FHS 817 *CODE 3
* * *
* *
*PROP-* N/A *CODE 03
*TENN * *
*WHEN ENTERED * COMMENTS
* *CUNIRACERITVE HISTORY C. WHAT
* *IS THE LAST METHOD USED?
*EVERY VISIT *II. DE) PATIENT, MARK CLINIC
* *METHOD FRum MASTER FILE
*EACH VISIT *LAST METHUD OF CONTRACEPTION
* *
*NEW ADMISSION*FAmILY PLANNING METHOD MUST
*0k
*READMISSION
:UQED IN LAST TWO YEARS
*NEW AOMISSION*WHAT IS THE LAST METHOD YOU
*OR *USED?
*READMISSION *
*AS *PWEVIODS CONTRACEPTIVE METHUD
*APPROPRIATE *
* *
*NEW ADMISSION*FAmILY PLANNING METHOD USED
*OR
*READMISSION
* MUST IN LAST 2 YEARS
*EVERY VISIT *LAST METHOD USED
* *
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENTZCUNDOM (BEFORE THIS VISIT) CODF1A043
***************************************************************** ***** **
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS
********************** ***** *********************************************
*ALA./*NCHS *CODE 6 * *CUNTRACEPTIvE HISTORY C. WHAT *
*FLA. * * * *IS THE LAST METHOD USED? *
*GA. *DMm/mIs *SENSE *EVERY VISIT *IF OLD PATIENT,MARK CLINIC *
* *(0.55 *MARK *momOD FRuM MASTER FILE. *
*KY. *MCH - 280 *1 DIGIT *EVERY VISIT *LAST METHOD OF CONTRACEPTION *
* * *CODE 6 * * *
*MISS.* 208 *CODE 5 *NEW ADMISSION*FAmILY PLANNING METHOD MUST *
* * *
* * *
*OR *1.1rD IN LAST TWO YEARS *
*READMISSION * *
*N,c. * 1457 *CODE 06 *NEW ADMISSION*wHAT IS THE LAST METHOD YOU *
* * * *UR *USED? *
* * * *READmISSTON * *
*S.C.
*
*DHEL 1616*SENSE
* *MARK 1
*AS
*APPROPRIATE
*pmFooDS CONTRACEPTIVE METHOD *
* *
* * *DIGIT * * *
*TENN,*Fils 817 *CODE 5 *NEW AUMISSION*FAMILY PLANNING METHOD USED IN *
* * * *OR RE- *LAST 2 YEARS *
* * * *ADMISSION * *
*PROP-* N/A *CODE 05 *EVERY VISIT *LAST METHOD USED *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:DIAPHRAGM (BEFORE THIS VISIT) CODE:404A
- 43 -
******************* ***** ************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 3
*FLA. * *
*GA. *DPH/HIS *SENSE
* *(7)'55 *MARK
*KY, *MCH 260 *1 DIGIT
* * *CODE 3
* *CUNTRACIPTIVF HISTORY C o WHAT
* *IS THE LAST METHOD USED?
*EVERY VISIT *If OLD PATIENT, MARK CLINIC
* *METHOD FRuM MASTER FILE
*EACH VISIT *LAST METHUO OF CONTRACEPTION
* *
*
*
*
*
*
*MISS.* 206 *CODE 4 *NEW ADMISSION*FAM1LY PLANNTN( METHOD MOST *
* * * *OR *USED IN LAST TWO YEARS *
* * * *READMISSION * *
*N.C. * 1457 *CODE 03 *NEW ADMISSION*WHAT IS THE LAST METHOD YOU *
* *
* *
*
*
*OR *USED?
*READMISSION *
*
*
*S.C. *DREG 1618*SENSE *AS *PHEVIJUS CONTRACEPTIVE METHuD *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHS 617 *CODE 4 * *FAMILY PLANNING METHOD MOST *
* * * * *USED IN LAST 2 YEARS *
*PROP-* N/A *CODE 04 *EVERY VISIT *LAST METHUO USED *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTISTERILIZATION (BEFORE THIS VISIT) CODEIA045
******************************************************* ***** ** ***** *****
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS
*********** ***** *************************** ***** ************** ***** *****
*ALA,/*NCHS * * *DUFS NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *IF OLD PATIENT, MARK CLINIC *
* *(7)"55 *MARK * *METHOD FROM MASTER FILE *
*KY. *MCH 250 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 206 *CODE A.V*NEW ADMISSION*FAMILY PLANNTNG METHOD MOST *
* * *VASECTOM*OR *USFU IN LAST 2 YEARS
* * *8 7. *READMISSION * *
* * *TU6AL * * *
* * *LIGATION* * *
*N.C. * 1457 *CODE 08 *NEW ADMISSION*WHAT IS THE LAST METHOD YOU *
* * * *OR *USED? *
* * * *READMISSION * *
*S.C. *DHEC 1618*SENSL *AS *PWFVIDUS CONTRACEPTIVE METHup *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*IENNs*FMS 817 * *DUES NOT COLLECT THIS DATA ITEM*
* * * * * A UR B?
*PROP..* N/A
*TENN *
* * * *
* * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIRHYTHM (BEFORE THIS VISIT) CODE14046
? 44 ?
** ** ** * **** *** ****** * * ** * ****** * * ** ** ** *** *** ** **** * * ******* * * * * * * * *** **
*ALA./*NCHS *cnuE 4 * *A. MEDICAL SERVICES *
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EvLRY visit *SLRVICE(S) PROVIDED SECTION *
* *(0 - 55 *MARK * *MLDICAL/NURSING SUBSECTION *
*KY, *NCH - 260 *1 DIGIT *EACH VISIT *MEDICAL SERVICES (11 POSSIBLE*
* * * * *DIGITS) *
*MISS,* 2013 *CODE 2 *EACH VISIT *MLDICAL SERVICES - LiRINL/b,r, *
*N.C. * 145b *CODE 1 *EACH VISIT * *
* * *DIGI1 - * * *
* * *O.NOP 1.* * *
* * *YES * * *
*S.C. *DNB; 161b*SENSE *EACH VISIT *EXAM *
* * *MARK 1 * * *
* * *DIGIT * * *
*TENN,*FHS 617 * *DUES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A *NONE *A *MEDICAL SLRVICFS
*TENN * *APPROPRIATE *
////////////////////////////////////////////////////////////////////////
DATA ELEMENI:BREAST CDDE:A066
************ ***** ** ***** * ***** ******************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COmMFNTS
*************** ***** ********* ***** ************ ******* * ***** *** ******** **
*ALA./*NCHS *CODE 3 * *MEDICAL SLRVICFS BREAST EXAm
*FLA. *
*GA, *DPH/HIS *SENSE *EVERY vISIT *m_R IocE(s) PROVIDED SECTION *
*(7) - 55 *MARK *MLDICAL/NURSING SUBSECTION *
*KY. *mCH 280 *1 DIGIT *EACH VISIT *MLDICAL SERVICES (11 POSSIBLE*
* * * * *DIGITS) *
*MISS,* 208 *CODES: 1*EACH VISIT *MLDICAL SLRVICFS *
* * *.YES, 2.* *
* * *Nn * * *
*N.C. * 1457 *CODES 0-*EACH VISIT *breFAST LRAM - O.NO., 1.m.D., 2.*
* * *3 - 1 * *NURSE , 3.0THFR *
* * *DIGIT * * *
*S,C, *DHEC 1618*SENSL *EACH VISIT *Exam *
* * *MARK 1 * * *
* * *DIGIT * * *
*IENN,*FHS 817 *CODES 10, EvERY VISIT *E1HFAST EXAM *
* * *YES 2.NO* * *
*PRoP-* N/A *NONE *As *MEDICAL StRvTCFS *
*TENN * * *APPROPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PAP SMEAR C00E1A069
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * C0mMNTS
************************************************************************
- 45 -
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:MEDICAL HFASON (REASON FOR sloppING mF1Hon) coalA065
* ***** ********************************************************* ******** *
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS
********************************* ***** ******** ***** *** ********** ********
*ALA./*NCHS
*f LA. *
*CODE 2 * * *
* * * *
*GA. *DPH/HIS *SENSE *EvEHY VISIT *ArTER THIS VISIT SECTION *
* *(1) - 55 *MARK *AND CIF NONE * *
* * * *OR METHOD * *
* * * *CHANGED) * *
*KY. *mCH'280 *1 DIGIT *EACH VISIT *IF NO METHOD, THE REASON IS .,.*
* * *CODE 2 * * *
*MISS,* 206 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1458 *CODE 2 *EACH VISIT *IF NONE, GIVE REASON *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 617 * * *DuES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * * DuFS NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:0 THER (REASON FOR NONE OR METHOD CHANGE) cODEiA066
*************** ***** ***************** ********* ******************* ***** **
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************* ****** *****************************
*ALA./*NCHS *CODE 4
*FLA, *
*GA, *DPH/HIS *SENSE *EVERY VISIT *AFTER THIS VISIT SECTION *(7)-55 *MARK
:0HD
m Ei5 0 10NE
* * * *CHANGED)
*KY, *MCH 280 *1 DIGIT *EACH VISIT *If. NO METHOD, THE REASON IS e .,*
* * *CODE 4 * * *
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1458 *COUE 4 *EACH VISIT *IF NONE, GIVE REASON *
*S.C. *DHEC 1618* * *DuFS NO1 COLLECT THIS DATA ITEM*
*TENN.*fHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:sLOOD PRESSURE CODF:A067
***** ***** ****** ******** ***************** ***** **************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
?46?
////////////////////////////////////////////////////////////////////////
DATA ELEMENI:pREGNANT-UNPLANNED (REASON FUR STOPPING METHOD) CODF;A063
** ********** ** ************ ******** ************** ************* ******* ****
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
********* ******************** *** ********** *********************** *******
*ALA,/*NCHS * * *NU DISTINCTION blimp-A PLANNED *
*FLA. * * * *AND UNPLANNED
*GA. *DPH/HIS *SENSE *EVERY VISIT *AFTER THS VISIT SECTION *
* *(7) - 55 *MARK *AND iIF NONE * *
* * * *OR METHUO * *
* * * *CHANGE) * *
*KY. *HCH - 260 *1 DIGIT * *Nu DISTINCTION BETWEEN PLANNED *
* * *CODE I * *AND UNPLANNED *
*miss,* 206 * *DuFs NO1 COLLECT THIS DATA iTEm*
*N.C. * 1456 *CODE I *EACH VISIT *11- NONE, GIVE REASON t NU *
* * * * *01STINCTION RETmFEN PLANNED AND*
* * * * *UNPLANNED. *
*S.C. *DHEC 1618*SENSE *WHEN *REASON FOR DISCHARGE PfLG. *
* * *MAkK 1 *DISCHARGED *METHOD FAILURE ALSO PREG. DIRER*
* * *DIGIT * *FAILURE *
*1ENN.*FHS 617 * * *DUES NUT COLLECi THIS DA1A ITEM*
*PROP-* N/A * * *DuEs NO1 COLLECT THIS DATA iTEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
oATA ELEmENTisEEKING PREGNANCY (REASON FUR STOPPING METHOD) CODE;A064
*************** ********* ********** ****** ****************w********** *****
*STATE*EURm NO. * FORMAT *WHEN ENTERED * COMMENTS
*ALA./*NCHS *CODE 3 * *IF NONE, GIVE REASON
*FLA. *
*GA, *DPH/HIS *SENSE *EVERY VISIT *AFTER THIS VIVI. SECTION *
* *(7) - 55 *MARK *AND (IF NONE * *
* * * *OR METHOD * *
* * * *CHANGE) * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *IF NO METHOD, THE REASON IS ,..*
* * *CODE 3 * *. *
*MISS.* 20b * * *DUES NUT COLLECT THIS DATA ITEM*
*N.C. * 1456 *CODE 3 *EACH VISIT *IF NONE, GIVE REASON *
*S.C. *DHEC 1618*SENSE *WHEN *RLASON FOR DISCHARGE PRIG. *
* * *MARK 1 *DISCHARGED *DESIRED *
* * *DIGII * * *
*IENN.*FHS 617 * * *DUES NOT COLLECT THIS DATA OEM*
*PROP-* N/A *CODE 02 *EACH VISIT *RLASON NO NEAT VISIT! DESIRLS *
*TENN * * * *PREGNANCY *
- 47 -
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 *CODE 08 *EVERY VISIT *MOHO) OF CONTRACEPTION UNTIL *
* k * * *NEXT VISIT *
*PROP.* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT;NONE (AFTER THIS VISIT) LOUE1A061
********* ***** **********************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA /*NCHS *CODE 0 * *CONTRACEPTION METHOD AT THE END*
*FLA. * * * *OF IRS VISIT *
*GA, *DPH/HIS *SENSE +EVERY VISIT * *
* *(7)-55 *MARK * * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *CONTRACEPIION METHOD AT THE END*
* * *CODE 0 * *OF THIS VISIT ONLY ONE *
*MISS.* 208 *CODE 0 *EACH VISIT *PRIMARY METHOD OF CONTRACEPIION*
* * * * *UNTIL NEXT VISIT *
*N.C. * 1457 *CODE 00 *EACH VISIT *CuNTRACEPTIVE METHOD TO 8E usED*
* * * * *UNTIL NEXT VISIT *
*S.C, *DHEC 1618* * irDuFS NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 *2 CHAR * *OU *
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELLMENTIPREGNANT-PLANNED (REASON FUR STOPPING METHOD) CODE$A062
***** ***** **** ***** *************** ********** ****************************
*STATE*FORM NO. * FORMAl *WHEN ENTERED * COMMENTS
******* ***** ********** ** ***** ******** ***** ******************************
*ALA./*NCHS * * *Nu DISTINCTION BETWEEN PLANNED *
*FLA. * * * *AND UNPLANNED) *
*GA, *DPH/HIS *SENSE *EyERY VISIT *AFTER THIS VISIT SECTION *
* *(7) - 55 *MARK *AND (NONE OR * *
* * * *METHOD CHANGE* *
* * * *) * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *NU DISTINCTION biFTREEN PLANNED *
* * *CODE 1 * *OR UNPLANNED *
*MISS.* 208 * * *DUES NOT coLLEci PHIS VAIA ITEM*
*N.C. * 1457 *CODE 1 *EACH VISIT *IF NONE, GIVE REASON ND *
* * * * *DISTINCTION *
*S.C, *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DuES NOT COLLECT THIS UATA ITEM*
*TENN * * * * *
- 48 -
*N,C. * 1457 *CODE 06 *EACH VISIT *CuNTRACEPTIVE METHOD TU bE uSED*
* * * * *UNTIL NEXT VISIT *
*S C *DHEC 1618*SENSE *AS *INTERIM CONTRACEPTION METHOD *
* * *mARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*IENN.*FH5 817 *CODE 30 *EVERY VISIT *METHOD OF CONTRACEPTION UNTIL *
* * * * *NEXT VISIT
*FROP-* N/A *DUFS NOT COLLECT THIS DATA ITEM*
*TENN *
/////////////////////////////////////////////////////////////////)///////
DATA ELEMENT :RHYTHM (AFTER THIS VISIT) cODE1A059
**** ***** ******** ***** *** ***** *** ***** * ***** * ***** **********************
*STATE*FORm No. * FORMAT *WHEN ENTERED * COMMENTS
************** ********* **************** ***** ** ***** *****.
*ALA./*NCHS
*FLA. *
*CODE 5 * *CUNTRACEplION METHOD Al THE END*
* * ihrfl THIS VISIT *
*GA. *DPH/HIS *SENSE *EvEHY VISIT * *
* *(7)-55 * E NS SEE

* *
*KY. *mCH-280 *1 DIGIT *EACH VISIT *CuNTRACEPTIUN METHOD AT THE END*
* * *CODE 5 * *OF THIS VISIT ONLY ONE *
*MISS,* 206 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *CODE 05 *EACH vISTT *CONTRACEPTIVE METHOD TO bE USED*
* * * * *UNTIL NEXT VISIT *
*Sic. *DHEC 1618*SENSE *AS *INTERIM CONTRACEPTION MOHO') *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FH5 817 * * *DuFS NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:OTHER METHOD (AFTER THIS VISIT) cODEIAO6U
********************* ************ ....******************* ***** ************
*SIATE*FORm No. * FORMAT *WHEN ENTERED * COMMENTS *
****************** ********************** ** ************** ** ***** *********
*ALA./*NCHS *CODE 9 * *CuNTRACERITON METHOD AT THE END*
*FLA. * * * *OF THIS VISIT *
*GA. *oPH/HIS *SENSE *EvEHY VISIT * *
* *(0-55 *MARK * * *
*KY, *HCH - 260 *1 DIGIT *EACH VISIT *cuNTRACEpTION METHOD AT THE END*
* * *CODE 9 * *OF THIS VISIT ONLY ONE *
*MISS.* 2" *CODE 08 *EACH VISTT *PHIHARY METHOD OF CONTRACEPTION*
* * * * *UNTIL NExT VISIT *
*N.C. * 1457 *CODE TO *EACH VISIT *CUNTRACEPTIVE METHOD TO bE USED* * * * * *UNTIL NEXT VISIT *
*S.C. *DHEC 1616*SENSE *AS *INTERIM CONTRACEPTION METHOD *
- 49 -
* * * * *UNTIL NEXT VISIT *
*N.C, * 1457 *CODE 06 *EACH VISIT *CONTRACEPTIVE METHOD TO bE USED*
* * * * *UNTIL NEXT VISIT *
*S o c *UHEL 1618*SENSL *AS *INTERIM CONTRACEPTION METHOu *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*EHS 817 *CODE 05 *EVERY VISIT *METHOD OF CONTRACEPTION UNTIL *
* * * * *NEXT VISIT *
*PROP-* N/A * * *DOES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:DIAPHRAGM (AFTER THIS VISIT) CODE1A057
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 3 * *CONTRACEPTIVE METHOD AT THE END*
*FLA, * * * *Of THIS VISIT *
*GA, *DPH/HIS *SENSE *EVERY VISIT * *
* *(7)-55 *MARK * * *
*KY, *mcH-280 *1 DIGIT *EACH VISIT *CoNTRACEPTIUN METHOD AT THE END*
* * *CODE 3 * *OF 1HIS VISIT ONLY ONE *
*m15S,* 206 *CODE 4 *EACH VISIT *P(IMARY METHOD OF CONTRACEPTION*
* * * * *UNTIL NEXT VISIT *
*N.C. * 1457 *CODE 03 *EACH VISIT *CON1RACEP1IVE METHOD TO bE USED*
* * * * *UNTIL NEXT VISIT *
*S.C. *oHEL: 1618*SENSE *AS *INTERIM CONTRACEPTION ME1HOu *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS b17 *CODE 04 *EVERY VISIT *METHOD OF CONTRACEPTION UNTIL *
* * * * *NEXT VISIT *
*PROP-* N/A * * *00Es NOT COLLECT THIS DATA ?TEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:STERILIZATION (AFTER THIS vIsTI) CODE:A058
******************* ******* **********************************************
*STATE*FORm ND. * FORMAT *NHEN ENTERED * COMMENTS
***let ******** ***********************************************************
*ALA./*NCHS *CODE 8 * *CONTRACEPTION METHOD AT THE END*
*FLA. * * * *OF THIS VISIT *
*GA. *DPH/HIS *SENSE *EVERY VISIT * *
* *(7)-55 *MARK * * *
*KY. *mCH-280 *1 DIGIT *EACH VISIT *CONTRACEPTION METHOD AT THE END*
* * *CODE 8 * *OF THIS VISIT ONLY ONE *
*MISS.* 20b *CODES A.*EACH VISIT *PhImARY METHOD OF CONTRACEPII0N*
* * *ASECTOMY* *UNTIL NEXT VISIT *
* * *is 7 * * *
* * *LIGATION* * *
- 50 -
*KY, *mCH - 180 *1 Dlull *EACH vISIT *coNTRACEPTION METHOD AT THE END*
*oF THIS vISIT * * *CODE / * *
*MISS.* 200 *COLA. 6 *EACH vISIT *PRIMARY METHOD OF CONTRACEPTION*
* * * * *UNTIL NEXT VISIT *
*N.c. * 145b *CODE or *EACH vISIT *CuNTRACEPTTVF METHOD TO bE USED*
* * * * *UNTIL NEXT VISIT *
*S.c. *DHEC 1816*SENSE *AS *INTERIM CONTRACEPTION METHOo *
* *MARK 1 *APPROPRIATE * *
* **DIGIT * *
*TENN,.qHS 817 * * *DUES WIT COLLECT THIS DATA ITEM*
*pRup..* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*1ENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA FLEmE NT:ruAm (AFTER THIS VISIT) CODE;A055
****************************** ************ ******** ***** ******* ******* ***
*STATE*FORm NO. * FORMA[ *v4HEN ENTERED . COmMFNTS
***** ******* *** ****** ********* ******* **** ***** ******** ****** * ********** *
*ALA./*NCHS *CODE 4 * *CuNTRACEpTION METHOD AT THE ENO*
*FLA. * * * *Of THIS VISIT *
*GA. *DPH/HIs *SENSE *EvEHY VISIT * *
* *(r)-55 *MARK * * *
*KY. *mcH-280 *1 DIGIT *EACH VISIT *CONTRACEPTION METHOD AT THE END*
* * *CODE 4 * *OF THIS VISIT ONLY ONE *
*MISS.* 208 *CODE 3 *EACH vISIT *PRIMARY METHOD OF CONTRACEPIION*
* * * * *UNTIL NEXT VISIT *
*N.C. * 145d *CODE 04 *EACh VISIT *CONTRACEPTIVE METHOD TO bE USED*
* * * * *UNTIL NEXT VISIT *
*S.C. *DHEC 1618*SENSE *AS *INTERIM CONTRACEPTION mETHOu *
* * *MARK 1 *APPROPRIATE * *
* * *DIGT, * * *
*TENN.*FHS 817 *CODE 03 *EVERY VISIT *METHOD OF CONTPAcEPTIoN UNTIL *
* * * * *NExT VISIT *
*PROP-* N/A
*TENN *
* * *DuFS JOT COLLECT THIS DATA ITEM*
* * * *
////////////////////////////////////////////////////////////////////////
DATA EEEMENT:cONDOm (AFTER THIS VISIT) cODEsA05fi
***** ******* ****************** ****** **** ******* *** ************** *** *****
*STATE*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS
*** ******* *** ********* ******************* ************* *********** ***** **
*ALA./*NCHS *CODE 6 * *CuNFRACEPTION METHOD AT THE END*
*FLA. * * * *OF THIS VISIT *
*GA. *DPH/HIS *SENSE *EvEHY VISIT * *
* *(/)
- 55 *HARK * * *
*KY. *mCH - 280 *1 01( , IT *EACH VISIT *CONTRACEPTION METHOD AT THE END*
* * *CODE 6 * *01- THIS VISIT ONLY ONE *
*MISS.* 208 *CODE 5 *EACH VISIT *PRIMARY METHOD OF CONTRACERIIDN*
- 51 -
*KY, *mCH-280 *1 DIGIT *EACH VISIT *CONTRACEPTION METHOD Al 1HE END*
* * *CODE 2 * *Of THIS VISIT ONLY ONE *
*miss,* 208 *CODE I *EACH VISIT *PHImARY METHOD OF CONTRACEPTION*
* * * * *UNTIL NEXT VTsTT *
*N.c. * 1456 *CODE 02 *EACH VISIT *CONTRACEPTIVE METHOD TO ME usED*
* * * * *UNTIL NEXT VISIT *
*S.C *DHEC 1618*SENSE *AS *INTERIM cuNIRACEPTION MLIHOu *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHs 617 *CODE 01 *EVERY VISIT *MLTHOD OF CONTRACEPTION UNTIL *
* * * * *NOT VISIT *
*PROP-* N/A * * *DUES NOT COLLEcI THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELLmENTsp1LLS (AFTER THIS VISIT) cODEsA053
***************************** ***** ************ ***** *********************
*STATE*FORM No. * FORMAT *WHEN ENTERED * COMMENTS *
*************** ***** ****************************************************
*ALA./*NCHS *CODE I * *OHAL CONTRACEPTIVE METHOD AT *
*FLA. * * * *THE ENT) OF THIS VISIT *
*GA. *DPH/HIS *SENSE *EVERY VISIT *FORMAT IS 2 CHAR FOR it CYCLES *
* *(7) - 55 *MARK AND* *DISPENSED *
* * *ft * * *
* * *COMMENTS* * *
* * *ft * * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *CuNTRACEPTION METHOD AT THE END*
* * *CODE 1 * *Of THIS VISIT ONLY ONE *
*miss,* 208 *CODE 2 *EACH VISIT *PNTMARY METHOD OF CONTRACEPTION*
* * * * *UNTIL NEXT VTSTT *
*N.C. * 1458 *CODE 01 *EACH VISIT *CONTRACEPTIVE METHOD TO ME USED*
* * * * *UNTIL NEXT VISIT (ORAL) *
*S.C. *UHEC 1618*SENSE *AS *INTERIM CONTRACEPTION ME1HOu *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHS 817 *CODE 02 *EVERY VISIT *METHOD OF CONIRAcPETION UNTIL *
* * * * *NLXT VISIT *
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:INJEcTION (AFTER THIS VISIT) CODE:A054
************************************************************************
*STATE*FORM NO. * FORMAT *WNEN ENTERED * COMMENTS
************ ***** ************** ***** ************************************
*ALA./*NCHS *CODE 7 * *cuNTRACEplION METHOD AT THE END*
*FLA. * *Of THIS VISIT
*GA, *DPH/HIS *SENSE *EVERY VISIT * *(7)-55 *MARK
- 52 -
*GA. *uPH/HIS *SENSE *EVERY VISIT *WHO PRESCRIBED LATEST HETHOu
*(7) 55 *MARK *USED?
*KY. *mCH 280 *1 DIGIT *ECH VISIT *WHO PRESCRTBED OR DISPENSED
* * *CODE 1 * *EAST METHUD?
*MISS.* 20b * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *CODE 1 *NEW ADMISSION*WHO PRESCRIbED THAT METHOD? *
* * * *OR RE- * *
* * * *ADMISSTON * *
*S.C. *DHEC 1618*SENSE *AS *pRFVIOUS METHOD PRESCRIbED by *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
* FLNN.*FHS b17 *
*PROP..* N/A *CODE 1
*TENN *
*EACH VISIT
*
*OuES NOT COLLECT THIS DATA ITEM*
*PRESCRIbED bYICLINIC
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:DRUGGIST PRESCRIBED LATEST METHOD CODE1A051
**** ***** ************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
** ***** ************* ********* **** ***** * ***** ***** ****** **** ***** * *******
*ALA./*NCHS *CODE 3 * *CUNTRACEPTIVF HISTORY D. WHu *
*FLA. * * * *PRESCRIBED THAT METHOD? DRUG *
* * * * *S1ORE *
*GA. *DPH/HIS *SENSE *EVERY VISIT *(0RuG STORE) oH0 PRESCRIbED *
* *(7)-55 *MARK * *LATEST METHOD? *
*KY. *mCH 280 *1 DIGIT *EACH VISTT *WHO PRESCRIbED UR DISPENSED *
* * *CODE 3 * *LAST AETHun? *
*MISS.* 20b * *DuFS NOT COLLECT THIS DATA ITEM*
*N.C. * 145/ *CODE /. *NEW ADMISSION*wHD PRESCRIbED THAT METHOD *
* * * *OR RE- * *
* * * *AOHISSTON * *
*S.C. *UHEC 1618*SENSE *AS *PREVIOUS METHOD PRESCRIbED by *
* * *MARK I *APPROPRIATE * *
* * *DIGII * * *
*TENN,*FHS 617 * * *DUES 401 COLLECT THIS DATA ITEM*
*PROP - * N/A *CODE 3 *EACH VISIT *PNESCRIbED bY:DRUGSTORE *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:IUD (AFTER THIS VISTT) CODE:A052
** ******** ****** ****** ********* ********** ******* ************ ************
*STATE*FORM NO. * FORMAT lio4HEN ENTERED * COMMENTS
*ALA./*NCHS *CODE 2 * *CONTRACEPTION METHOD AT THE END*
*FLA. * * * *OF THIS VISIT
*GA. *DPH/HJS *SENSE *EVERY VISIT * *(7)..55 *MARK
- 53 -
*STATE*FORm NO. * FORMAT *(HEN ENTERED * COMMENTS
***** ************************* ******* ***** *************** * ***** ** ***** **
*ALA,/*NCHS
*FLA. *
*GA, *DPH/HIS *SENSE *(7)-55 *MARK
*KY, *mCH-2BD *
*MISS,* 208 *CODE 9
* *
* * *
*N.C. * 1457
*S.C. *DHEC 1618*
*TENN,*EHS B17 *CODE Y
* * *
* *
*PROP.* N/A *
*TENN * *
* *DUES NOT COLLECT THIS DATA ITEM*
* * *
*EVERY VISIT *IF OLD PATIENT. MARK CLINIC *
* *METHOD FROM MASTER FTLE *
* *OuES NOT COLLECT THIS DATA ITEM*
*NEW ADMISSION*FAmILY PLANNTNG METHOD MOST *
*OR RE- *USED IN LAST TWO YEARS *
*ADMISSION * *
* *DuFs NOT COLLECT THIS DATA ITEM*
* *ODES NOT COLLECT THIS DATA ITEM*
*NEW ADMISSION*FAmIEY PLANNING METHOD MOST *
*OR *USED IN LAST 2 YEARS *
*READMISSION *
* *DUES NOT COLLECT THIS DATA ITEM*
* * *
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:pRIvATE DOCTOR pREscRTBED LATEST METHOD CDDE:A049
************************ ***** *******************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
******************* ***** ***************************************** ***** **
*AL
A. * * * *PRESCRIBED THAT METHOD?
*CODE 2 * *CUNIRACEP TIVE HISTORY 0. WHu
*FL *
*
*GA, *DPH/HIS *SENSE *EVERY VISIT *WHO PRESCRIBED LATEST METHOD
*USED?
*
* *(7) - 55 *MARK * *
*KY, *mCH-280 *CODE 2 l*EACH VISIT *wHo PRESCRIBED UR DISPENSED *
* * *DIGIT * *LAST METHOD? *
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *CODE 3 *NEW ADMISSION*WHO PRESCRIBED THAT METHOD? *
* * * :HM EMIUN * *
* * * * *
*S.C. *DHEC 1618*SENSE *AS *PHFVIJUS METHOD PRESCRIBED py *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PUBLIC CLINIC PRESCRIBED LATLST METHUD CODE:A050
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCHS
*FLA. *
*CODE 1 * *CUNTRACEPTTVF HISTORY U. WHu
* * *pHEsCRI8ED THAT METHOD?
* *
*TENN.*FHS 817 * *DUES NOT COLLECT THAT DATA ITEM*
*PROP-* N/A *CODE 2 *EACH VISIT *PRFsCRIbED dy:PRIVATE DOCTOR *
*TENN *
- 54 -
****************** ********** ********************************************
*STATE*FORM NO, * FORMAT *WHEN ENTERED * COMMENTS *
************************************************************************
*ALA,/*NCHS *CODE 5 * *CuNTRACEPTIVF HISTORY C, WHAT *
*FLA. * * * *Is THE LAST METHOD USED? *
*GA, *DPH/HIS *SENSE *EVERY VISIT *IF OLD PATIENT, MARK CLINIC *
* *(7) - 55 *MARK * *METHOD FROM MASTER FILE *
*KY, *mCH-280 *1 DIGIT *EACH VISIT *LAST METHOD nF CONTRACEPTION *
* * *CODE 5 * * *
*MISS,* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.c. * 1457 *CODE 05 *NEW AUMISSION*wHAT IS THE LAST METHOD YOU *
* * * *llk *USED? *
* * * *REAUM1SSTON * *
*S.C. *uHEC 1618*SENSE *AS *PwFvIOuS CONTRACEPTIVE METHOD *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 * * *DUES NUT COLLECT THIS DATA ITEM*
* * * * * A UR 132 *
*PROP-* N/A *CODE 05 *EVERY VISIT *LAST METHOD USED *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTINHER (HEFURE IHIS VISIT) CDOE;A047
************************** ************ **************** ***** ****** ***** **
*STATE*FORM NO. * EURHAT *wHEN ENTERED * COMMENTS
************ ******************* ****** ***** ******************************
*ALA,/*NcHS *COUP 8 * *CONTRACEPTIVE HISTORY C WHAT *
*FLA. * * * *16 THE LAST METHOD USED? *
*GA, *DPH/HIS *SENSE *EVERY VISIT *IF OLD PATIENT. MARK CLINIC *
* *(7)-55 *MARK * *METHOD ERum MASTER FILE *
*KY, *MCH - 280 *1 DIGIT *EACH VISIT *LAST METHOD OF CONTRACEPTION *
* * *CODE 8 * * *
*MISS,* 2U8 *CODE 8 *NEW AuM1SSION*FAmILY PLANNING METHOD MUST *
* * * *OR HE- *USED IN LAST TWO YEARS *
* * * *ADMISSION * *
*N.C. * 1457 *CODE 10 *NEW ADmISsION*wmAT IS THE LAST METHOD YOU *
* * * *OR RE- *LW- 0 *
* * * *ADMISsIUN * *
*S.C. *DHEC 1618*SENSE *AS *PREVIOUS CONTRACEPTIVE METHOD *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 *CODE 8 *NEW ADMISSION*FAmIL.Y PLANNING METHOD MUST *
* * * *OR *U6EU IN LAST 2 YEARS *
* * * *READMISSION * *
*Flipp.* N/A *CODE 08 *EVERY VISIT *LAST METHOD USED *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELENENT:METH0n NUT KNOWN (8FFORE THIS VISIT) CODE:A048
******************* ***** * ********* ***** ***** ********** ****** ************
- 55 -
*ALA./*NCHS *CODE 1 *
*FLA. * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT
* *(7)'55 *MARK *
*KY, *MCHm280 *1 DIGIT *EACH VISIT
* * * *
*MISS,* 208 *CODE 2 *EACH VISIT
*N.C. * 1458 * CODES; *EACH VISIT
* * *0-3 1 *
* * *DIGIT *
*S.C. *DHEC 1618*SENSE *EACH VISIT
* * *MARK 1 *
* * *DIGIT *
*TENN.*FHS 817 *CODES 10*EVERY VISIT
* * *YES 2. *
* * *NO *
*PROP..* N/A *NONE *AS
*TENN * * *APPROPRIATE
*MEDICAL SERVICES
*
*SERVICE(S) PROVIDED SECTION *
*MEDICAL/NURSING SUBSECTION *
*MEDICAL SERVICES (11 POSSIBLE*
*DIGITS) *
*MEDICAL SERVICES: PELVIC/PAP *
*PAPANICULADU SMEAR; 0,NO, 1.M,D*
*,0 2,NURSE, 3,OTHER *
* *
*LAH TESTS PAP *
* *
* *
* *
* *
* *
*MEDICAL SERVICES: PELVIC/PAP *
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT;G.C, CULTURE CODEIA070
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCHS * *
*FLA* * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT
* *(7)'55 *MARK *
*KY, *MCHm280 *1 DIGIT *EACH VISIT
*MISS,* 208 *CODE 2 *EACH VISIT
* * * *
*N.C. * 1458 *CODES 0-*EACH VISIT
* * *3 *
*S.C. *UHEC 1618*SENSE *EACH VISIT
* * *MARK 1 *
* * *DIGIT *
*TENN.*FHS 817 * *
*PROP..* N/A *NINE *AS
*TENN * * *APPROPRIATE
*DUES NOT COLLECT THIS DATA ITEM*
* *
*SLRVICE(S) PROVIDED SECIIUN, *
*MEDICAL/NURSING SUBSECTION *
*TESTING G.C. *
*DICAL SERVICES: SEROLOGY/GC, * ME *MEDICAL
*
*GUNORRHLA TEST: O.NU, 1.mo., 2*
*.NURSE, 3.0THER *
*LAK TESTS G.C. *
* *
* *
*DOS NOT COLLECT THIS DATA ITEM*
*MEDICAL SERVICES *
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIPELVIC EXAMINATION CODEIA071
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * CO M MENT S
************************************************************************
*ALA,/*NCHS *CODE 2 * *MEDICAL SERVICES
*FLA. *
- 56 -
*GA. *UPH/HIS *SENSE *EVERY VISIT *SLRvICE(S) PROVIDED SECTION *
* *(7) - 55 *MARK * *mEDICAL/NURSING SUBSECTION *
*KY, *mCH - 280 *1 DIGIT *EACH VISIT *MEDICAL SERVICES *
*CODE 3 *EACH VISIT *MEDICAL SERVICES, PELVIC/PAP, *
* * *OH PELVIC *
* COOLS 0*EACH VISIT *PELVIC EXAM: O.NU, 1.M.U., e, *
*-3, 1 * *NURSE, 3,OTHER *
*DIGIT * * *
1618*SENSE *EACH VISIT *EXAM PELVIC *
* * *MARK 1 * * *
* * *DIGIT * * *
*TENN.*FHS 817 *CODES 1,*EVERY VISIT PELVIC EXAM *
* * *YES 2. *
*PELVIC
*
* * *Nn * * *
*PROP-* N/A *NONE *AS *mEIICAL sLRVICFS *
*TENN * * *APPROPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:URINALYSIS CODE:A072
************** ***** ******************** ***** ********************* ****** *
*siiIrEtsuRm Nn. * FORMAT *RHEN ENTERED * COMMENTS *
** ***** *****************************************************************
*ALA./*NCHS *CODE r * * MEDICAL SLFOITCFS CN.F.S.) *
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *StRvICE(S) PROVIED SECTION *
* *(1) - 55 *MARK * *mEDICAL/NORSTNq SUBSECTION *
*KY, *mcH-230 *1 DIGIT *EACH VISIT *MEDICAL SERVICES (11 POSSIBLE*
* * * * *DIGITS) *
*MISS.* 2 0 6 *CODE 3 *EACH VISIT *MEDICAL SLRIvCFS: URINE/H.P., *
* * * * *OH URINE *
*N.C, * 1456 * CODES: *EACH VISIT * *
* * *O-No, 1-* * *
* * *YES * * *
*S.C. *oHEC 1618*SENSL *EACH VISIT *LAH TESTS URINE *
* * *MARK 1 * * *
* * *DIGIT * * *
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A *NINE *mLUICAL SERVICES *
*TENN * * :AOPROPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:MCI OR HuH CODEIA073
************************************************************************
*STATE*F- ORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************ ***** *******************************************************
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *UPH/HIS *SENSE *EVERY VISIT *StRvICF(S) PROVIDED SECTION *
* *(7)* 55 *MARK * *mEDICAL/NURSTWI SUBSECTION *
- 57 -
*MISS,* 208
* *
*N.C. * 1408
* *
* *
*S.Ci *UHEC
*KY, *MCH - 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * CODES: *EVERY VISIT *MEDICAL sERVICESI HGB AND HLT *
* * *1.YES, 2* * *
* * *,NO * * *
*N,C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C, *DHEC 1618*SENSE *EACH VISIT *LAb TESTS HCT OR HGB *
* * *MARK 1 * * *
* * *DIGIT * * *
*TENN.*FHS 817 * * *DuFs NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTSV.D, BLOOD TEST cODEIA074
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
* ***********************************************************************
*ALA,/*NCHS*CODE 6 * *MEDICAL SERVICES V.D. TESTING*
*FLA, * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *StRvICE(S) PROVIDED SECTION *
* *(7) - 55 *MARK * *mLDICAL/NURSING SUBSECTION *
*KY. *MCH - 280 *1 DIGIT *EACH VISIT *MEDICAL SERVICES (11 POSSIBLE*
* * * * *DIGITS) *
*m1SS o * 208 * * *DuES NOT COLLECT THIS DATA ITEM*
*N.C. * 1458 * CODES: *EACH VISIT *SEROLOGY *
* * *0-NO, 1-* * *
* * *YES * * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DuEs NOT COLLECT THIS DATA ITEM*
* * * * * E- Rni,o(,y?? *
*PROP-* N/A * * *ouFs NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:SICKLE CELL ANEMIA TEST CODE$A075
************* * ****** * ********** ***** * ***********************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
*************************************** ********** ***********************
*ALA./*NCHS *CODE A * *SERVICES PROvIDED *
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *SERvICE(S) PROVIDED SECTION *
* *(7) - 55 *MARK * *mLDICAL/NURSING SUBSECTION *
*KY, *MCH-280 *1 DIGIT *EACH VISIT *TESTING SICKLE CELL *
*mIss,* 205 * * *DUES NOT COLLECT THIS DATA ITEM*
*N,C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
- 58 -
*S.C. *oHEC 1618*SFNSE *EACH VISIT *LAB TESTS SICKLE CELL *
* * *MARK 1 * * *
* * *DIGIT * * *
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A *NONE *AS *MLD1CAL SLRVTCFS *
*TENN * * *APPROPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:STFRILIZATION CODEIA076
*STATE*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS *
*** * ***** ** ********* *** ** *** * * ** ** * *** * ******** * ** ***** ** ***** *** ***** **
*ALA./*NCHS
*FLA. *
*VIDE 9
* *
*mLoICAL SLRVTCFS
* *
*GA. *DPH/HIS *SF:NSF. *EVERY VISIT *SERvICF(S) PROVIDED SECTION *
* *(7)-55 *HARK * *mEDICAL/NDRSING SUBSECTION *
*KY. *MCH'2H0 *1 ML ITT *EACH VISIT *MtDICAL SLRVTCFS (11 POSSIBLE*
* * * * *DIGITS) *
*MISS.* 206 * * *DUFS NOl COLLECT THIS DATA ITEM*
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *UHEc 16ib* * *DUES NOT COLLECT THIS DATA ITEM*
* IENN.*FHS 817 * * *DuFS NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DuFS NUT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:INFERTTLITy CODE:A07/
*STATE*FORm ND. * FORMAT *WHEN ENTERED * COMMENTS
*ALA./*NCHS *CODE 0 * *MEDICAL SLRVTCFS INFERTILITY *
*FLA. * *TKFAT4ENT
*GA. *DPH/HIS *SENSL *EVERY VISIT *ScRvICE(S) PROVIDED SECTION *
* *(/) - 55 *MARK * *MEDICAL/NURSING SUBSECTION *
*KY. *mCH - 280 *1 DIGIT *EACH VISIT *MEDICAL SLRVTCFS (11 PUSSIBLE*
* * * * *DIGITS) *
*mlss,* 208 * * *DUES NUT COLLECT THIS DATA ITEM*
*N.C. * 1458 * CODES: *EACH VISIT *INFLRTILITY SERV)CES PRUVIDE0: *
* * *0-3 , 1 * *0 - MONE 1"CDONSELING, 2- *
* **DIGIT * * THFATMENT* 3-REFERRAL *
*S.C. *DHEC 1618* * *DUES NOT crILLECT THIS DATA ITEM*
*1ENN.*FHS air * * *DuFS NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
- 59 -
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:OTHER (MEDICAL/NURSING SERVICF(S) PROVIDED) cODE1A078
************************************************************************
*STATE*FORM Nn. * FORMAT *WHEN ENTERED * COMMENTS *
************************************************************************
*ALA./*NCHS *CODE X * *MEDICAL SERVICES OTHER
*FLA. *
*GA, *DPH/HIS *SENSE *EVERY VISIT *SERVICE(S) PROVIDED SECTION *
* *(1)"55 *MARK * *MEDICAL/NURSING SUBSECTION *
*KY, *MCH-280 *1 DIGIT *EACH VTSTT *MEDICAL SERVICES (11 POSSIBLE*
* * * * *DIGITS) *
*MISS.* 2 0 8 *CODE 2 *EACH VISIT *MEDICAL SERVICES: OTHER MEDICAL*
* * * * */LAb TEST '' 2.MEP, *
*N.C, * 1458 * CODES: *EACH VISIT *OTHER MEDICAL EXAMS *
* * *0..NOP 1.**
*YES
* *
* * * * *
*S.C. *DREG 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 * *DuES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A
*TENN *
*NONE *AS *MEDICAL SERVICES
*APPROPRIATE. *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:pOSITIVE PREG. TEST CODE1A079
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 5 * *MEDICAL SERVICES PREGNANCY *
*FLA. * * * *TESTING *
*GA. *DPH/HIS *SENSE *EVERY VISIT *SLRVICE(S) PROVIDED SECTION *
* *(7)"55 *MARK * *wEDICAL/NURSING SUBSECTION *
*KY,
*
*MCH'280 *1 DIGIT *EACH VISIT
* * *
*MEDICAL SERVTCES (11 POSSIBLE*
*DIGITS) *
*MISS,* 20 8 * CODE: 1*EACH VISIT *MEDICAL SERVICES: PREGNANCY *
* * *.YES, 2.*
* * *NO *
*TEST
*
*
*
*N.C. * 1458 * CODES: *EACH VISIT *PREGNANCY TEST *
* * *0.'NO* l'* * *
* * *YES * * *
*S,C. *OHEC 1618*SENSE *AS *POSITIVE LAb RESULTS PRIG. *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP., * N/A *NONE *AS *MEDICAL SERVICES: PREGNANCY *
*TENN * * *APPROPRIATE *TEST *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:NEGATIVE PREG, TEST COUDA080
- 60 -
******* * **** * ***** ************** * ******* *** ** ******** * ***** ****** ** *** **
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
*ALA./*NCHS
*FLA. *
*CODE 5 * *mLnicAL sk-Rvircrs PREGNANCY
* * *TESTING
*GA. *OPH/HIS *SENSE *EVERY VISIT *SEPOCE(S) PROVIDED SECTION *
* *(7) - 55 *MARK * *MEDICAL/NURSING SUBSECTION *
*KY. *mCH - 2b0 * * *DuEs NOT COLLECT THIS DATA ITEM*
*MISS.* 206 * * *DuFs NOT COLLECT THIS DATA ITEM*
*N.C. * 145d * CODES: *EACH VISTT *PREGNANCY TEST *
* * *0-ND 1- * * *
* * *YFs * * *
*S.C. *DHEL 1616* * *DuFs NOT COLLECT THIS DATA ITEM*
*TENN.*EHS bll * * *ouFs NOT COLLECT THIS DATA iTEM*
*PR0P-* N/A * * *DuFs 401 COLLECT THIS DATA ITEM*
*1LNN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:SUPPLY VISIT OR STRING CHECK CODEIA081
* ***** ****** ***** ****** ****** ** ******* ***** ************* ********* ***** **
*STATE*FORM NO. * FORMAT *THEN ENTERED * ComMFNTS
******** *** ***** ********* ***************** *********** ******* * ********* **
*ALA./*NCHS *CODE: 1 *FORT VISIT *NEXT APPOINTMENT PURPOSE ( *
*FLA. * * * *SuPPLY ONLY) *
*GA. *uPH/HIS *SENSE *EvERY VISIT *PuPPOSE(S) OF NEXT APPOINTMENT *
* *(0 - 55 *MARK * *SECTION *
*KY. *mCH - 280 *1 DIGIT *EACH VISIT *TYPE )F THIS vISt1 SUPPLY uNLY*
* * *CODE 0 &* *(scHE).) SUPPLY ONLY (UNSCHED.*
* * *4 * *) *
*MISS.* 2 0 8 *CODE 2 *EACH VISIT *REASON FOR NEXT VISIT: RESUPPLY*
* * * * *VISIT *
*N.C. * liOti *CODE 6 *EACH VISIT *TYPE OF THIS VISIT= 6.SUPPL, *
* * * * *ONLY *
*S , C , *DHEL: 1618*SENSE *EACH VISIT *TYPE OF THIS VISIT SUPPLY uNLy*
* * *MARK 1 * * *
* * *DIGIT * * *
*TENN,*FHS 817 *CODE 2 *EVERY VISIT *REASONS FUR NOT VISIT *
*PROP-* N/A *CrJUE 8 *EACH VISIT *TYPE OF ENTRY: SUPPLY/VISIT *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:ANNUAL EXAMINATION CODE;24082
************ ***** ************* ****** **** ******************************* *
*STATE*FORm NO. * FORMAT **HEN ENTERED * COMMENTS
** ***** ********************** ****** ** ******** * ***** **** **************** *
*ALA./*NCHS *CODE 2 * *NEXF APPOINTMENT PURPOSE-
- 61 -
*FLA. * *
*GA, *DPH/HIS *SENSE
* *(7) - 55 *MARK
*KY, *mcH-280 *1 DIGIT
* * *CODE 2,
* * *5 & 6
* * *
*MISS,* 206 *CODE 5
*N.c, * 1456 *CODE 3
* * *
*S.C. *DHEC 1618*SENSE
* * *MARK 1
* * *DIGII
*IENN,*FHS 617 *CODE 3
*PROP-* N/A *CODE 4
*TENN * *
*
*EVERY
*
*EACH
*
*
*
*EACH
*EACH
*
*EACH
*
*
*EVERY
*EACH
*
VISIT
VISIT
VISIT
VISIT
VISTT
VISIT
VISIT
*ANNUAL MEDICAL *
*PURPOSE(S) OF NEXT APPOINTMENT *
*SECTION *
*TYPE OF VISIT REVISIT (ANNDAE*
*CKUP) UNSCHFD. REVISIT FoR *
*ANNUAL, CKUP UNSCHED, PROS/ *
*VISIT INCLUDING ANNUAL CKUP, *
*TYPE VISITs ANNUAL MEDICAL *
*TYPE OF THIS VISIT: ANNUAL *
*MEDICAL *
*TYPE OF THIS VISIT ANNUAL *
*MEDICAL *
* *
*REASONS FOR NEXT VISIT ANNUAL *
*TYPE OF ENTRY *
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTtMEDICAL PROBLEM (PURPOSE nF NEXT AppOINTmENT) CODEsA063
********** * *** * ***** *** ******* * ** * **************************************
*STATE*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *CODE 3 * *NExT APPOINTMENT PURPOSE DIRER*
*FLA. * * * *MEDICAL *
*GA, *OH/HIS *SENSE *EVERY VISIT *PURpOSE(S) OF NEXT APPOINTMENT *
* *(7) - 55 *MARK * *SECTION *
'KY, 04CH-260 *1 DIGIT *EACH VISIT *PURPOSE OF NEXT APPOINTMENT *
* * *CODE 3 * *OTHER MEDICAL *
*MISS,* 20h *CODE 5 *EACH VISIT *REASON FOR NEXT VISITS MEDICAL/*
* * * * *CumPLICATION *
*N.C. * 1456 *CODE 5 *EACH VISIT *TYPE OF NEXT APPOINTMENT *
*S.C, *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 *CODE 1 *EVERY VISIT *REASONS FUR NEXT VISIT MEDICAL*
* * * * *FULLOw-UP *
*PROP-* N/A *CODES 1 *EACH VISIT *REASON FOR NEXT vISITI MEDICAL *
*TENN * *AND 4 * *FULLO6UP, FIRST MEDICAL *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT;OTHER (PURpOSE(S) OF NEXT ApPOINTMEN!) CODEIA084
****** ***** *************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*************** * ** ** ** * ** * ** * * * **** * ** * ** * ****** * ** * ******** ** * * **** ****
*ALA./*NCHS *CODE 4 * *NEXT APPOINTMENT PURPOSE *
*FLA. * * * * *
*GA, *DPH/HIS *SENSE *EVERY VISIT *PPURPOSE(S) OF NEXT APPOINTMENT*
* *(7) - 55 *MARK * *SECTION *
*KY, *mCH 280 *1 DIGIT *EACH VISIT *PURPOSE OF NEXT APPOINTMENT *
? 62 ?
* * *CODE 4 *
*MISS.* 208 *CODE 8 *EACH VISIT *RLASON FOR NEXT VISIT: OTHER *
* * * * *MEDICAL(SPECIFY) *
*N.C. * 1458 *CODE 9 *EACH VISIT *TYPE OF NEXT APPOINTMENT *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN?*FHS 817 *CODE si *EVERY VISIT *REASONS FUR NEXT VISIT *
*PROP..* N/A *COOL 7 *EACH VISIT *REASON FOR NEXT APPOINTMENT *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIND NEXT APPOINTMENT CODE:A085
* ********** * ************ ****************************** ***** *************
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS
*********************** * ******* * *** * ********* *** ****** ***** * * * **********
*ALA./*NCHS *CODE 5 * *NEXT APPOINTMENT PURPOSE *
*FLA. * * * * *
*GA. *DPH/HIS *SENSE *EVERY VISIT *PuRPOSE(S) OF NEXT APPOINTMENT *
* *(7) - 55 *MARK * *SLCTION *
*KY, *mCH - 280 *1 DIGIT *EACH VISIT *PURPOSE OF NEXT APPOINTMENT *
* * *CODE 5 * * *
*MISS.* 2O *CODE 0 *EACH VISIT *REASON FOR NEXT VISIT: NO *
* * * * *RETURN VISTT *
*N,C. * 1457 * * *DOES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*1ENN.*FHS 617 *CODE 0 *EVERY VISIT *REASONS FUR NEXT VISIT *
*PROP-* N/A *CODE U *EACH VISIT *NU NEXT VISIT *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:DATE OF NEXT APPOINTMENT CODES4086
************************ ***** *******************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
***** ********* ***** ********** * ****** * ********************** * ****** * *****
*ALA./*NCHS *NONE *NEW PATIENT *NEXT APPOINTMENT DATE *
*FLA. * * * * *
*GA, *DPH/HIS *MO/YR 2 *EVERY VISIT *PURPOSE(S) OF NEXT APPOINTMENT *
* *(7) - 55 *CHAR * *SECTION *
* * *EACH * * *
*KY. *MCH - 280 *6 DIGITS*EACH VISIT *MU. DAY YEAR *
*MISS,* 208 *6 DIGITS*EACH VISIT *DATE OF NEXT APPOINTMENTS HU/DA*
* * * * */YR *
*N.C. * 1458 *9 DIG1IS*EACH VISIT *TIME AND DATE OF NEXT *
* * * * *APPONTMENT *
*S.C. *OMB; 1618*SENSE *EACH VISIT *RETURN DATE MO. YR. DA. *
* * *MARK 6 * * *
* * *DIGITS * * *
? 63 ?
* TENN . *F HS 617 * NON E
* *
*PROP-* N/A *NONE
*TENN *
*EVERY VISIT *DATE OF NEXT APPOINTMENT MU,
*DA. YR.
*EACH VISIT *
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:SUCIAL SERVICES (REFERRED FORS) CODEIA087
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
********* ****** *********** * ** * ***** * ** * ** ** * *** ****** **** * *** * *** * **** **
*ALA,/*NCHS
*FLA. *
*
*
*
*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*GA, *DPH/HIS *SENSE * *(7)-55 *MARK
*KY, *mCH-280 *1 DIG11 *EACH VISIT
* * *CODE 5 *
*MISS,* 20d
*N.C. * 1457
*S.C *DHEC 1618* *
*TENN.*FHS 817 * *
*PROP* N/A
*TENN *
* *
* *
*ASSOCIATE REERRALS
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:mEDIcAL SERVICES (REFERRED FUR:) CODEIA088
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCHS *
*FLA, * *
*GA. *DPH/HIS *SENSE *
* *m ys *MARK *
*KY. *mCH`280 *1 DIGIT *EACH VISIT
* * *CODE 4 *
*MISS,* 208 * *
*N,C, * 1457 * *
*S.C. *DREG 1618*
*TENN,*EHS 817 *
*PROP..* N/A *
*TENN * *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*
* *
*AbSoCIATE REFERRALS UTHER *mLnicAL stRvicEs
*DUES NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS.DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*
*
*
*
*
*
////////////////////// / //////////////// / /////////// // /////// / //// // /////
- 64 -
DATA ELEMENTtSIERILILATION (REFERRED FORt) CODEIA089
***************************************************************** ***** **
*STATE*FORM NO. * FORMAT *wHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS * *
*FLA. * * *
*GA, *DPH/HIS *SENSE *
* *(1) - 55 *MARK *
*KY. *MCH - 280 *1 DI
ODE
GI
*
T *EACH VISIT
* *C 2
*MISS.* 208 * *
*N.C. * 1458 *CODE 5 *EACH VISIT
*S.C. *DHEC 1618* *
*TENN.*FHS 817 *
*PROP* N/A *
*TENN * *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*
*
* *
*DUES 401 COLLECT THIS DATA ITEM*
*CuNTRACEPTIVF SERVICES PROVIDED*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NUT COLLECT THIS DATA ITEM*
*DUES NUT COLLECT THIS DATA ITEM*
* *
*
*
*
*
*ASSOCIATE REFERRALS
////////////////////// ///////// ////////////////////////////// ///////// //
DATA ELEMENT:AdDRTION (REFERRED FORt) CODE1A090
********************* ************* *** ***** ******************************
*STATF*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS *
** ***** ***************** ***** ************** ***** ************************
*ALA./*NCHS *
*FLA. * *
*GA. *DPH/HIS *SENSE * *(/)-55 *MARK
*KY, *mCH-280 *1 DIGIT *EACH VISIT
* * *CODE 1 *
*MISS,* 2U1j *
*N,C. * 1458 *CODE 4 *EACH VISIT
*S.C. *DHEC 1618* *
*1ENN,*FHS 817 * *
*pRop..* N/A *
*TENN * *
*DUES NOT COLLECT THIS DATA ITEM*
* *
* *
* *
*ASSOCIATE REFERRALS
* *
*DUES NOT COLLECT THIS DATA ITEM*
*CUNTRACEPTIVF SERVICES PROVIDED*
*MS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DuES NOT COLLECT THIS DATA ITEM*
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT1INFERTILITy TREATMENT (REFERRED FORt) COUE;A091
****** ***** * ***** **** ***** **********************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
********************** ****** ********************************************
*ALA./*NCHS *DUES NOT COLLECT THIS DATA ITEM*
*FLA. *
*GA. *DPH/HIS *SENSE *
*(7) - 55 *MARK *
- 65 -
*KY. *mCfi 280 *1 DIGIT *EACH VISIT
* * *CODE 3 *
*MISS,* 208
*N.C. * 1457
*S.C. *DHEL 1618*
*TENN,*FHs 817 *
*PROP * N/A
*TENN *
*ASSOCIATE REFERRALS
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*
*
*
/ /// // / /// /// //// / // // / /////// // / / / / / // /// / // // / /// / //// ////////////////
DATA ELEMENTIDIHER (REFERRED FURL) CDDEIA092
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*** * *** ** ** * ** ** * **** ** *** **** ******************** ***** ******** * **** ***#
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *OPH/HIS *SENSE * * *
* *(7) 55 *MARK * *
*KY, *mCH 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP * N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:MEDICAID NUMBER CODEIA093
************************************************************************
*STATE*FORM NO. * FORMAT *NHEN ENTERED * COMMENTS
************************************************************************
*ALAII/*NCHS
*FLA. *
*
*
*ENTER AT BOTTOM OF FORM
* * *
*GA, *DPH/HIS *
*(7) 55 *
* *DUES NOT COLLECT THIS DATA ITEM*
* *
*KY, *MCH 280 *10 *EACH VISIT
* * *DIGITS *
*MISS,* 208
*N,C. * 1458 *1 DIGIT *EACH VISIT
* * * *
*S.C, *DHEC 1618*
* *
* *
*DUES NOT COLLECT THIS DATA ITEM*
*If MEDICAID PATIENT, CHECK 80X *
*AND AFFIX LAREL HERE
*DUES NOT COLLECT THIS DATA ITEM*
*TENN.*EHS 817 *11 *EVERY VISIT *
* * *DIGITS *
- 66 -
*PROP-* N/A *11 *EACH VISIT
*TENN * *DIGITS *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:TYPE OF THIS VISIT cODEIA094
******************* ***** **** ***** ************ ***** ******* ***** **********
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
*** ** ***** *** ** *** ** * ** * **** ********* *** *** ** ***** *** *********** * *** * ***
*ALA./*NCHS *NONE *INITIAL VISIT REVISIT (FIRST *
*FLA. * :M1T ) THR AMI I AEfl (NOT REVISIT
*
*GA, *DPH/HIS *
*(7) - 55 *
*
*
*DUFs NOT COLLECT THIS DATA ITEM*
* *
*KY, *mCH - 280 *1 DIGIT *EACH VISIT *O. SUPPLY nNo, (SCHED,) 1. *
* * TRU 6, *
IDE 0 *
*WE 3, 24EUgWINO N Nfil OF *THRU * *
* * *8 ( 9 * *YEAR) 4, SUPPLY ONLY (UNSCNED.*
* * * *
* * * * :i14i, U NS "g. R UginE4 O ON. *
* * * * *PROBLEM b. UNsCHED, PROBLEM *
* * * *
* * * * VIIJOgE[nagIMTV IIOKUP 9, :
*MISS,* 208 * CODES: *EACH VISIT *TYPE VISIT: NEW ADMISSION, *
* * *1-5 * *MEDICAL FDLLoWoP, RE-ADMISS1ON,*
* * * * *NLw TO DATA SYSTEM, DR ANNUAL *
* * * * *MEDICAL *
*N.C. * 1458 *CODES 1 *EACH VISIT *1.INITIAL VISIT, 2.SCHEUULED *
* * *THRU 9, * *REVISIT, 3,ANNoAL MEDICAL, 4, *
* * *1 DIGIT * *OTHER MEDICAL, 5.METHOD PRODLEM*
* * * * *, 6,SUPPLY ONLY, 7,OUTREACH *
* * * * *VISIT BY STAFF, 8,FOLLOwUP LARE*
* * * * *HUME VISIT, 9 4 0THER *
*S.C. *OHEC 1618*SENSL *EACH VISIT *INITIAL SCHED. REVISIT *
* * *MARK 1 * *ANNUA MEDICAL OTHER MEDICAL *
* * *DIGIT * * mFrHOD PROBLEM SUPPLY ONLY *
* * * * *OtHER *
*TENN,*FHS 817 *CODES 1 *EVERY VISIT *PATIENTS MAIN REASON FUR VISIT *
* * *THRU 3 Or *1. NEN ADMISSION 2 MEDICAL *
* * *8 * *FDLLOW - LIP 3, READMISSION 4. *
* * * * *OCHER *
*PROP-* N/A *CODES 1 *EACH VISIT *1.INITIAL VISIT, 2,MEDICAL *
*TENN * *THRU 9 * * REVISIT, 3,RE-ADMISSION, 4, *
* * * * *ANNuAL EXAM. 5.TERM., 6. *
* * * * *CERTIFICATION, 7.CHANGE/ *
* * * * *CURRECT, B,SUPPLY VISIT. 9. *
* * * * *OTHER *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:CURRENTLY ON WELFARE? CDDE1A095
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
***************************************** ****** *************************
*ALA,/*NCHS *CODE A, *NEW PATIENT *WELFARE STATUS
*FLA. *
*
*
*GA, *DPH/HIS * *ODES NOT COLLECT THIS DATA ITEM*
- 67 -
* *(T)"55 * * * *
*KY. *MCH"280 *1 DIGIT *ANNUAL UPDATE*RLCEIVING PUBLIC ASSISTANCE *
*YES OR * * *
*NO * * *
20 b *CODES 1 *EACH VISIT *100, 2.YES AFDC, 3.YES OTHLR, * *THRU 3, * *9.UNKNOWN *
*AND 9 * * *
1457 *CODES 0 *NEW ADMISSION*FAMILY RECEIVING FINANCIAL *
*THRU 4, *OR RE" *ASSISTANCE fROM THE DEPT. Of *
*1 DIGIT *ADMISSION *SUCIAl. SERVICES , 0.NO, 1,AFL)C, *
* * *2,APTD, 3 A8, 4.OTHER *
*S.C. *DHEU 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 617 *CODES I *EVERY VISIT *1. NO 2. YES - AFDC 3. TES *
* * *THRU 5 8* *- OTHER 4. POTENTIAL 5. *
* * *9 * *FURMER 9. UNKNOWN *
*PROP** N/A *CODES 1 *EACH VISIT *WLLFARE SIATUST 1.NO, 2,AFDL, 3*
*TENN * *THRU 6 * *.UTHER , 4VPUTENIIAL, 5.FORMLR, *
* * * * *61INOT WITHIN SIX MONTHS *
* *
* *
*MISS,*
* *
* *
*N.C. *
* *
* *
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTTREGISTERED FOR MEDICAID? CODEIA096
************************************************************************
*STATE*FORN NO. * FORMAT *WHEN ENTERED * COMMENTS
*************************************** ***** ***********************k***;
*ALA./*NCHS
*FLA. *
*CODE 8 *NEW PATIENT *WLLFARE STATUS
* * * *
*GA. *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(r)-55 * * * *
*KY, *MCH"280 *1 DIGIT *ANNUAL UPDATE* *
* * *YES UR * * *
* * *NO * * *
*MISS.* 208 *CODES 1.*EACH VISIT *1.NO, 2.YE$, 9,UNKNOWN *
* * *2 AND 9 * * *
*N.C. * 1457 * CODES! *NEW ADMISSION*APPROVED FOR MEDICAID *
* *
:?Er , ": 21(14i;ION
* *
* * * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 *CODES 1,* *1, NO 2. YES 9. UNKNOWN *
* * *2 & 9 * * *
*PROP** N/A * CODESs *EACH VISIT *MEDICAID *
*TENN * *1 AND 2.* * *
* * *YES UR * * *
* * *NO * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTANDMdER OF PREGNANCIES CODE1A097
************************************************************************
*STATE*FDRM NO. * FORMAT *WHEN ENTERED * COMMENTS
******k*****************************************************************
*ALA./*NCHS *DUES NOT COLLECT THIS DATA ITEM*
? 68 ?
*FLA* * * * * *
*GA. *DPH/HIS * * *DUFS NOT COLLECT THIS DATA ITEM*
* *(7)'"55 * * * *
*KY. *MCH 280 * * *DUES NOT COLLECT THIS DATA ITEM*
* * * * * Nn. OF LIVE BIRTHS + NU. Di *
* * * * *FETAL DEATHS = NO. OF *
* * k * * PrIFOANCILS *
*MISS.* 200 * CODES: *NEw ADMISSION* *
* * *0`7* 8 *J HE. * *
* * *UR MURE,*ADMISSION * *
* * *9 * * *
* * *UNKNUAN * * *
*N.C. * 1457 *2 DiulTS*NEW ADMISSION*TUTAL NUMBER OF PREGNANCIES *
* * * *OR RE? * *
* * * *ADMISSION * *
*S.C. *DHEC 1618*SENSL *AS *PARITY *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FHS 817 *CODES 0 *NEW ADMISSION* *
* * *THEM 7 g*OR * *
* * *. OR *READMISSION * *
* * *MORE 9, * * *
* * *UNKNOWN * * *
*PROP-* N/A * * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT2NUMHER HORN ALIVE CODEIA098
************** ****** ******* ***** **************** *************** *********
*STATE* ORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
***** ************** ******* * ***** ** ******** ***** ************ ****** ***** **
*ALA./*NCHS *CODE A *NEW PATIENT *NUMBER OF LIVE BIRTHS
*FLA* * * * *
*
*
*GA. *DPH/HIS * *DUES NOT COLLECT THIS DATA ITEM*
*(7)"55 *
*KY. *MCH'280 *1 DIGIT *ANNUAL UPDATE*NUmBER OF LIVE BIRTHS
*MISS.* 2" *CODES 0 *NEW ADMISSION* *
* * *THRU 7, *OR RE.. * *
* * *8 OR *ADMISSION * *
* * *MORE* 9 * * *
* * *UNKNOWN * * *
*NeC. * 1457 *2 DIGITS*NEW ADMISSION*NUm8ER OF LIVE BIRTHS *
* * * *OR RE- * *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 *CODES 0 *NEW ADMISSION* *
* * *THRU / 8*I1N * *
* * *. OR *READMISSION * *
* * *MORE 9, * * *
* * *UNKNOWN * * *
*PROP ,..* N/A *CODES 0 *EACH VISIT *LIVE BIRTHS *
*TENN * *THRU 8 * * *
////////////////////////////////////////////////////////////////////////
? 69 ?
DATA ELEMENT:CHILDREN UNDER 5 YEARS OLD CODE:A099
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*AEA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *DPH/HIS
*(7)"55
*
*
*
*
*DUES
*
NOT COLLECT THIS DATA ITEM*
*
*KY, *MCH'280 * * *DUES NOT COLLECT THIS DATA ITEM*
* MISS ,* 206*
* *
* *
* *
*CODES 0 *NEW ADMISSION*
*THRU 7, *OR RE.. *
*8 OR *ADMISSION *
*MORE , 9 * *
*UNKNOWN * *
*N.C, * 1457 *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*EHS 617 *CODES 0 *NEW ADMISSION* *
* * *THRU 7 9*OR * *
* * *, *READMISSION * *
* * *UNKNOWN * * *
*PROP * N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:OUTCOME OF LAST DELIVERY CODE4A100
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *DPH/HIS * *DUES NOT COLLECT THIS DATA ITEM*
*(7)'55 * * *
*KY, *MCH'280 *1 DIGIT *ANNUAL UPDATE* *
*MISS,* 206 *CODES 1 *NEW ADMISSION*1.HURN ALIVE TFRM, 2.8URN ALIVE*
* * *THRU 4,7*OR RE *-PRLMATURL, 3,RORN DEAD. 4. *
* * *,8,8,9 *ADMISSION *MISCARRIAGE/ABORTION, 7,NEVER *
* * * * *PREGNANT, BOTHER, 9,UNKNOWN *
*N o C, * 1457
*
*CODES 1 *NEW ADMISSION*1LIVE,5 1/2 OS OR MORE, 2. *
*THRg 5, *OR RE- *LIVE,I,ESS THAN 5-1/2 CBS , 3 # *
* * *1 DIGIT *ADMISSION *FETAL DEATH, 4,INDUCED ABORTION*
* * * * *, 5,0THER *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENNO.EHS 817 *CODES 1 *NEW AumISSION*I, WORN ALIVE
TT
-
TERM 2 BOHN *
* * *ALIVE PREMATURE 3. BORN UFAD*
* * :; H IFIRU $: * A. MISCARRIAGE 5, ABORTION *
* * * * * 7, NEVER BEEN PREGNANT 8.
* * * * *OTHER 9. UNKNOWN
*PROP * N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
? 70 ?
UATA ELEMENT:MAIN SOURCE OF REFERRAL CDUEIA101
** ***** ** ************************* **** ****** ****** ********* *************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*ALA./*NCHS *CODES 1 *NEW PATIENT *1. OUTREACH WORKER 2 UTHER FP*
*FLA. * *THRU 9 &I, *CLINIC 3. HOSPITAL OR OTHER *
* * *0 * *HEALTH AGENCY 4. PRIVATE *
* * * * *AGENCY 5 WELFARE AGENCY 6.*
* * * * *ANOTHER CLINIC 7. FAMILY UR *
* * * * *FRIEND 8 IV, RADIO, PAPER 9.*
* * * * *OTHER 0; UNKNOWN *
*GA. *DPH/HIS * * *DUFS NOT COLLECT THIS DATA ITEM*
* *(7) 55 * * * *
*KY. *MCH280 *2 DIGITS*ANNUAL UPDATF*RLFERRAL SOURCE *
*MISS.* 206 *CODES 1 *NEW ADMISSION*1.0UTREACH WORKER/PROG. PERS., *
* * *THRU 9 *OR HE- *2.OTHER Fr CLINIC, 3,ANOTHER *
* * *AND 0 *ADMISSION *HUSPITAL/REALTH AGENCY, 4, *
* * * * *PNTVATE DR. DR NURSE, 5.KELFARE*
* * * * *DEPT., 6.0THFR CLINIC PATIENT, *
* * * * *7.FRIENU OP RELATIVE, 8.1V, *
* * * * *RADIO, PAPER, AD, 9.OTHER, u. *
* * * * *UNKNOWN *
*N.c. * 1457 *CODES 1 *NEW ADMISSION*1,FAMILY PLANNTNG PROG. STAFF, *
* * *THRU 9, *Ow HE- *2.HUSPITAL OR OTHER HEALTH *
* * *1 DIGIT *ADMISSION *AGENCY, 3,PHTVATF DR. OR NURSE,*
* * * * *4,W AGENC, 5. *
* * * * *CLIN
E
IC
LFAR
PA
E
TIENT ,Y 6,FAMILY OR
ANOTHER
*
* * * * *FRIEND, 7.TV, RADIO, PAPER AD,*
* * * * *8 OTHER, 9.UNKNOWN *
*S C *DHEC 1618*SENSE *AS *Hu OUTREACH OTHER PATIENT *
* * *MARK 1 *APPROPRIATE *SELF HOSPITAL P.P. PHN *
*DIGIT * * * *PVT DOCTOR MEDIA DSS AP *
*CLINIC OTHER * * * * *
*TENN,*FHS 617 *CODES 1 *NEW ADMISSION*1. PHYSICIAN 2. P.H. NURSE *
* * *THRU 9 8*OR *3. OTHER HEALTH DEPT ' STAFF 4.*
* * *0 *REAUMISSTON *ERTEN) OR RELATIVE 5, WELFARE *
* * * * * O, OTHER SOCIAL AGENCY: 7, *
* * * * *SELF 8, OTHER 9. UNKNOWN *
* * * * *O. HOSPITAL *
*PROP * N/A *CODES 01*EACH VISIT *01,PRIVATE M.D., 02.OUTREACH, *
*TENN * *THRU 11 * *0J.HEALTH DEPT I, 04 FRIEND/ *
* * * * *RELATIVE, 05.WELEARL DEPT., 06.*
* * * * *NEWS MEDIA, 07.SELF, 06.OTHER, *
* * * * *0 9 ,CLINIC PATIENT, 10.NURSE` *
* * * * *MIDWIFE PROGRAM, 11.HOSPITAL *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:HAVE YOU BEEN PREGNANT SINCE YOUR LAST VISIT? CODE:A102
*** ******* * ******************** ****** ********* *********** ***** **********
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
***** ************ * ****** ********** ******** *** ************** *************
*ALA./*NCHS * * *DUFS NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*
: *GA. Iepl/n *
*
S * *DUES NOT COLLECT THIS DATA ITEM*
* *
*KY, *mCW 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 206 *CODES 1 *RETURN VISIT *INTENTIONALLY: 1.YES,2.NO *
* * *THRU 6 *
: VUZTAWirrekigTlieliTEMCFE!1: * * * *AND 9 *
- 71 -
*
*
*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
*
*ALA,/*NCHS
*FLA. *
*GA, *DPH/HIS *
*(7) 1 55 *
*
*
*
*
*
*
*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*ALA./*NCHS
*FLA. *
:GA. :rggiS
*KY, *mCH 280 *
*MISS,* 208
*N.C. * 1457
*S.C, *DHEC 1618*
* * * * *DISSATISFIED/DISCONT.* 6. *
* * * * *INCORRECT, 9,UNKNOWN *
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *OMB: 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 *CODES 1,*EVERY VISIT *1. YES 2. NO 9. UNKNOWN *
* * *it 2,, & * * *
* * *9, * * *
*PRUP * N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:HAVE COMPLETED YEAR OF SCHOOL SINCE LAST VISIT? CDDE$A103
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMME N TS
************************************************************************
*KY, *MCH 280 *1 DIGIT *ANNUAL UPDATE*EDUCATION *
*MISS,* 208 *CODES 1,*RETURN VISIT *1.YES, 2.NO, 3.UNKNOWN *
* * *2*ANC: 3 * * *
*N.C, * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 *CODES 1,*EVERY VISIT *1. YES 2, NO 9 $ UNKNOwN *
* * *2 & 9 * * *
*PROP.* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
///////// // /////////// // /// / //// /// / / / / ///////// / //// / ////////////// / ///
DATA ELEMENT:QUESTION 53 CODEIA104
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*TENNOFHS 817 *CODES 0 *EVERY VISIT *
* * *THRD 9 *
*PROP-* N/A *DUES NOT COLLECT THIS DATA ITEM*
- 72 -
*TENN *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIHAVE YOU EVER USED ANY METHOD TO PREVENT PREGO CODEtA105
******************* ***** ************************************************
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS
********************** ***** *********************************************
*ALA,/*NCHS *NONE *NEW PATIENT *CONTRACEPTIVE HISTORY *
*FLA. * * * * *
*GA, *UPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7) - 55 * * * *
*KY, *mCH-260 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 206 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C, * 1457 * CODES: *NEW ADMISSION* *
* * *0..NO, 1-*UR RE- * *
* * *YES - 1 *ADMISSION * *
* * *DIGIT * * *
*S.C. *DHEC 1616* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 617 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP.* N/A *CODES 1 *EACH VISIT *EVER USED CONTRACEPTION *
*TENN * *AND 2 - * * *
* * *YES OR * * *
* * *NO * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT;mIDDLE NAME (OR INITIAL) CODE:A106
********* ******** *******************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS *NONE *
*FLA. * * *
*GA, *UPH/HIS * *
* *(7)`55 * *
*KY, *mCH 280 *1 CHAR *EACH VISIT
*DUES NOT COLLECT THIS DATA ITEM*
* *
*MI (MIDDLE INITIAL) *
*mISS.* 20d *NONE *EVERY VISIT *PATIENT NAMEIMTUDLE
*N.C. *145,,1458*NONE *EVERY VISIT *M1
*S.C. *DHEC 1618*NONE *EACH VISIT *MI (MIDDLE INITIAL)
*TENN,*FHS 617 *NONE *EVERY VISIT *
*PROP.* N/A *NONE *EVERY VISIT *M1
*TENN *
*
*
*
*
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENTgARE YOU CURRENTLY USING coNTRAcEpTioN? cooEsAtor
- 73 -
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCHS *NONE
*FLA. *
*GA. *DPH/HIS *
*(7)*55 *
*KY. *MCW 280 *
*MISS.* nd
*NEW PATIENT *CONTRACEPTIVE HISTORY
* *
*
*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*
*
*
*
*N.C, * 1457 * CODES* *NEW AUMISSION*AKE YOU p?ING ANY METHOD NOK? *
* * *U NO 1* *OR RE* * *
* * *YES *ADMISSION * *
*S.C. *UHEC 1618* * *DUE'S NOT COLLECT THIS DATA ITEM*
* * * * * COVERED ONLY RY ANSWERING *
* * * * *CUNTRACEPTIVE METHOD *
*TENN.*FHS 017 * * *DUFS NOT COLLECT THIS DATA ITEM*
*PROP** N/A * CODES: *EACH VISIT *NUW USING CONTRACEPTION *
*TENN * *1,YES , 2* * *
* * *00 * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIMARK IF NAME IS TO BE RECORDED CODEIA108
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************** * **** *** ** ** ********* *** * * * * ******
*ALA./*NCHS * *
*FLA. * * *
*GA. *DPH/HIS *
* *(7) 55 *
*KY. *MCW 280 *
*MISS.* 208 * *
*N.C. * 1457 * *
*S.C. *PHU: 1618*SENSE *EACH VISIT
* * *MARK 1 *
* * *DIGIT *
*TENN o *FHS 017 *
*PROP** N/A *
*TENN * *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*DUFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
* *
*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*
*
*
*
*
////////////////////////////////////////////////////////////////////////
DATA EEEMENTIVISIT OR REPORI ONLY? CODEIA109
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS
*FLA. *
*DUFS NOT COLLECT THIS DATA ITEM*
*
- 74 -
*GA. *OH/HIS *
*(7) - 55 *
*KY. *NCH - 280 *
*MISS,* 20d
*N,C, * 1457
*S.C. *UHEC 1618*SENSL *EACH VISIT
* * *MARK 1 *
* * *DIGIT *
*TENN,*FHS 817 *
*PROP** N/A
*TENN *
*DUES NOT COLLECT THIS DATA ITEM*
*
*DUFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DuFS NOT COLLECT THIS DATA ITEM*
*VISIT REPURT ONLY
* *
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENTspATIEN7 TYPE CDDE:A110
************* ***** *** ********** *****************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*************** ***** **** ***** *******************************************
*ALA,/*NCHS * *
*FLA. * *
*GA, *DPH/HIS * *
* *(7) 55 * *
*KY, *MCH'280 *1 DIGIT *EACH VISIT
*MISS.* 208 * *
*DUES Nol COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
*
*PATIENT STATUS
*DUES NOT COLLECT THIS DATA ITEM*
*N.c, *145( & *CODES 1 *NEW ADMISSION*1,NEW. 2.CONTINUATION(NEW Tu *
* *1458 *THRU 5 *OR RE* *SYSTEM).* 3 1 REwADMTSSION. 4. *
* * *AND 0 *ADMISSION *TwANSFER, 5.POTENIIAL U. *
* * * * *CORRECTION *
*S.c. *uHEC 1618*SENSE *EACH VISIT *NLW CONIINUING REAUMITTLD *
* * *MARK or' *NLW BY TRANSFER DISCHARGEu *
* * * * *INFERTILITY *
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:EDUCATIONAL SERVICES PROVIDED CODE;A111
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
******************************** ***** **************************** ***** **
*ALA./*NCHS * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * *
*GA, *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
*(7) .'55 * * * *
*KY, *MCW 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 206 * *DUES NOT COLLECT THIS DATA ITEM*
? 75 ?
*N.C. * 1457 * *
*S,C. *DHEL 1618*SENSE *EACH VISIT
* * *MARK 1 *
* * *DIGIT *
*TENN,*FHS 817 * *
*PROP-* N/A * *
*TENN * * *
*DUES NUT COLLECT THIS DATA ITEM*
*CUUNSELING HEALTH EDUCATIuN *
*CLASS
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
////////////////////////////////////////////////////////////////////////
DATA ELLMENT:A8NoRmALITy IN EXAM CODEtA112
*********************************************************.*********w****
*STATE*FORM NO, * FORMAT *WHEN ENTERED * COMMENTS
****************************** * ************** * ********* * ****************
*ALA,/*NCHS *
*FLA. * *
*GA, *DPH/HIS *
* *(7)-55 *
*KY. *MCH - 280 * *
*MISS.* 208 * *
*N.C. * 1457 * *
*
*S.C, *DHEC 1618*SEN
ARK
SE 1
*
*EACH VISIT
* *M
* * *DIGIT *
*TENN,*FHS 817 *
*PROP-* N/A
*TENN *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*ouFs NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*pP * cLvIC r(FssuRE. BREAST BLOOD
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
*
*
*
*
*
*
*
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENTImONTHS OF CONTRACEPTIVE SUPPLIES GIVEN cOoEtA113
************************************************************************
*STATE*FORM NO, * FORMAT *WHEN ENTERED * COMMENTS
****************************** * *****************************************
*ALA./*NCHS
*FLA, *
*GA. *DPH/HIS * *
*(7)"55 * *
*KY, *mCH-280 * *
*MISS,* 208 *
*N.C. * 1457 *
*S.C. *DHEC 1618*SENSE *
* * *MARK 1 *
* * *DIGIT *
*TENN.*FHS 817 *
*PROP-* N/A
*TENN *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS. DATA ITEM*
* *
* *
*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* *
* *
*
-76-
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIAMERICAN INDIAN (RACE) CODF3A114
******************************************************* ***** ************
*STATE*FORM NO * FORMAT *WHEN ENTERED * COMMENTS
***************** ***** ****************** *********************** *********
*ALA./*NCHS
*FLA. *
*CODE 3 * *RACE
* * *
*
*
* * * *
*1 DIGIT *INITIAL *RACE *
*CODE 3 *INTAKE ONLY * *
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *CODE 3 *NEW ADMISSION*RACE *
* * *
VAPMFA;
* *
ION * * * * *
*S.C. *DHEC 1618*SENSE *AS *RACE *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A *CODE 3 * *RACE *
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:OTHER (RACE) CODEIA115
********* ******** **** ********* * ******** ***** ***** ************* ******* ***
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
******************************** ***** **************************** ***** **
*ALAI/*NCHS
*FLA* *
*CODE 4 * *RACE
* * * *
*GA. *DPH/HIS * * *DUES NUT COLLECT THIS DATA ITEM*
* *(7)'55 * * * *
*KY, *MCH.'280 *1 DIGIT *INITIAL *RACE *
* * *CODE 4 *INTAKE ONLY * *
*MISS.* 208 *CODE 8 *NEW ADMISSION*RACE *
* * * *OR RE* * *
* * * *ADMISSION * *
*N.C. * 1457 *CODE 4 *NEW ADMISSION*RACE *
* * * *OR RE- * *
* * * *ADMISSION * *
*S.C. *DHEC 1618*SENSE *AS *RACE *
* * *MARK 1 *APPROPRIATE * *
* * *DIGIT * * *
*TENN.*FMS 817 * * *DuFS NOT COLLECT THIS DATA ITEM*
*PROP** N/A *CODE 4 *EACH VISIT *RACE *
*TENN * * * * *
* *(7)=55
*KY. *MCW 280
* *
*GA. *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
- 77 -
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:FINANCIAL STATUS CODE1A116
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * C O MMENTS
*** * ***** ** *** * ****** ********** ** *********** ******* **** ** * ** * ** * * * * *** **
*ALA./*NCHS
*FLA. *
*CODE A * *AGENCY USE AVERAGE WEEKLY
* * *INCOME
-
*
*GA. *DPH/HIS * *DUES NOT COLLECT THIS DATA ITEM*
*(7)"55 *
*KY, *MCH*280 *1 DIGIT *ANNUAL *INCOME
* * * *UPDATES
*MISS,* 208 *DUFS NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *5 DIGITS*NEW ADMISSION*A$FAMIEYS NET INCOME B.CUDES: 1*
* * * *OR RE- *-WEEKLY, 2-MONTHLY, 3-ANNUALLY,*
* * * *ADMISSION *4-REFUSED, 5-UNKNOWN *
*S.C. *DHEC 1618*SENSE *AS *DIGITS 0 THRU 9 *
* * *MARK 1 *APPROPRIATE *
* * *DIGIT * * *
*TENN.*FHS 817 * * *DUFS NOT COLLECT THIS DATA ITEM*
*PROP.** N/A *CODES 1 *EACH VISIT *INCOME *
*TENN * *THRU 9 * * *
///////////////// ///////////////// //////////////////////////////////////
DATA ELEMENT:REASON FUR DISCHARGE CODE1A117
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * C OMMENTS
***** * ************************** **** * ***** * ************* *** *************
*ALA,/*NCHS * * *DUFS NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7)*55 * * * *
*KY. *MCH'280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * * *DUFS NOT COLLECT THIS DATA ITEM*
*N.C. * 1458 *CODES 0 *EVERY VISIT *REASON FOR CLOSURE OF PATIENT: *
* * *THRU 9 -* *O.NOT CLOSED, 1.UNKNOWN, 2.MED.*
* * *1 DIGIT * *REASON, 3.PREG.(UNPLANNED), A. *
* * * * *PREGo(PLANNED), 5,PERSUNAL , 6. *
* * * * *DEATH, l.STERILE, 8.MOVED, $., *
* * * * *OTHER *
*S.C. *DHEC 1618*SENSE *WHEN *MUVED UNABLE TO CONTACT *
* * *MARK 1 *DISCHARGED *LUST INTEREST TRANSFERRED TO *
* * *DIGIT * *PRIVATE DUCTr)R PREG, DESIRED *
* * * * *TRANSFERRED TO OTHER AGENCY *
* * * * *PHEG. METHOD FAILURE MENOPAUSE*
* * * * * PHEG. CIPHER FAILURE NOT *
* * * * *SLXUALLY ACTIVE . *
*TENN,*FH5 817 *CC * *DUES NOT COLLECT THIS DATA ITEM*
*PROP...* N/A ODES 01*WHEN *REASQN NO NEXT VISIT1 01i *
*TENN * *THRU 05,10ISCHARGED *UNINTERRUPTED !DREG ' , 02.DESIRES*
* * *10,20 , 30* *PREG., 03,MOVEn, 04.10 PRIVATE *
* * *,35,88, * *CARE, 05.TRANSIENT, 10,L051 *
* * *90,91 * *INTEREST, 20.DFCEASED, JO, *
* * * * *STERIt.E, 35.MFNOPAUSE, 88. *
* * * * *OTHER ? 9I.UNKNOWN *
? 78 ?
*
* * *
*ALA./*NCHS *CODE H *
*FLA. *
*At3ENCY USL d.
*
////////////////////////////////////////////////////////////////////////
DATA ELEmENTIDATE OF LAST DELIVERY cODEtAllb
**************** **************** **************** ****** ******************
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS *
************************************************************************
*ALA,/*NCHS * * *DUFS NOT COLLECT THIS DATA ITEM*
*FLA, * * * * *
*GA, *DPH/HIS * * *DUFS NOT COLLECT THIS DATA ITEM*
* *(1) - 55 * * * *
*KY. *MCH - 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 2U6 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * * *puFs NOT COLLECT THIS DATA ITEM*
*S.C. *DNB, 1616* * *DuES NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 617 *NONE *NEW ADmISSION*mu, DA. YR. *
* * * *OR * *
* * * *READMISSION * *
*PROP..* N/A * * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTINUmBER IN FAMILY CODE$A119
********* ******** ************ ***** *** ***** **** ***** ** ***** ** ********** **
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
* ***** ******* ***** ** ********* ***************** ********** ******* *********
*GA, *URN/HIS * * *ODES NOT COLLECT THIS DATA ITEM*
* *(0 - 55 * * * *
*KY. *mCH - 280 *1 DIGIT *ANNUAL UPDATE*Num6ER IN HOUSEHOLD *
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C, * 1457 *2 DIGITs*NEW ADMISSION*NUMbER OF PEOPLE SUPPORTED DV *
* * * *OH RE- *Tills INCOME *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:4EDICAL HISTORY CODEIAl20
*************** ******************** **** *********** *********** ***** * *****
-79-
*CODE B *
* *
*ALA./*NCHS
*FLA. *
*GA. *OPH/HIS *
*(f)"55 *
*KY. *MCH"280 *
*mISS.* 208

*N.C. * 1457
*S.C, *OHEC 1618*
*TENN.*FHS 817 *
*PROP.** N/A
*TENN *
*SERVICES PROVIDED
* *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NUT COLLECT THIS DATA ITEM*
* *
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIREFERRED ELSEWHERE CODESAl21
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*FLA. *
* *
*ALA,/*NCHS
*THRU 5 *
*CODE 0 *EVERY VISIT
* *
*GA. *DPH/HIS * *
*(7) 55 * *
*KY. *MCH"280 *6 DIGITS*EACH VISIT
* * *CODE 0 *
* * *THRU 5 *
* * * *
*NONE ABORTION STERILIZATION*
* INFERTILITY OTHER MEDICAL *
*SOCIAL SERVICES
*DUES NOT COLLECT THIS DATA ITEM*
* *
*AbSUCIATE REFERRALS 0 NONE 1*
*ABORTION 2 STERILIZATION 3 *
*INFERTILITY SERVICES 4 OTHER *
*5 SOCIAL SERVICES
*MISS.* 208
*N.C. * 1458
* *
* *
* *DUES NOT COLLECT THIS DATA ITEM*
*CODES 4 *EVERY VISIT *CUNTR. SERVICE PROVIDED "
*AND 5 * *REFERRAL FORE 4.ABORTION , 5. *
* * *SfERIL.
*S.C. *DHEC 1618*SENSE *As *INFERTILITY SERV. ABORTION *
* * *MARKS 1 *APPROPRIATE *OTHER MEDICAL SERVICE *
* * *DIGIT * *STERILIZATION SOCIAL SERVICE *
*TENNO, FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP.** N/A *NONE *AS *REFERRAL: STERILIZATION, *
*TENN * * *APPROPRIATE *INFERTILITY, OTHER MEDICAL, *
* * * * *SOCIAL SERVICES, VOCATIONAL *
* * * * *REHAB., DINER *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:MEXICAN AMERICAN (RACE) CODEIAl22
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************** * ** ** * * * * ** * *** * **** **** ** * * ****** *** * *** ** ***
*ALA./*NCHS * * *THIS DATA ITEM
- 80 -
*FLA. * * * *
*GA. *DPH/HIS * *DuFS NOT COLLECT THIS DATA ITEM*
*(7) - 55 *
*KY, *mCH - 280 *1 DIGIT *INITIAL *RACE
* * *CODE 5 *INTAKE ONLY *
*MISS.* 2U8 * *DuFS NOT COLLECT THIS DATA ITEM*
*N.C, * 1457 * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * * DATA ITEM
*1ENN.*FHS 817 * * *DUFS NOT COLLECT THIS DATA ITEM*
*pqop-* N/A * * *DUFS 401 COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIORIENTAL (RACE) CDOETAl23
* ***** * ***** ********* *********** *************
*STATE*EORm ND. * FORMAT *WHEN ENTERED *
********* * ** ** *** ** * * * * * * * *** ** ** ** * * * *******
***** ****** ***** **** *******
COMMENTS *
* ** * * **** ** ******* ***** ****
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DuFS NOT COLLECT THIS DATA ITEM*
*(7) - 55 * * * *
*KY *mCH - 280 *1 DIGIT *INITIAL *RACE *
* * *CJDE 6 *INTAKE ONLY * *
*MISS,* 2U8 * * *DUE'S NOT COLLECT THIS DATA ITEM*
*N.C o * 1457 * *DUES NOT COLLECT THIS DATA ITEM*
*S.C *DHEC 1618* * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 617 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP.* N/A * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT2FIRST cLINIC VISIT REC, FORM SUBmITTLD CAT, YR
? CODE;Al24
******** ********* ****** ************* ******** ********* ***** ** ***** *******
*STATE*EORM NO. * FORMAT *WHEN ENTERED * COMMENTS
**** ************ ************ ******* **** **************** ******** ******** *
*ALA
/*NCHS
*FLA. *
*
*
*
*
*DuFS NOT COLLECT THIS DATA ITEM*
* *
*GA. *DPH/HIS * *
*(7) - 55 * *
*KY, *mCH?280 *1 DIGIT *EACH VISIT
* * *CODE 1 *
* * *OR 2 *
*MISS.* 208 * *
*N.C. * 1457 * *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*ftS CUmPLETE SECTION "8 & C" *
*Nu - 20MRLF1E SECTION "C" ONLY *
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NO1 COLLECT THIS DATA ITEM*
? 31 ?
*S.C. *OMB; 1618* * *DuFs NUT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NUT COLLECT THIS DATA ITEM*
*PROP-* N/A * *ours Not COLLECT THIS DATA ITEM*
*TENN * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:CI-. VISIT REC. FORM BEEN SUBMTD. SEP'S FOP PT,? CODE:Al25
***************************************************************** ***** **
*STATE*fORM Nn. * FORMAT *WHEN ENTERED * C OMMENTS
*********************** ***** ********************* ***** *********** ***** **
*ALA./*NCHS * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(f) 55 * * * *
*KY, *MCH'280 *1 DIGIT *EACH VISIT *1.
& C"
YES 2. NO I COMPLETE "A, 8*
* * *CODE 1 * *, bELOA
* * *OR 2 * * *
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP** N/A * * *DUES 401 COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:OCCUPATION CODE:Al26
****************** ***** ***** ***** **** ***** ******************* ***** ******
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS *
******************** ***** ** *************** ***** ***** ****** ***** *********
*ALA./*NCHS * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7)?55 * * * *
*KY. *MCH'280 *2 DIGITS*ANNUAL UPDATE* *
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN.*FMS 817 * *DUES NOT COLLECT THIS DATA ITEM*
*PROP.* N/A * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * *
/// / ///// / /////////////// / ///////// / ////////////////////////// / /////////
- 82 -
DAIA ELEmEN1:PH08LEM VIsIT COOE;Al27
** ***** ** *************** ************************************************
*STATE*FORM NO. * FORMAT .WHEN ENTERED *
************************************ ********
COMMENTS
*********** *******
*
**********
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*6A, *DPH/HIS * * *DUES Nfl COLLECT THIS DAIA ITEM*
* *(7) - 55 * * * *
*KY, *mCH - 280 *2 DIGITS*EACH VISIT * *
*m15S,* 208 * * *EWES NOT COLLECT THIS DATA ITEM*
*N.G. * 1457 * * *DuFS NO1 COLLECT THIS DATA ITEM*
*S.C. *DHEC 161b* * *DUES 401 COLLECT THIS DATA ITEM*
*TENN.*EHS 817 * * *DuFS NOT COLLECT THIS DATA ITEM*
*PRO...* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:vORL CODE:Al28
************ ***** *******************************************************
*STATE*FORm NO. * FORMAT *wHEN ENTERED * COMMENTS *
**************** ***** ** *********** ********** ***** ***********************
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *OPH/HIS
* *(7)
- 55
*
*
*
*
*DUES NOT
*
COLLECT THIS DATA ITEM*
*
*KY, *mCH-280 *1 DIGIT *AS *TESTING *
* * * *APPROPRIATE * *
*MISS.* 208 * * *DuFS NOT COLLECT THIS DATA ITEM*
*N.C, * 1457 * * *DuFS NOT COLLECT THIS ()AEA ITEM*
*S.C. *DHEC 161b* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*EHS 817 * * *DuFS NOT COLLECT THIS DATA ITEM*
*PROP-* N/A *NONE *AS *MLDICAL SERVICES *
*TENN * * *AFPKOPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEME NT:BLOOD TEST CODETAl29
*********************** ******* ** ***** *********************** ************
*STATE*EORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************* ***** *********** ************* *** ******** ************ *******
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *OPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7) - 55 * . * *
- 83 -
*KY, *MCH'280 *1 DIGIT *EACH VISIT
* * *CODE 6 *
*MISS.* 206 * *
*N.C. * 1458 * CODES: *EACH VISIT
* * *0..NO, 1-*
* * *YES *
*MEDICAL SLRVTCES (11 POSSIBLE*
*DIGITS)
*DUES NUT COLLECT THIS DATA ITEM*
* *
* *
* *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP.* N/A *NONE *AS *MEDICAL SLRVICES *
*TENN * * *APPROPRIATE * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:NONE (ASSOCIATE REFERRAL) CUDEIA130
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA,/*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *DFH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
*(7)-55 * * * *
*KY, *MCH-280 *1 DIGIT * *ASSOCIATE REFERRAL (6 POSSIBLE *
* * *CODE 0 * *DIGITS)
*MISS.* 206 *DUES NO1 COLLECT THIS DATA iTEM*
*N.C. * 1457 *DUES NOT COLLECT THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * *DUES NOT COLLECT THIS DATA ITEM*
*PRO.* N/A *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:NUNE (BEFORE THIS VISIT) CODE:A131
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
iririk************** * ******* * ** * * * **** * **** *** **** * ************************
*ALA,/*NCHS * * *ours Nni COLLECT THIS DATA ITEM*
*FLA, * * * * *
*GA. *DFH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7)'55 * * * *
*KY, *MCH=280 *1 DIGIT *EACH VISIT *LAST METHOD OF CONTRACEPTION
* * *CODE 9 * * *
*MISS,* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *CODE 00 *NEW ADMISSION*wHAT IS THE LAST METHOD YOU *
* * * *OR RE... *USED *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
- 84 -
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*TENN,*FHS 817 *
*PROP** N/A
*TENN *
*ALA./*NCHS
*FLA, *
*
*
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:OTHER (WHO PRESCRIBED LAST CUNTRACEpT(vE METHOD? CODFIA132
******************* ***** ******************************** ****************
*SIATE*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS
********* ************ ************ ***** *************************** ***** **
* *DUFS NOT COLLECT THIS DATA ITEM*
*DDE$ NOT COLLECT THIS DATA ITEM*
* *
*WHO PRESCRIBED OR DISPENSED
*LAST 4EIHUD?
*DUFS NOT COLLECT THIS DATA ITEM*
*NEW ADMISSION*wHO PRESCRI8F0 THAT METHOD?
*OR RE-
*ADMISSION
*OuFS NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*PRFsCRIbED bY:
* *
////////////////////////////////////////////////////////////////////////
DATA ELEME NTISUPPLY ONLY CODE:A133
******* ***** ********* ********* ****** ****** ******* ********************* **
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
********************** ***** * ***** ******************************** ***** **
*GA. *DPH/HIS *
*(7) 55 *
*KY, *MCH''280 *1 DIGIT *EACH VISIT
* * *CODE 4 *
*MISS,* 206
*N.C. * 1457 *CODE 4
* * *
* * *
*S.C. *DHEC 1618*
*TENN.*FHS 817 *
*PROP * N/A *CODE 4 *EACH VISIT
*TENN * * *
*ALA,/*NCHS *
*FLA. * *
*GA. *DPH/HIS * *
* *(7) - 55 * *
*KY, *mCH-280 *1 DIGIT *EACH VISIT
* * *CODE 1 *
*MISS,* 208 * *
*N.C. * 145/ * *
*S.C. *DHEC 1618*
*TENN.*FHS 817 *
*pwop * N/A *
*TENN * *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*Dills NO1 COLLECT THIS uATA ITEM*
* *
*PURPOSE OF NEXT APPOINTMENT
* *
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUFS Nni COLLECT THIS DATA ITEM*
*DUFS Nni COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*
*
*
*
*
*
////////// / /////////// / ///// / // / ////// / /////// / /// / // / //// //// //////////
- 85 -
DATA ELEMENT:PROGRAM CODE COUEIAI34
************************* ***** ******************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************* ** *** * ****************************************** * **********
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DuES NOT COLLECT THIS DATA ITEM*
* *(7)'55 * * * *
*KY. *MCH'280 *3 DIGITS*EACH VISIT * *
*MISS.* 208 * * *OuES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 * * *DUES NOT COLLECT THIS DATA ITEM*
*s.c. *uHEc 1618* * *uuFs NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP..* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PATIENT SEEN BY: CODE$A135
************************************************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS*CODE C * *AuENCY USL C. *
*FLA. * * * * *
*GA. *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7)'55 * * * *
*KY. *MCH'280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 208 *CODES 1 *EVERY VISIT *1,PHYSICIAN, 2,RN ONLY, 3,LPN *
* * *THRU 6 * *ONLY, 4.NURSE`MIDWIFE, 5.0TRER *
* * * * *PERSONNEL ONLY, 6.FP NURSE *
*PRACTITIONER * * * * *
*N.C. * 1457 * * *DUES NOT coLLErl THIS DATA ITEM*
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
* * * * * PICKED UP ONLY AS CLINICIAN *
* * * * *CURE *
*TENN o *FHS 817 *CODES 1 *EVERY VISIT *1. PHYSICIAN 2, NURSE ONLY *
* * *THRU 4 * *3. UTHEN PERSONNEL ONLY 4. *
*NURSE PRACTITIONER * * * * *
*PROP..* N/A *NONE *AS *PHYSICIAN, P.H.N., F.P.N.P., *
*TENN * * *APPROPRIATE *NUPSE/MIDWTEE, L.P.N., SOCIAL *
* * * * *SERVICES AIDE, CLERK, *
* * * * *NUTRITIONiST, OTHER *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:CURRENT METHOD: COUEIA136
***************************************************************** ***** **
*STATE*FORM NO. * FDRMAT *WHEN ENTERED * COMMENTS
************************************************************************
? 86 ?
*ALA./*NCHS * *ouFs NOT COLLECT THIS DATA ITEM*
*FLA. * * * *
:GA. :Llpii41;S *
*
*EWES
*
NOT COLLECT THIS DATA ITEM*
*
*KY. *MCH'280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 208 * *OuEs Nor COLLECT THIS DATA ITEM*
*N.C. * 1457 *DUES NO1 COLLECT THIS DATA ITEM*
*S.C. *DHEL 1618* * *DUES NOT COLLECT rHis DATA ITEM*
*TENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A
*TENN *
* *
* *
* *
*CODES 01*EACH VISIT
*THRU 07,*
*09,1U,11*
*,30
* *
*01.IUD, 0 4 .PTLL, 03.FUAM , 04. *
*DIAPHRAGM, 05.CONDUM, 06.RHITHM*
*, 07 INJECTION. 09.NONE, 10. *
*MLTHOD "A", 11.METHOD " 8 " , JO. *
*SIFRIOLATION
////////////////////////////////////////////////////////////////////////
DATA ELEMENTIMEART/LUNG CODEIA137
************************************************************************
*STATE*FORM ND. * FORMAT *WHEN ENTERED * COMMENTS *
******************* ***** ********************* ***** ***************** *****
*ALA,/*NCHS
*FLA. *
*GA. *DPH/HIS *
*(r) - 55 *
*KY. *mCH -260 *
*MISS,* 208
*N.C. * 1458 *CODES 0 EACH vISIT
* * *IHRU 3 ,*
* * *1 DIGIT *
*S.C *DHEC 161b* *
*TENN,*
*PROP-* N/A *NONE
*TENN *
*DUES NOT COLLECT THIS DATA ITEM*
*
*DUES NOT COLLE CT THIS DATA ITEM*
* *
*DuFS NOT COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*HEART 4 LUNu EXAM: 0-NO, 1 - m0* *
*2 - NURSE, 3-OTHER
* *
*ouFs NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*mtOjCAL SLRVTCFS
*
*EACH VISIT
*
*
*
/////////////////////////////4//////////////////////////////////////////
DATA ELEMENTIWET SMEARS CODEIA138
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
****************** ********************* ************** ********* * ******** *
*ALA./*NCHS * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DUES NOT COLLECT THIS DATA ITEM*
*(7) 55 * * * *
*KY. *MCH280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 2 0 8 * * *DUES NOT COLLECT THIS DATA ITEM*
- 87 -
*N.C. * 1456
* *
* *
* CODES; *EACH VISIT
*U-NO , 1*
*-YES
*VAGINAL SMEAR
*
*
*
*
*
*ALA./*NCHS *
*F LA. * *
*GA. *DPH/HIS *
*(7) - 55 *
*KY. *mCH - 260 *
*MISS.* 20b
*N.C. * 1457
*S.C. *UHEC 1618*
*TENN.*EHS 617 *
*PR0Pw* N/A *NONE
*TENN *
*EACH VISIT
*
*S.C. *DREG 1616* * *DUFS NO1 COLLECT THIS DATA ITEM*
*TENN.*1.HS b17 * * *DUES NOT COLLECT THIS DATA ITEM*
*PNUP-* N/A *NONE *EACH VISIT *MLPICAL SERVICES
*TENN * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PREGNANCY (COUNSELING) CDDE:A139
**** ***** **** ***** ********* ******************* ****** ************ * ****** *
*STATE*FORm NO. * FURMAT *WHEN ENTERED * COMMENTS
*DUES NUT COLLECT THIS DATA ITEM*
* *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*DuFS VOT COLLECT THIS DATA ITEM*
*DuFS NO1 COLLECT THIS DATA ITEM*
*DUFS NOI COLLECT THIS 0A1A ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DOS NOT COLLECT THIS DATA ITEM*
*CUIINSEL ING
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PRENATAL (REASON FOR NEXT APPOINTMENT) COUE:A140
***** ***** ************** ********* ******* ************************** ******
*STATE*FORM NO * FORMAT *WHEN ENTERED * COMMENTS
* ********* *** ****************************** *********** ***** *************
*ALA./*NCMS *
*F LA. * *
*GA. *DPH/HIS *
*(7)'55 *
*KY. *MCH'280 *
*MISS.* 208
*N.C. * 1457
*S.C. *UHEL 1618*
*IENN s *FHS 817 *
*plicip** N/A *CODE 5 *EACH VISIT
*TENN * *
*DUES NOT COLLECT THIS DATA ITEM*
* *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*Dos NOT COLLECT THIS UA1A ITEM*
*DuFS NOT COLLECT THIS DATA ITEM*
*DuFS NOT COLLECT THIS DATA ITEM*
*DuFS NOT COLLECT THIS DATA ITEM*
*DUFS NO1 COLLECT THIS DATA ITEM*
*(HEASON FUR NEYI VISIT)
- 88 -
*
*
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*UUEs NOT COLLECT THIS DATA ITEM*
* *
*DUES NDi COLLECT THIS DATA ITEM*
*DuFS NOT COLLECT THIS DATA ITEM*
*DuFS Mill COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
*DUFS NOT COLLECT THIS DATA ITEM*
*ALA./*NCHS
*FLA. *
*GA. *ERN/HIS *
*(7) - 55 *
*KY. *mCN"280 *
*MISS,* 208
*N.c, * 1457
*S.C *DNEC 1618*
*TENN,*FHS 817 *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:TYRE: (INV. CODE) CDDE:A141
* ***** ****************** ***** ******************* ***** *******************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
************************ ********************* **** ************ ***** ******
*ALA./*NCHS
*FLA. *
*GA, *ERN/HIS *
*(7) - 55 *
*KY. *mCH'280 *
*MISS,* 20h
*N.C. * 145/
*S.C. *DNEC 1618*
*IENNI.*FHS 817 *
*PROP-* N/A *3 DIGITS*EACH VISIT
*TENN *
*DUFS NOT COLLECT THIS DATA ITEM*
* *
*DUES NO1 COLLECT THIS DATA ITEM*
* *
*DuFS NOT COLLECT THIS DATA ITEM*
*DUFS NoT COLLECT THIS DATA ITEM*
*DuFS NOi COLLECT THIS DATA ITEM*
*DuFS voi COLLECT THIS DATA ITEM*
*DUES NOT COLLECT THIS DATA ITEM*
* (INVOICE CODE)
* *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:AMOUNT: COUE:A142
****************** *** * * ***** ***** **** ***** *** ***** *************** ***** **
*STATE*FORM No. * FORMAT *WHEN ENTERED * COMMENTS *
************ ***** * ***** ************** ***** ******************************
*PROP-* N/A *1 DIGIT *EACH VISIT * *
*TENN * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT: SECDNDANY METHOD OE CONTRA, UNTIL NEXT VISIT CUDE:A143
***************** ***** ****** *********** ************* ****** * ***** * ***** **
*STATE*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS
************** ***** ************* ********** **** ***** ** ***** **************
*ALA./*NCNS
*FLA. *
* *DUES NOT COLLECT THIS DATA ITEM*
*
* GA . *DPN/NIS *
*(7) - 55 *
*DUFS NOT COLLECT THIS DATA ITEM*
- 89 -
*KY, *mCH"280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 * CODESI *EACH VISIT *1.IUD, 'e,PILL, 3.FOAH, 4. *
* * *1".9,0PA * *DIAPHRAGM, 5.cnNopm, 6. *
* * * * *INJECTION, 7.TObAL LIGATION, 8.*
* * * * *OHO. 9.UNKNOWN. U.NONL, 4. *
* * * * *VASECTOMY *
*N.C. * 1457 * * *DOES NOT COLLECT THIS DATA ITEM*
*S.C, *UHEC 1618* * *DUFS NOT COLLECT THIS DATA ITEM*
*1ENN.*FHS 817 * * *DUES NUT coLLErt THIS UA1A ITEM*
*PROP* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEmENT:pRnaLEms nF METHOD OF F.P. CODEIA144
***** ************** ***** * ***** *************** ***** ********* ***** * ***** **
*sTATE*FoRm NO. * FORMAT *WHEN ENTERED * COMMENTS
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *UPH/HIS * * *DUFS NOT COLLECT THIS DATA ITEM*
* *(7)'55 * * * *
*KY. *MCH"280 * * *DUFS NOT COLLECT THIS DATA ITEM*
*MISS.* 208 *CODES 01*EACH VISIT *01.THROM3OPHLERITIS, 02. *
* * *THRU 15,* *PlIFGNANCY, 03.NAUSEA, 04.WE1GHT*
* * *00 * *GAIN, 05.HFAIACHFS, 06. *
* * * * *INFECTION. 07.FXPULSTON, 08. *
* * * * , PATN, 0Y,ALLERG1ES, 10. *
* * * * *IhRITAT1ON, 11.SPOTTTNG, 1G. *
* * * * *INCREASED MENSTRUATION, 13. *
* * * * *Di-CREASED MENSTRUATION, 14. *
* * * * *PSYCHJLUGICAL, 00.NONE *
*N.C. * 1458 *CUUES 0 *EACH VISIT *CUMPLICATAONS nUE TO METHOD& O.*
* * *IHRU 9 * *NUNL, 1.PREGNANCY, 2,8LEEDING, *
* * * * *3.PHLE8ITIS, 4.PA1N/CRAMPS 5. *
* * * * *PLRFOIATION, 6.EXPOLSION, 1. *
* * * * *FKFQOENT HFAIACHES &DIZZINESS, *
* * * * *8.OTHER MEDICAL, 9.OTHER *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
* TENN,*IHS 817 * * *DUFS NOT COLLECT THIS DATA ITEM*
*piRDp..* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PURPOSE OF VISIT CODE:4145
********* *************** *** ****** ****** ***** * ***** ************* ******** *
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*** ***** ***** ** *** ****** ** * *** * ** * * * * * *** ** * ** ** * ** * * ** **** * *** * ** * *****
*ALA./*NCHS
*FLA. *
*DUES NOT COLLECT THIS DATA ITEM*
- 90 -
*GA, *uPH/His * * * DUES NOT COLLECT THIS DATA ITEM*
* *(7)"55 * * * *
*KY. *MCH"280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS,* 208 *CODES 1 *EACH VISIT *1.FP SERVICES(CONTRACEPTIDN), 2*
* * *THRU 5 *
,442711INNLEPIPUNMY.4,
*
* * * * *
* * * * *INFERTILITY* 5.DTHERCSPECIFT) *
*N.C. * 1457 * * *DUES NOT COLLECT THIS DA1A ITEM*
*S.C. *UHEC 1616* * *DUES NOT COLLECT THIS DATA ITEM*
*IENN,*Fms 817 * * *DUFS NOT COLLECT THIS DATA ITEM*
*PROP** N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:SERVICE SITE NUMBER COUETA146
*** ***** ********** ************ **** ***** ****** ***** * ******* ******* *******
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
*ALA./*NCHS * * * DUES NOT CoLLEcl THIS DATA ITEM*
*F LA. * * * * *
*GA, *UPH/HIS * * *DUES NOl COLLECT THIS DATA ITEM*
* *(7)'55 * * * *
* NT. *MCW 260 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 208 * * *DUES Noi COLLECT THIS DATA ITEM*
*N e C. *1451,1458*5 DIGITS*EACH VISIT * *
*S.C. *DHEC 1618* * * DUFS NOT COLLECT THIS DATA ITEM*
*TENN e *FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP** N/A * * *DUFS N ? I COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:SERVICE SITE LAST VISTTED CODEtA147
**************************** ***** ************************ ***** **********
*STATE*FORM No. * FORMAT *WHEN ENTERED * COMMENTS *
**** ***** ***** ***** ****************** ********* ********* ********** *******
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * *
*GA, *DPH/HIS * * * DUFS Nol COLLECT THIS DATA ITEM*
* *(7)"'55 * 4. * *
*AY. *MCH=280 * * * DUES ND! COLLECT THIS DATA ITEM*
*MISS,* 208 * * *DUFS NOT COLLECT THIS DATA ITEM*
*N.C. * 1458 *5 DIGITS*EACH VISIT * *
*S.C. *DHEC 161b* * *DUES NDI COLLECT THIS DATA ITEM*
*TENN.*FHS 817 * * *DUFS NOI COLLECT THIS DATA ITEM*
? 91 ?
*PRDP-* N/A *DuES NUT COLLECT THIS DATA ITEM*
*TENN *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:PLACE OF NEXT APPT.(ENTER SERv, SITE ND.) CODEJA148
************************* ***** ******************************************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * CO MM EN T S
*************** ******* *********************** ***** **********************
*ALA./*NCHS * * *DuES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DuFS NOT COLLECT THIS DATA ITEM*
* *(() - 55 * * * *
*KY, *mCH 280 * * *DUES NOT COLLECT THIS DATA ITEM*
*MISS.* 206 * * *DuFS NOT COLLECT THIS DATA ITEM*
*N.C. * 1456 *5 DIGITS*FACM VISIT * *
*S.C. *DHEC 1618* * *DuFS NOT COLLECT THIS DATA ITEM*
*TENN?*FHS 61.7 * * *DuFS NOT COLLECT THIS DATA ITEM*
*PROP.* N/A * * *DuFS NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:FORMER AFDC RECIPIENT ENTER uSS CASE OH ACCT. ND CODE:A149
******* ***************** ***** **** ********* ******** ******** **************
*STATE*FORM NO. * FORMAT *WHEN ENTERED * no4 mENTS
*********** ********************************* ********* ********** *********
*ALA,/*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DuFS NOT COLLECT THIS DATA ITEM*
* *(7) - 55 * * * *
*KY, *mCH 280 * * *DuFS Not COLLECT THIS DATA ITEM*
*MISS.* 206 * * *DuFS NOT COLLECT THIS DATA ITEM*
*N.C, 'Ir 1456 *10 *EACH VISIT * *
* * *DIGITS * * *
*S.C. *DHEC 1618* * *DuFS NOT COLLECT THIS DATA ITEM*
*TENN.*FHS 817 * * *DUES voi COLLECT THIS DATA ITEM*
*ptqup * N/A * * *DUFS NOT COLLEcl THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELE MENTINUm6ER OF INDULEU ABURTIONS CUDF:A150
- 92 -
*STATE*FURm NO. * FURMAT *WHEN ENTERED * commEN1s
*AL46/*NCHS * * *Ours N01 COLLECT THIS DATA ITEM*
*FLA, * * * * *
*GA. *DPH/HIS * * * ? uEs 401 COLLECT THIS DATA ITEM*
* *(7) - 55 * * * *
*KY. *MCH - 280 * * *DuFs NOf COLLECT THIS DATA ITEM*
*MISS.* 206 * * *ours NO1 COLLECT THIS DATA ITEM*
*N.C. * 1457 *1 DI61T *NEW ADMISSION* *
* * * *OR RE- * *
* * * *ADMISSION *
*s.c. *DHEC 1618*
*1ENN.*FHS 817 *
*pRopm* N/A
*TENN *
*
*
*
*DUES NOT COLLECT THIS DATA ITEM*
*DUES NO1 COLLECT THIS UA1A ITEM*
*DuFs NOT COLLECT. THIS DATA ITEM*
* *
//// / /// / /// / ///// / ////// // ///// // ////////// // ///// // //////// / / / / / //////
DATA ELEmENT:DATE FIRST VISIT TU F.P. StRvTCF SITL LOUEIA151
*STATE*FORm NO. * FORMAT *WHEN ENTERED * COMMENTS
*ALA /*NCHS
*FLA. *
* * *DuFS NOT COLLECT THIS DATA ITEM*
* * * *
*6A, *DPH/HIS *
*(() - 55 *
*KY. *mCH-280 *
*
*DuES 401 COLLECT THIS DATA ITEM*
*ours NUT COLLECT THIS DATA ITEM*
*MISS.* 208 * * *DUFS NUT COLLECT THIS DATA ITEM*
*N.C. * 1457 *6 DlulTS*NEW ADMISSION*mu/uA/Yk *
* * * *OR HE- * *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA /Tim*
*TENN e *I.Hs t$17 * * *ouEs NOT COLLECT THIS DATA ITEM*
*PROP * N/A * * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:mODFL CITY NombER COUE;A152
*STATE*FORM NO. * FORMAT *WHEN ENTERED * rommENTS
************* ***** * * * *************** ** ***** ** ***** ****** **** * ********* **
*ALA /*NCHS * * *DurS NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *GRAS NO1 COLLECT THIS DATA ITEM*
* *(7) - 55 * * 4 *
*KY, *MCH - 280 * * *DuFs N01 COLLECT THIS DATA ITEM*
- 93 -
*MISS.* 206 * * *DUFS NOT COLLECT THIS DA1A ITEM*
*N.C * 1457 *3 oicoTs*NEW ADMISSION*OPTIONAL *
* * * *OR RE- * *
* * * *ADMISSION * *
*S.C. *OHEC 1618* * *DUES 401 COLLECT THIS DATA ITEM*
*TENN,*FHS 617 * * *DUES 401 COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUFS Nni COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:sTAFE NUMBER CODE:4153
************ ***** ******** ***** ******************************************
*STATE *FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
************************************************************************
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA, * * * * *
*GA, *DPH/HIS * * *DUFS NOT COLLECT THIS DATA ITEM*
* *(7) - 55 * * * *
*KY. *mCH - 280 * * *DUES NO1 COLLECT THIS DATA ITEM*
*MISS,* 206 * * *DUFS NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *4 Dj6ITs*NEW ADMISSION*OPTIONAL *
* * * *OR RE.. * *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUFS NOT COLLECT THIS DATA ITEM*
*TENN,*EHS 817 * * *DUFS NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NOT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA EEEMENT:NAmE,ADDR, SOMEONE ALWAYS KNOWING pATTENT?S ADDR cODF:A154
******************* ***** *************** ***** ******************* ***** ****
*STATE*EORM NO. * FORMAT *WHEN ENTERED * COMMENTS *
******************************* ******* ********* ***** ***** ************* **
*ALA./*NCHS * * *DUFS NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA, *uPH/HIs * * *DUES NOT COLLECT THIS DATA ITEM*
* *(7) - 55 * * *
*KY, *mCH-280 * * *DUFS 40i COLLECT THIS DATA ITEM*
*MISS,* 206 * * *DUFS 401 COLLECT THIS DATA ITEM*
*N.C, * 1457 *NONE *NEW ADMISsIDN* *
* * * *OR RE- * *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*TENN,*FHS 817 * * *Dos 401 COLLECT THIS DATA ITEM*
- 94 -
*PROP** N/A *DuES NOT COLLECT THIS DATA ITEM*
*TENN *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:THEIR TELEpHONE NUMBER CODE:A155
** ***** ************ ****** ** ************ ************************** ***** **
*STATE*FORM NO. * FORMAT *4HEN ENTERED * COMMENTS *
*********** ******** ****************** ******** *********** ***** ***********
*AEA./*NCHS * * *DUES NOf COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *DPH/HIS * * *DUES NOf COLLECT THIS DATA ITEM*
* *(7) - 55 * * * *
*KY. *MCH'280 * * *DUES N11 COLLEC1 THIS DATA ITEM*
*MISS.* 208 * * *DUES NOT COLLECT THIS DATA ITEM*
*N.C. * 1457 *NONE *NEW AUMISSION*REFERS TO A154 *
* * * *OK HE- * *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NO1 COLLECT THIS DATA ITEM*
*TENN I *FHS 817 * * *DUES 401 COLLECT THIS DA1A ITEM*
*PROP..* N/A * * *DUES km; COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
DATA ELEMENT:LOCAL USE
********* ************************ ************* ******** ** *****
*STATE*FORM NO. * FORMAT *WHEN ENTERED * COMMENTS
******** ********************** * ***** ************** ***** ******
LODEIA156
*** ***** ***
***** ******
*ALA./*NCHS * * *DUES NOT COLLECT THIS DATA ITEM*
*FLA. * * * * *
*GA. *UPH/HIS * * *ODES NOT COLLECT THIS DATA ITEM*
* *(7)"55 * * * *
*KY. *MCW.280 * * *DuFs NOT COLLECT THIS DATA ITEM*
*MISS.* 208 * * *DUES NUT COLLECT THIS DATA ITEM*
*N.C. *1451,1458*3 DIGITS*NEW ADMISSION* *
* * * *Ok kE.. * *
* * * *ADMISSION * *
*S.C. *DHEC 1618* * *DUES NOT COLLECT THIS DATA ITEM*
*1ENN.*FHS 817 * * *DUES NOT COLLECT THIS DATA ITEM*
*PROP-* N/A * * *DUES NWT COLLECT THIS DATA ITEM*
*TENN * * * * *
////////////////////////////////////////////////////////////////////////
- 95 -
2.4 COMPUTER FILE DEFINITIONS
If the Regional Data Network is to make use of the tapes produced
by the eight state computerized data systems, the file definitions
employed by those systems needs to be subjected to careful review. The
material contained in this section of the working document is presented
in order to facilitate that review.
In general, the material presented is self-explanatory. However,
note should be made of the face that the Tennessee file definition
displayed herein is that of the proposed system rather than that of the
system currently operational (see section 2.2 for discussion). In addi-
tion, it should be explained that the file definition for the Florida
system now under development has not yet been established, and is there-
fore omitted from this document.
ALABAMA* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *ALABAMA
Patient Activity File
Field Location
(Bytes)

Field Name No. of Bytes


001 - 017 Patient Identification
001 - 002 District No. 2
003 - 004 County No. 2
005 - 008 Clinic No. 4
009 - 017 Patient No. 9
018 - 026 Social Security No. 9
027 - 032 Date of Visit (Mo-Da-Yr) 6
033 - 033 Type of Visit 1
034 - 039 Date of Birth (Mo-Da-Yr) 6
040 - 051 Medical Services 12
052 - 054 Counseling Services 3
055 - 057 Referred Elsewhere 3
058 - 058 Method Adopted 1
059 - 059 Reason No Method Adopted 1
060 - 065 Next Appointment Date (Mo-Da-Yr) 6
Field Location
(Bytes) Field Name No. of Bytes
066 - 066
067 - 067
068 - 068
069 - 079
Purpose of Next Appointment
"Has a record ever been submitted
to NCHS for this patient?"
"Is this the first record submitted
for this patient this year?"
Pregnancy History:
1
1
069 - 070 No. of Live Births 2
071 No. of Fetal Deaths 1
072 - 073 No. of Children Now Living 2
074 - 079 Date of Last Pregnancy Term. 6
080 - 081 Welfare Status:
080 Receiving Public Assistance? 1
081 Registered for Medicaid 1
082 - 083 Education 2
084 - 084 Latin-American Origin or Descent 1
085 - 085 Race 1
086 - 086 Sex 1
087 - 087 Source of Referral 1
088 - 091 Contraceptive History:
088 Ever Used Any Method 1
089 Currently Using a Method 1
090 Last Method Used 1
091 Who Prescribed Last Method 1
092 - 092 Average Family Weekly Income 1
093 - 094 No. In Family 2
095 - 107 Medicaid Number 13
108 - 108 Patient Seen By 1
109 - 118 Blank Field (for expansion) 10
ALABAMA* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ALABAMA
Patient Master File
Field Location
(Bytes)

Field Name No. of Bytes



001 - 017 Patient Identification
001 - 002 District No. 2
003 - 004 County No. 2
005 - 008 Clinic No. 4
009 - 017 Patient No. 9
018 - 026 Social Security No. 9
027 - 032 Date of Birth 6
033 - 038 Date of Most Recent Clinic Visit 6
039 - 039 Contraceptive Method 1
040 - 043 Next Appointment Date (Mo-Yr) 4
044 - 055 Pregnancy History:
044 - 049 Date of Last Preg. Term. 6
050 - 051 No. of Live Births 2
052 - 053 No. of Fetal Deaths 2
054 - 055 No. of Children Now Living 2
056 - 057 Welfare Status:
056 Receiving Public Assistance 1
057 Registered for Medicaid 1
058 - 059 Education 2
060 - 060 Latin-Amer. Origin or Descent 1
061 - 061 Race 1
062 - 062 Sex 1
063 - 063 Source of Referral 1
064 - 067 Contraceptive History:
064 Ever Used a Method 1
065 Currently Using a Method 1
066 Last Method Used 1
067 Who Prescribed Last Method 1
068 - 080 Medicaid Number 13
081 - 083 Income Status:
081 Average Weekly Income 1
082 - 083 No. In Family 2
- 98 -
Field Location
(Bytes) Field Name No. of Bytes
084 - 084 Status (Active-Inactive-Terminated) 1
085 - 085 Termination Reason 1
086 - 089 Termination Date 4
090 - 099 Blank (for future expansion) 10
ALABAMA* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ALABAMA
Master Name/Address File
Field Location
(Bytes) Field Name No. of Bytes


001 - 017 Patient Identification
001 - 002 District No. 2
003 - 004 County No. 2
005 - 008 Clinic No. 4
009 - 017 Patient No. 9
018 - 027 First Name 10
028 - 041 Middle Name 14
042 - 055 Last Name 14
056 - 069 Maiden Name 14
070 - 089 Street Address 20
090 - 101 City 12
102 - 104 State 3
105 - 109 Zip Code 5
110 - 116 Telephone Number 7
GEORGIA* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * GEORGIA
Field Location
(Bytes) Field Name No. of Bytes

001 - 001 Filler 1
002 - 010 State Assigned Number 9
011 - 012 State Assigned Number Check Letters 2
013 - 017 Maiden Last Name Soundex 5
018 - 019 First Name Soundex 2
020 - 020 Race 1
021 - 021 Sex 1
022 - 027 Date of Birth 6
028 - 032 Current Last Name Soundex 5
033 - 037 City of Birth Soundex 5
038 - 039 State of Birth 2
040 - 048 Social Security Number 9
049 - 050 Social Security Number Check Letters 2
051 - 060 Special Agency Number 10
061 - 061 AFDC Classification Code 1
062 - 065 AFDC Classification Date 4
066 - 067 Filler 2
068 - 080 Medicaid Services
068 Blood Pressure 1
069 Brest Exam 1
070 Pap Smear 1
071 G & C 1
072 Pelvic Exam 1
073 Urinalysis 1
074 Hematocrit 1
075 VDRL 1
076 String Check 1
077 Sterilization 1
078 Other 1
079 Pregnancy Test 1
080 Vaginitis Rx 1
081 - 081 Filler 1
082 - 087 Counseling Services
082 Social Services 1
083 Contraception 1
084 Sterilization 1
Field Location Field Name No. of Bytes
(Bytes)
085 Abortion 1
086 Infertility 1
087 Other 1

088 - 089 Filler 2
090 - 094 Purpose of Next Appointment
090 Supply 1
091 Annual Exam 1
092 Medical 1
093 Other 1
094 None 1
095 - 100 Referred for:
095 Social Services 1
096 Medical Problem 1
097 Sterilization 1
098 Abortion 1
099 Infertility 1
100 Other 1
101 - 101 Record Identifier 1
102 - 107 Date of Visit 6
108 - 115 Form Sequence Number 8
116 - 122 Visit Location
116 - 118 County 3
119 - 120 Clinic 2
120 - 122 Clinic Type 2
123 - 133 Pregnancy History
123 No Change/Never Pregnant 1
124 - 125 Number of Living Children 2
126 - 127 Total Miscarriages, Abortions
& Still Births 2
128 - 133 Date Last Pregnancy Ended 6
134 - 141 Method Last Used
134 Method #1 1
135 Presently Using Method #1? 1
136 - 139 Month & Year if Method #1 Stopped 4
140 Present Method #1 Prescribed by? 1
141 Method #2 (Back up) 1
Field Location
(Bytes) Field Name No. of Bytes
142 - 142
143 - 147
143
144 - 145
146
Filler
Method(s) Prescribed at this Visit:
Method #1
# Cycles of Pills Dispensed
Reason if None Marked Under
1
1
2
Method #1 1
147 Method #2 (Back up) 1
148 - 148 Pap Results 1
149 - 152 Medical/Nursing Servcies 4
153 - 154 Counseling Services 2
155 - 156 Purpose of Next Appointment 2
157 - 160 Date of Next Appointment 4
161 - 162 Referred Elsewhere for Services 2
163 - 167 Referred to:
163 - 165 County 3
166 - 167 Clinic Bldg. # 2
168 - 168 Filler 1
169 - 171 County of Residence 3
172 - 176 Census Tract Code 5
177 - 178 Years of School 2
179 - 179 Been Married? 1
180 - 180 Current Marital Status 1
181 - 190 Vendor # of Pathologist Recoding
Pap Smear 10
191 - 196 Filler 6
197 - 197 AFDC Status Code
(Special Studies Box of) 1
198 - 198 Filler 1
199 - 199 Appointment Status 1 1
200 - 200 Appointment Status 2 1
Field Location
(Bytes) Field Name No. of Bytes
101 - 101 Record Identifier 1
102 - 107 Date of Visit 6
108 - 115 Form Sequence # 8
116 - 121 Special Studies Line 1 1 6
122 - 127 Special Studies Line # 2 6
128 - 133 Special Studies Line # 3 6
134 - 139 Special Studies Line # 4 6
140 - 145 Special Studies Line 1 5 6
146 - 151 Special Studies Line # 6 6
152 - 200 Filler 49
100
KENTUCKY * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * KENTUCKY
Master File
Field Location
(Bytes)

Field Name No. of Bytes


001 - 003 Region 3
004 - 006 County 3
007 - 010 Clinic No. 4
011 - 019 Social Security Number 9
020 - 025 Current Date of Entry
020 - 021 Year 2
022 - 023 Month 2
024 - 025 Day 2
026 - 027 Age of Entry 2
028 - 033 Birth Date
028 - 029 Year 2
030 - 031 Month 2
032 - 033 Day 2
034 - 034 Status 1
035 - 035 Filler 1
036 - 037 Disposition 2
038 - 039 Referral Source 2
040 - 040 Race 1
041 - 041 Sex 1
042 - 043 Education 2
044 - 051 Payors
044 - 045 Public Assistance 2
046 - 047 Medicaid 2
048 - 051 Filler 4
052 - 052 Income 1
053 - 054 It In Household 2
055 - 059 Residence
055 - 056 State 2
057 - 059 County 3
060 - 060 Marital Status 1
Field Location
(Bytes) Field Name No. of Bytes
061 - 063 Filler 3
064 - 065 Current Occupation 2
066 - 067 Contraception
066 Last 1
067 Current 1
068 - 068 Interim 1
069 - 069 Who Referred 1
070 - 070 Have Ever 1
071 - 076 Date of Pap
071 - 072 Year 2
073 - 074 Month 2
075 - 076 Day 2
077 - 077 Result 1
078 - 083 Date of VDRL
078 - 079 Year 2
080 - 081 Month 2
082 - 083 Day 2
084 - 084 Result 1
085 - 090 Date of GC
085 - 086 Year 2
087 - 088 Month 2
089 - 090 Day 2
091 - 091 Result 1
092 - 097 Date Pregnancy Test
092 - 093 Year 2
094 - 095 Month 2
096 - 097 Day 2
098 - 098 Result 1
099 - 099 Outcome of Pregnancy 1
100 - 100 Unplanned 1
101 - 101 Pregnancies 1
- 106 -
Field Location
(Bytes) Field Name No. of Bytes

102 - 107 Date of Delivery
102 - 103 Year 2
104 - 105 Month 2
106 - 107 Day 2
108 - 108 # Live Births 1
109 - 109 # Fetal Deaths 1
110 - 110 # Children Living 1
111 - 113 Filler 3
114 - 033 Name
114 - 125 Last 12
126 - 132 First 7
133 - 133 MI 1
134 - 136 Program Code 3
137 - 137 First Visit 1
138 - 138 Latin American 1
139 - 139 Reason for No Code 1
140 - 140 Filler 1
FIRST EPISODE
141 - 146 Date of Intake
141 - 142 Year 2
143 - 144 Month 2
145 - 146 Day 2
147 - 152 Date of Termination
147 - 148 Year 2
149 - 150 Month 2
151 - 152 Day 2
153 - 154 Disposition 2
155 - 157 Length of Stay 3
158 - 159 Referral Source 2
160 - 167 Filler 8
- 107 -
Field Location
(Bytes) Field Name No. of Bytes
SECOND EPISODE

168 - 173 Date of Intake
168 - 169 Year 2
170 - 171 Month 2
172 - 173 Day 2
174 - 179 Date of Termination
174 - 175 Year 2
176 - 177 Month 2
178 - 179 Day 2
180 - 181 Disposition 2
182 - 184 Length of Stay 3
185 - 186 Referral Source 2
187 - 194 Filler 8
THIRD EPISODE
195 - 200 Date of Intake
195 - 196 Year 2
197 - 198 Month 2
199 - 200 Day 2
201 - 206 Date of Termination
201 - 202 Year 2
203 - 204 Month 2
205 - 206 Day 2
207 - 208 Disposition 2
209 - 211 Length of Stay 3
212 - 213 Referral Source 2
214 - 221 Filler 8
FOURTH EPISODE
222 - 227 Date of Intake
222 - 223 Year 2
224 - 225 Month 2
226 - 227 Day 2
Field Location
(Bytes) Field Name No. of Bytes
228 - 233 Date of Termination

228 - 229 Year 2
230 - 231 Month 2
232 - 233 Day 2
234 - 235 Disposition 2
236 - 238 Length of Stay 3
239 - 240 Referral Source 2
241 - 248 Filler 8
FIFTH EPISODE
249 - 254 Date of Intake
249 - 250 Year 2
251 - 252 Month 2
253 - 254 Day 2
255 - 260 Date of Termination
255 - 256 Year 2
257 - 258 Month 2
259 - 260 Day 2
261 - 262 Disposition 2
263 - 265 Length of Stay 3
266 - 267 Referral Source 2
268 - 275 Filler 8
CURRENT EPISODE
276 - 281 Date of Intake
276 - 277 Year 2
278 - 279 Month 2
280 - 281 Day 2
282 - 287 Date of Termination
282 - 283 Year 2
284 - 285 Month 2
286 - 287 Day 2
288 - 289 Disposition 2
- 109 -
Field Location
(Bytes) Field Name No. of Bytes
290 - 292
293 - 294
295 - 302
303 - 308
Length of Stay
Referral Source
Filler
Date of Next Appointment
3
2
8
303 - 304 Year 2
305 - 306 Month 2
307 - 308 Day 2
309 - 315 Sickle Cell
309 Result 1
310 - 311 Year 2
312 - 313 Month 2
314 - 315 Day 2
316 - 321 Date of Last Visit
316 - 317 Year 2
318 - 319 Month 2
320 - 321 Day 2
322 - 333 NCFPS 12
334 - 345 0E0 12
346 - 357 MCHS 12
358 - 369 PPWP 12
370 - 381 NCHS 12
382 - 393 LOCAL 12
394 - 400 Filler 7
KENTUCKY * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * KENTUCKY
Activity File
Field Location
(Bytes) Field Name No. of Bytes


001 - 003 Region 3
004 - 006 County 3
007 - 010 Clinic Number 4
011 - 019 Social Security Number 9
020 - 025 Date of Activity
020 - 021 Year 2
022 - 023 Month 2
024 - 025 Day 2
026 - 026 Type Visit 1
027 - 041 Services Provided
027 - 037 Medical
027 Pap 1
028 Pelvic 1
029 Breast 1
030 Blood Pressure 1
031 Pregnancy
032 VD 1
033 Urinr 1
034 Blood Test 1
035 Sterilization 1
036 Infertility 1
037 Other 1
038 - 041 Counseling
038 Sterilization 1
039 Contraception 1
040 Infertility 1
041 Other 1
042 - 047 Assoc. Referral
042 None 1
043 Abortion 1
044 Sterilization 1
045 Infertility 1
Field Location
(Bytes) Field Name No. of Bytes
046
047
Other Referral
Filler
1
1
048 - 050 Contraception
048 Current 1
049 Interim 1
050 Why Not 1
051 - 057 Next Appointment
051 Purpose 1
052 - 053 Year 2
054 - 055 Month 2
056 - 057 Day 2
058 - 059 Disposition 2
060 - 060 Marital Status 1
061 - 061 Pap 1
062 - 062 VDRL 1
063 - 063 GC 1
064 - 064 Pregnancy 1
065 - 066 Problem Visit 2
067 - 067 Income 1
068 - 069 Unplanned Preg. 2
079 - 079 Status 1
071 - 071 New Record 1
072 - 072 Latin American 1
073 - 074 Filler 2
075 - 077 Program Code 3
078 - 078 Race 1
079 - 079 Sex 1
080 - 081 Referral Source 2
082 - 082 Sickle Cell 1
- 112 -
Field Location
(Bytes) Field Name No. of Bytes
083 - 094 0E0 12
095 - 106 MCHS 12
107 - 118 PPWP 12
119 - 130 LOCAL 12
131 - 150 Name 20
151 - 200 Filler 50
KENTUCKY * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * KENTUCKY
(Quarterly Reports)
Field Location
(Bytes) Field Name No. of Bytes
001 - 010 ID
001 - 003 Region 3
004 - 006 County 3
007 - 010 Clinic 4
011 - 011 Status 1
012 - 013 Age 2
014 - 014 Race 1
015 - 015 Sex 1
016 - 017 Associate Referral 2
018 - 019 Disposition 2
020 - 022 Method
020 Current 1
021 Last 1
022 Interim 1
023 - 025 Income
023 Major 1
024 Int 1
025 Minor 1
026 - 026 Children Living 1
027 - 027 1
028 - 028 Fetal Deaths 1
029 - 029 Live Births 1
030 - 030 Outcome of Preg. 1
031 - 031 Marital Status 1
032 - 036 Test Results
032 Pap 1
033 VDRL 1
034 G.C. 1
035 Preg. 1
036 Sickle Cell 1
Field Location
(Bytes) Field Name No. of Bytes
037 - 038 Referral Source 0 ,.
039 - 040 Occupation 2
041 - 041 Medicaid 1
042 - 042 P.A. 1
043 - 044 Education 2
045 - 047 Program Code 3
048 - 053 Date of Entry 6
054 - 100 Filler 47
- 115 -
MISSISSIPPI * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * MISSISSIPPI
FIELD LOCATION
(Bytes)

FIELD NAME NO. OF BYTES

001 - 004 TFA1 4
005 - 014 Patient No. 10
015 - 020 Visit Date 6
021 - 032 Last Name 12
033 - 039 First Name 7
040 - 040 Middle Initial 1
041 - 046 Street No. 6
047 - 054 Street Name 8
055 - 057 Apt. No. 3
058 - 065 City 8
066 - 068 Census Tract 3
069 - 073 Zip Code 5
074 - 080 Phone No. 7
081 - 084 TFP2 4
085 - 094 Patient No. 10
095 - 100 Visit Date 6
101 - 102 County No. 2
103 - 104 Clinic No. 2
105 - 105 Type Visit 1
106 - 106 Welfare 1
107 - 107 Medicaid 1
108 - 113 Date of Birth 6
114 - 114 Race 1
115 - 115 Marital Status 1
116 - 117 Education 2
118 - 118 No. of Pregnancies 1
119 - 119 Born Alive 1
120 - 120 No. Children Living 1
121 - 121 Children Under 5 1
122 - 127 Date of Last Delivery 6
128 - 128 Outcome 1
129 - 129 Referral Source 1
130 - 130 Hist. Method 1
131 - 131 Add. Preg. 1
FIELD LOCATION
(Bytes) FIELD NAME NO. OF BYTES
132 - 132 Add. Schooling 1
133 - 133 Filler 1
134 - 134 Sex 1
135 - 135 Visit Purpose 1
136 - 137 Problems of Method 2
138 - 138 Counseling 1
139 - 139 Seen by 1
140 - 140 Breast Exam 1
141 - 141 Pelvic Exam 1
142 - 142 Pap Smear 1
143 - 143 Serology 1
144 - 144 Preg. Test 1
145 - 145 Urinalysis 1
146 - 146 Other Medical 1
147 - 147 Primary Method 1
148 - 148 Secondary Method 1
149 - 154 Date of Next Appmt. 6
155 - 155 Reason Next Visit 1
156 - 160 Filler 5
161 - 164 TFP3 4
165 - 174 Patient No. 10
175 - 180 Visit Date 6
181 - 182 County No. 2
183 - 184 Clinic No. 2
185 - 185 Type Visit 1
186 - 186 Zero 1
187 - 195 New Soc. Sec. No. 9
196 - 207 Last Name 12
208 - 214 First Name 7
215 - 215 Middle Initial 1
216 - 217 Problems of Method 2
218 - 218 Counseling 1
219 - 219 Seen by: 1
220 - 225 Filler 6
226 - 226 Supplies Given 1
227 - 227 Method 1 1
- 117 -
FIELD LOCATION
(Bytes) FIELD NAME NO. OF BYTES
228 - 228 Method 2 1
229 - 234 Return Date 6
235 - 235 Reason Next Visit 1
236 - 237 Termination 2
238 - 240 Filler 3
NORTH CAROLINA * * * * * * * * * * * * * * * * * * * * * * * * * * * * NORTH CAROLINA
Patient Master Record
Field Location
(Bytes) Field Name No. of Bytes
001 - 009 Patient Number 9
010 - 014 Filler 5
015 - 019 Service Site No. 5
020 - 030 Filler 11
031 - 031 Record Type Code 1
032 - 032 Transaction Code 1
033 - 033 Filler 1
034 - 045 Last Name 12
046 - 054 First Name 9
055 - 055 Middle Initial 1
056 - 070 Street Address 15
071 - 083 City 13
084 - 088 Zip Code 5
089 - 095 Phone Number 7
096 - 096 Mail - Yes or No 1
097 - 097 Patient Type 1
098 - 099 Birth Month 2
100 - 101 Birth Date 2
102 - 103 Birth Year 2
104 - 104 Latin American Origin 1
105 - 105 Race 1
106 - 106 Sex 1
] . 07 - 107 Marital Status 1
108 - 109 Education 2
110 - 111 Month - First Visit 2
112 - 113 Day - First Visit 2
114 - 115 Year - First Visit 2
116 - 118 County of Residence 3
119 - 119 Source of Referral 1
120 - 120 Used Contraception Method 1
121 - 121 Using Contraception Method 1
122 - 123 Last Method 2
124 - 124 Who Prescribed 1
Field Location
(Bytes) Field Name No. of Bytes
125 - 126 No. of Live Births 2
127 - 127 No. of Fetal Deaths 1
128 - 129 Total No. of Pregnancy 2
130 - 130 Filler 1
131 - 132 No. of Children Living 2
133 - 133 No. of Abortions 1
134 - 134 Outcome of Last Pregnancy 1
135 - 139 Income 5
140 - 140 Unit of Measure 1
141 - 142 No. of People Supported 2
143 - 143 Financial Assistance 1
144 - 144 Medicaid 1
145 - 147 Local Use Item 1 3
148 - 150 Local Use Item 2 3
151 - 153 Local Use Item 3 3
154 - 158 Census Tract 5
159 - 161 Model City No. 3
162 - 165 Staff No. 4
166 - 210 (For PHS Use) blank 45
NORTH CAROLINA * * * * * * * * * * * * * * * * * * * * * * * * * * * * * NORTH CAROLINA
Patient Visit Record
Field Location
(Bytes) Field Name No. of Bytes
001 - 009 Patient Number 9
010 - 014 Filler 5
015 - 019 Service Site No. 5
020 - 030 Filler 11
031 - 031 Record Type Code 1
032 - 032 Transaction Code 1
033 - 033 Visit Patient Type 1
034 - 034 Type of Visit 1
035 - 037 Contraceptive Services 3
038 - 039 Infertility Services 2
040 - 042 Other Services 3
043 - 044 Visit - Month 2
045 - 046 Visit - Day 2
047 - 048 Visit - Year 2
049 - 049 Breast Exam 1
050 - 050 Heart & Lung Exam 1
051 - 051 Pelvic Exam 1
052 - 052 Pap Smear
053 - 053 Gonorrhea Test 1
054 - 054 Serology 1
055 - 055 Blood Test 1
056 - 056 Pregnancy Test 1
057 - 057 Urinalysis 1
058 - 058 Vaginal Smear 1
059 - 059 Blood Pressure 1
060 - 060 Other Lab Tests 1
061 - 061 Other Medical Exams 1
062 - 063 Prior Contraception Method 2
064 - 065 Complications 2
066 - 066 Reason for Change 1
067 - 068 Interim Contraception Method 2
069 - 070 Ongoing Contraception Method 2
071 - 071 Reason None 1
Field Location
(Bytes) Field Name No. of Bytes
072 - 074 Local Use Item 1 3
075 - 077 Local Use Item 2 3
078 - 080 Local Use Item 3 3
081 - 081 Reason Closure 1
082 - 083 Hour of Next Appointment 2
084 - 084 AM or PM 1
085 - 086 Month of Next Appointment 2
087 - 088 Day of Next Appointment 2
089 - 090 Year of Next Appointment 2
091 - 091 Type of Next Appointment 1
092 - 096 Place of Next Appointment 5
097 - 129 Filler 33
130 - 130 Medicaid or AFDC 1
131 - 132 Prog. No. of Medicaid 2
133 - 133 "N" or blank 1
134 - 135 Co. No. of Medicaid 2
146 - 143 Acct. No. of Medicaid 8
144 - 147 Effective Date of Medicaid 4
148 - 148 * or blank 1
149 - 150 Family No. of Medicaid 2
151 - 160 AFDC Acct. No. 10
161 - 210 (PHS Use) 50
SOUTH CAROLINA * * * * * * * * * * * * * * * * * * * * * * * * * * SOUTH CAROLINA
Field Location
(Bytes)

Field Name No. of Bytes


001 - 002 District 2
003 - 004 County 2
005 - 011 Patient No. 7
012 - 013 Home Clinic 2
014 - 037 Patient Name
014 - 028 Last 15
029 - 036 First 8
037 - 037 I 1
038 - 038 Type 1
039 - 044 Date of Admission
039 - 040 Mo 2
041 - 042 Dy 2
043 - 044 Yr 2
045 - 050 Date of Last Visit
045 - 046 Mo 2
047 - 048 Dy 2
049 - 050 Yr 2
051 - 056 Date of 1st Visit of Fiscal Year
051 - 052 Mo 2
053 - 054 Dy 2
055 - 056 Yr 2
057 - 060 Return Date
057 - 058 Mo 2
059 - 060 Yr 2
061 - 062 # Of Visits This Year 2
063 - 069 Count By Visit Type
063 Initial 1
064 Sched 1
065 Annual 1
066 Other Medical 1
067 Method Prob 1
068 Supply Only 1
069 Other 1
Field Location
(Bytes) Field Name No. of Bytes
070 - 070 Source Ref 1
071 - 071 Contractor 1
072 - 076 Referred Elsewhere 5
072 Infert. 1
073 Abortion 1
074 Steril. 1
075 Other Medical 1
076 Social Services 1
077 - 080 Months of Contracept. Coverage
077 - 078 Curr Yr 2
079 - 080 Next Yr 2
081 - 081 Infer. Couns. 1
082 - 082 Infer. Svc. 1
083 - 085 Exams
083 Pelvic 1
084 Breast 1
085 Blood Pressure 1
086 - 088 Abnorm.
086 Pelvic 1
087 Breast
088 Blood Pressure 1
089 - 096 Lab Tests
089 Pap 1
090 HCT 1
091 Urine 1
092 G.C. 1
093 Sts. 1
094 Preg. 1
095 Rubella 1
096 Sickle Cell 1
097 - 097 X-Ray 1
Field Location
(Bytes) Field Name No. of Bytes

098 - 103 Positive Test
098 Pap 1
099 G.C. 1
100 Sts. 1
101 Preg. 1
102 Rubella 1
103 Sickle Cell 1
104 - 104 Sex 1
105 - 105 Race 1
106 - 106 Latin Orig. 1
107 - 110 Date of Birth
107 - 108 Mo 2
109 - 110 Yr 2
111 - 111 Place of Birth 1
112 - 113 Marital Status
112 1st 1
113 Current 1
114 - 115 Financial Status
114 1st 1
115 Current 1
116 - 119 Educational Status
116 - 117 1st 2
118 - 119 Current 2
120 - 120 Gravida 1
121 - 121 Parity 1
122 - 122 Fetals 1
123 - 123 Live Chld. 1
124 - 127 Contracept. Method
124 Prev. 1
125 Init. 1
126 1st of F.Y. 1
127 Current 1
- 125 -
Field Location
(Bytes) Field Name No. of Bytes
128 - 129
130 - 130
Last Clinic Visited
Del. Count
2
1
131 - 131 Status 1
132 - 132 Reason Disch. 1
133 - 134 Age Group
133 1st 1
134 Current 1
135 - 135 Family Size 1
136 - 138 Planned Parent Fields 3
139 - 145 Filler 7
146 - 149 NCHS Clinic No. 4
150 - 150 NCHS Ind. 1
TENNESSEE * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * TENNESSEE
Field Location
(Bytes) Field Name No. of Bytes
001 - 001 ISAM 1
002 - 015 Key 14
016 - 020 Patient Number 5
021 - 032 Last Name 12
033 - 040 First Name 8
041 - 057 Street Address 17
058 - 065 City 8
069 - 071 Zip 3
072 - 075 Phone 4
076 - 081 Medicaid Number 6
082 - 082 Contact Mode 1
083 - 085 Date of Birth 3
086 - 091 Social Security Number 6
092 - 092 Economic Status 1
093 - 093 Ethnic Designation 1
094 - 094 Latin American Origin 1
095 - 095 Marital Status 1
096 - 096 Sex 1
097 - 098 Education 2
099 - 099 Children Living 1
100 - 100 Live Births 1
101 - 101 Living Children Less than 5 Years
of Age 1
102 - 102 Fetal Deaths 1
103 - 103 Outcome Last Pregnancy 1
104 - 106 Date Last Pregnancy Terminated 3
107 - 107 No. of Children Expected 1
108 - 108 Source of Original Ref. 1
109 - 109 Ever used any method 1
110 - 110 Currently Using 1
111 - 111 Last Method 1
112 - 112 Who Prescribed 1
Latest Visit Segment
113 - 113 Region 1
114 - 115 County 2
116 - 117 Clinic 2
Field Location
(Bytes) Field Name No. of Bytes
118 - 120 Date of Visit 3
121 - 121 Patient Type 1
122 - 122 Reason for Entry 1
123 - 123 Welfare Status 1
124 - 124 Reg. for Medicaid 1
125 - 125 Sterilization 1
126 - 126 Contraception 1
127 - 127 Infertility 1
128 - 128 Pregnancy 1
129 - 129 V.D. 1
130 - 130 Sexual 1
131 - 131 Teenage 1
132 - 132 Other 1
133 - 133 Filler 1
134 - 134 Filler 1
135 - 135 String Check 1
136 - 136 Pap Smear 1
137 - 137 Pelvic Exam 1
138 - 138 Breast Exam 1
139 - 139 Vaginitis Treatment 1
140 - 140 Heart & Lung 1
141 - 141 Infertility 1
142 - 142 IUD Insert 1
143 - 143 Other 1
144 - 144 Filler 1
145 - 148 Blood Pressure 4
149 - 149 Wet Smears 1
150 - 150 Pregnancy 1
151 - 151 Sickle Cell 1
152 - 152 Urinalysis 1
153 - 153 G.C. Culture 1
154 - 154 VDRL 1
155 - 155 Other 1
156 - 156 Abortion 1
157 - 157 Sterilization 1
158 - 158 Infertility Serv. 1
Field Location
(Bytes) Field Name No. of Bytes
159 - 159
160 - 160
161 - 161
162 - 162
163 - 163
Social Service
Other Medical
Voc - Rehab
Other
Filler
1
1
1
1
1
164 - 165 Method at End This Visit 2
166 - 168 Date Next Appointment 3
169 - 169 Reason Next 1
170 - 171 Reason No Return Date 2
172 - 184 Patient Seen By 13
185 - 188 Inventory 4
189 - 194 Special Use 6
195 - 196 Filler 2
197 - 280 Latest + 1 Visit Segment 84
281 - 364 Latest + 2 Visit Segment 84
365 - 366 Termination Code 2
367 - 369 Date Terminated 3
370 - 370 Sterilization 1
371 - 373 Date Admitted 3
374 - 374 Medicaid Ineligible 1
375 - 377 Date Last Medicaid Claim 3
378 - 380 Date Last IV-A Claim 3
381 - 383 Date Last IV-A Certification 3
384 - 387 Permanent Patient Identifier 4
388 - 390 Date Last Pap Smear 3
391 - 391 NCHS Visit Ever 1
392 - 392 Pap Smear Result
Activity Status 1
393 - 393 Jan 1
394 - 394 Feb 1
395 - 395 Mar 1
396 - 396 April 1
397 - 397 May 1
398 - 398 June 1
399 - 399 July 1
400 - 400 August 1
401 - 401 Sept. 1
- 129 -
Field Location
(Bytes) Field Name No. of Bytes
1 402 - 402 Oct.
403 - 403 Nov. 1
404 - 404 Dec. 1
405 - 410 Filler 6
3.0 DATA PROCESSING CAPABILITIES IN THE STATEWIDE PROGRAMS
A survey of state data processing capabilities was conducted in order
to determine the readiness of each state to participate in the Regional
Data Network. The results of this survey are displayed below. They are
definite indication that all of the states in Region IV would now be able
to provide the kind of data necessary for successful implementation of
the RDN. The only state which does not yet have an operational computerized
information system for family planning is Florida (a fact which explains
Florida's non-response to some of the procedural questions); however, the
Florida system has recently been approved and is expected to be firmly in
place in approximately eighteen months.
The information displayed below is presented as it was reported by
the various states.
1. Name of Computer Services Management Division
Ala. Public Health Department
Fla. Health Rehabilitative Services Data Center
Ga. Department of Administrative Services
Bureau for Computer Services, Executive Dept. for Finance
& Administration
Miss. Central Data Processing Authority
N.C. Administration Computer Center Staff
S.C. Department of Health & Environmental Control
Tenn. Information System Services Division, )ept. of Finance
& Administration
2. Type and Model of Computer
Ala. UNIVAC - 9480
Fla. Burroughs B-6700
Ga. IBM 360/50
IBM 370/158 (2)
IBM 1800
DEC PDP-ll (2)
UNIVAC 1110
2. Type and Model of Computer (continued)
Ky. IBM 370/168
Miss. IBM 370/155
N.C. IBM 370/158
S.C. Mohawk 2400 (As terminal to IBM 370/45 at S.C. Dept. Mental Health)
Tenn. IBM 370/158
IBM 370/165
3. Operating Systems
Ala. OS/4
Fla. MCP
Ga. OS/VS-1 (370/158)
MPX (1800)
STANDARD (PDP-11)
EXEC 8 (UNIVAC)
Ky. OS/MVT R 21.8 HASP. X 4
Miss OS/MVT
N.C. OS/VS-1
S.C. OS/VS-1
Tenn. HASP-OS-Shared Spool
4. Hours of Operation
Ala. 8 am - 5 pm Monday - Friday
Fla. 20 hours/day
Ga. Around the clock except for a few holidays
1_(L. 24 hours/day
Miss. Continuous
N.C. 24 hours
S.C. Mohawk 8:30 am - 8:30 pm; IBM 24/hrs/day
Tenn. 24 hours/day, 7 days/week
5. Mean Time Between Failures
Ala. N/A
Fla. Unknown
9
5. Mean Time Between Failures (Continued)
Ga. Essentially not a problem: unimportant
Ky. 148 hours netting 4 hours down/month
Miss. Negligible
N.C. 24 hours
S.C. Very infrequent
Tenn. Unknown
6. Tape Drives:
# Drives BPI # Tracks Model
Ala. Uniscrvo VI-C 3 800 9
Fla. B-9393 14 1600 9
B-9392 2 1600
Ga. 3420 33 800 & 1600 9
2400 8 800 & 1600 9
UNIVAC 6 800 & 1600 9
Ky. 3400 MDL 3+6+7 20 200, 556, 800, 1600, 6250 7 &
Miss. 3420 12 1600 9
N.C. STC 3450
.
800 9
STC 3470 )
10
1600 9
S.C. 3420 5 800 & 1600 9
Tenn. 3400-3 16 800 & 1600 9
7. Disks:
Model Number of Units Storage Capacity/Unit
Ala. UNIVAC 2414 3 29MM
Fla. B9472 9 60 million bytes
Ga. IBM 360/50 standard
UNIVAC 8440 8 il
IBM 2311 1 u
IBM 2314 15 ,,
ITEL 7330 30 11
Ky. 3330-1 38 200 million bytes
7. Disks: (Continued)


Model Number of Units Storage Capacity/Unit

Miss. 3330 32 46 million bytes
N.C. Calcomp 230 22 100 million bytes
S.C. IBM 3330 8 100 million bytes
Tenn. IBM 3330 50 100 million bytes
8. Optical Form Reader:
Model Number of Units Speed
Ala. None
Fla. None
Ga. IBM 1288 1 Variable
1Sx. IBM 1288 1
Miss. None
N.C. None
S.C. IBM 1232 1 800/hr max
Tenn. None
9. Line Printers:
# Printers Speed Characters/Line Model
Ala. UNIVAC 0768 1 1100 1pm 132
Fla. B-9243 4 1100 1pm 132
Ga. 1403-N1 4 1100 1pm 132
UNIVAC 770 1 2000 1pm 132
3211 4 1400 1pm 132
y. 3211-1 3 2000 1pm 133
Miss. 1403-N1 2 1100 1pm 133
N.C. 1403 4 1200 1pm 132
S.C. Mohawk 5346 1 750 1pm 132
Tenn. 3211 3 2000 1pm 133
10. Card Readers:
# Readers Speed Model
Ala. UNIVAC 0716 1 600 cpm
Fla. B-9112 2 1400 cpm
Ga. 2540 2 1000 cpm
3540 2 1000 cpm
UNIVAC 1004 1 400 cpm
Ey. 3505 1 1000 cpm
Miss. 2540 1 1000 cpm
2501 1 600 cpm
N.0 2540 1 1000 cpm
2501 1 600 cpm
S.C. Mohawk 1 300 cpm
Tenn. 3525 2 800 cpm
11. Card Punch:
It Punches Speed Model
Ala. UNIVAC 604 1 300 cpm
Fla. None
Ga. 2540 2 1000 cpm
3540 2 1000 cpm
UNIVAC 1004 1 400 cpm
Ky. 3525 1 300 cpm
Miss. 2540P 1 300 cpm
N.C. IBM 2540 1 300 cpm
S.C. None
Tenn. 3505 2 300 cpm
12. Communications Equipment:
Model # Terminals Speed
Ala. None
Fla. None
Ga. Courier 40 2400 band
U100 10 9600 band
12. Communications Equipment: (Continued)
Speed
Miss.
Model # Terminals
3-3705
None
Supporting RJE, Video Inquiry, IMS
N.C. IBM 3270 50 2400 band
Memorex 2741 16 1200 band
TCI 2740 8 600 band
S.C. Mohawk 2400
simulating
360/20 1 4800 band
Tenn. CCI Computer
CC70 35 lines
13. Plotter:
Model # Plotters
Ala. None
Fla. None
Ga. None
Ky. None
Miss. None
N.C. None
S.C. None
Tenn. None
14. Microfiche:
Model
Ala. None
Fla. None (except in Archives Division)
Ga. None
Ky. None
Miss. None
N.C. Quantor 105 (COM)
S.C. None
Tenn. Stromberg - Carlson
15. Software
Language(s) Used for Family Planning Program:
Ala. COBOL
RPG
BAL
Fla. COBOL
Ga. COBOL
BAL
K. COBOL
FORTRAN
PL/1
Miss. COBOL
N.C. COBOL
S.C. COBOL
Tenn. COBOL
16. Software Packages Used for Family Planning Program
The following states reported the use of a vendor-supplied package in
support of the family planning program:
Fla. BASIS
Ky. SAS
S.0 QUIKJOB II
Tenn. SPSS
17. Time Between Receiving Form(s) and Delivering Reports
Ala. 3 days
Fla. System not yet operational
Ga. No answer
Ky. Forms received weekly with 6-day lapse at closing of month.
Reports delivered on 20th.
Miss 15 days
N.C. 2 to 5 weeks
S.C. 2 days after monthly cutoff
Tenn 2 weeks
18. Time Between Request for Minor Programming Changes and Implementation
Ala. No set time
Fla. System not yet operational
Ga. No answer
Ky. 4 to 6 weeks
Miss. Generally less than 30 days
N.C. 4 weeks
S.C. 1 week
Tenn. 4 to 6 weeks
19. Time Between Request for New Programming and Printed Report
Ala. No set time
Fla. System not yet operational
Ga. No answer
Ky. 3 months
Miss. Variable
N.C. 2 months
S.C. 1 to 4 weeks depending on completely
Tenn. 6 to 12 weeks
20. Percent Error of Input Documents
Ala. Unknown
Fla. System not yet operational
Ga. No answer
Ex . 15%
Miss. <1%
N.C. 5% (unprocessable errors)
S.C. 7%
Tenn. 2%
21. How are Errors Handled?
Ala. They are corrected & reprocessed
Fla. System not yet operational
Ga. No answer
- 138 -
21. How are Errors Handled? (Continued)
Error listings are distributed to clinics; forms resubmitted to
correct files.
Miss. No answer
N.C. Most errors are corrected at the service site according to the
edit list generated by the system
S.C. Incorrect forms are mailed directly back to the clinic completely
the forms.
Tenn. Corrected in F.P. office or returned to clinics
22. Do You Offer Customized Reports?
Ala. Yes
Fla. System not yet operational
Ga. No answer
Ky. No
Miss. Yes
N.C. Yes
S.C. Yes
Tenn. Yes
23. Do You Have Cost Data Capabilities?
Ala. Yes
Fla. System not yet operational
Ga. No answer
Ky. No
Miss. No
N.C. No
S.C. Yes
Tenn. Yes
24. Are Your Forms Readily Available?
Ala. Yes
Fla. System not yet operational
Ga. No answer
Ky. Yes
24. Are Your Forms Readily Available? (Continued)
Miss. Yes
N.C. Yes
S.C. Yes
Tenn. Yes
25. Are Additional Types of Reports Available on Request?
Ala. Depends on type of report requested
Fla. System not yet operational
Ga. No answer
Ky. Yes
Miss No
N.C. Yes
S.C. No
Tenn. Yes
26. Are Simple Statistical Measures Used in Reports?
Ala. No
Fla. System not yet operational
Ga. No answer
Ky. Yes
Miss. No
N.C. Yes
S.C. Yes
Tenn. No
27. Are Graphic Techniques Included in Reports?
Ala. No
Fla. System not yet operational
Ga. No answer
Ky. No
Miss. No
N.C. No
S.C. No
Tenn. No
- 140-
4.0 CURRENT REPORTING CAPABILITIES AND TECHNIQUES
The reporting capabilities and techniques outlined in this section
of the report are ones currently employed by the state family planning
information systems within Region IV.
Section 4.1 provides a detailed listing of the responses given by
state personnel to questions about the availability of various selected
report formats in their individual state systems. The pattern of responses
imply the existence of informal criteria used by state administrators to
determine the usefulness of particular types of reports, and these patterns
should be duly assessed as part of the work of specifying the new reporting
capabilities which are to be made a part of the Regional Data Network.
Section 4.2 presents a discussion of monitoring and evaluation strategies
that should be considered during the course of developmental work on the RDN.
Although the basic characteristics of the evaluation methodologies used to
evaluate the family planning program in Region IV are by now well established,
there is still every reason to consider typical alternative methodologies,
so that the Regional Data Network can be designed to accomodate any future
changes in program philosophy, policy or procedure. This consideration is
considered critical, for along with the space-time dimensions of reporting
formats and reporting cycles is needed that extra dimension of reporting
flexibility fundamental to the total configuration of any reporting system
is to be responsive to a changing environment and changing needs.
4.1 SURVEY OF REPORTING ELEMENTS
The following table displays the results of a survey of current
reporting capabilities in each of the statewide family planning programs
within Region IV. The purpose of the survey was to obtain the informa-
tion necessary for a review of existing evaluative management tools used
by the state programs, so that any reporting procedures or formats of
special interest might be incorporated into the Region IV Data Network.
The entries are coded as follows: "A" means that the designated
report type is currently available in the statewide program; "B" means
that the designated report type is not currently available, but could be
made available if it were desired; "C" means that the designated can not
be made available, because the information which would be required to
produce the report either is not collected or is not entered into the
state's computerized family planning information system.
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn.
1. Accumulative Patient Profile A B A B A B A C
2. Patient Services - All Patients A A A A A A A C
3. Patient Services - New Patients A A A A A A A C
4. Patient Services - Return Patients A A A A A A A C
5. Clinic Services - Program Contacts B C C A C A A C
6. Patient Contraceptive Summary A A A A A A A C
7. Family Planning Desires C C C C C C C C
8. Education & Employment A C C A C C A B
9. Economics A C C A C C A C
10. Community & Social Services C C C C C C A C
11. Service Group Potential C A C C C C C C
12. Patient Parity by Age A C B A C C A A
13. Patient Problem Disposition C C B A A B C C
14. Physical Exams & Lab Services -
New Patients A C B B C A A C
15. Physical Exams & Lab Services -
Return Patients A A B B A A A C
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn.
16. Lab Test Results - All Patients C C C A A C A C
17. Outreach Follow-up C B C C C A A C
18. Patient Dropout Analysis A C B C C B A C
19. Master Patient A A A A A A A A
20. Patient Appointment List B A A A A A C A
21. Missed Appointment/Overdue
Patient List B C B B A A A A
22. Patients by Visit Type A C B A A A A B
23. Patients by Services Provided A C B A A A A B
24. Patients by Visit Type and
Services Provided A A A A A A A B
25. Patients by Age, Race, and
Sex A A A A A A A B
26. Patients by Age, Race and
Method A C A A A A A B
27. Patients by Income, Parity,
Method and Race A C B A B A A C
28. Problem Visits by Type, Method
and Age B C C B C A B C
29. Patients by Marital Status, Parity,
Age and Method B C C A B B A B
30. Patient Contraceptive History by
Last Method, Present Method,
Problem Visit Type B A C C C B B C
31. Patients on Medicaid and Public
Assistance A C C A B B A A
32. Public Assistance Patients by
Parity, Race, Age and Method A C C B B B B B
33. Source and Number of Third-Party
Reimbursements A A C B B A C B
34. Patient Breakdown by Target Area A C B C C A A C
35. Patients by Education & Employment
Status B C C A C C C C
36. Discontinuation and Retention Rates
by Age, Marital Status Method A C B B C B A C
37. Employment Status by Income
and Parity A C C C C C C C
38. Patient Payment Analysis C C C C C C C C
39. Cost Analysis by Seniors - Number
and Type of Examinations and
Prescriptions Provided C C C C C C C C
40. Patient Encounters Per Physician
(per period)
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn.
A C C C C C B C
41. Program Cost Breakdown by a
Functional Cost B C C C C C B C
42. Third Party Reimbursement Analysis
by Type and Number of Patients A C C C C A B C
43. Cost Analysis by Type of Method
Per Encounter B C C C C C B C
44. Patient Service Costs by Services
Provided B C C C C C C C
45. Laboratory Examination Costs Per
Patient and Method B C C C C C C C
46. Average Number of Total Encounters
Per Total Patients by Services
Provided A C C C C A C C
47. Average Time of Encounters Per
Services Provided C C C C C C C C
4.2 MONITORING AND EVALUATION STRATEGIES IN THE RDN
In reviewing the literature related to the goals and objectives
of family planning services it is evident that there is considerable
diversity in the measures and criteria being used for monitoring and
evaluation. In its present state the Quarterly Monitoring Chart (QMC)
reflects which program aspects are currently receiving priority attention
in Region IV. It is unlikely, however, that the QMC (or any states
reporting format) includes in its scope of interest all those aspects
of the family planning program which it will be desirable for a Regional
Data Network to give attention. The constraints on the present informa-
tion system may also be such that some data are collected more for their
availability than for their evaluative potency.
For these reasons, the occasion of planning a new information system
may be an opportunity for program administrators at every level to recon-
sider the content of the system's monitoring and evaluation measures and
to determine whether there is a need for additions or deletions to the
system. To take advantage of this opportunity, an annotated bibliography
has been included as part of this working document (section 7.0) with
the intention of providing the setting in which it will be possible to
conduct a critical review of the content of the information system.
Data is both expensive and time-consuming to collect and process.
It is only sensible that the system should enter only those input elements
which serve a clear and demonstrable information purpose. The reporting
capability of any system is always secondary to its reporting needs. Once
these are identified, a positive linkage is easily made to the specific
data to be collected by the system. Reporting out the the information
in the data base in meaningful and communicative reports then becomes
a technical responsibility which is relatively simple to execute.
* * * * *
In order to assess the extent to which the computerized information
systems supporting the statewide family planning programs contain the kind
of information typically required to compute monitoring and evaluation
measures, three evaluation methodologies have been reviewed, and attempts
have been made to determine whether the contemplated measures are derivable
from the information bases of the current state systems. The three metho-
dologies chosen for this review were: Region IV's Quarterly Monitoring
Chart; an evaluation design proposed by the Family Planning Evaluation
Institute; and a design developed by the National Family Planning Forum.
In the following presentation, the measures employed by each metho-
dology are numbered consecutively; these same numbers are then repeated
in a corresponding table developed to show whether or not the desired
measure can be obtained by manipulating each particular state's data base.
MEASURES USED BY QUARTERLY MONITORING CHART
1. Size of FY1974 Budget: $ Estimated Total
2. Size of FY1974 Budget: $ Provided by NCFPS
3. Size of FY1974 Budget: $ Expected from Third Party Payments
4. Size of FY1974 Budget: $ Other (specify)
5. Total Number of Contraceptive patients to be served during FY1974
6. Expected number of active contraceptive patients on July 1, 1974
Female Patient Data

7. Unduplicated Number of New Contraceptive patients.
8. Unduplicated Number of Continuing Contraceptive patients.
9. Total Unduplicated Number of Contraceptive patients
10. Total No. of Active Contraceptive Patients in the program.
11. Sterilizations
a. Total No. of Female Sterilizations this quarter
b. Number of Sterilized Patients in active caseload
12. Total Number of "Other Patients"
13. Total Female Patient Visits:
a. Annual Exam (including initial visits)
b. Medical Revisits (not included in (a) above)
c. Supply visits only
d. Encounters
Male Patient Data
14. Total Number of Vasectomies
15. Number of Encounters (e.g., receiving condoms or counseling)
16. Number of Males Receiving Other Medical Services, e.g. infertility ,
Personnel Data
17. Number of Vacant Positions During the Quarter
18. For Each Vacant Position Included in (1) Above
a. Title
Annual Salary
% of Time Budgeted Per Year?
Length of Vacancy (in months)
Reason for Vacancy
b. Title
Annual Salary
% of Time Budgeted Per Year?
Length of Vacancy (in months)
Reason for Vacancy
Clinic Information
19. Total Number of Clinic Hours Per Week
20. Number of clinic hours per week where medical family planning services
are provided by a physician, nurse-midwife, or nurse practitioner
21. Number of weekly medical clinic hours or clinicians (included in #2
above) added this quarter
Third-Party Data
22. Number of women aged 15-44 residing in your project area who are registered
for Medicaid and/or public assistance
23. Number of women who are registered for Medicaid and/or public assistance
(included in #1 above) who are active patients in any family planning
clinic in the project area, regardless of the clinic's source of funds.
24. Number of patients for whom you received reimbursements this quarter:
a. Females
b. Males
25. Number of patients seen in quarter for whom third party reimbursements
have been claimed or submitted but not yet received.
26. Total third party funds received in this quarter
27. List all source(s) and total amount ($) received:
a. Title XIX
b. Title IV-A
c. Patient fees
d. Other (specifiy, e.g., private insurance, sale of contraceptives)
Expenditures
28. Total funds expended this quarter.
29. Total Federal Funds Expended:
a. NCFPS funds
b. MCHS funds
c. Third Party
d. Other (specify)
30. Total Non-federal funds expended this quarter (specify source)
31. Projected NCFPS expenditures and obligations for next quarter
32. Number of Sterilizations Funded by NCFPS Project Monies (grant or
matching monies):
a. Total
b. Persons younger than 21
c. Mentally incompetents
Additional Information
33. Note any characteristics of your program which might affect the inter-
pretation of specific items or all of the data presented in this chart.
34. Identify any areas of your program which need special emphasis, technical
assistance or consultation:
COMPUTERIZED DATA AVAILABLE BY
CHART QUARTERLY MONITORING
QUESTION # ALA. FLA. GA. KY. MISS. N.C. S.0 TENN.
NO NO NO NO NO NO NO NO
2 NO NO NO NO NO NO NO NO
3 NO NO NO NO NO NO NO NO
4 NO NO NO NO NO NO NO NO
5 NO NO NO NO NO NO NO NO
Female
Patient 6 NO NO NO NO NO NO NO NO
Data 7 YES YES YES YES YES YES YES YES
8 YES YES YES YES YES YES YES YES
9 YES YES YES YES YES YES YES YES
10 YES YES YES YES YES YES YES YES
lla YES YES YES YES NO YES YES YES
b NO NO YES YES YES YES NO YES
'12 YES YES YES YES YES YES YES NO
k
QUARTERLY MONITORING CHART
(Continued)
QUESTION # ALA. FLA. GA. KY. MISS. N.C. S.C. TENN.
Female 13a NO NO NO YES YES YES YES YES
Patient YES YES NO YES YES YES YES YES
Data YES YES YES YES NO YES YES YES
NO NO NO NO NO YES NO NO
Male 14 YES YES YES YES YES YES YES YES
Patient 15 YES YES YES YES YES YES YES YES
Data
16 YES YES YES YES YES YES YES YES
Peron- 17 NO NO NO NO NO NO NO NO
Data 18 NO NO NO NO NO NO NO NO
19 NO NO NO NO NO NO NO NO
Clinic 20 Info. NO NO NO NO NO NO NO NO
1 NO NO NO NO NO NO NO NO
22 NO NO NO NO NO NO NO NO
23 NO NO NO NO NO NO NO NO
Third
Party 24 NO NO NO NO NO NO NO NO
Data 25 NO NO NO NO NO NO NO NO
26 NO NO NO NO NO NO NO NO
27 NO NO NO NO NO NO NO NO
28 NO NO NO NO NO NO NO NO
29 NO NO NO NO NO NO NO NO
Expendi
tures
30 NO NO NO NO NO NO NO NO
31 NO NO NO NO NO NO NO NO
32 NO NO NO NO NO NO NO NO
Add.
Info. 34
{33 NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
NO
MEASURES USED BY FAMILY PLANNING EVALUATION INSTITUTE
Inputs
1. Total costs
2. Costs by service unit or activity
3. Personnel costs - total, by service unit or activity
4. Personnel costs - total, by service unit or activity
Outputs
Project
5. Total contacts
6. Total number of visits
7. Total number of individuals contacted
Recruitment
8. Number of recruitment contacts
9. Number of recruitment visits
10. Number of individuals visited for recruitment
Medical Services
11. Number of medical contacts
12. Number of medical visits
13. Number of medical patients served
Follow-up
14. Delinquent patient followup contacts
15. Number of delinquent patient followup visits
16. Number of delinquent patients visited for followup
Effects
Project

17. Number of active family planning users
a. Number of new family planning users
b. Number of continuing family planning users
c. Number of discontinued family planning users
18. Number of months use
Recruitment
19. Number of individuals recruited
Medical
20. Number of active patients
a. Number new patients
b. Number continuing patients
c. Number discontinued patients
Recruitment
21. Number of followup patients who kept appointments
Cost-Effect
Project
22. Total cost per total visits
23. Total cost per active family planning user
24. Total recruitment costs per individual visited for recruitment
25. Total recruitment costs per individual recruited
Meaical
26. Total medical costs per-medical patients served
27. Total medical costs per active patient
Followup
28. Followup costs per delinquent patient visited
29. Followup cost for delinquent patient who kept appointment
Output
30. Total or weighted clinic visits
Cost-Effect
31. Total cost per contraceptive months
32. Service cost per weighted new and continuing patient clinic visits
Impact
33. Contraceptive effectiveness, total and by type
34. Unwanted pregnancy rate
COMPUTERIZED DATA AVAILABLE FOR FPEI
QUESTION # ALA. FLA. GA. KY. MISS. N.C. S.C. TENN.
1 NO NO NO NO NO NO NO NO
2 NO NO NO NO NO NO NO NO
3 NO NO NO NO NO NO NO NO
4 NO NO NO NO NO NO NO NO
5 NO NO NO NO NO YES NO NO
6 YES YES YES YES YES YES YES YES
7 NO NO NO NO NO YES NO NO
QUESTION #
8
9
10
11
12
13
14
15
16
17a
b
c
18
19
20a
b
c
21
22
123
24
Cost 25
Effect?
26
27
28
.`.-29
30
31
32
33
34
(Continued)
ALA. FLA. GA. KY. MISS. N.C. S.C. TENN.
NO NO NO NO NO NO NO NO
NO NO YES YES NO NO YES YES
NO NO YES YES NO NO YES YES
NO NO NO NO NO NO NO NO
YES YES YES YES YES YES YES YES
YES YES YES YES YES YES YES YES
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO YES NO NO
YES YES YES YES YES YES YES YES
YES YES YES YES YES YES YES YES
NO NO NO NO YES YES NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
YES YES YES YES YES YES YES YES
YES YES YES YES YES YES YES YES
NO NO NO NO NO YES NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
YES YES YES YES YES YES YES YES
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
NO NO NO NO NO NO NO NO
YES YES YES NO YES YES YES NO
MEASURES USED BY NATIONAL FAMILY PLANNING FORUM
Size and Growth

1. Total Patients seen during year (sum of new and continuing patients)
2. Total new patients seen during year (sum of all initial visits)
3. Active patients at end of year
4. Total patient visits during year (sum of all visits by all patients,
i.e., initial, annual examination, revisits, and supply visits)
Composition
5. Total patients broken down by:
Age
Income
Number of children
Color
Quality and Accessibility
6. Number of all patients using pill, IUD or voluntary sterilization at
last visit.
7. Number of patients who received each of five core medical services
(Pap, breast and pelvic exams, VD screening, blood test) at least
once during year
8. Total clinic hours (with MD or equivalent present) at night, on weekends
and other times.
9. Number of days (or weeks) of waiting time for appointment.
10. Average time spent at clinic session per new (and annual examination)
patient
Administration, Management and Efficiency
11. Total prograin budget, by source of funds:
12. Number of patients (not visits) whose services are reimbursed by
a. Medicaid
b. IV-A; or
c. other third party
13. New patients recruited by program personnel
14. Overdue patients reactivated after follow-up contact
Derived Program Statistics
15. Unmet Need = DPV Formula (period estimate) - total patients
16. Continuing patients = Total patients - new patients
17. Dropouts (or closures) = Total patients - [active + inactive] patients
18. Absolute program growth = Total patients this year - total patients
last year
19. Relative program growth = Total patients this year -
total patients last year X 100 Total patients last year
COMPUTERIZED DATA AVAILABLE FOR NATIONAL FAMILY PLANNING FORUM
QUESTION # ALA. FLA. GA. KY. MISS. N.C. S.C. TENN.
1 YES YES YES YES YES YES YES YES
2 YES YES YES YES YES YES YES YES
3 YES YES YES YES YES YES YES YES
4 YES YES YES YES YES YES YES YES
5 YES YES YES YES YES YES YES YES
Income NO NO NO YES NO YES YES NO
6 YES YES YES YES YES YES YES NO
7 YES YES YES YES NO YES YES YES
8 NO NO NO NO NO NO NO NO
9 NO NO NO NO NO NO NO NO
10 NO NO NO NO NO NO NO NO
11 NO NO NO NO NO NO NO NO
12a NO NO NO NO NO NO NO NO
b NO NO NO NO NO NO NO NO
c NO NO NO NO NO NO NO NO
13 NO NO NO NO NO YES NO NO
14 NO NO NO NO NO YES NO NO
15 NO NO NO NO NO NO NO NO
16 YES YES YES YES YES YES YES YES
17 YES YES YES YES YES YES YES YES
18 NO NO NO NO NO NO NO NO
19 NO NO NO NO NO NO NO NO
5.0 REGIONAL DATA NETWORK REQUIREMENTS
This section changes the direction of the study from an analysis of
what already exists (in the current state family planning information systems
in Region IV) to a review of alternatives for the future (in the context of
a fully realized Regional Data Network). These are the alternatives among
which choices need to be made as the project continues into its next phase.
A general design of the proposed network is set forth tentatively in
section 5.1. Although virtually every aspect of that design is subject to
change, the presentation of a single paradigm system serves the highly useful
purpose of providing a setting and a focus for further analysis.
Section 5.2 begins to modulate the discussion by switching to a lower
level of analysis: the level of alternative reporting capabilities suitable
for the contemplated system. The material presented in this section will
require priority attention by the appropriate administrators.
Section 5.3 tracks
formulation of a data base
to generate reports of the
Since information which is
base will not be available
linkages between data base
the section it follows by attempting a preliminary
design capable of providing the information necessary
type and scope specified in that previous section.
not available to and suitably formatted in the data
for reports, it is essential to understand the
design and general reporting requirements.
Section 5.4 explores software considerations which need to be reviewed
and assessed in conjunction with the further development of the overall system
design. Included are discussions of a variety of commercially available soft-
ware packages which might appropriately be used: report generators, data base
management systems, and statistical packages.
Section 5.5 concludes this preliminary evaluation of the requirements
of the Regional Data Network by setting the stage for discussions on the appro-
priate roles for the various components of the network at state and regional
levels.
5.1 GENERAL SYSTEM FEATURES
The purpose of this section of the working document is to offer a
general description of a proposed Regional Data Netowrk. In reviewing
this description, one should understand that it intentionally glosses
over a number of alternative configurations or procedures which would
be possible with regard to various aspects of the system design. (Con-
sideration of some of the more important of these alternatives is deferred
to section 6.0 of this report.) Rather, the present intent is to provide
a basic paradigm for review and discussion, a paradigm which can be used
in conference to explore the central issues of the function and design of
the proposed network.
The general system description on the following page shows that the
RDN will place almost no additional burden on the states. Their contri-
bution will consist essentially of monthly tapes generated as a byproduct
of the current processing activities and a small amount of additional
information pertaining to their state plan. Other input to the system
will be derived from NCHS and Census Bureau data. The end result will be
an integrated data base comprised of Region IV patient, demographic, fiscal,
facilities, and state plan data -- a data base upon which appropriate trans-
formations can be made to yield management- and evaluation-oriented graphs,
maps, charts, and statistical tables.
A more detailed view of the RDN is presented in the system flowchart.
This flowchart is divided into six operational sections and twenty-five blocks.
The first section, which can be thought of as a conversion section, is where
census data are transformed into a card file; updated information related to
target population is read off appropriate documents and punched into a card
file (as often as appropriate); and all information referring to state family
planning fiscal operations and clinic operations is punched into a card file.
Thus at the end of this section there are card files, two of which are ready
for use by the master control program (the census data file and the census
update file) and the third of which is ready for the master file update program
(state fiscal and facilities data).
NCHS CENSUS
Fiscal/Facilities
Data
Demographic
Data
MANAGEMENT
INFORMATION
SYSTEM FOR
REGION IV FAMILY
PLANNING SERVICES:
* Patient Data
* Demographic Data
* Fiscal Data
* Facilities Data
* State Plan Data
Patient
Data
State Plan
Data
Operating-Level Reports
GENERAL SYSTEM DESCRIPTION
Clinic State
MANAGEMENT TOOLS FOR REGION AND STATES:
Graphs, Maps, Charts, and Statistical Tables
- 157 -
The second section of the flowchart takes the state fiscal and
facilities card file and feeds it into the master update program along
with a tape file containing detailed information on patients, clinics,
and state fiscal operations (produced by the master control program on
the previous run, or nonexistent if this is the first run) and the eight
patient data tape files from the eight states. These three files are then
merged in the master update program to produce a new updated file; this
"new master" tape file is then ready for use as input by the master control
program.
The third section is the master control program itself. Written in
standard COBOL, this program takes as input the census data card file, the
census update card file, and the master tape file. With these three files
it does the following:
1. Merge the census data file and the census update file to produce a
disk data file that contains data to be used by the density target
population map program.
2. Produces a disk data file that contains data for the plot program.
3. Produces a disk data file containing data for the statistical analysis
program.
4. Produces a lengthy, a highly detailed summary of all information on
patient data, clinic data, state fiscal data, and demographical data.
5. Produces an "aggregated" master tape file. This tape file will be
used by a special option of the master control program to produce trend
analyses.
Although a new detailed master tape file appears to be produced, in
reality it is the same tape file that was produced by the master file update
program. It is saved and used in the next production run by the master file
update program to help produce a new detailed master tape file.
The fourth section is where the density target population map program
takes the map data disk file (produced by the master control program) and
produces density maps of each state (by county) and of Region IV (by state).
The fifth section of the system flowchart is where the plot data disk
file (produced by the master control program) is used by the plot program
to produce bar graphs (state comparison over period), three-dimensional
graphs, and pie graphs. It should be noted that an off-line device (Calcomp
plotter) is used in the actual production of graphs. The program referenced
here only creates instructions for the plotter.
The sixth and last section is where the statistical analysis program
uses the statistical data disk file to perform a detailed statistical
analysis report.
Thus the entire production run yields the following output:
1. Density target population maps by county and state.
2. A detailed report summary of all region data.
3. A statistical analysis report.
4. Bar graphs, pie graphs, and three-dimensional graphs.
5. Detailed master tape file (to be updated in next production run).
6. Aggregated master tape file (to be used later for trend analysis).
7. Census data card file.
The major sections of the master control program are depicted in the
six pages of flowcharts which conclude this chapter of the report. These
subprograms may be briefly described as follows.
The Master-File-Setup Section
In this section, the state planning, state fiscal, state facilities
card data files and the old detailed master and the new patient tape data
files are input into a merge and edit routine. This routine will perform
an extensive series of error checks to determine the validity of all data
and thereby optimize processing time. After all checks are completed this
section of the program will merge all data into a well-formated new detailed
master tape file. This tape will be used extensively by all other sections
of the program and will be updated by the master-file-setup section during
the next processing run.
The Map-Production Section
This section first takes the Census (Old) card data file and the
Census (Update) card data file and merges them into a Census Data disk
file. The newly created Detailed Master tape file (created in section I
of this program) is then rewound and any data related to the production of
maps is read out of it. Next this and the Census Data disk file are pro-
cessed to produce yet another disk file--the Map Data file. The mapping
routine itself is then started and density target population maps are
produced on the line printer. Since this routine (the mapping routine)
is written in COBOL it will be incorporated directly into the master control
program as opposed to the plot and statistical analysis routines which shall
be left as distinct programs due to their different language types.
The Plot-Production Section
Here the Detailed Master tape file is scanned for all plot-related
data. This data is then inputted into a routine which produces a Plot
Data disk file. The actual plot program is then initiated and independently
synchronously processed.
The Statistical-Analysis Section
This section is processed exactly like the previous Plot-Production
section with the only differences being that the Detailed Master tape file
is scanned for statistical-related rather than plot-related data and that
the statistical analysis program is initiated instead of the plot program.
It should be noted that at this point the computer is working on three tasks:
the Master Control Program, the Plot Program, and the Statistical Analysis
Program. All tasks are at this point completely independt of one another.
This method of processing is much faster than if these tasks had to be per-
formed serially.
The Report-Summary Section
Here is where all data from the Detailed Master tape file is summarized
and written in report form.
The Aggregated-Master-File-Production Section
Here the Detailed Master tape file is read for the last time. Its
data is heavily edited and summarized in the production of the Aggregated
Master tape file. The program then closes and saves all files.
The following three options will be available on each run:
1. Full Production Run. Run is exactly as is outlined above.
2. Single State Run. Run is done exactly as above with the following
exception: Run is made for only one state rather than all eight.
Aggregated Master tape file is not produced.
3. Trend Analysis Run. In this run the sole input source is the collected
Aggregated Master tape files of previous time periods. A trend analysis
is then performed which will produce maps (one set for beginning of
period and another for end of period); slightly differently formated
graphs; a statistical analysis; and summarized reports.
NEW
PATIENT
DATA
/ OLD
DETAILED
MASTER
FILE
NEW STATE
FISCAL AND
FACILITIES D
CENSUS
DATA
CENSUS
UPDATE
DATA
PLOT
PROGRAM
NEW
DETAILED v.
/ MASTER j
7\ r
,/ I II DATA STATISTICAL
I \
STATISTI-
CAL
ANALYSIS
PROGRAM
CALCOMP
PLOTTER
INST RUC-
TIONS
DENSITY
TARGET
POPULATION
MAP
PROGRAM
DENSITY
NAPS
AGGREGATE!),
MASTER
FILE
MASTER
CONTROL
PROGRAM
STATIST [CAI 1
ANA Lei S I S
--
EAR GRAPHS 1
P E CRAPES
L'I{REE DIH7N C,RAPH'),
SUMMA RY
SYSTEM FLOWCHART
CURRENT
; INFORMATION
(CENSUS
LATED)----"
NEW STATE
FISCAL AND
FACILITIES
DATA__/?
?
/1
TER
FILE UPDATE
PROGRAM
N
CENSUS
DOCUMENTS
? 162 ?
OLD
DETAILED
MASTER
THE MASTER-FILE-SETUP SECTION
?,"
7 NEW
DETAILED
KIASTER
THE MAP-PRODUCTION SECTION
1
PRODUCE
MAP S
/
'/ ''...,,,, jk. IRIAEAPD
RELATED INFO
READ
CENSUS
-7\ )MAP
l DATA 1
MAPPING
ROUTINE
DETAILED
MASTER
READ
PLOT
RELATED
INFO
THE PLOT-PRODUCTION SECTION

PRODUCE
PLOT PLOT
DATA DATA
THE STATISTICAL-ANALYSIS SECTION
V
CALL
STATISTICAL
ANALYSIS
PROGRAM
READ
TATISTICAL
RELATED
DATA
/ PRODUCE STATISTIC DATA STATISTICAL 10.1 DATA
STATISTICAL
ANALYSIS
PROGRAM
THE REPORT-SUMMARY SECTION
DETAILED\
MASTER
FILE
REPORT
ROUTINE
/ PRODUCE
REPORT
GGREGATE
MASTER
FILE /
THE AGGREGATED
-MASTER-FILE-PRODUCTION SECTION
READ
DETAILED
MASTER
EDIT &
SUMMARIZE
ROUTINE
5.2 REPORTING CAPABILITIES
The ultimate value to the Regional Data Network will hinge on the
system's ability to report, summarize and analyze family planning data
in a timely and relevant manner. To be an effective monitoring and
evaluation tool, the system should be obligated not only to the routine
processing of data descriptive of program service, impact and cost, but
also to the preparation of special reports which the system's users may
require from time to time. As a user-oriented system, it is also mandatory
that the RDN minimize the need for skilled programming in order to access
the data base in response to user requests for special studies.
The Regional Data Network is being designed principally as a manage-
ment information system which will allow administrators at various levels
to make planning and programming decisions on an informed, rational basis.
For this reason the RDN must have the capability to bring together data
of the following types: 1) patient record information; 2) clinic and
provider agency facilities, including manpower and staffing patterns;
3) information related to Specific program objectives and guidelines;
4) budget and fiscal information; and 5) census-type demographic information
of the sub-region service areas. In addition to the problem of designing
a system capable of cross-referencing these various types of information,
extensive consideration must also be given to the task of aggregating the
system's data at several management levels.
This section of the preliminary report is intended to provide the
potential users of the Regional Data Network with a basis for discussing
and shaping the reporting requirements which the data system should be
designed to meet. The objective will be to formulate the entire task in
a manner that all user recommendations can be made with a full awareness
of the practical constraints under which the Regional Data Network must
operate. It is hoped that the final design will be a cooperative effort
from which all parties will benefit and thereby be provided with the moti-
vation to sustain whatever obligations the system's creation and maintenance
may impose on them.
Perhaps the simplest way to develop the issues associated with
identifying a reporting structure for the Regional Data Network is
to begin with a synopsis of the existing systems. Currently each State
maintains a patient-oriented family planning record-keeping system. In
all but one of the states (Florida), this system is already computerized,
and it is anticipated that within a year to 18 months all states in the
region will be using a computerized system. Details on these separate
state systems are given elsewhere in this report. The principal use of
these systems within states is to provide an information base for the
administration and delivery of services. From the point of view of the
Regional Data Network, however, these systems also enable state level
administrators to meet, at least in part, information requests originating
at both the national and regional level. Routine national information
needs are met by providing NCHS with an edited tape of each month's patient
transactions. Program information requested by the regional office is met,
on the other hand, by submission of a quarterly report which asks for data
which is only partially obtainable from the state's patient record data
files. The instrument employed for the regional report is known as the
Quarterly Monitoring Chart (QMC), and its completion by the state family
planning offices currently requires considerable manual effort for both
the collection and reporting of the requisite data. Additionally, there
are occasions when special information requests are made by either the
national or the regional office. The states often experience difficulty
complying with such requests, because the information is either not readily
available or cannot be cast easily into the reporting format specified.
The proposed Regional Data Network is not intended to have immediate
impact on the manner in which states report data to the national reporting
system. The national reporting system, however, is important to the Regional
Data Network to the extent that it represents a data base which need not be
duplicated by the proposed regional system.
Of more immediate concern in the development of a viable Regional Data
Network is the current status of the QMC. The implementation of the Regional
Data Network might entirely eliminate the need for this report, because the
Regional Data Network will absorb the present reporting purposes of the
QMC and substitute in its place a reporting procedure that will supply
regional administrators with a substantially enriched information source.
Of particular importance to the regional administrators is the need for
a regional reporting mechanism that permits patient activity information
to be linked with selected clinic, fiscal, and demographic factors. The
obvious benefit of this type of information system is that regional staff
will be able to flag program parameters requiring one or another kind of
administrative attention and to do so in an information-rich context,
with the result that state-level administrators will have specific criteria
against which to develop and evaluate remedial actions.
In moving towards an information system in which family planning
program information may be interpreted more readily for planning, moni-
toring and evaluation purposes, the Regional Data Network will face many
of the same problems encountered by the state and national reporting systems:
for example, the problems of reporting unduplicated counts of patients, of
determining the actual extent of services provided by a clinic "visit,"
making validity checks on the accuracy of reported information, relating
service statistics to an appropriately defined target universe, and
classifying the current activity status of enrolled patients. In design-
ing the Regional Data network, it is anticipated that renewed consideration
will be given to these issues by the respective state systems. While pri-
marily matters of data input, they will critically affect the reporting
capability of the Regional Data Network, and must for that reason be
clarified at least to the extent that data accepted into the regional
network will be equated across states not on the basis of "labelling" but
of "definitions."
Working within the constraints outlined in section 1.0 of this report,
the Regional Data Network proposes to generate a reporting capability that
will make family planning program data available for a variety of adminis-
trative purposes. In designing the system, consideration will be given to
identifying for each report element not only its information content but
the level or levels at which the data will be aggregated, the frequency of
its compilation, the appropriate management and evaluation purposes to be
served, and the specific administrative staff expected to be the primary
users of the information. Generally speaking, the reports generated by
the Regional Data Network will be supplemental to existing state and
national reporting systems. The RDN is expected to replace and consider-
ably enlarge the regional reporting currently performed by the Quarterly
Monitoring Chart. For the most part, reports will be statistical in
nature, but with an emphasis placed on the use of graphs, maps and other
display techniques calculated to enhance the readability of the systems
reports. Tabulations and listings will, of course, comprise the bulk of
the the reports, but careful attentiln will be given to insuring that
reports will have the type of labelling and formatting that will enhance
their communication properties. The design of the RDN will also address
itself to the problem of making its data base easily accessible for special
information requests and queries from users at all administrative levels.
Determination of Specific Reporting Formats
The reporting needs of the Regional Data Network are not too dissimilar
from the purpose for which information is currently being collected at the
state and national level. The Region, however, represents an important
level of data aggregation and analysis, since that is the level to which
the monitoring and evaluation responsibility has been principally assigned.
The Region also represents an administrative entity within which data can
be aggregated across state lines, but in a manner that can benefit indiv-
ual states. For example, county-level data can be examined in terms of
demographic comparisons with minimal danger of individual counties being
identified. It is also true that some program variables can be better
evaluated by aggregations that cut across state lines.
Before considering specific reporting needs, it might be well to
state the goals which typically guide the collection and dissemination
of family planning data. It is not unusual for these goals to be given
as:
1. The provision of statistics on the number and characteristics of
persons receiving family planning services, the size and nature of clinics
and staff, and the services provided by family planning clinics;
2. The provision of data on the use of family planning clinics;
3. The measurement of the continuity and duration of patient service
in the family planning setting;
4. The determination of statistical relationships among clinic users,
services provided, and staff and facility characteristics;
5. The monitoring of fiscal and budgetary variables related to
the provision of family planning services;
6. The identification of trends in the numbers and types of clinics
being operated, the services being provided, and the effectiveness of family
planning clinics in coping with population and health-related social problems;
7. Estimation of the size and characteristics of the population in
need of family planning services, measures of success in contacting this
target population, enrolling and continuing its membership in a family
planning program; and
8. The impact of the family planning program in reducing the dis-
crepancy between intended and actual births in the target population.
In response to these goals of the family planning program, and in the
context of the regional responsibility for monitoring and evaluating, a
number of specific reporting needs suggest themselves for the Regional
Data Network. In presenting these specific reporting needs it is understood
that the issue of their final design and incorporation into the RDN will be
a matter for continuing discussion between the consultants and the family
planning staff at the regional and state level. It is anticipated that
the reporting features suggested here will undergo consideration refinement
before they are adopted, if in fact they are adopted as part of the RDN.
It is also clearly understood that additional report capabilities will more
than likely be included in the system before its design is completed. In
fact, the RDN should remain an essentially open-ended information system,
in the sense that a major feature of its construction should be the capa-
bility of adding and dropping reports even after the network has been
implemented within the region.
Typical Reports (Not an Exhaustive Listing)
Report Label: RDN-ROl
Title:
Description:
Format:
Preparation Cycle:
STATE PLAN RESUME
For each of the eight Region IV States this report
supplies a brief resume of the key features of the
current year's state family planning plan. This
report is intended to replace and amplify the present
face page of the Quarterly Monitoring Chart.
The report heading will include in addition to the
report title, the official name of the project grantee,
the name of the state, the NCFPS and NCHS/SDA project
numbers, and the most recent date of the information
up-date.
Project identification data: address and phone number(s)
of the state family planning office; name, title, and
tenure of key state-level personnel; short history of
sponsorship and existence of state family planning
services; summary of current year's budget; size of
proposed target population and current estimate of
active patient load; number of state districts; number
of counties in state and number of counties participating
in family planning program; number of clinics.
Optional project identification output: density map for
each state showing county level frequency counts for size
of target population, number of active FP patients, number
of potential patients not being served.
For each state a listing of its specific project goals
and objectives will be presented in conjunction with the
precise measures used by the state to evaluate performance
on each objective. Where applicable, a performance stan-
dard or expected value for the criterion measure will be
indicated. A region-wide code will be developed for
program objectives and the report will list objectives
by the following sup-goal levels: a) Outreach/Recruitment,
b) Medical Services, c) Fiscal Management, d) Education
and Training, and e) Social Services.
Input for this report will follow a basic yearly cycle,
with quarterly up-dating. Reports will be produced
quarterly.
Source of Data: Annual Project Plan and Quarterly up-date form.
Report Label: RDN -R02
Title: STATE PERFORMANCE RATINGS
Description:
Format:
Using a combination of region-wide and state-specific
program objectives, a concordance table will be
generated showing the current performance rating
(measured by percent of standard achieved) for each
state on each applicable objective.
Cross-tabulation in which the columns contain the
state names plus an all-state (region) average, and
the rows contain the complete listing of region-wide
and within-state objectives.
Optional output for this report will include a within-
state tabulation of the state-specific objectives,
the state performance rating, the standard or expected
value, and the percent of standard achieved.
Preparation Cycle: Quarterly
Source of Data: Edited Tape of State Patient records, the State Plan
File, the Census Data File, and the Clinic Site File.
Report Label: RDN-R03
Title: STATE BUDGET AND FISCAL STATUS
Description:
Format:
For each state the project budget will be broken
down by federal and non-federal categories in a
table showing the annual amounts budgeted, expendi-
tures to date, balance, and percent of budgeted amount
expended to date. Third party fiscal data will be
presented in terms of anticipated income, income
received to date, balance, and percent of expected
income received.
Table showing each State's budgetary status as
described above, and a summary table crossing each
state against federal, non-federal, and third-party
income totals.
Preparation Cycle: Quarterly
Source of Data: State Plan File, up-date form from state central
office.
In addition to the reports described above, the Regional Data Network
will be expected to describe and analyze a wide variety of family planning
data related to patient services, clinic facilities, and staffing patterns.
The number of specific possibilities for breaking out these data into routine
and special reports is so numerous that it does not seem productive in this
preliminary report to enter into a discussion of particular reports. The
current version of the Quarterly Monitoring Chart clearly indicates that
there is considerable interest at the regional level in obtaining descriptive
summaries, averages, and percentages on a variety of program variables related
to these aspects of Family Planning. It is also apparent that the Regional
Data Network will establish a linkage between county census data and the
patient and clinic files maintained at both the state and national levels.
In general, then, it will be the task of the Regional Data Network to
prepare tables, graphs, and maps that will describe, summarize, cross-tabulate
and correlate patient, clinic, staff and demographic data in a manner that meets
the needs of the various users of the RDN. Aggregation will be carried out at
the county, state district, state, and regional levels, as desired. The
capacity for aggregation that disregards state boundaries will also be possible.
To the extent feasible, the preparation of these reports will be assigned to
statistical packages such as SPSS or SAS. When necessary, however, the con-
tractor will design programs for use at the regional level to provide programs
that will prepare routinely needed reports of these types of data. It will
be the responsibility of the next phase of the project, however, to formulate
the specific report structures. It is felt that this assignment can be carried
out much more effectively once state and regional project staff have had an
opportunity to review the potential of various statistical packages, report
generators and general-purpose data handlers for dealing with the regional
family planning data bases. Such general purpose program packages are
described in section 5.4 of this report. In this respect, the report capa-
bility of the Regional Data Network will not be limited by the available
programming procedures so much as by the structure of the data files. By
this is meant that the program packages will allow almost any type of pro-
cessing the user desires, restricted only by the availability of the necessar
input data.
For illustrative purposes, samples of the types of maps and graphs which
the RDN will produce are shown on the following pages.
mcurmT
VIII Ur US(D
1./10
s. IC $7711711
10111 ft. MI
n . dnT
MW
MU

op
. 40
TAM F fir VRI
LW
WC4141 2.. in
LM. tien... -1.10
OrLO ?2,20
GOiCMNEh -_-1.110
JUL 41111
VS
N
O
0
SAMPLE BAR GRAPH SHOWING PROGRAM DEVELOPMENT OVER
AN EXTENDED TIME PERIOD
(Dummy Data Used)
JON rr 411/1 MIS MAY jUN JUL NUG Uf OC 1 NOV
r 7
? 177 ?
SAMPLE BAR GRAPH COMPARING PROGRAM DEVELOPMENT IN EIGHT STATES,
DISTINGUISHING GROWTH RATES IN THREE DIFFERENT TIME PERIODS
(Dummy Data Used)
O
O
O
co
O
N
Elnia RIMMINER
r,
5_
MM. I az2._
cala C __LE
ln
LIEU__
L
S_IISSICI 1 ae
0.1.1"9
Ilacit__Lhe. go
NIL"' LLD_ 1 i
ALM:1MA FLOMIDP C.Etnc:n MISSISSIPPI N.CRPCLIVA s.ccinatsin tovizssc
- 178-
SAMPLE PIE GRAPH SHOWING PERCENTAGE-OF-TOTAL, ON A
SELECTED VARIABLE, AMONG EIGHT STATES
(Dummy Data Used)
51Ali Og.TA
_L,
LIEU?
E.Dfr '1
42
7 711 E
L'..
UOIL`SL 1 '
SAMPLE THREE-DIMENSIONAL GRAPH CONTRASTING PERFORMANCE
ON SELECTED VARIABLE AMONG EIGHT STATES
(Dummy Data Used)
SAMPLE DENSITY MAP SHOWING VARYING PERFORMANCE AMONG
STATES ON SELECTED VARIABLE
(Dummy Data Used)
1111
IWO
1300000,111111
110n000003000,
I ODoo0000003NION Pol110O000000003000$
11811OCIF00000000000001000101
8 01 111000001F000000000D0000D030
00nOorroo0nOn00000003onon0011
11011400000001C, 0000000000000100001
1 000000000n1,00IIIII0 IIIIIIIIII00000010IONV IBS

Igii gQIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIII111111 1 iims:c==sr===m=s==tmcm===c==sms-sse
luss==s==c==mr====x= ..... 3:--,--=,:-,14 0 l armg=====c=mr====tmc==z=====s::=1111 I N 1 csa====t=s=m===z==ms====:=====0111
l assit====m=teumrv======:====011. " 1 1/I ISSMINOMS:========e====mm-S :11114 :I iiii i
IIVINIMOMMIIMMINOIMARBB10111011001110

V WO
NOW*www**** mmmz=c-g=1 IBIBBRI i I I
N*Citicivitomg = =-Emic=1 2
INON1EWNO*V***1 Imszmes:smeri
..I.
gii*IKNAIIMIEW

Ii****11100y00,
c==-3=ccm- 11
-:=E=g=1:2_,_: I/III BM 0****014010(00

szill=====x2 = = = vg I
ININOWANNvONIE Im--m2=====umm1 I
NNAKOwNocroxiii Iilliwi ME ME iemmuu=sa m mm-xx========c_zi legm=rmil I o
KMINOIONOW001 Ill=m-ms-sgs-s=--=:x1 II
1010111101101M0101

.
NVIONNOWNV1011
gs=s=m-:cgsx-cm=== 1
Imx=s=execsx======: I I 11
1xiim1*W1114011 II:mcm=ggtam=====1011
log , v**,XM #I 2: I 1-::=11mg:zic======= 1
ISOONNIENOWICIEll 111=2:smszsamm===c:==
MINCONNIENKNIOON*01 111-=--ms--=-2=======
JNIFOONIONIECONYNOIN 1=======s=mg==:=z==
11.111,11111***Imx 11---==g-azz:=======1 100**** .,,11111011111111111====="
lOw*WW*V...1 I
r.m=1:1==xmx=1
l' M
mili* , w1141.#A111 1111111111111 1 - 1141111111110111ppiles II "'
1
II
lw - ml
II
1 I III 1 I
V V
I 1
II M
I 1 I
I
I
I
I I

1 I
I I I
I
I 1
I I
1 I
I IP
I;;;;ii
181 -
SAMPLE DENSITY MAP SHOWING VARYING PERFORMANCE AMONG
SOUTH CAROLINA COUNTIES ON SELECTED VARIABLE
(Dummy Data Used)
10m_m____
10000D = _
---300000 01
P---30010D1=__ In

00000po canon lnn
3R311 1 [(orlon o 9 ___.,11----rulono VO1D----= --- =0000 u1010[1===========ounn
0300001 - = - =A0$...frop0n0 0101000 = =00000t) ----oon000 , ===** 0$xxitrrnonno 000'1D--= 00100U--

-..08382013=xxxx11 ,$11W00n0xxXxxxvicoon= = = 00Q000-.-
- 001 =wwirvigotow.,nn0****xxio(w p00 000001...wwxt*,10).,o0xxornmit == Pon
000 000110NN IONNOICAVI----=--
D DDOOXVX NNXIVNNA = r=====... aa
PBfC110
INIIIIIN-- - m --
KINIONAN-- -----
....
6...4, ,. 0000010 xx*tts ___,_
Y#Xi0000D KNNININ = ,-- N$4 )0non xxxxxi(x __.
xxxourono **worn =on ==- 11yrtoonoocr. 101I1011W= norlogoxio....ki. 000noorr 030rlikg====o0Dno30m(Axxx*tx---
000000r 010001====0100010g**Ax*wAIIX- --- ??
10100 -0100030=010100011kMixxxx 04*-- -- ?,
01 m 10000000n010,00(wwwi
= ----- =___31000000xxx*txxt
*o
= = - :00000 - XXXININ
... ***CNN = m--,
. XXIYANA It == ==
NNIOWNWI ===.00W == ------ ggosioi*g===============ggigost
= NXXNNWANINNX===========INX
s====NIWANNVAVONNIK - = =INK ===r41(10(**ANINIANXX XIX
==****VONNYINIF*NXIXAV===1*11
==NNIIIIIIIVININIOXIINVAIINNI
INNANIXIXINNVXXVWXVIIWNWIN
XXXXX I N .X*NXXXIXIVX104
NV NNIVNIglki
NAXI $1
SAMPLE OUTLINE MAP SHOWING COUNTY-LEVEL NUMERICAL
DATA IN SOUTH CAROLINA
(Dummy Data Used)
XXX XXX XXXXXXXXXXXXXXXXXXXX
XX X X q7 X X X
X X X X)( 54 )x( 38 ) i t( - .., x X 31 X X X

XXX XX
XX X XX X XXX XX X X
XX X 42 X X X XXX X X
x 12 X
?
x X X XXXXXXAXXX XXXXXXXXXXXXXXXXXXX
X Xi-- x
X
X x x x X X X wx XXXX X X XXX X S s 21 f( !_ XX 92 X 81 AX XX X X XX X -- XXX X?

X
X X 26 X X 7 2 XX XXXXXXXXXX XXX X X X X X XXXXXX X XX ? XX ? XXX X XXX X X
XX X XXXX X XXXX
x 85
X
x
X XX
93 XX 71
X A
7
XX
X XX X X X XX X 62
X X X X X 84 X X X XX ? XX A XXXXXXX
x XX X XX X ? X XXX X 23 X XX XX
X 32 x XXXXXX x AXAXX
XXX
? XX XX AX x XX
X X 44 X XX X XX XX XXX X 41 X 4- X X XX XXXX ? X X A XX X ? A X X
X XX X 61 X X 65 X X X X xx g XXXXXX ? XX 57 x ? X 24 XX XX x xx 46 x
XX XX XX ? XX X ? X XXXX X X ? X
XX X XX X X. XXX X XXXXX XX X X
X 64 X X X XXX X X X X X
XX XX XXAXAXXX 15 XXXXX XX X X XX 51 X X
X ? X 83 X X XX X X X X iir X
X X X
75
X
x
XXX X X A
XX 82 XX XXX XXX XX XXXX XX
X X X XX X XXX 61 x
X X 33 X XX XX 55 X X X
X X ? X X X XXXX 22 xx
XNXXXXX XX X X 14 XXX 18 X X X XXXXX X X ? X
X XXXX XXXX X
X
XX )(
X
IV X
X
99 XXX X 67 XX
X ? XX XX X XX XX
X X X
8 X X
X XX X X ))((
X
;(( 96 X
X
AXXXXXXX
x x A
x x la xx
x x
x
xxx x
xxx x x xx
x

A 27 X XXX X
XX ? X an XXX
X X X A X
A XX X
A XX XXX
XXII XX
-K-Xx
5.3 DATA BASE DESIGN
In order to serve the purposes of regional-level program monitoring
and evaluation, the data base developed by linking the eight state systems
in a Regional Data Network should have five components: a patient data
component; a demographics data component; a fiscal data component; a facil-
ities data component; and a state planning data component.
Patient Data Component
It will be an important task of Phase II of this project to make a
final determination of the types of patient data necessary to achieve the
objectives of the RDN. Thus, the data elements listed below are not
necessarily recommended for inclusion in a regional data base. Rather,
they represent the maximal set of patient-level data items which could
reasonably be developed through an integration of the existing state systems
into a regional network; as such, their enumeration in this working docu-
ment is made simply in order to facilitate discussion and review by appro-
priate administrators.
Clinic
DATA ELEMENT
DATA
TYPE
NO. OF
CHAR. COMMENTS
STATE
A003 COUNTY NUMBER N 3.
A004 CLINIC NUMBER N 5
Patient A013 STATE ASSIGNED NUMBER N 9
A096 REGISTERED FOR MEDICAID A 1 Y = "YES"
N = "NO"
A093 MEDICAID NUMBER N 6
A009/11 SEX A 1 F = 'FEMALE'
M = 'MALE'
A037/38 RACE N 1 1 = 'WHITE'
122/123 2 = 'BLACK'
114/115 3 = 'AMERICAN INDIAN'
4 = 'MEXICAN AMERICAN'
5 = 'ORIENTAL'
6 = 'OTHER'
A010 ETHNIC (Latin American
Origin) A 1 Y = "YES"
N = "NO"
DATA NO. OF
DATA ELEMENT TYPE CHAR. . COMMENTS
A018/19 MARITAL STATUS N 1 1 = 'MARRIED'
2 = 'NEVER MARRIED'
3 = 'SEPARATED'
4 = 'DIVORCED'
5 = 'SPOUSE DECEASED'
A008 BORN ON N 6 MO/DA/YR
A016 WHAT COUNTY DO YOU
LIVE IN N 3
A017 HIGHEST GRADE OF SCHOOL
COMPLETED N 2
A095 CURRENTLY ON WELFARE N 1 Family receiving financial assistance
from the Dept. of Social Services:
0 = "NO"
1 = 'AFDC'
2 = 'APTD'
3 = 'AB'
4 = 'OTHER'
A116 FINANCIAL STATUS N 1
Al] 9 NUMBER IN FAMILY,
HOUSEHOLD N 2
Visit A002 TODAY'S DATE N 6 MO/DA/YR
A094/110 TYPE OF THIS VISIT N 1 0 = 'SUPPLY ONLY (SCHED.)'
1 = 'INTAKE'
2 = 'REVISIT (ANNUAL CHECKUP)'
3 = 'REVISIT (NOT FIRST OF
YEAR)'
4 = 'SUPPLY ONLY (UNSCHED.)'
5 = 'UNSCHED. REVISIT FOR
ANNUAL CHECKUP'
6 = 'UNSCHED. NON PROBLEM'
7 =
8 = 'UNSCHED. PROBLEM VISIT
(including Annual Checkup)'
9 = 'UNSCHED. PROBLEM REVISIT'
Preg. A097 NUMBER OF PREGNANCIES N 2
History A098 NUMBER BORN ALIVE N 2
A029 DATE LAST PREGNANCY
ENDED N 6 MO/DA/YR
A100 OUTCOME OF LAST
DELIVERY N 1 1 = 'BORN ALIVE - TERM'
2 = 'BORN ALIVE - PREMATURE'
3 = 'BORN DEAD'
4 = 'MISCARRIAGE/ABORTION'
5 = 'NEVER PREGNANT'
6 = 'OTHER'
7 = 'UNKNOWN'
A032 NUMBER OF FETAL DEATHS
A031 NUMBER OF PATIENT'S
CHILDREN ALIVE NOW N 2
DATA NO. OF
DATA ELEMENT TYPE CHAR. COMMENTS
Contra- A105 EVER USED ANY METHOD
ceptive TO PREVENT PREGNANCY A 1 Y = "YES"
History N = "NO"
A107/131 METHOD MOST USED IN
LAST 2 YEARS N 2 00 = 'NONE'
A040 01 = 'ORAL'
A039 02 = 'IUD'
A044 03 = 'DIAPHRAGM'
A042 04 = 'FOAM'
A046 05 = 'RYTHM'
A043 06 = 'CONDOM'
A041 07 = 'INJECTION'
A045 08 = 'STERILIZATION'
A047 09 = 'OTHER'
A048 10 = 'METHOD NOT KNOWN'
A049 WHO PRESCRIBED LATEST
METHOD N 1 1 = 'PRIVATE DOCTOR'
A050 2 = 'PUBLIC CLINIC'
A051 3 = 'DRUGGIST'
A132 4 = 'OTHER'
Services A026 COUNSELING N 1 1 = 'CONTRACEPTION COUNS.'
Provided A027 2 = 'STERILIZATION COUNS.'
A033 3 = 'INFERTILITY COUNS.'
A028 4 = 'ABORTION COUNS.'
A023 5 = 'SOCIAL SERVICES COUNS.'
A034 6 = 'OTHER'
A067 BLOOD PRESSURE A 1 Y = YES N = NO
A074 V.D. BLOOD TEST A 1 Y = YES N = NO
A073 HCT OR HGB A 1 Y = YES N = NO
Al29 BLOOD TEST A 1 Y = YES N = NO
Al28 VDRL A/N 2

1. character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A069 PAP SMEAR A/N 2 1. character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A070 G.C. - culture A/N 2 1. character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A068 BREAST A 1 Y = YES N = NO
A071 PELVIC EXAM A 1 Y = YES N = NO
A072 URINALYSIS A 1 Y = YES N = NO
A075 SICKLE CELL ANEMIA A/N 2 1. character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A076 STERILIZATION A 1 Y = YES N = NO
A077 INFERTILITY A 1 Y = YES N = NO
A079/80 PREGNANCY TEST A/N 2 1. character; Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A078 OTHER A 1 Y = YES N = NO
DATA ELEMENT
DATA NO, OF
TYPE CHAR. COMMENTS

Contra-
ceptive
Methods
Used
After
A061
A053
A052
A057
A055
METHOD AFTER VISIT N 1 0 = 'NONE'
1 = 'ORAL'
2 = 'IUD'
3 = 'DIAPHRAGM'
4 = 'FOAM'
Visit A059 5 = 'RYTHM'
A056 6 = 'CONDOM'
A054 7 = 'INJECTION'
A058 8 = 'STERILIZATION'
A060 9 = 'OTHER'
A062 REASON FOR STOPPING
METHOD N 1 1 = 'PREGNANT - PLANNED'
A063 2 = 'PREGNANT - UNPLANNED'
A064 3 = 'SEEKING PREGNANCY'
A065 4 = 'MEDICAL REASON'
A066 5 = 'OTHER'
A087 REFERRED ELSEWHERE N 1 1 = 'SOCIAL SERVICES'
A088 2 = 'MEDICAL SERVICES'
A089 3 = 'STERILIZATION'
A090 4 = 'ABORTION'
A091 5 = 'INFERTILITY TREATMENT'
A092 6 = 'OTHER'
A0135 PATIENT SEEN BY N 1 0 = 'PHYSICIAN' 6 = 'AIDE'
1 = 'P.H.N.' 7 = 'CLERK'
2 = 'F.P.H.N.' 8 = 'NUTRITIONIST'
3 = 'NURSE MIDWIFE' 9 = 'OTHER'
4 = 'L.P.N.'
5 = 'SOCIAL SERVICES'
A101 MAIN SOURCE OF
REFERRAL N 2 00 = 'SELF'
01 = 'OUTREACH WORKER'
02 = 'OTHER FP CLINIC'
03 = 'HOSPITAL OR OTHER HEALTH
AGENCY'
04 = 'PRIVATE DOCTOR/NURSE'
05 = 'WELFARE AGENCY'
06 = 'ANOTHER CLINIC PATIENT'
07 = 'FAMILY OR FRIEND'
08 = 'TV, RADIO, PAPER AD'
09 = 'OTHER'
10 = 'UNKNOWN'
A086 DATE OF NEXT
APPOINTMENT N 6 MO/DA/YR
A081 PURPOSE OF NEXT
APPOINTMENT N 1 1 = 'SUPPLY VISIT OR STRING
CHECK'
A082 2 = 'ANNUAL EXAMINATION'
A083 3 = 'MEDICAL PROBLEM'
A084 4 = 'OTHER'
A085 5 = 'NO NEXT APPOINTMENT'
A112 REASON FOR DISCHARGE N 1 1 = 'STERILIZATION'
2 = 'MENOPAUSE'
3 = 'MEDICAL REASON'
4 = 'PATIENT MOVED'
5 = 'PATIENT LOST INTEREST'
6 = 'PREGNANCY DESIRED'
7 = 'PREGNANCY UNPLANNED'
8 = 'UNKNOWN'
Demographic Data Component
In order to contrast target population characteristics with the
characteristics of patients served by the family planning program, it is
important to build into the system a capability for handling both DPV-type
estimates and selected census-based demographic data. It would appear
prudent, however, to establish stringent criteria for the selection of
general demographic data, lest this component of the system should develop
to a size entirely out of proportion to its place in the overall system
and beyond what is required for reasonable management and evaluation purposes.
A first-cut listing of demographic-type data elements is given below, for
review and discussion.
AGE
DATA ELEMENT
DATA
TYPE
NO. OF
CHAR. COMMENTS
ALL RACES: FEMALE:
GROUPS: 15 - 19 N 5
COUNTY 20 - 24 N 5
LEVEL 25 - 29 N 5
30 - 34 N 5
35 - 39 N 5
40 - 44 N 5
45 - 49 N 5
50 - 54 N 5
55 - 59 N 5
WHITE: FEMALE:
See ALL RACES:
FEMALE: N 45
NEGRO: FEMALE:
See ALL RACES:
FEMALE: N 45
ALL RACES: MALE:
See ALL RACES:
FEMALE: N 45
WHITE: MALE:
See ALL RACES:
FEMALE: N 45
NEGRO: MALE:
See ALL RACES:
FEMALE N 45
TOTAL COUNTY POPULATION N 7
NUMBER OF FAMILIES WHOSE
INCOME IS LESS THAN 125%
OF POVERTY LEVEL N 6
Fiscal, Facilities, and State Plan Components
Selection of the data elements which should be included in the data
base to reflect the essential characteristics of fiscal performance, facil-
ities management, and plan monitoring will be an important part of Phase II's
work, and need be discussed here in only the broadest of terms. In general,
it will be important to identify the desired data elements as soon as possible
in Phase II, and to decide the amount of detail and level of aggregation appro-
priate to each type of data element. The most prudent course of action would
probably be to keep the amount of detail (on, for example, expenditure break-
downs) at a bare minimum until the RDN has been in operation for at least a
year, and to decide at that time whether a finer resolution of information
would better serve the purposes of program evaluation and monitoring. As
for level of aggregation, it would appear reasonable to suggest that fiscal
and state plan information in the data base might best be aggregated at the
state level, whereas facilities and staffing data might be more appropriately
collected at the individual service site level.
5.4 SOFTWARE CONSIDERATIONS
The purpose of this section of the report is to present the results
of a survey of existing, commercially available statistical packages and
data management systems that have potential relevance to the design of
the Regional Data Network. When these results are viewed in the light
of the perceived needs and specific resources of regional administrators,
it should be possible to determine which, if any, existing software packages
will serve the purposes of the evaluation component of Region IV family
planning program activities.
Statistical Packages
There are a number of existing statistical computer program packages
whose use could both simplify and enhance the processing of the family
planning data being collected by the states on their patients, clinic
facilities and staffing patterns. In addition, the use of one or more
of these packages would also give the RDN adequate capability for
incorporating census-type demographic data to be linked with the family
planning program data base.
Before discussing particular statistical packages, a brief review
will be made of the basic capabilities of such packages, as well as of
the program categories into which such packages generally fall.
A general-purpose statistical package generally includes the following
processing cabilities:
* Basic Data Screening. Included here are routines for accomplishing
the following: frequency plots and bivariate frequency plots; tabulation
and cross-tabulation on the basis of one to N (usually 6-8) criterion
variables; computation of basic descriptive statistics, such as means,
standard deviations, shape characteristics (e.g., symmetry and kurtosis),
and so forth; and routines for the transformation and coding of variable
values.
* Utility Routines. These typically include programs for sorting;
selecting observations; generating random numbers; manipulating matrices;
- 190-
and computing statistical density and distribution functions.
* Regression ("Curve Fitting") Routines. Included here would be
program capabilities for performing multiple linear regression; step-wise
regression; simple linear regression with various options (such as multiple
dependent-variable observations); polynomial regression; and nonlinear re-
gression.
* Analysis of Variance. This is the basic method for analyzing effects
of, or errors due to, several variables or sources in one experiment arranged
in blocks, or other patterns. Usually routines are available to handle
standard designs such as completely randomized, randomized complete and
incomplete blocks, Latin and Graeco-latin Squares, and factorial design.
It is also important that the program can handle missing data values. Most
packages contain a routine for testing general linear hypotheses, although
many general users consider this procedure too difficult for them to inter-
pret the results.
* Multivariate Analysis. Included in this type of analysis are various
routines concerned with estimation and hypothesis testing related to the
multivariate normal distribution. Principal component analysis; factor
analysis; and canonical and discriminant functions are among the leading
examples of this type of analysis.
* Distribution Free Methods of Analysis. These routines include a
very large range of methods for dealing with count data and data for which
the normality distribution assumption cannot be made. They include special
types of correlation measures, contingency table analysis, and various
analogues of the t-test and the analysis of variance.
* Miscellaneous Routines. Examples of miscellaneous routines would
be time series analysis, Guttman scalogram analysis, survival analysis,
and probit analysis.
* * * * * * * * *
Statistical packages can consist of a collection of independent programs,
of a set of subroutines, or of one large multifunction program. They can
be written for a specific machine configuration or for a class of machines.
The relative complexity of the package is classified from extreme simplicity
to great complexity, but the ease of use is not necessarily related to this
classification of the package; that is, an extremely complex package might
be very simple to use. Packages are usually designed with a particular
type of user in mind. For example, some are designed primarily for the
statistically unsophisticated investigator; others are designed for use
by the professional statistician; while still others are intended for use
by computer programmers. In some instances, the package may be used at
several levels of user sophistication.
Statistical packages may be classified into five general types:
(1) sets of general, independent programs; (2) sets of subroutines;
(3) single, multiple-purpose programs; (4) statistical compilers; and
(5) interactive time-sharing systems. A brief description of each of
the five types follows.
(1) Independent Program Packages. Each program in this type of
package is complete in itself, and performs one basic analysis, such as
a complete, simple linear regression analysis. Some packages of this
type contain a collection of fifty or more such independent programs.
The programs in the package are generally constructed so that they all
use the same input techniques, have consistent user documentation, and
are coded by a similar method in the same computer language. They are
also usually general-purpose in nature and are characterized by having a
parameter or definition card as an initial input so that the number of
data points to be processed, or other defining information, can be given
for a specific job. In most instances, packages of this type are easily
mastered by the non-programmer, and the programs allow some flexibility
in the input format of the data to be processed. One of the drawbacks is
that multiple computer job setups and runs are necessary in performing more
than one type of analysis.
(2) Subroutine Packages. These packages are generally more attractive
to users who have programming abilities. They are usually a set of input-
free subroutines, for which the user must write a main program for data
input. Subroutine packages contain either subprograms that perform complete
analysis and output the results or routines that must be combined to perform a
particular analysis. Such packages offer a user the flexibility of tailoring
an analysis to a specific job, although this requires considerable programming
effort. Subroutine packages are most desirable for repetitive analyses
that require multiple runs of various independent programs; they also can
often implement specialized routines that are not directly available in
an independent program package and for which the user would otherwise have
to write a complete program.
(3) Single, Multiple-Use Programs. Two types of statistical packages
fall within this general classification: the single, large program that
performs a variety of analyses, and the executive system that automatically
links a set of subroutines to perform an analysis or sequence of analyses.
The single, large program can range widely in complexity -- from the fairly
simple concept of producing the same sequence of output from each set of
data supplied, to a more sophisticated program concept by which a sequence
of operations can be performed based on selection of option switches or on
decisions made at intermediate programming stages. This is an independent
item and does not depend on the nature of the linking loader. It is efficient
from the user's standpoint in that multiple trips to the computer may be avoided.
The "executive package" accepts a sequence of easily coded instructions
in either an English-based language or a sequence of codes, and generates
input handlers, calls to, and linkages between, various subroutines. This
type of package is easy to use and each analysis can be tailored to the
specific job. The package itself is extremely sophisticated; only a few
operational systems of this type exist. It should be noted that such packages,
because their interaction with the central system is usually extensive, may be
expensive to maintain.
(4) Statistical Compilers. Although not strictly a package, the
statistical compiler can be very useful in generating a specific analysis
or writing a package. This type of system includes a high-level language
similar to Algol or Fortran and a translation program to compile the language.
The statistical compiler is useful to the statistician who wants to write a
program to perform a nonstandard analysis without being bothered by much
programming detail. Standard simple analyses can be ordered in many cases
with a single command.
(5) Interactive Time-Sharing Systems. Time-sharing systems place the
user in direct communication with the computer by means of a teletypewriter,
console typewriter, or CRT. Use of machines in this manner is becoming
popular with programmers for program development, and with scientists and
engineers who use it like a sophisticated desk calculator. Various types
of statistical packages have been developed for operation in this mode.
These packages range over all of the types presented above; they are
predominantly sets of programs, but include sets of subroutines and single,
large programs. Most of these programs are written to accept from the user
the various elements of data needed to perform the given analysis; the
programs can operate on data entered from a keyboard, or on previously
stored data from a secondary storage device such as a tape or disk. One
obvious advantage of time-sharing is that it allows analyst intervention
at intermediate stages in the flow of the analysis.
* * * * * * * * *
Given below is a brief description of a number of statistical packages
which might be considered for use in the Regional Data Network. It is most
likely that no single package can completely satisfy the needs of the RDN,
and so the use of several may have to be considered if the resources should
become available. It should also be kept in mind that packages are acquired
not to be used intact, but to eliminate the necessity for reprogramming
highly complex statistical and mathematical routines that already exist.
1. DYSTAL II.
This high-level programming language, developed by J. M. Sakoda, is an
extension of Fortran to include dynamic storage allocation, creation of
complex data structures, and list handling, along with the standard features
of Fortran. It is written in a basic Fortran IV so that it has a high degree
of machine independence. It has application in many contexts, but is parti-
cularly useful for writing statistical programs and packages. The language
includes commands (essentially subroutines) to rank a list of variables, to
sort a set, and to compute sums, sums of squares, and variances of sets of
variables. Also included are commands to form cross-products and correla-
tion matrices. Dynamic storage allocation is an important addition, in that
it enables statistical routines to be written so that the storage required
for a particular run is all that is actually used. Dystal II can be very
useful for special-purpose statistical routines. It has been implemented
on the IBM 360 and 1130.
2. SPL, STANDARD PROGRAM LIBRARY.
This package of general-purpose statistical programs is specifically
designed for use in agricultural research, but has applications in many
other fields as well. It includes a general-purpose, least-squares ANOVA
program, various correlation programs, probit analysis, logit analysis,
and various plotting programs. The programs are written in Fortran and
1620 SPS for use on a 1620 or a 360/30 with emulator.
3. 1108 STAT-PACK.
This package of Fortran V subroutines for the U-1108 computer is
extremely comprehensive. The subroutines are designed to be called by
a user's Fortran V program, with all input to the subroutines passed as
arguments, which makes them input-independent. The output from those
subroutines that produce extensive results is printed, while others pass
the output back to the calling program as arguments. The library contains
91 subroutines.
The analysis of variance section includes most of the standard designs
such as factorial, randomized block, Latin square, split-plot, and nested.
Nonstandard designs can be handled by means of a general linear hypothesis
routine. This section does need a routine for multiple range tests or multi-
ple linear contrasts. The analysis of variance tables are produced along
with F statistics and probability levels. The section on regression, multi-
variate analysis, and factor analysis are standard. The section on time
series analysis includes moving averages, trend elimination, autoregression,
autocorrelation, and power density analysis.
In general, this package is very useful, but it is limited to the programmer
or programming user, since the subroutines must be called by a main program that
does most of the input and output. At the same time, this feature is a strong
point in terms of flexibility.
4. USS STAT.
This set contains statistical programs not usually found in a statistical
package, including: factorial analysis of variance, dimension reduction, in-
complete-data regression, adaptive forecast evaluation, multistate regression,
time series analysis with multiplicative seasonal weights, homogeneity tests,
Wald statistics, analysis of similarity measures, Gray code regression, ex-
tended multigroup discriminant analysis, and optimum subset regression. They
are written in a subset of Fortran II.
5. SOUPAC. Statistical Oriented Users, Programmers, and Consultants.
A collection of statistical and data manipulative programs developed for
agricultural, behavioral, and social scientists. The system operates under a
submonitor so that input consists only of a program control card and data;
various procedures can be combined by means of the control cards. The
system includes such procedures as analysis of variance, autocorrelation
and spectral analysis, biserial correlation, canonical correlation, interactive
factor analysis, cross-tabulation, matrix operations and transformations, as
well as many other procedures for building complex analyses.
6. TSAR. Tape Storage Data Analysis and Retrieval.
The TSAR system was originally developed at Duke University; a Wayne
State University version is designed to process medium-size tape data files,
including the generation and updating of data tapes and the performing of
various types of analyses. Its primary function is to automate counter/sorter
methods of generating frequency tables and cross-tabulations, but its capa-
bilities go much beyond that. The system contains extensive transformation
and data reduction routines, and also includes as subroutines various statis-
tical analysis procedures, such as analysis of covariance; one-, two-, and
three-way analysis of variance; the Kolmogorov-Smirnov test; step-wise re-
gression; and plotting. The system was originally written for use on the
IBM 7070 computer, but it has been extensively updated for use on the IBM
360/50.
7. STAT 3600.
This set of 14 large programs written for the CDC 3600 performs various
statistical calculations. The programs are characterized by extreme versatility
and complete documentation. They are written so that persons unfamiliar with
programming can run them easily; the program features include natural language
parameter definition, cross-checking of parameters and data, flexibile input,
and the ability to combine system routines with others or with user-written
routines.
8. NPSTAT. Nonparametric Statistical System.
This system handles various nonparametric analyses, and consists of a
single main program with called subroutines.
9. MANOVA. Multivariate Statistical Programs.
Written in Fortran IV for the 360, 1130, and 1108, this set of programs
and subroutines performs various multivariate statistical calculations. It
includes complete programs treating: canonical correlation; discriminant
function for two groups; factor analysis; multivariate analysis of variance
and one-way analysis of covariance, with or without equal numbers of observa-
tions in the cells; regression; contrasts; and transformations. The routines
are well implemented, and the output labeling is very complete. (Few of the
packages have a multivariate analysis of variance program.) There are 12
subroutines to perform various matrix calculations, probability function
evaluation, sorting, and equation solution. These can be used for performing
additional statistical calculations and for preprocessing of data prior to
use of the main program.
10. AGSTAT and RASS. Texas A & M University Statistical Program Library.
This library of main programs handles a wide variety of statistical
analyses. RASS is the time-sharing version of the set of programs.
11. STAT-D and STAT-K. Honeywell Series 200 Statistical Packages.
This set of 17 general-purpose statistical programs (five in Stat-D
and 12 in Stat-K) have a common input routine. Stat-K performs certain
cleanup functions, such as transformations and restrictions on the data.
The subroutines are designed to be called by a user's program; all input
to the routines is returned to the calling program except that of the graphic
output routines. This feature provides great flexibility for a programmer
or programming statistician in producing an analysis.
12. MATHPAC. GE-400 Series, Honeywell Information Systems, Inc.
This is a package of Fortran II and assembly language programs for the
400 series computers. It covers several mathematical fields, including matrix
algebra, solution of simultaneous equations, curve fitting, eigenvalues,
differential equations, and roots of polynomials, and contains certain statis-
tical programs as well. The matrix programs are subroutines useful in statis-
tics; they include addition, substraction, multiplication (both matrix and
scalar), transposition, and inversion. Because it is limited, the package
should perhaps not be called a statistical library, but the programs provided
are well written and completely documented.
13. OMNITAB II. A Computer Program for Statistical and Numerical Analysis.
This system is designed to be used by nonprogrammers for solving many of
the computational problems in basic and applied research. The original version
was written primarily in assembly language for the IBM 7094; it has since been
adapted for the UNIVAC 1108 and the IBM 360/65. The major areas covered by the
system are numerical analysis (particularly function tabulation), matrix algebra,
statistical analysis, and report writing. The system is implemented to run in
an interpretive mode as a subsystem, acting on commands given in an English
sentence structure. It is designed to be used analogously to a desk calculator.
The statistical portion of the system calculates many general statistical
parameters, in addition to measuring and plotting. In the most powerful section,
various regression analyses can be performed, including both linear and nonlinear
regression with one or more independent variables. It is also possible to trans-
form the input data and obtain tables and graphs of the data, the regression
function, and the residuals, along with the standard output items such as
the variance/covariance matrix, etc.
This system is very useful. It is one of the few that comes close to
being a unified system approach, rather than just a library, for general
statistical analysis. The system was extensively revised when implemented
for the Univac 1108.
14. BMD. Biomedical Computer Programs.
This set of statistical programs is perhaps the best known of all the
user-written systems, and has been used extensively on large computer systems.
The programs were originally written in Fortran II with some FAP subprograms
for the IBM 7090(94), but they have since been converted for use on several
other machines. A completely revised second edition is now written entirely
in Fortran IV; it operates on the IBM 360 series (requiring 256K bytes to
compile under FORTRAN V), and has been converted for other third generation
machines as well. All of the programs are of a general nature and are quite
extensive in their coverage. Great flexibility of input is achieved by means
of Fortran card format statements read at run time, as well as standard data
forms; the output is labeled in a very readable manner.
Since this package occupies a special place in any survey of statistical
packages, some comments on its features are in order. The special program
section contain ten programs, including life-table, bio-assay and contingency
table, and Guttman-scale analysis. The section on time series analysis covers
amplitude and phase analysis as well as auto-covariance and power spectral
analysis. The section on variance analysis includes programs for handling
one-way designs, factorial designs, multiple range tests, and covariance
analysis. Also included is an especially powerful general linear hypothesis
program, which can be used to analyze many designs. Almost all of the programs
have the capabilities to perform transformations on the input data and to accept
data from cards or tape. The user documentation for the package is admirably
complete and understandable.
The BMD X-series programs are described in a supplemental manual published
in 1969. These programs have been developed since September 1965, and in some
cases supersede earlier BMD programs. The additional capabilities provided by
the X-series programs strengthen the basic BMD package considerably. At present
a BMD P-series is under development.
15. P -STAT.
This system, developed for the IBM 360 and 370, handles statistical
analysis and file management of social science data. It has the capacity for
handling and maintaining large data files on tape, and operates under its
own executive routine, which allows the putput of one run to be input to
another program and certain operations to be shared by the various programs.
The system includes capabilities for handling matrix operations, various types
- 198 -
of intercorrelation, regression, factor analysis, and rotations. Missing
data are permitted in many of the routines. The system has extensive data
tape generating, editing, and updating capabilities. The major emphasis
of the statistical programs is on correlation-type techniques involving
missing data; included are biserial, conical, and tetrachoric correlation,
as well as Pearson correlation, for complete and incomplete data. There
are extensive factor-analysis programs, and multiple regression, multiple
discriminant function, and frequency distribution programs.
16. STAT SYSTEM/1130, IBM 1130.
The IBM 1130 statistical system is a unified system of four basic
statistical techniques, written mainly for use by the non-programmer in
performing analyses. The programs are written in 1130 Fortran with some
assembly language subroutines, and operate under the supplied monitor system.
The user need only provide program option parameter cards, data formatting
specifications, and his data. The analysis of variance routine uses a general
factorial technique that allows analysis of single classification, two-way
classification with cell repetition, randomized block, split-plot, and split-
split-plot designs, as well as standard factorials. The other routines are
very complete for their respective analyses. This is very good system designed
for the minimal-hardware configuration.
17. SSP/1130, IBM 1130 Scientific Subroutine Package (1130-CM-02X).
The IBM 1130 scientific subroutine package is a set of 1130 Fortran
subroutines for use by programmers in various areas of scientific programming.
It includes extensive matrix manipulation, special function evaluation, and
integration, as well as statistics. The subroutines are completely free of
external input/output, all data and results being passed as arguments between
the calling program and the subroutine. The non-parametric statistics section
includes contingency table tests, the Mann-Eitney U-test, the Friedman two-
way analysis of variance, the Cochran Q-test, the Spearman rank correlation,
and the Kendall rank coefficient of concordance. The time-series section
includes auto- and cross-covariance, and triple exponential smoothing. The
documentation is consistent and quite complete. The subroutine concept makes
it quite flexible for obtaining analyses in almost any combination and sequence
subject to core limitations. It would be difficult for a nonprogrammer to use
this package, but a person knowledgeable in Fortran could assemble a program
in a reasonable amount of time using these subroutines. It is continually
being updated and improved.
18. SSP/360, IBM System/360 Scientific Subroutine Package (360A-CM-03X).
The System/360 scientific subroutine package is a set of Fortran IV
subroutines written in a subset of the language so as to be compatible with
all Fortran processors in the 360 line; it also gives the package a greater
degree of machine independence. A superset of SSP/1130, it includes many
useful mathematical subroutines in the areas of matrix operation, integration
and differentiation, solution of differential equations, Fourier analysis,
linear equations, and polynomials. In addition, the routines can be changed
from single to double precision fairly easily; the package has uniform docu-
mentation including machine-processed flowcharts. All arrays are one-dimen-
sional, and fairly extensive sample programs are included demonstrating the
use of the subroutines in various combinations. The package is continually
being updated to conform to new computing machines and should serve the com-
puting community for some time to come.
19. SSP PL/I, Scientific Subroutine Package for PL/I(OS) (360A-CM-07X).
Many of the statistical routines from the SSP/360 are available in a
PL/I version. The programs are I/O-free, PL/I procedures that are combined
with a user's input, output, and computational routines to meet his individual
program requirements.
20. RCA-STAT, RCA SPECTRA 70. Real Memory Statistical Programs (DOS, TDOS,
TOS), Statistical System, and Virtual Memory Statistical Programs.
This set of programs functions under a special operating system so that
certain programming functions such as input/output, error recovery, and opera-
ting procedures can be shared. It includes a "conversion" of BMD as a subset
and a "redesign" of SSS70. The virtual memory system operates as an interactive
system on the Spectra 70/46 and 61.
21. PSP. A Package of Statistical Programs.
Various general-purpose statistical programs have been prepared by the
Numerical Analysis and Data Processing Section. These were originally written
for the IBM 7074, but have now been revised for the IBM 360/50, using either
Fortran IV or PL/I. Some of the major programs are: GAVIAL, algorithms for
analysis of variance and covariance of incomplete block and lattice designs;
HELARCTOS, a multiple linear regression program; MOUFLON, a linear regression
model building system; ELAFOS, frequency table, chi-square analysis; APTERYX,
factor analysis; TARSIER, nonlinear regression (Hartley algorithm); and AARDVARK,
analysis of variance--a general system for all balanced complete structures
and certain nonorthogonal cases.
22. ASCOP. A Statistical Computing Procedure.
ASCOP is a statistical and data management computing system developed
and written by B.E. Cooper of the Atlas Computer Laboratory, Science Research
Council, Chilton, Didcot, Berks,., England. This is a compiler that gives the
user the capability to perform a wide range of data-editing operations, in
addition to many of the standard statistical analyses. Supplementary FORTRAN
routines can be added to ASCOP quite easily.
23. BOMM.
BOMM is a system strictly for time series analysis. It may be obtained
from SHARE or Co-op.
24. TSAR. Tele-storage and retrieval system. Dr. T. M. Gallie, Computing
Laboratory, Duke University, Durham, N.C. 27706.
This is another version of the system described above in abstract.
25. STAT-PACK. A Biostatistical Programming Package.
This package contains 56 statistical programs written in a subset of
FORTRAN II; it was designed to run on almost any machine with 40K characters
or 6K words of storage with a minimum of modification. The programs run
without modification on an IBM 1620, 1130, and an XDS Signma 7, but they can
be modified easily for other systems in the same class or larger. The programs
are designed for card input and printer output, but flexible input can be
achieved by means of a user-supplied read subroutine.
The section on regression is quite complete, including programs for
linear and polynomial regression, with confidence intervals and analysis
of individual terms in polynomial regression, as well as the usual multiple-
linear and stepwise regression calculations. Other regression programs
include pooling of groups and multiple dependent variable linear regression,
as well as a general nonlinear regression routine that accepts the nonlinear
function to be fitted by means of a subroutine. The section on analysis of
variance is fairly limited due to the core size restriction, but it does
include some standard designs. The section on tests of hypotheses includes
routines for Duncan's multiple range test, the paried t-test, Bartlett's
test, and the Kolmogorov-Simirnov and chi-square goodness of fit tests.
The other sections are fairly standard. The outputs of all programs are
extensively labeled for the user. The programs can be used by a nonprogrammer
if his data fit a standard from; otherwise, a programmer must write a read
subroutine.
26. GENSTAT IV.
This statistical processing system was initially developed at the
Waite Agricultural Research Institute, South Australia, for a CDC 3200.
The system is organized around the concept of a standardized, in-core data
file to enable flexible linkage of operations. Some 30 instructions are
provided to perform I/O, transformation, and editing operations. All
instructions are essentially free-format, and conform to a language-like
syntax. The system provides consistency checks, and all output is well
labeled in accordance with user-input information.
27. SPSS Statistical Package for the Social Sciences.
This is one large program consisting of several hundred subroutines
totaling about 27,000 lines of code. The 360 version is maintained at
Norc. The versions for the CDC 6000 series and large 3200-3600 machines
are available from Vogelback Computing Center, Northwestern University,
Evanston, Ill. A PDP-10 implementation also exists (Digital Equipment
Corporation, Palo Alto, Calif.).
28. MSU STAT.
This large collection of programs covers a wide range of statistical
analyses including econometrics, nonparametric analyses, and multivariate
analysis, as well as data management. Features of the system include:
free-field control cards; a Backus normal form generator for logic tables,
which is used by the system for interpreting control cards; dynamic alloca-
tion of storage; an interface to Micris standard data sets; and modular
design to facilitate the addition of new statistical routines to the system.
29. STATJOB.
The Statjob statistical program system is a unified set of flexible
statistical routines written for the CDC 3600 and Univac 1108. The Statjob
system and its constituent programs have the following features: common
input deck structure; extensive error checking of control information and
data records; transformations and recoding of input data; and large problem
capacity, since Statjob allocates all storage dynamically for every program
run. The following main programs are included in the system: Colfreql,
single column frequency counts; Crostabl, cross-tabulation; Dstat2, descrip-
tive statistics and correlation analysis; Factorl, factor analysis; Nwayl,
general analysis of variance; Onewayl, one-way analysis of variance; Regan2,
multiple regression analysis; Strepregl, stepwise multiple regression analysis;
and Transl, data input, transformation, and storage.
30. B5500 System-1967.
An executive routine approach including standard statistical analyses.
Burroughs Corporation.
31. OSIRIS.
A collection of programs developed at the University of Michigan Survey
Research Center.
32. SAS. Statistical Analysis System.
Eighteen well-documented routines for the IBM 360 and 370. SAS
provides an integrated approach to statistical analysis and editing of
data and employs a user-oriented language that includes simple statements
which present, describe, analyze, transform and generate data.
Data Management Systems and Report Generators
The following is a brief description of six general data base manage-
ment systems and ten widely used software packages for report generation
and other closely related functions. A general discussion of the merits
and applications of these packages is given below, and two sets of tables
are presented. The first set outlines the characteristics of the various
data base management systems with a report generator option: the second
refers to packages with data management and report generation capabilities.
IBM's Information Management System (IMS) is one of the most flexible
systems on the market. The primary function of IMS is to organize and
structure data items efficiently on physical direct-access devices. It
provides a means for physical-level access to the data and sets up an
interface between the user's application program and the operating system's
data management and communications management facilities. IMS's technique
for data base management allows the user to employ utility programs to
describe the structure of the system from two viewpoints: stored data
structure as seen by the system and logical data structure as seen by an
application. One of the many modules that can be purchased as an option
to increase the versatility of IMS is "Generalized Information System,"
GIS Version 2 with eleven optional features, including a report generator.
A much less expensive package in the same category is SOCRATES by
Cincom Systems. SOCRATES is the report writer option for the data manage-
ment system TOTAL by the same vendor. The major feature of this product
addresses the problem of extracting and formulating data from an inte-
grated data base. The print phase incorporated in SOCRATES offers a wide
range of options which will allow the user to construct either a highly
complex report format or a simple listing. SOCRATES was fundamentally
developed along with three other programs to provide administrative and
financial records for schools. It can be run on a variety of computer
systems.
Of the three remaining packages -- ADABAS, SYSTEM 2000, and IDMS/
CULPRIT, the latter two do not have to be used with their specified data
base management system. ADABAS has a report writer option "ADAWRITER"
which is soon to be available.
The software packages listed in the second set of tables were
developed exclusively for report generation without requiring a specific
data base management system. Some, like AUTOTAB, were primarily designed
for business and financial planning and reporting. AUTOTAB is particu-
larly useful for dealing with tables of numerical data, such as sales and
investment analysis, depreciation schedules, etc. The table contents
are defined by the user along with the relationships between different
tables. AUTOTAB prints the table as a report and optionally saves it
for modification or incorportation into another table. There are numerous
advanced features built into the package -- for example, formulas for
determining compound growth rate, return on investment, etc., and many
other features designed for commercial applications.
RSVP (Report Service-Very Prompt) by Honeywell Information Systems
is another package designed for management. The outstanding feature about
it is the ease with which it can be used. Its operation is based on the
multi-choice report request booklet, a clear simply written interrogation
leading the user through a step-by-step specification of his report. Unlike
some report generators, RSVP does not produce free-form or array reports.
Its output is columnar; however, it does offer up to 10 columns of data --
as many as, or more than, other columnar report generators. As with other
report generators, subroutines written in any language can be executed
during the RSVP run. One unique feature the package offers is that it
restricts access to specified fields; this feature is especially valuable
in dealing with confidential files. RSVP offers all essential data manipu-
lative capabilities including full Boolean and arithmetic operations. One
shortcoming of RSVP is the lack of full-range file maintenance and data
management capabilities, which is essential if the user deals with a great
amount of data.
- 204 -
In contrast, DATA-MAN-360 file Management Systems, written by Data-
Man, Ltd., is a self-contained general-purpose data management system with
modules for file creation, file maintenance, data retrieval and report
writing. The reports can have any number of lines, unrestricted calcula-
tions, conditional logic, and editing. It is especially helpful in updating,
such as running an old master file against a transaction file to produce a
new master. On the whole, DATA-MAN is a highly recommended and versatile
package if it is to be used for report generation, and it is among one of
the least expensive ones considering other equally versatile systems.
In the same category, but somewhat more sophisticated, is ASI-ST,
which performs the full range of data management functions, including file
and data definition, data retrieval, file creation and maintenance, data
manipulation, and report generation. Capability is also provided to define,
create, modify, and produce reports from other data bases using the inherent
access methods present in the IBM System/360 or 370 host operating system.
ASI-ST does not supplant the data base manager or conventional file access
method itself (IMS, TOTAL, etc.), but rather is used in conjunction with it.
DATA ANALYZER by Program Products Incorporated is ranked as one of
the most flexible and powerful retrieval and reporting systems. It is
highly flexible, and this makes it suitable for a wide range of applications.
It can also be interfaced with TOTAL and IMS. The reports to be generated
are defined by using a very simple specification sheet, plus similarly
straightforward Master File Definition Forms. Extensive default options
allow quick report generation following generally accepted rules of presenta-
tion, such as automatic column headings, line spacing and line width. DATA
ANALYZER has many unusual external functions for information presentation and
data manipulation. These include bar graph and table presentation, table
analysis, averages, standard deviations, data lookups, data retrieval,
statistics, etc. Furthermore, the user can also add his own routines to
this library of functions. This could be quite convenient if many specific
calculations are to be done on the data.
Several data base management systems have already been mentioned which
offer an optional report generator. SOCRATES is the one designed for TOTAL;
it is highly flexible and has a wide range of options which will allow the
user to construct complex reports. SYSTEM 2000 by MRI Systems Corp. can
be implemented on a variety of computer systems; it has powerful and flexible
information update and retrieval capabilities. One of its main features is
fast response and access either through its imbedded command language or
through interfaces to languages such as Cobol and Fortran. A report writer
feature is offered to satisfy needs for standard report production. This
feature enables the user to define and generate as many as 100 formatted
reports from a single scan of the data base. It is one of the most expensive
systems.
CULPRIT is another package which can be interfaced not only with IDMS
but also with IMS, TOTAL and RDMS data base systems. It is designed to
replace the report- and file-producing part of a program. CULPRIT, like
a sort, is a general-purpose utility which resides on disk as a cataloged
program, and is tailored for specific purpose by control or parameter cards.
The parameters describe the outputs to be produced and all of the necessary
data manipulation to be performed.
The last three packages described are quite expensive and generally
require an interface which is equally expensive. However, their use should
be considered if they are already available.
The remaining packages fall into the least expensive catagory. MARGEN
is a report generator and file maintenance package with an extremely simple
report format description which makes it easy to learn and use. It can create
and update a master file from a detail file as well as edit and copy files.
It is capable of performing operations such as logical, relational, arithmetic,
data conversion, etc. DYL-250 and DYL-260 are general-purpose systems with
capabilities such as file creation and updating, field translation, formatting
and unpacking of data fields, and report generation. DYL-260 generates more
complex reports and is generally more versatile than DYL-250.
REPORT WRITER by Pioneer Data Systems, Inc. is a Cobol-based file
examination and report creation program for files consisting of fixed-length
fields. Of course, this could limit its use, and in addition it has no file
maintenance capabilities; however, the report writing capability is adequate
for most purposes and the heading provisions are good.
- 206 -
NAME OF
PACKAGE
AND
VENDOR REPORT GENERATOR PRICE

ADABAS
(MRI Systems,
Corp.)
ADAWRITER (to
be available in
early 1975;
EASYTRIEVE
(PANSOPHIC Systems)
$120,000; Price is all
inclusive; no separately
priced options
SELECTED DATA BASE MANAGEMENT SYSTEMS: GENERAL CHARACTERISTICS
GENERAL DESCRIPTION
ADABAS is a DBM system
with a number of utility
programs used under DOS or
OS with BDAM for data
generation and access.
The design of IDMS includes
a schema data description
language (schema DDL), a sub-
schema data description
language (subschema DDL), a
device/media control language
(DMCL), and a data manipula-
tion language (DML), as well
as the data base management
modules themselves (DBMS).
IDMS also includes a data
dictionary system, which
operates from the user-
established schema definition
of data and a series of data
administrator utility programs.
IMS is a highly flexible
data base management system
with fairly simple funda-
mental functional concept.
The user employs utility
programs to describe the
structure of the system
from two viewpoints: stoned
data structure as seen by
the system, and logical
data structure as seen by
an application.
IDMS IDMS/CULPRIT $37,500; monthly license
(Cullinane Corp.) available
Boston
IMS
(IBM Corp.)
New York
GIS/VS, GIS-2 Monthly license only
IMS-2: DB - $616
DC - $700
IMS/VS: DB - $770,
DC-935
SYSTEM 2000 SEE THE TABLES FOR
THE SELECTED REPORT
GENERATOR PACKAGES
TOTAL
(Cincom
Systems, Inc.)
Cincinnati
SOCRATES DOS: TOTAL 4 - $76,500;
TOTAL 7 - $29,500.
OS: TOTAL - 4 - $28,000;
TOTAL - 7 - $34,500.
Monthly license avail-
able
TOTAL has facilities for
data base generation and
accessing by any host
language that supports a
CALL statement.
- 207 -
SELECTED DATA BASE MANAGEMENT SYSTEMS: HARDWARE CHARACTERISTICS
NAME OF
PACKAGE
AND COMPUTER SYSTEM MINIMUM CORE
VENDOR CPU REQUIREMENTS
ADABAS IBM System/360 and 370 160K bytes
Siemens 4004
UNIVAC 9000 Series
IDMS
INS
SYSTEM 2000
IBM (Refer to Report Tables
for Report Generator)
IBM S/360 and 370
UNIVAC Series 70
IBM S/360 and 370 IMS-2-DB: 128K
Models 40 and 145 and (MFT), 256K
up (MVT); DB/DC
512K(VS9):
768K(VS2); IMS/
VS - DB: 90K
Partition: DB/DC
350K Partition
SEE THE TABLES FOR THE
SELECTED REPORT GENERATOR
PACKAGES
TOTAL IBM S/360 and 370
Honeywell 200 and 2000
Models 7 and 2
UNIVAC Series 70 and
9400/9700 Computers
CDC 6000 Series
3K to 30K
bytes minimum
SELECTED DATA BASE MANAGEMENT SYSTEMS: SOFTWARE CHARACTERISTICS
NAME OF
PACKAGE
AND
VENDOR
COMPUTER SYSTEM
CPU
APPLICATION
PROGRAMMING
OPERATING LANGUAGES DATA BASE
SYSTEM SUPPORTED LANGUAGE FACILITY

ADABAS IBM Systems/360 & 370 DOS, OS, OS/VS COBOL, PL/1 ADABAS
Siemen 4004 PBS FORTRAN COMMAND
UNIVAC 9000 DOS ASSEMBLER. LANGUAGE
Series
IDMS IBM S/360 & 370 DO DML Processor Hierarchical
UNIVAC Series 70 DOS, DOS/VS supports only or network
OS, VS1, VS2 ANS COBOL: IDMS structure
VMOS, TDOS, can also be
DOS accessed from
FORTRAN, PL/1
and Assembler
IMS IBM S/360 & 370 OS/MFT COBOL, PL/1 DATA LANGUAGE /1
Models 40 & 145 VS1, VS2 Assembler
and up
SYSTEM 2000 IBM SEE THE TABLES
FOR THE SELECTED
REPORT GENERATOR
PACKAGES
TOTAL IBM 5/360 & 370 DOS, DOS/VS, COBOL, DATA BASE
Honeywell 200 OS, VS1, VS2 RPG11, FORTRAN DEFINITION
2000 Mod 1, Mod 2 OS/2000
UNIVAC Series 70 TDOS, DOS
and 9400/9700 SCOPE, KRONOS
Computers
CDC 6000 Series
(CONTINUED)
NAME OF
PACKAGE
AND
VENDOR COST GENERAL DESCRIPTION

DYL -250
DYL -260
(Dylakor
Computer Systems)
Van Nuys, CA
Purchase $2,950 or
$31/monthly
They are general purpose systems
which create files, generate
test data, print simple reports,
compress and restore records,
and update existing files 260
is principally a report genera-
tor with an excellent error
analysis facility.
MARGEN
(Randolph
Computer Co.)
$7,500 Purchase Margen is a report generator
and file maintenance system
with facilities for easily
handling one-time immediate
requests as well as standard-
scheduled reports.
REPORT WRITER
(Pioneer Data
System)
RSVP
(Honeywell
Info. Systems)
Purchase Price $2,000
$141 - $275/monthly for
single report generator
$176 - $350 for multiple
reports.
Report Writer is a robot-based
file examination and report
creation program.
RSVP is a report generator
written specifically for
management and other personnel
with no prog. experience.
SOCRATES $675 - $750/monthly
$20,750 - $22,500 outright
purchase.
A generalized extract and
reporting system from an
integrated data base: princi-
pally designed for TOTAL,
highly flexible and a wide
range of options which will
allow the user to construct
complex reports.
SYSTEM 2000 $650 - $520/m
For report writer package
System 2000 is a generalized
data base management system
that features fast response
and access either through its
imbedded command language or
through interfaces to languages
such as COBOL or FORTRAN. The
report writer feature enables
the user to define and generates
as many as 100 formated reports
from a single scan of the data
base indices.
- 210 -
SELECTED REPORT GENERATOR PACKAGES: GENERAL CHARACTERISTICS
NAME OF
PACKAGE
AND
VENDOR COST GENERAL DESCRIPTION
ASI -ST
(Application
Software, Inc.)
$10,000 to $33,000 depending
on which version considered
and with what options
Full scale batch/conversa-
tional data management system,
features a high-level user
language that simplifies pro-
cessing of files/data base.
It can work with conversational
format files (eg. BSAM, ISAM)
or supplements ILLS or Total
can provide preparation of any
number of reports following a
single run through data base
or faster files.
AUTOTAB
(Cadex Corp.)
Phoenix, AZ
$375/m
$9000 for Perpetual License
(Out right purchase)
It is a report generator
designed for business and
financial planning and
reporting. It is especially
suited for applications
involving numerical tables.
CULPRIT
(Cullinane
Corp.)
Boston, MA
$15,000 for a two year license
plus a 15 percent renewal fee
each year. Special interfaces
(TOTAL, RDMS, etc.) cost an
additional $15,000 each
It replaces the report and file
producing part of a program.
It is intended however, only
to supplement programming
languages, not replace them.
It creates and converts files
and produces 1-time or produc-
tion reports.
DATA ANALYZER
(Program Products,
Inc.)
$640/m Flexible info retrieval and
reporting system quick report
generator with generally
accepted rules of presentation
such as automatic column
headings line spacing, and lne
width.
DATA-MAN
(DATA-MAN, Ltd.)
Canada
$450/m + $1,000 installation
purchase $11,000
Self-contained data management
system with strong file creation
and data manipulation capabili-
ties. It also provides modules
for data retrieval and R.W.
- 211 -
SELECTED REPORT GENERATOR PACKAGES: HARDWARE. CHARACTERISTICS
NAME OF
PACKAGE

AND COMPUTER CORE
VENDOR SYSTEM NEEDED PERIPHERAL

AUTOTAB IBM/360 65K for Table Usual peripheral storage
IBM/370 of 150 rows by devices such as tape
Honeywell/600 73K for 200 by or disk, only to save
Honeywell/6000 13 Table Table data
GE MARKII/TSS 270K for 250 by
100 Table
ASI-ST IBM/360 44-60K for DOS,
IBM/370 DOS/VS and
65-85K for others
CULPRIT IBM 360/30 52K/DOS
IBM 370/135 100K/OS
UNIVAC Spectra 200K/IMS,
70 Culprit
DATA-MAN - IBM 360/25 UP 44K/OS(MFT) 1 Disk Unit
IBM/370 52K/OS(MVT) 1 Console Typewriter
34K/DOS 1 Card Reader
1 High Speed Printer
DATA ANALYZER IBM/360 40K/DOS Card Reader/Punch Printer.
IBM 370 85K/OS One or two disk drives or
one disk drive and two
tape drives
DYL -250 IBM/360 32K-65K Card reader, TAPE DASD
INPUT, PRINTER and DASD
for OUTPUT.
DYL-260 IBM/370 40K Card reader, TAPE DASD
INPUT, PRINTER and DASD
for OUTPUT.
RAMIS IBM/360 Minimum 128K plus
IBM/370 6K for options
5K for buffers
- 212 -
(CONTINUED)
NAME OF
PACKAGE
AND COMPUTER OPERATING SUPPORTING
VENDOR SYSTEM SYSTEM LANGUAGES
RSVP IBM 360/30 UP OS, DOS Special language
or comparable COBOL orientated
Honeywell Systems
SOCRATES IBM 360/30 UP DOS, OS Special language
SYSTEM 2000 IBM/360 OS, OS/VS Special commends with
IBM/370 interface with COBOL
and FORTRAN
UNIVAC/1108,06,10 EXEC 8
CDC 6000 SCORE, KRONOS
CYBER 70 SCORE, KRONOS
SELECTED REPORT GENERATOR PACKAGES: SOFTWARE CHARACTERISTICS
NAME OF
PACKAGE
AND COMPUTER OPERATING SUPPORTING
VENDOR SYSTEM SYSTEM LANGUAGES
AUTOTAB IBM/360 OS or TOS Special language with
IBM/370 CRSE facilities to exit to
Honeywell/600 GECOS FORTRAN or COBOL
Honeywell/6000
GE MARKII/TSS
ASI -ST IBM/360 DOS, DOS/VS
IBM/370 OS/MFT
OS/MVT
OS/VS1
OS/VS2
Special language
CULPRIT IBM 360/30 DOS, OS Special language
IBM 370/135 (MFT, MVT, VS) can exit to users -
UNIVAC SPECTRA 70 TDOS, DOS written program
DATA ANALYZER IBM/360 DOS FORTRAN
IBM/370 DOS/VS
OS, OS/VS
DATA-MAN IBM 360/25 UP OS or DOS Special language
IBM/370
DYL-250 IBM/360 OS, DOS Special language
IBM/370 VS
DYL-260 IBM/360 OS, DOS Special language
IBM/370 VS
MARGEN IBM/360 OS Special language
DOS English language orientated.
REPORT WRITER Any Computer with
COBOL Compiler
Special language
a series of descriptor
cards are used to describe
the file to be searched or
report to be produced.
- 214 -
(CONTINUED)
NAME OF
PACKAGE
AND COMPUTER ' CORE
VENDOR SYSTEM NEEDED PERIPHERAL
RSVP IBM 360/30 UP 22K 1 Disk Drive
1 Disk Reader
1 Printer
SYSTEM 2000 IBM/360 256K
IBM/370
UNIVAC 1108,06, 32K
10
CDC 6000 18K
CYBER 70
REPORT WRITER Any computer 52K
with a COBOL
Compiler
5.5 REGIONAL/STATE RESPONSIBILITIES
In addition to determining the specific report capabilities desired
for the Regional Data Network (see section 5.2), Phase II of this contract
will have to devote considerable attention to the task of assigning respon-
sibility for the collection and processing of information within the system.
Currently no data processing takes place at the regional level. It seems
certain, moreover, that the responsibility for data collection and primary
processing will remain with the States, with the exception of census demo-
graphics. With respect to clinic data, most states are collecting some
clinic information and this may prove adequate without further efforts on
the part of the Region. It is also possible that the data collected
nationally by the annual survey of NCHS might become the input source for
the region. Such data are available for the year 1974 and are currently
being collected for 1975. Updating such data, however, would be a matter
of some concern in reference to its use in the RDN.
The processing of patient-level data is, of course, the principal
occupation of the respective state family planning information systems.
In considering the role of this level of information in the RDN, there
is little doubt that an appropriate subset of these data (suitably massaged
to protect confidentiality) can be made available to the region. Indeed,
several statewide family planning directors have expressed some interest
in making available to the Region an edited patient master file which would
then serve as the major data input to the RDN. There are many advantages
to this position, but its implementation is of course dependent upon the
existence of an appropriate regional data processing capability.
An alternative to processing reports for the RDN at the regional level
would be to create in each of the states the capacity for producing the
reports at the state level of aggregation and then having them compiled
manually into overall regional documents. This approach is certainly
possible, especially if technical assistance for programming can be
supplied to those states needing assistance; it is also conceivable that
one of the states might be asked to serve as the processor for those reports
that summarize the data regionwide.
In any event, it is not possible at this stage of the project to do
more than merely touch upon the subject of assigning the data processing
responsibility for the RDN. Certainly, the task has many more aspects
than those mentioned above, and the main reason for discussing them at
this point is not to state the problem in its entirety but to emphasize
the need to resolve such issues early. Many features of the RDN design
will be dependent upon decisions made concerning the assignment of data
processing responsibilities within the system. If the possible courses
of action in this matter can be narrowed, the job of system design will
be greatly simplified and the chances for installing an operational net-
work in minimal time will be considerably enhanced.

6.0 A DECISION AGENDA
In order to ensure an orderly transition into the next project phase,
administrative decisions will have to be made concerning each of the questions
enumerated below. Some of these questions are posed merely to elicit confirma-
tion of decisions already made; others are presented for the first time.
(1) Should the Regional Data Network be designed as an ultimate
replacement for current state systems, or is its purpose rather to tie
the outputs of those existing systems into an effective regional management
reporting system? The first option would require the design and use of
standard forms and procedures in all states within the Region; thus although
it offers conceptual simplicity and would give the highest possible degree of
uniformity and data reliability, it is beyond the scope of the present pro-
ject (which is based on a "network" rather than a "single system" concept).
Furthermore, the choice of the first option would undoubtedly be traumatic
for the participating states, because an extensive amount of readjustment
and retraining is required in order to implement any new system.
(2) Is Region IV prepared to maintain some kind of data base in order
to achieve the objectives of the Regional Data Network? Without such a data
base, the reporting capability of the RDN would be considerably diminished.
Therefore, the remaining questions assume a determination to develop such a
base, and focus instead on issues which will decide the nature and size of
that base.
(3) Will patient data be maintained at the individual record level in
a regional-level master file, or will reports be generated solely on the
basis of periodic (e.g., monthly) activity analyses or "transactions"? The
former option holds the promise of answering a somewhat larger range of
questions than would be answerable from the latter; however, the cost to
the Region would be considerably higher if the former option were selected,
and this added cost would not be worth paying if estimated answers were
sufficient for the purposes of management and evaluation. (As a rough
measure, the cost of maintaining a patient-level master file would be at
very least equal to the cube of the ratio of the number of characters in
the cumulative patient record file to the number of characters in a monthly
periodic transaction file.)
(4) Which data elements should be included in the patient-information
component of the data base? Material useful for making this decision is
presented in sections 2.0-2.4 and section 5.3 of this working document.
Consideration might also be given to restricting the system (at least
initially) to use of the NCHS subset of patient data, which would rule
out any possibility of duplication of effort; then, at some future time
the data set could, if desired, be expanded.
(5) Which data elements should be included in the demographic com-
ponent of the data base? Will the data elements presented in section 5.3
serve the purpose of management and evaluation? Is the county level of
aggregation appropriate for these same purposes?
(6) Which data elements should be included in the fiscal and state
plan components of the data base? Is the state level the appropriate level
at which to aggregate this data for management and evaluation purposes?
(7) What data elements should be included in the facilities/staffing
component of the data base? Is the service site level the appropriate level
of aggregation at which to review this information? Is the NCHS inventory
suitable for constructing this file, or does a different survey instrument
have to be developed to elicit the kind of service site data needed for
present purposes?
(8) What report types (see section 5.2) should be available through
the RDN? What levels of aggregation are most appropriate for evaluation
needs? What preparation cycles? What are the anticipated needs for special
reports? How fast a turnaround time will be necessary?
(9) What user accessibility requirements will be associated with the
RDN? How will user requests be made? Will control of user requests be at
the Regional level? What level of user will have direct access to the system?
What kind of training will be necessary?
The questions posed above by no means exhaust the list of system design
alternatives which will need to be resolved as the work of the project pro-
- 220-
ceeds. However, these questions provide a basic starting point, and the
answers which are given to them will provide a basic direction to future
work on the design of a Regional Data Network for Region IV.

7.0 BIBLIOGRAPHY
1. Adil, Enver. "The Use of Statistical Guides and Measures of Effective-
ness in Determining Government Policy for Influencing Fertility
-- "Pakistan." In Proceedings of the World Population Conference,
Belgrade, 30 August - 10 September 1965, Vol. 2, pp. 63-67. New
York, U.N., 1967. 4 vols.
2. Agarwala, S.N. "Evaluating the Effectiveness of a Family Planning
Program. In Research in Family Planning, ed. by C.V. Kiser,
Princeton, N.J., Princeton Univ. Press, 1965.
3. Austin, J.E. "The Management Bottleneck in Family Planning Programs."
Studies in Family Planning 4:343-350 (December, 1973).
4. Bargar, Martha. International Demographic Data Directory. A Computerized
Information Retrieval System for Demographic and Family Planning
Data, 1972. 60 pp. ED 076 396
5. Bauman, K.E., and J.R. Udry. "Evaluation of the Five-Year Family
Planning Plan." Health Services Reports 88:814-817 (November, 1973).
6. Beasley, J.D. "Evaluation of National Health Programs. IV Louisiana
Family Planning. American Journal of Public Health 61:1812 -1825
(September, 1971).
7. Beasley, J.D., and J.P. Wells. "Louisiana: Developing and Managing A
Statewide Family Planning Program." Family Planning Perspectives
3:68-79 (October, 1971).
8. Berelson, Bernard, ed. World Population: Status Report 1974: A Guide
for the Concerned Citizen.
9. Bogue, Donald J. A Model Interview for Fertility Research and Family
Planning Evaluation. Chicago, Communitee & Family Study Center,
University of Chicago, 1970. 176 pp. Manual No. 3
10. Bogue, Donald J. Cost-Effectiveness Analysis of Family Planning
Programs. Chicago, Community and Family Planning Study Center,
University of Chicago, 1973. 111 pp. Manual No. 11
11. Bogue, Donald, J., ed. Family Planning Improvement Though Evaluation:
A Manual of Basic Principles. Chicago, Community and Family
Study Center, University of Chicago, 1970. 82 pp. Manual No. 1
12. Bogue, Donald J., and Elizabeth J. Bogue. Techniques of Pregnancy
History Analysis. Chicago, Community and Family Study Center,
University of Chicago, 1971. 156 pp. Manual No. 4
13. Bogue, Donald J., and James Nelson. The Fertility Components and
Contraceptive History Techniques for Measuring Contraceptive
Use-Effectiveness. Chicago, Community and Family Study Center,
University of Chicago, 1971. 75 pp. Manual No. 5
14. Bogue, Donald J., Scott Edmonds, and Elizabeth J. Bogue. An Emperical
Model for Demographic Evaluation of the Impact of Contraceptives
and Marital Status on Birth Rates, with Computerized Applications
to the Setting of Targets and Quotes for Family Planning Programs.
Chicago, Community and Family Study Center, University of Chicago,
1973. 155 pp. Manual No. 6
15. Chandrasekaran, C., and Mays W. Freymann. "Evaluating Community Family
Planning Programs." In Public Health and Population Change, ed.
by M.C. Sheps and J.C. Ridley. Pittsburgh, Pa., University of
Pittsburgh Press, 1965.
16. Chokel, Patricia K., and Janet T. Dingle. "Using Standard Data for
Program Evaluation in Cleveland." Family Planning Perspectives
5:216-222, Fall, 1973.
17. Correa, H., V.W. Parrish, Jr., and J.D. Beasley. "A Three-Year Longi-
tudinal Evaluation of the Costs of a Family Planning Program."
American Journal of Public Health 62:1647 -1657 (December, 1972)
18. Corsa, L. Jr., et. al., "Evaluating Publicly Supported Family Planning
Services in Metropolitan Detroit." Family Planning Perspectives
3:25-28 (Apr., 1971)
19. Denistan, A.L., et.al. "Evaluation of Program Effectiveness." Public
Health Reports 83:323-335 (April, 1968)
20. Elliott, Robin, et.al. "U.S. Population Growth and Family Planning:
A Review of the Literature." Family Planning Perspectives
2:II-XVI (October, 1970). Special Supplement.
21. Freedman, Ronald. Community - Level Data in Fertility Surveys.
World Fertility Survey Occasional Papers, no. 8. Voorburg,
The Netherlands, International Statistical Institute, May, 1974.
38 pp.
22. Freedman, Ronald. Example of Community Level Questionnaires. World
Fertility Survey Occasional Papers, no. 9. Voorburg, The
Netherlands: International Statistical Institute, May, 1974. 72 pp.
23. Giebink, G.R., et. al., "The Denver Areawide Health Data Management
System." Medical Care 11: Suppl. 170-177 (March-April, 1973).
24. Goldstein, H. "Observations on Evaluation of Family Planning Programs."
Health Services Reports 88:213-217 (March, 1973).
25. Haas, A. "Design Considerations for a State Health Department Information
System." American Journal of Public Health 64:481
-
495 (May, 1974).
26. Haupt, Barbara. The National Reporting System for Family Planning
Services. Health Services Reports 88:637-639 (August-September, 1973)
27. International Union for the Scientific Study of Population. Committee
on Comparative Studies of Fertility and Fertility Planning.
Variables and Questionnaire for Comparative Fertility Surveys.
New York, United Nations, 1970. 104 pp. Population Ser. No. 45
28. Johnson, W. Bert, Frank Wilder, and Donald J. Bogue. Information,
Education and Family Planning; A Guide for National Action.
Chicago, Community and Family Study Center, University of Chicago,
1973. 207 pp.
29. Kanagaratnam, K. "Administrative Aspects of Family Planning Programmes
in Asia: Report of a Workshop." Studies in Family Planning. 14:1-
(1966)
30. Keeny, S.M. "Studies in Family Planning. To Sum Up" Studies in Family
Planning 4:129-131 (May, 1973).
31. Lapham, R.J., and W.P. Mauldin. "National Family Planning Programs:
Review and Evaluation." Studies in Family Planning 3:29-52
March, 1972).
32. MacCorquodale, D.W., et. al., A "Mathematical Model for Determining
Effectiveness of Family Planning Clinics." Studies in Family
Planning 5:232-238 (July, 1974).
33. Mackenzie, V.P. "Evaluating Family Planning Programs in a Canadian
Context." Canadian Journal of Public Health 63:228-236 (May-
June, 1972)
34. McLaughlin, Curtis P., and Edward S. Trainer. Qualitive Evaluation
of Family Planning Proposals and Programs: A Systems Approach.
Chapel Hill, N.C., Carolina Population Center, 1971. 70 pp.
35. Moore, Maurice J. MINI-REGRESSION: A SmaZZ Computer Program for
Performing Multiple Regression Analysis. Chicago, Community
and Family Study Center, University of Chicago, 1974. n.p.
Manual No. 14.
36. Moore, S.H., et. al. "Using A Statewide Data System for Family
Planning." Family Planning Perspectives 5:50-54 (Winter, 1973)
37. Muller, C., et. al. "Data Gaps in Planning for Comprehensive Fertility-
Related Health Services." American Journal of Public Health
64-687-695 (July, 1974).
38. O'Connor, R.W., and G.L. Urban. "Using A Model As A Practical Manage-
ment Tool for Family Planning Programs." American Journal of
Public Health 62:1493-1500 (November, 1972).
39. Pedessen, Harold A., Henry G. Elkins, and Jeanne C. Sinquefield. A
Simplified Client Record System for Family Planning Programs.
Chicago, Community and Family Planning Study Center, University
of Chicago, 1972. 85 pp. Manual No. 10
40. Perkin, Gordon W. "Measuring Clinic Performance." Family Planning
Perspectives 1:36-38 (Spring, 1969).
41. Population Planning. Sector Working Paper. Washington, D.C. World
Bank, 1972. 83 pp.
42. Rielly, R.A. "Family Planning Service Program: An Operational
Analysis." Washington University, St. Louis, Mo. Abstracts
of Hospital Management Studies 1973 9/4 (09011 - 159p.)
43. Reynolds, J. "Evaluation of Family Planning Program Performance:
Critical Review." Demography 9:69-86 (February, 1972)
44. Reinke, W.A. "Methodologic Issues in Population Planning: Studies
of Alternative Patterns of Administrative Organization."
International Journal of Health Services 3:611-616 (Fall, 1973).
45. Reynolds, J. "A Framework for the Design of a Family Planning Program
Evaluation System." Proceedings of the Ford Foundation Evaluation
Conference, Italy: The Population Council, April, 1970.
46. Reynolds, Jack. Manuals for Evaluation of Family Planning and Popula-
tion Programs Number 1 - 4. New York, Division for Program Develop-
ment and Evaluation, International Institute for the Study of
Human Reproduction, Columbia University, 1970. 135 pp.
47. Roberto, Eduardo, and Susan L. Gehrz. "Evaluating Family Planning
Program Effectiveness and Efficiency." Studies in Family Planning
6:37-44 (February, 1975).
48. Ross, John A. "On Measuring the Effectiveness of Family Planning
Programs." In Mass Communication and Motivation for Birth Control,
ed. by D.J. Bogue. Chicago, Community and Family Study Center,
University of Chicago, 1967.
49. Seidman, D.R. Family Planning Service Programs. An Operational
Analysis. U.S. Department of Health Education Welfare, May, 1970.
109 pp.
50. Seltzer, William. "Measurement of Accomplishment: The Evaluation of
Family Planning Efforts." Studies in Family Planning 1:9-16
(May, 1970).
51. Siegel, E., et. al., A Longitudinal Assessment of a Community
Family Planning Program. Paper presented at Annual meeting
of the American Public Health Association, Miami Beach, Fla.
Oct. 22-27, 1967.
52. Sinquefield, Jeanne C. Single and Multiple Decrement Life Table
Procedures for the Analysis of the Use-Effectiveness of
Contraception. Chicago, Community and Family Study Center,
University of Chicago, 1973. 131 pp. Manual No. 8
53. Smith, Jack C., and James B. Goldsby. A Family Planning Services
Data System." Family Planning Perspectives 2:41-46 (June, 1970).
54. Snyder, G.R., et. al. A Statewide Family Planning Program: Evaluation
by Continuous Computer Monitoring." American Journal of Public
Health 59:1317-1321 (August, 1969).
55 Systems Specification for Early Demonstration Project. St. Paul
Family Planning Services Management Information System.
PB 208-761
56. Tamblyn, P.B., R.H. Richardson, and E.S. Ryle. "Planning for Family
Planning." American Journal of Public Health 63:142 -143
(February, 1973)
57. Tayback, M. Evaluation of Family Planning Programs. Papers presented
at Institute in Administration of New Programs in Material and
Child Health Berkeley, University of California, Jan. 19, 1966.
58. Thompson, H.E., and B. Berris. "A Government-Supported Family Planning
Program. Its Development and Evaluation." Journal of the American
Medical Association 230:709-712 (November 4, 1974).
59. Tyler, C.W., Jr. "Assessment of a Family Planning Program: Contra-
ceptive Services and Fertility in Atlanta, Georgia." Family
Planning Perspectives 2:25 -29 (March, 1970).
60 Tyler, C.W., Jr. "Family Planning Program Evaluation By Use of A
Sample Survey." American Journal of Public Health 60:1264 -1270
(July, 1970).
61. United Nations. Department of Economics and Social Affairs. Measures,
Policies, and Programmes Affecting Fertility, with Particular
References to National Family Planning Programmes. New York,
United Nations, 1972. 162 pp. Population Studies No. 51.
62. Urban, G.L. "Model for Managing A Family Planning System." Operations
Research 22:205-233 (March-April,. 1974).
63. Ware, G.O. "A General Statistical Model for Characterizing the Growth
Patterns and Projecting the Level of Performance of Family Planning
Clinics." Socio-Economic Planning Sciences 7:145-150(1973).
64. Wishik, S.M. The Use of Client Characteristics As Predictors of
Utilization of Family Planning Service." American Journal of
Public Health 60:1394-1397 (August, 1970)
65. Wolfers, D. "The Estimation of Potential Fertility for Family Planning
Evaluation: A Critical Discussion." Proceedings of the Royal
Society of Medicine 63:1107-1110 (November, 1970).
66. Wolfers, D. "Evaluation Criteria for a National Family Planning Program."
American Journals of Public Health 58:1447 -1451 (August, 1968).
67. Wright, N.H. "Vital Statistics and Census Tract Data Used to Evaluate
Family Planning." Public Health Reports 85:383-389 (1970).
SOURCES
1. Bibliography of Family Planning and Population.
Simon Population Trust
141 Newmarket Road
Cambridge CB5 8HA England
2. Bibliography of Reproduction.
Reproduction Research Information Service, Ltd.
141 Newmarket Road
Cambridge, England
3. Current Literature in Family Planning: A Monthly Classified Review
of the Literature in the Field of Family Planning. (Incl. in ERIC)
Library, Planned Parenthood - World Population
810 Seventh Ave.
New York, N.Y. 10019
4. Current Publications in Population/Family Planning.
The Population Council
245 Park Avenue
New York 10017
5. Driver, Edwin D. World Population Policy: An Annotated Bibliography.
Lexington, Mass., Lexington Books, D.C. Heath and Co., 1972.
1280 pp.
6. Fogle, Catherine, Karen Gleiter, and Marilyn McIntyre. International
Directory of Population Information and Library Resources. Chapel
Hill, N.C., Carolina Population Center, University of North Carolina,
1972. 324 pp. Supplement to the 1st ed., 1972. 84 pp.
7. Goode, Stephen. Population and the Population Explosion; A Bibliography.
Tray, New York. Whitson Publishing Company, 1973. 361 pp.
8. Guide to Information Sources in Family Planning; A Selected Bibliography.
New York, Planned Parenthood - World Population.
9. Kasdon, David L. International Family Planning, 1966-1968; A Biblio-
graphy. Chevy Chase, Md., National Institute of Mental Health,
1969. 62 pp. Pub. No. 1917, U.S. Public Health Service
10. Population Council Periodical Index
Population Council
245 Park Avenue
New York 10017
11. Population Index. Office of Population Research, Princeton University
12. Watts, Mary Elizabeth. Selected Reference for Social Workers on Family
Planning; An Annotated List. U.S. Maternal and Child Health
Services, 1971. 38 pp.
SYSTEM USER'S DOCUMENTATION FOR
A FAMILY PLANNING REGIONAL DATA NETWORK
Final Project Report
DHEW Contract 294-75-002
U.S. Department of Health, Education and Welfare
Public Health Service (Region IV)
DHEW Project Officers: Jean P. Cobb and James X. Lococo
Principal Investigator: A . P. Jensen
Senior Associates: James F. Doyle and John Gehl
Programmers: Richard Carling, Danny Crider, Richard Greene,
and Fereydoun Taslimi
July 1976
SCHOOL OF INFORMATION AND COMPUTER SCIENCE
Georgia Institute of Technology
SYSTEM USER DOCUMENTATION FOR A FAMILY PLANNING REGIONAL DATA NETWORK
Acknowledgments
INTRODUCTION
GENERAL DESCRIPTION OF THE REGIONAL DATA NETWORK
GENERAL SYSTEM FLOWCHARTS
* * * * * * *
DATA CONVERSION PROGRAM
* * * * * * *
TALLY PROGRAM
* * * * * * *
REPORT GENERATOR
* * * * * * *
PLOT PROGRAM
* * * * * * *
MAPPING PROGRAM
Acknowledgments
Our special thanks are extended to Ms. Jean P. Cobb, Evaluation
Specialist, Public Health Service, for the sustained, energetic and
detailed guidance which she contributed as project officer during the
course of this work. Her great interest in the project and in the family
planning program, as well as the painstaking attention she gave to the
problem of identifying the data requirements of the regional evaluation
effort, served both as the starting point and as the basis for the pro-
gramming specifications set forth in this document. We would also like
to extend our appreciation for their valuable support to Mr. James X. Lococo,
co-project officer and Assistant Regional Health Administration DHEW-IV,
and to Ms. Chrystal Darter of the Regional IV family planning program.
Finally, and once again, our gratitude is extended to the many family
planning statewide coordinators, data coordinators, systems analysts and
others throughout Region IV who gave generously of their time in order to
help us learn about the information needs of the family planning program
in this region.
INTRODUCTION
The purpose of this document is to present final design specifications
for a Regional Data Network for the family planning program in Region IV,
U.S. Department of Health, Education and Welfare. The Regional Data Network
will accept, as input, data from existing patient record systems, demographic
profiles, fiscal and budgeting information, and provider agency characteristics;
the output of the network is an integrated reporting system which can provide
Regional administrators with the management tools that will enhance the family
planning program's ability to effectively allocate and manage its resources.
The following constraints reflect the context in which the Regional
Data Network specifications have been designed.
1. Each state's family planning patient system will continue to operate
as an independent data processing service designed to meet state objec-
tives.
2. The Regional Data Network will not duplicate existing information
services at either the state or the national level. This applies
particularly to the collection of information.
3. Insofar as possible, the Regional Data Network will operate on existing
data bases, thereby keeping to an absolute minimum the generation of
new data.
4. To the extent that the Regional Data Network requires the generation
of new information, this need of the Region will not result in the
imposition of additional data collection activities on the existing
state systems. Instead, new information needs imposed by the RDN
will be met through regional resources and provided as a service to
the states rather than the reverse.
5. Patient confidentially will be totally and at all times safeguarded
in all Regional uses of patient-level data.
The foundation blocks for the work presented here were described in
the three project reports Design Considerations for a Regional Data Network,
Technical Objectives for the Proposed Linkage of Eight Family Planning Data
Systems, and Basic Network Design and Outline of Input-Output Procedures,
previously submitted to the sponsoring agency. The purpose of this final
document is to provide a record of the detailed program flowcharts and code
which specify a system design suitable for the desired regional network.
Detailed documentation is therefore set forth for each of the five major
subsystems: the data conversion program; the report generator; the tally
program; the plot program; and the mapping program. That documentation is
preceded by a general description of the network as it would ultimately function
if completely implemented. The material in this report should thus provide a
well-developed foundation and User's Manual for the creation and use of a
Regional Data Network for Family Planning when funds become available for that
purpose.
GENERAL DESCRIPTION OF THE REGIONAL DATA NETWORK
The Regional Data Network has been designed so as to place almost
no additional burden on the states. Their contribution would consist
essentially of monthly tapes generated as a byproduct of the current
processing activities and a small amount of additional information per-
taining to their state plan. Other input to the system will be derived
from NCHS and Census Bureau data. The end result will be an integrated
data base comprised of Region IV patient, demographic, fiscal, facilities,
and state plan data -- a data base upon which appropriate transformations
can be made to yield management- and evaluation-oriented graphs, maps,
charts, and statistical tables.
A more detailed view of the RDN is presented in the system flowcharts.
This flowchart is divided into six operational sections and twenty-five blocks.
The first section, which can be thought of as a conversion section, is where
census data are transformed into a card file; updated information related to
target population is read off appropriate documents and punched into a card
file (as often as appropriate); and all information referring to state family
planning fiscal operations and clinic operations is punched into a card file.
Thus, at the end of this section there are card files, two of which are ready
for use by the master control program (the census data file and the census
update file) and the third of which is ready for the master file update program
(state fiscal and facilities data).
The second section of the flowchart takes the state fiscal and facilities
card file and feeds it into the master update program along with a tape file
containing detailed information on patients, clinics, and state fiscal opera-
tions (produced by the master control program on the previous run, or non-
existent if this is the first run) and the eight patient data tape files from
the eight states. These three files are then merged in the master update pro-
gram to produce a new updated file; this "new master" tape file is then ready
for use as input by the master control program.
The third section is the master control program itself. Written in
standard COBOL, this program takes as input the census data card file, the
census update card file, and the master tape file. With these three files
it does the following:
1. Merge the census data file and the census update file to produce a
disk data file that contains data to be used by the density target
population map program.
2. Produces a disk data file that contains data for the plot program.
3. Produces a disk data file containing data for the statistical analysis
program.
4. Produces a lengthy, a highly detailed summary of all information on
patient data, clinic data, state fiscal data, and demographical data.
5. Produces an "aggregated" master tape file. This tape file will be
used by a special option of the master control program to produce trend
analyses.
Although a new detailed master tape file appears to be produced, in
reality it is the same tape file that was produced by the master file update
program. It is saved and used in the next production run by the master file
update program to help produce a new detailed master tape file.
The fourth section is where the density target population map program
takes the map data disk file (produced by the master control program) and
produces density maps of each state (by county) and of Region IV (by state).
The fifth section of the system flowchart is where the plot data disk
file (produced by the master control program) is used by the plot program
to produce bar graphs (state comparison over period), three-dimensional
graphs, and pie graphs. It should be noted that an off-line device (Calcomp
plotter) is used in the actual production of graphs. The program referenced
here only creates instructions for the plotter.
The sixth and last section is where the statistical analysis program
uses the statistical data disk file to perform a detailed statistical analysis
report.
Thus the entire production run yields the following output:
1. Density target population maps by county and state.
2. A detailed report summary of all region data.
3. A statistical analysis report.
4. Bar graphs, pie graphs, and three-dimensional graphs.
5. Detailed master tape file (to be updated in next production run).
6. Aggregated master tape file (to be used later for trend analysis).
7. Census data card file.
The major sections of the master control program are depicted in the
six pages of flowcharts which conclude this chapter of the report. These
subprograms may be briefly described as follows.
The Master-File-Setup Section
In this section, the state planning, state fiscal, state facilities
card data files and the old detailed master and the new patient tape data
files are input into a merge and edit routine. This routine will perform
an extensive series of error checks to determine the validity of all data
and thereby optimize processing time. After all checks are completed this
section of the program will merge all data into a well-formated new detailed
master tape file. This tape will be used extensively by all other sections
of the program and will be updated by the master-file-setup section during
the next processing run.
The Map-Production Section
This section first takes the Census (Old) card data file and the
Census (Update) card data file and merges them into a Census Data disk file.
The newly created Detailed Master tape file (created in section I of this
program) is then rewound and any data related to the production of maps is
read out of it. Next this and the Census Data disk file are processed to
produce yet another disk file--the Map Data file. The mapping routine itself
is then started and density target population maps are produced on the line
printer. Since this routine (the mapping routine) is written in COBOL it
will be incorporated directly into the master control program as opposed to
the plot and statistical analysis routines which shall be left as distinct
programs due to their different language types.
The Plot-Production Section
Here the Detailed Master tape file is scanned for all plot-related
data. This data is then inputted into a routine which produces a Plot
Data disk file. The actual plot program is then initiated and independently
synchronously processed.
The Statistical-Analysis Section
This section is processed exactly like the previous Plot-Production
section with the only differences being that the Detailed Master tape file
is scanned for statistical-related rather than plot-related data and that
the statistical analysis program is initiated instead of the plot program.
It should be noted that at this point the computer is working on three tasks:
the Master Control Program, the Plot Program, and the Statistical Analysis
Program. All tasks are at this point completely independent of one another.
This method of processing is much faster than if these tasks had to be per-
formed serially.
The Report-Summary Section
Here is where all data from the Detailed Master tape file is summarized
and written in report form.
The Aggregated-Master-File-Production Section
Here the Detailed Master tape file is read for the last time. Its
data is heavily edited and summarized in the production of the Aggregated
Master tape file. The program then closes and saves all files.
The following three options will be available on each run:
1. Full Production Run. Run is exactly as is outlined above.
2. Single State Run. Run is done exactly as above with the following
exception: Run is made for only one state rather than all eight.
Aggregated Master tape file is not produced.
3. Trend Analysis Run. In this run the sole input source is the collected
Aggregated Master tape files of previous time periods. A trend analysis
is then performed which will produce maps (one set for beginning of
period and another for end of period); slightly differently formated
graphs; a statistical analysis; and summarized reports.
PLOT
DATA
PLOT
PROGRAM
MASTER
CONTROL
PROGRAM
(STATISTICAL
DATA
HAP
DATA
DENSITY
TARGET
POPULATION
MAY
PROGRAM
CALCQP's\
PLOTTER
INSTRUC-
TIONS
CAL-COMP
LOT?
STATISTI-
CAL
ANALYSIS
PROGRAM
NEW
DETAILED
MASTER
FILE (/
AGGREGATE
(N?
MASTER
FILE
EAR GRAPHS
PIC GRAPHS
THREE DIMEN.
STATISTICAL
ANALYSIS
DENSITY
MAPS
? -L
NEW STATE
FISCAL AND
FACILITIES
DATA
NEW STATE
FISCAL AND
FACILITIES D
OLD
DETAILED

MASTER
I FILE C .
NEW
PATIENT
DATA
No
CURRENT
INFORMATION
(CENSUS
N
N
N
MASTER
FILE UPDATE
PROGRAM
NEW
DETAILED
MASTER
FILE CENSUS
DATA
CENSUS
UPDATE
DATA
z
r
SYSTEM FLOWCHART
NEW
DETAILED )
MASTER
THE MASTER-FILE-SETUP SECTION
CENSUS
(OLD)
CENSUS
(UPDATE)
DETAILED
MASTER
READ
MAP
RELATED
INFO
CENSUS
DATA
/ READ
CENSUS
/ PRODUCE MAP DATA 1 MAP DATA
MAPPING
ROUTINE
/ PRODUCE MAPS
THE MAP-PRODUCTION SECTION
THE PLOT-PRODUCTION SECTION

READ
PLOT
RELATED
INFO


V
/ PRODUCE DATA PLOT
THE STATISTICAL-ANALYSIS SECTION

READ
TATISTICAL
RELATED
DATA


/
PRODUCE
STATISTICA
DATA


STATISTICAL(
DATA




/DETAILED
MASTER
FILE
V
CALL
STATISTICAL
ANALYSIS
PROGRAM
STATISTICAL
ANALYSIS
PROGRAM
FULL
SUMMARIZED
REPORT
THE REPORT-SUMMARY SECTION
REPORT
ROUTINE
/ PRODUCE
REPORT OP
THE AGGREGATED
-MASTER-FILE-PRODUCTION SECTION
DETAILE
MASTER
FILE
/
READ
DETAILED
MASTER
EDIT &
SUMMARIZE
ROUTINE
ALA FLA TENN
V
LINE PRINTER
SYSTEM DESIGN FOR PROCESSING OF PATIENT DATA FILES

FLORIDA
CONVERSION

TALLY
ALABAMA
CONVERSION
TENNESSEE
CONVERSION
TO PRODUCE ONE
STANDARD FORMAT
DATA MASTER TAPE
"DISASTER"
REPORT
GENERATOR
PLOT
PROGRAM
V
CALCOMP
PLOTS
MAPPING
PROGRAM
COUN -A
COLIN -B
ITEM-1 ITEM-2
73
60 74
COUNTY MASTER TAPE
"CMASTER"
OUTPUTS
LINE PRINTER
89
DATA CONVERSION PROGRAM
DATA CONVERSION PROGRAM
Since each of the eight states in Region IV has formulated its own
format for recording the family planning-related information collected on
computer tapes, it was necessary to design a standardized data base format
for regional processing (see Design Considerations for a Regional Data
Network). To create such a data base there was needed eight programs
capable of reading the corresponding data from each of the states and
assigning appropriate interpretations to the various data elements in
order to convert them into the standard format. In the subsequent material
the general and detailed description of these programs are given.
General
There are a total of eight programs, one for each state. In structure
and function all are quite similar, but there are numerous minor differences
in detail.
Having started the program either interactively by appropriate run
command or by batch, the program requests an input tape, named tape-IN;
the operator has to mount the corresponding data tape and make available
a scratch tape for the master data base. It is very important to save other
mounted tapes before attempting to reactivate the program, if a Burroughs
computer system is used. The program lables the output tape DMASTER and
stops whenever end of data is encountered on the input tape. It must be
noted that the master file configuration is designed to be flexible and
expandable. Therefore its overall size is larger than the input data
formats, hence taking up a greater volume of tape. Generally 3 to 4 tapes
are required for the conversion of one input tape.
Program Function
The primary function of each program is to read the input data in
the format that is arranged for each particular state, interpret the data
elements according to the format of the master file, and move the relevant
information to this file. In accomplishing this, several points have to be
considered.
(1) Is the input data element relevant to master file? (If not it is
ignored.)
(2) If it is relevant, can it be directly moved to the corresponding
output data element in the master file?
(3) Whenever this is not possible, then the content of the data element
has to be interpreted and the most appropriate code is moved to the output
element.
The next pages are used to present a flowchart of the data conversion
program, a flowchart of the typical file manipulation process for a sample
state, and a flowchart of the master program. These flowcharts are followed
by a listing of standard data elements selected for the common regional data
base, and this listing is followed in turn by actual sample data conversion
programs for various states.
For further information, see the project report, Technical Objectives
for the Proposed Linkage of Eight Family Planning Data Systems.
FLOW CHART OF DATA CONVERSION
PROGRAM
START
SET UP IDENTIFICATION
DIVISION
SET UP CONFIGURATION
DIVISION

SELECT OUTPUT/INPUT
FILE
ASSIGN TO THE SELECTED
HARDWARE CONFIGURATION
START OF SET UP FOR INPUT/PATIENT )
RECORD
DEFINE INPUT RECORD INTO APPROPRIATE
ELEMENTS. NAME OF THE ELEMENTS USED
ARE THOSE OUTLINED IN THE REPORT WITH
THE ADDITION OF AN 'I' INDICATING
THAT THIS IS AN INPUT ELEMENT
FILLERS ARE USED FOR SECTIONS OF THE
RECORD THAT IS NOT NEEDED
Al
SET THE SAVE FACTOR FOR
OUTPUT RECORD
SET THE VALUE OF ID FOR
OUTPUT RECORD
DEFINE THE OUTPUT RECORD
SIZE
DEFINE OUTPUT RECORD INTO THE
STANDARD FORMAT AS DESCRIBED
IN THE REPORT USING THE SAME
CODES
( START OF PROCEDURE DIVISION
V
OPEN INPUT FILE
OPEN OUTPUT FILE
START OF FILE MANIPULATION
1
I MOVE SPACES TO OUTPUT RECORD'
B1
CLOSE INPUT
FILE
El

READ ONE RECORD
CLOSE OUTPUT
FILE WITH
LOCK
(7---STOP )
IF THE INFORMATION SET
UP IN THE INPUT DATA
ELEMENT MATCHES THAT OF
THE TARGET ONE, MOVE
THE CORRESPONDING INPUT
ELEMENT TO THE OUTPUT
OTHERWISE
INTERPRET THE
ELEMENT CONTENT
MOVE THE CORRESPONDING
CODE INTO THE OUTPUT
ELEMENT
/ WRITE THE OUTPUT WORD ON THE SELECTED HARDWARE
A009-0 = A009-I
DETAILED FLOW CHART OF TYPICAL FILE
MANIPULATION PROCESS (GEORGIA)
START OF FILE MANIPULATION
MOVE SPACES TO OUTPUT RECORD
READ ONE RECORD
A003-0 = A003-I
i A004-0 = A004-I
I A013-0 = A013-I
A03770 = 6
A3
A3
A018-0 =
A018-0 =
A008-0 = A008-I
B3
I A016-0 = A016-I
A017-0 = A017-I
A002-0 = A002-1
A032-0 = A032-I
A031-0 = A031-I
I A067-0 = "N"
1 Al28-0 = "N2" I
Al28-0 = "y2" 1

A069-0 = "YO" J
C3
II
I A071-0 = "N"
A070-0 = "Y2"
Aoll -tia = " Y"
A072-0 = "Y"
A069-0 = "Yl"
A069-0 = "NO"
A070-0 = "N2"
A068-0 = "N"
A071-0 = "N"
A079-0 = "Y2"
rIl A078-0 =


A076-0 = " It


A076-0 = "N"
A079-0 = "N2"
A078-0 = "N"

A061-0 = "7"

A062-0 = A062-I
A086-0 = A086-I
( WRITE OUTPUT RECORD (
FLOW CHART OF MASTER
PROGRAM
START
SET UP IDENTIFICATION
DIVISION
SET UP CONFIGURATION
DIVISION
SELECT OUTPUT/INPUT
FILES
ASSIGN TO THE SELECTED
HARDWARE CONFIGURATION
READ HEADING OF TAPE
CALL ALABAMA
CONVERSION PROGRAM
B
CALL FLORIDA
CONVERSION PROGRAM
CALL GEORGIA
CONVERSION PROGRAM
CALL KENTUCKY
CONVERSION PROGRAM
CALL MISSISSIPPI
CONVERSION PROGRAM
Nr
CALL NORTH CAROLINA
CONVERSION PROGRAM
3/
CALL TENNESSEE
CONVERSION PROGRAM
CALL SOUTH CAROLINA
CONVERSION PROGRAM
Clinic
r
DATA ELEMENT
DATA
TYPE
NO. OF
CHAR. COMMENTS
STATE
A003 COUNTY NUMBER N 3.
A004 CLINIC NUMBER N 5
4.
Patient A013 STATE ASSIGNED NEMER N 9
A096 REGISTERED FOR MEDICAID A 1 Y = "YES"
N = "NO"
A093 MEDICAID NUMBER N 6
A009/11 SEX A 1 F = 'FEMALE'
M = 'MALE'
A037/38 RACE N 1 1 = 'WHITE'
122/123 2 = 'BLACK'
114/115 3 = 'AMERICAN INDIAN'
4 - 'MEXICAN AMERICAN'
5 = 'ORIENTAL'
6 = 'OTHER'
A010 ETHNIC (Latin American
Origin) A 1 Y = "YES"
F
e. N = "NO"
A018/19 MARITAL STATUS . N 3. 1 = 'MARRIED'
2 = 'NEVER MARRIED'
3 = 'SEPARATED'
4 = 'DIVORCED'
5 = 'SPOUSE DECEASED'
A008 BORN ON rr 6 MO/DA/YR
A016 WHAT COUNTY DO YOU
LIVE IN N 3
A017 HIGHEST GRADE OF SCHOOL
COMPLETED N 2
A095 CURRENTLY ON WELFARE N 1 Family receiving financial assistance
from the Dept. of Social Services:
0 = "NO"
1 = 'AFDC'
2 =
3 = 'AB'
4 = 'OTHER'
A116 FINANCIAL STATUS N 1
Al] 9 NUMBER IN FAMILY,
HOUSEHOLD N 2
Visit A002 TODAY'S DATE N 6 MO/DA/YR
A094/110 TYPE OF THIS VISIT N 1 0 = 'SUPPLY ONLY (SCHED.)'
1 = 'INTAKE'
2 = 'REVISIT (ANNUAL CIIECKUP)'
3 = 'REVISIT (NOT FIRST OF
YEAR)'
4 = 'SUPPLY ONLY (UNSCHED.)'
5 = 'UNSCHED. REVISIT FOR
ANNUAL CHECKUP'
6 = 'UNSCHED. NON PROBLEM'
7 =
8 = 'UNSCHED. PROBLEM VISIT
(including Annual Checkup)'
9 = 'UNSCHED. PROBLEM REVISIT'
DATA ELEMENT
DATA NO. OF
TYPE CHAR. COMMENTS

Preg.
History
A097
A098
A029
A100
NUMBER OF PREGNANCIES
NUMBER BORN ALIVE
D4TE LAST PREGNANCY
(ENDED_
O1TCOME OF LAST
N
N
N
2
2
6 MO / DA/YR
'DELIVERY N 1 1 = 'BORN ALIVE - TERM'
2 - 'BORN ALIVE - PREMATURE'
3 = 'BORN DEAD'
4 = 'MISCARRIAGE/ABORTION'
5 = 'NEVER PREGNANT'
6 = 'OTHER'
7 - 'UNKNOWN'
A032 NUMBER OF FETAL DEATHS N 2
A031 NUMBER OF PATIENT'S
!CHILDREN ALIVE NOW N 2
Contra- A105 EVER USED ANY METHOD
ceptive TO PREVENT PREGNANCY A 1 Y = "YES"
History N - "NO"
A107/131 METHOD MOST USED IN
LAST 2 YEARS N 2 00 = 'NONE'
A040 01 = 'ORAL'
A039 02 = 'IUD'
A044 03 = 'DIAPHRAGM'
A042 04 = 'FOAM'
A046 OS = 'RYTHM'
A043 06 - 'CONDOM'
A041 07 = 'INJECTION'
A045 08 = 'STERILIZATION'
A047 09 = 'OTHER'
A048 10 = 'METHOD NOT KNOWN'
A049 WHO PRESCRIBED LATEST
METHOD N 1 1 - 'PRIVATE DOCTOR'
A050 2 = 'PUBLIC CLINIC'
A051 3 = 'DRUGGIST'
A132 4 = 'OTHER'
Services A026 COUNSELING N 1 1 = 'CONTRACEPTION COUNS.'
Provided A027 2 = 'STERILIZATION COUNS.'
A033 3 = 'INFERTILITY COUNS.'
A028 4 = 'ABORTION COUNS.'
A023 5 = 'SOCIAL SERVICES COUNS.'
A034 6 = 'OTHER'
A067 BLOOD PRESSURE A 1 Y = YES N = NO
A074 V.D. BLOOD TEST A 1 Y = YES N = NO
A073 ECT OR HGB A 1 Y = YES N = NO
Al29 BLOOD TEST A 1 Y = YES N = NO
Al28 VDRL A/N 2 1.

character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A069 PAP SMEAR A/N 2 1. character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
A070 G.C. - culture A/N 2 1. character: Y=YES 2 ch.: 0=neg.
N=NO 1=pos.
result
result
DATE OF NEXT
APPOINTMENT
IMPOSE OF NEXT
!APPOINTMENT
N 6 MO/DA/YR
N 1 1 = 'SUPPLY VISIT OR STRING
CHECK'
A086
A081
DATA ELEMENT
DATA NO, OF
TYPE CHAR. COMMENTS

A068
A071
A072
A075
A076
A077
A079/80
A078
BREAST
PELVIC EXAM
URINALYSIS
SICKLE CELL ANEMIA
STERILIZATION
INFERTILITY
PREGNANCY TEST
OTHER
A
A
A
A/N
A
A
A/N
A
1
1
1
2
1
1
2
1
Y = YES N = NO
Y = YES N = NO
Y = YES N = NO

1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
Y = YES N = NO
Y = YES N = NO
1. character: Y=YES 2 ch.: 0=neg. result
N=NO 1=pos. result
Y = YES N = NO
Contra- A061 METHOD AFTER VISIT N 1 0 = 'NONE'
ceptive A053 1 = 'ORAL'
Methods A052 2 = 'IUD'
Used A057 3 = 'DIAPHRAGM'
After A055 4 = ' FOAM'
Visit A059 5 = 'RYTHM I
A056 6 = 'CONDOM'
A054 7 = ' INJECTION'
A058 8 = 'STERILIZATION'
A060 9 = 'OTHER'
A062 REASON FOR STOPPING
METHOD N 1 1 = ' PREGNANT - PLANNED'
A063 2 = 'PREGNANT - UNPLANNED'
A064 3 = ' SEEKING PREGNANCY'
A065 4 = 'MEDICAL REASON'
A066 5 = 'OTHER'
A087 REFERRED ELSEWHERE N 1 1 = 'SOCIAL SERVICES'
A088 2 = 'MEDICAL SERVICES'
A089 3 = ' STERILIZATION'
A090 4 = ' ABORTION'
A091 5 = 'INFERTILITY TREATMENT'
A092 6 = 'OTHER'
A0135 PATIENT SEEN BY N 1 0 = ' PHYSICIAN' 6 = 'AIDE'
1 = 'P.H.N.' 7 = ' CLERK'
2 = 'F.P.H.N.' 8 = 'NUTRITIONIST'
3 = ' NURSE MIDWIFE' 9 = 'OTHER'
4 = ' L.P.N.'
5 = 'SOCIAL SERVICES
A101 MAIN SOURCE OF
REFERRAL N 2 00 = 'SELF'
01 = 'OUTREACH WORKER'
02 = 'OTHER FP CLINIC'
03 = ' HOSPITAL OR OTHER HEALTH
AGENCY'
04 - 'PRIVATE DOCTOR/NURSE'
05 = 'WELFARE AGENCY'
06 = 'ANOTHER CLINIC PATIENT'
07 = 'FAMILY OR FRIEND'
08 = 'TV, RADIO, PAPER AD'
09 = 'OTHER'
10 = 'UNKNOWN'
A082
A083
A084
A085
A112
DATA ELEMENT
DATA
TYPE
NO.
CHAR.
OF
COK9ENTS
REASON FOR DISCHARGE N 1
2 = 'ANNUAL EXAMINATION'
3 = 'MEDICAL PROBLEM'
4 = 'OTHER'
5 = 'NO NEXT APPOINTMENT'
1 = 'STERILIZATION'
2 = 'MENOPAUSE'
3 = 'MEDICAL REASON'
4 = 'PATIENT MOVED'
5 = 'PATIENT LOST INTEREST'
6 = 'PREGNANCY DESIREE'
7 - 'PREGNANCY UNPLANNED'
8 'UNKNOWN'
F11 E1 ALABAN/ HEW mom 6/28/76 09:3
50*SLIST *
11200*IDENTTEICATION DIVISION, *
11300*PROGRAM-IP, ALAP7PA. *
11400*AUTHOR. F TASIIml. *
11500*IMSTALLATION. RIO, CONPUTFR,CENTEP, 0
11600*DATFPwRITTEN/ SFFT 25, 1975. *
11700*DATF I rOMPTLE?. * 11,00*ENIORnNMENT DTvisinN., *
11900*cnNFInuRATI0N SErTioN
12000*snuRcF
- c0pFUTFR. F-57A0 WITH DERUrGTNG MOPE, *
12100*QPjECT-COMPUTFR, R*5700, *
12200*INPUTi*OUTPUT SECTTON.
12300*FTLPFPONTROLL
12400* SELECI TAFF-OUT A5STGN Tn TAPE.
12500* SELECT TAFF-IN ASSiGN TO TAPE. *
12550* SELECT REPORT-0 ASSIGN TO PACwuP TAPE, *
12600** *
12700*I*0-CnNTROL. . *
t 2s00*DATA niVisinN, * 2900*FTLE gECTTON. *
13000*ED TAPNIN *
13100* RECORD CONTAII, S 106 CHARAcTERe. *
11200* LAPEL RECORDS ARE OMITTED *
02.50* RECORDING porr IS NON-STA(`PD4Rr *
13300* FILoCK CONTATrS 20 RECORDS.
13400** *
13500** *
13600** *
13700** *
13P00** *
13900** *
14 000** egipppppPp@pppp@PpPpp@pp@pPOPP(opP@P@PP@PPPPPPOPPPPPPP@PPP@PPii(a *
14100** P
1 4200** 0 nEFTNITTnN nF IPopuT PATIENT RECORD P *
14300** P P *
14400** FaWagititaPPPOWVii@til@FitatiiWaPPRPFIIPPRPREa(atatOPPPPEIPPP@PPFOIPPPIPPWitifa *
14500** *
14600** *
1 4 R8 ** 8 *01 PATIENT - RECOFr - I.
*
4 *
1 4 900* 02 FILLER PTC Xr2). * 15000* 02 A003-I PTC Xr2). *
1 5100* 02 A004-I PTC X(4). * 15200* 02 A013-! PTC Xr9). *
15300* n2 FILLER PIC X(9). *
15400* 02 A0020.1 PTC xe61. * 15500* n2 A090'1 PTC Y(1). *
15600* 02 A008-1 PTC X(6). *
15700* 02 M OCCURS 1C TIMES PIC X(1). *
15800* 02 A076-I Plc Xe33. *
159(10* 02 A087 - I PTC Yt3). *
16000* 02 A061sI PTC Xr2). *
16100* 02 A062 - 1 PTC Xrl). *
16200* 02 A086-I PIC X(6). *
16300* 02 AOPPPI PTC X(1). *
16400* 02 FILLER PTC Xr2). *
16500* n2 A098
- T PTC 9(2). * * 16600* 0 2 A032-I PTC 9 (1).
16700* 02 A031-I PTC X(2). *
16(400* 02 A079-I PTC X(61. *
16900* 02 A095-I PTC Y(1). *
17000* 0 2 A096-I FTC, Y(1). *
17100* 02 A017-I PTC X123. *
17200* 02 A010-1 Plc Y(1). *
17300* 02 A037-1 PIC Y(1). *
17400* 02 A009-I p1C X(1).. *
ircno* 02 A101 - I Pic Y(1). *
17'600* 02 A105 I I p/c Y(1). *
17700* 02 FILLER Plc Y(1), *
17800* 02 A10 -I Pic Y(1), *
17900* 0 2 A049-1 PTC X(13. * !poop* 02 A116-I plc Y(1* *
1P100* n2 A119..7 PIC Y(9). *
1p200* 02 FILLER Pit* Y(13), *
1Ps00**
38800** **
3P900** *
39000** *
39100** *
39300**
PPio@PEAPPP@PFF@P@PEIPIPPRPPWAPPPPPP@PEoPPOPPPPPPPPPPO ) P@PPPFPLata *
P P *
39400** P DEFINITION nF OUTPUT-PATIENT RECORD @ *
39500** P 0 *
39600** pp@pRE)P8p@PF8RfigipW)Ppla@WO8ptilopRpfa@REip@RFIRPF4PPRiitaFlptapp@fi 0
39700** *
39800** *
39900** *
4 0000**

40100*Fn TAPE-OuT *
40200* SAVF-FACTOF TS 300 *
40704* LABEL RECnr1S ARE STANDARn *
40214* vALOE Or T1 is 9, 0mA5TER?
40224* RECORDING MODE I STANDARD *
40214* RECORD CONTAINS 80 CHARAcTEpS
40244* BLOCK CONTAINS 10 RECORDS. *
62700* 01 CLINIC-DATA, *
62800* 02 sTATE-NANF PIC X(3), *
62900* 02 A003 0 PTC 9(3),
63000* 02 A004-o PIC 9(5) *
63100* 02 FIEtER PIC Y(64), *
63200* 01 PATIENT-DATA, *
61300* 02 I A011-0 PC 9(9) *
63400* 02 AO 6"n PC Y(1).
,
*
63500* op A003-r pIC 9(6), *
63600* 02 A000-0 pit': x(1), *
6 3700* 02 AO 7-O PTC 9(1). * * 63800* 02 A010 -r Pic Y(1)4
* 63900* 02 A018-0 PIG gm,
64000* 02 4008-0 PIC 9(6), *
64100* 02 A0160.0 PIC 9(3). *
64200* OP A017.0 Pic
04300* Op 4095-r PIC 9(1), *
64400* 02 01116-r Pit*, 0(1). *
64500* 02 A119-c PIC 9(2). *
64600* 02 EIILEF Pic Y(45). *
64700* 01 VISIT-DATA, *
64800* 02 A002-0 PIC 9 (6)4 *
64900* 02 A094-0 PIC
U , ;(7)).
*
*
* 65000* 02 FIldEP
65100* 01 PREG-tITSTCpy, *
6 5200* 02 01097-0 PIC 9(2). *
65300* 02 A098-0 *
65400* 02 A029-0 ;I;
0(2),
*
65500* OP Alpo-r plc 9(1). *
65600* oP 4032-C PTC 9(2). *
65700* 02 A011-1
65800* 02 FILLEF PC g
*
;5. *
65900* 01 CONTRACEPTIVE-HISTORY, *
66000* 02 4105-C PIC X(1). *
66100* 02 4107-r
PC 9
9(2), *
66200* 02 A049 c *
66300* 02 ETUFF PIC x(76), *
66400* 01 SERVICF-FP0VIDED. *
66500* 02 4026-c PIC 9(1), *
66600* 02 4067 * *n
66700* 02 A074.r PTC ifil: *
66800* 02 4073-C PTC x(1). *
66900* 02 Al29-1 PIC X(1). *
67000* 02 A178 r PTC x(2). *
67200* Op A069-r *
67200* 02 A070-1 NS Or): *
67300* 02 A068-r PTC X(1). *
67400* 02 A071-r plc X(1). 4
67500* 02 4072.r. piO x(1), *
67600* 02 A075-1 PTC X(2), *
67700* OP 4076-r PTC x(1). *
67800* 02 4077-r PTC X(1). *
67900* 02 A079-1 PIC X(2), *
68000* Op A078-1 PTC x(1). *
68100* 02 A061-1 Pic 9(1), *
0 8200* 02 4062-r 9(1).
68300* 02 A087-1 PE 9(1). *
68400* 02 A0135-1 PTC 9(1), *
68500* 02 4101-1 PIC 9(2), *
68600* 07 4086-1 PTC 9(61, *
68700* 02 A081-r PTC 9(1). *
68800* 02 A112-1 PIC 9(1). *
68900* OP ETILEF PIC y(45). *
69000*En REPORT-0 * , ,
69010* RECORD CONTAINS 112 CHARACTEPS. *
69070*01 LIN-OUT. . *
6903o* 02 SUP-LTN FTC x(106). * 69040* 02 SUP-DUMMY Mc X(6). *
76500** oPPFP(ifiRolioRFFPEicapPR@PplaPpipP@R(aprORPRfoRpgifippp@pptappliptatilfalappf04 *
76600** 0 @
76700** 0 PRTICED(FE DTVISTnN (FTLF MANIPULATION) P
76800** 0 P
76900** 0 PPPP@P@PPPfPPPPPPPP8P01 001 pppprOapP@Ppp@P@PPRPP@Pi,, P@PPPPPP 0 77000**
77100**
7 7200**
77300**
77304*WORKImG-STORAGE SFCTInN,

77109* 01 Y.. PIC 9 COMP
77350* 01 C RIr 0 004,
77360* 01 ONE PIC 9 VALUE 1.
77400*PPOctoURE DIVTSIrt,
77500*OPEN-UP SECTInK.
77600*BnJ,
;;;Rg:
OPEN INPUT TAPE-TN, ,
OPEN OuTPUT TAPE-OUT.
;
7650* nPEN OUTPUT PEPrFT-0.
790o*ETLFrmANIpULATIOt, .
78000* MOVE All "N" TO CLINIC - nATA,
78100* MOVE ALL "N" TO pATTNTroATA.
W S:
MOVE'A[t "N" TO vTSTT-DCTA,
MOVE ALL "N" TO pREG-MIsTOPY,
78400* MOVE All "N" TO coNTRACFPTIVE-HISTORY.
7 8500* MOVE ALL "N" TO sERVICE-p0DVInE0.
4g1:RFAD;Pn. TAPErIN AT ENO GO TO FOX.
78720* MOVE SPACES TO SUE;-DUMMY.
78750* MOVE PATTENT*RF(FPDI TO SUB-LIN'.
7 8760* WRITE LIN OUT. 88p u* MOVE "ALAI' TO sTATE NAmE.
106200* MnvE 11003.T it A0n3,0,
106300* MOVE A00 4 -I Ti A00 4 -0, 106310* WRITE CLINIC
- nATA.
106370* MOVE Al. "N" TO PATIENT-nATAI
106400* M0VE *013 - i Ti A013 - pp
106500* IF A000-I EQuALs"1" MOVE "F"TO Ao00-n ELSE MOVE "M"Tr A009 0,
106600* MOVE A 3I- Tr A017 0
A095 0,
106700*
106100 *
106,405*
106900*
107000*
107100*
107200*
10y300*
107310*
107370*
107400*
10 500*
107600*
107610*
Ig;g0*
0*
107000*
10
0
1
7900*
108010*
108020*
10(1100*
10p200*
'06300*
10P400*
10(4410*
10P500*
10P600*
10P700*
10P71
e
0*
1 0 715*
1011720*
10SPOO*
10P900*
109000*
109100*
109200*
IF 103 ski ot-ALs "4"R ? I, mrr 6 To 11037-n IF A 10*1 F- QupLs 9.0? OR " MOB "N" Tn *010.1 tLsr
MOVE "Y" TO AC10"T.
MOVE A00.trI Tr A008-0.
MOVE A01( - I Tr A017$.0.
'YE A095-1 Fol I PtS "2" MOVE 0 TO A095-0 ELSE MOVE 4 TO
MnVE A11 8 rI Tr A116-0,
MOVE A119
- I Tr A119 - 0,
WRITE PATIENT-DATA,
MOVE "N" TO vISTT I DATA.
MnVE A00,rI Ti 4002-n.
MnvE A09 4 - I Tr A004-0,
IF 110944-T EQUALS OVE 9 Tn A094 0,
WRITE vISITrrA,
MOVE ALL "N ,' TO
TA
EREG.HISTORv,
Ann A098-T GIVING C; MOVE C To A097rn.
MOVE A098-1 Tr A008-0.
MOVE A032-I Tr 4012 - 0.
MOVE A031-I Tr A011-0.
WRITE PREG-FISTOpy.
MOVE ALL ,, m9, TO CONTpACEPTIvE.HISTORY.
MOVE "N" TO A105-0.
IF A105 4 EQUALS "X" MOVE "Y" TO 41 05 ia0.
MOVE A107 - I if Aln7
- 0.
IF A107
- I EQ1AIS "8" MOVE 9 To A10 7 ^0,
IFmovE
A107-T EQUALS " " - MOVE 10 To A107-0,
A049-I Tr A
IF A049-I F(3tALS
04
"
9
2"
0
MOVE 1 TO A049-0 ELSE
IF A049-I EMALS "1" MOVE 2 Tn A049 - 0,
IF 404901 EQUALS " " MOO' 4 TD.A049 0.
WRITE 00NIPACEPTIVEHISTORy
MOVE ALL "N" TO SERvTrLippRovIDEO.
IF 4026-1 EOUPLS "2" MOVE 1 To 4026"O ELSE
IF A026-1 EcvALS "1" MOVE 2 T(1 A02 6 -0 ELSE
IF A026-I EQUALS "3" movE 3 To A026-0 ELSE
MOVE 6 TO AC26-n.
MOVE ntoF Ti Y.
18W8:PARA-2,
IF M(X) 109450* IF mcx)
109500* IF m(Y)
109550* IF M(X)
109600* IF M(X)
109650* IF m(Y)
109700* IF MIX)
EoL1LS " OR ? o, Go TO END-LOOP ELSE
FOLALS "1" MOVE "YO" Tn A069po ELSE
EQUALS "2" MOVE "Y" TO A071-0 ELSE
EQUALS "3" MnvE "Y" TO A068 - 0 ELSE
EQUALS "4" MnvE "Y" Tn AQ67 - 0 ELSE
Fottis "5" MOVE "Y0" To AO 9
-
n ELSE
EQUALS "6" mnVE "Y" TO A074-0 ELSE
109750* IF M(X) E0toLs -7 ,, mnvE "y?
109800* IF M(x) Foms ?B? mnvE "'ft,
109850* IF m(x) folAls "9" mnvE "y?
109900* IF M(X) E0IALs "0" MOVE "Y"
109950* IF M(X) FotAls ?X ,, mnvE ?y?
1.09960* on ONE TO X. .
109965* IF x EWIALt 10 00 TO ENn-LOnP.
110000*END-Ln0p,
110300* MOVE A061 ,-1 Tr A061-0.
110400* IF A061- Fok - ALS "X" Op " " MnvF
110500* MnvE A06 -I Tr A06?-o.
110600* IF A062PI ECALS "2" MOVE A TO
tioroo* IF A062 -I E0tALS "A" OR " " MnVE
110800* Ir A087-I EMALS "5" MOVE 1 TO
110900* IF A087"1 EOIALS "A" MOVE 7 TO
111000* Ir A087-I E?11iLS "2" MOVE 3 TO 111100* IF A087-I EQUALS "1" MOVE 4 To
111200* IF A087e0 EOIA1S "3" MOVE 5 To
111300* TF A087 ,.' FOLOLS "0" Op " " MnIfF
111500*
ill600*
WIVE A101 ,A.I TO A101-0,
IF A101-T EGIALS "0" Op " " mmVE
111700* MOVE A086 1 Tr A086-0.
111800* MOVE A081-I Tr A081-01
111900* WRITE sEPWF-PRnVIDtD.
112A00* MOVE ALL "M" TO rLIN1r-DATA.
117850* 1T-0 TO READ-( F.
112900*EOJ,
113000* t*LOSE TAPE-1,,,
1 1 3100* CLOSE TAPE , OUT wiTH LOCK.
113150* CLOSE REPORT-O.
113200* STOP RUN,
TO A072-0 ELSE
TO Al29-0 ELSE
TO A076-0 ELSE
TO A077-0 ELSE
TO A078-0,
9 TO A061-0*
A062-fl. 5 To A062mo.
A087 I 0.
A087 - r.
A087-0.
A087-n.
A087"0.
6 TO A087 - 0+
10 TO A101-I,

*
*
*
*
*
*
*
*
*
*
di
*
*
*
*
*
*
*
*
*
*
*
*
*
EliEt CoNELA/ HEW MON 6/28/76 09sC
100** @@@PP@FFfifiOlot@WifitiqatiqafilWala@PfifiFiRtiFili@PfiFiptiViglifi@lo@P *
200** P@PP@Pf@fitl@fil@KifiptaptapP@PP@PWIPP@FteiPPVififiPPRI6ilifilatialg *
300** PEWiP@RWOIPP@P@PPPEAPP@AqIPPPP@P@PID(04441@@@40104401@fa *
400** PEIPEAPPFI888888888P8888@o@P8PEI(0418888Ei8P018110t41@tapp *
500** 8888E0418F @qa@o@PPlailti *
600** ii@taR@PRFEifi EaPP40(4@fafl *
18** P@PPP 8 ** EIFF@@ iiitatal@FIFFOitio ALABAMA
Eipeetts@IP(04
teft@p08801 89 *
900** PO40 8880 - 88 8880088888 *
1000** PtataPPPF0018L41 04
iitilliPPRFFFALI
tIATA 488888
1100** CONkIERSION tiptitt@P@PPFi *
1200** PP9889042 98 PROGRAM 8PPollti88898 *
1300** PtiltaPP@FP#4 1 WIPOPP@PP
1400** KAPPPPRPP@WataPtaWitaMefilaP@PPEIPPWaPtiqi@taPPP@P@PRII *
1500** VaPPIP@IFFE)(1 (41PPIPE4IPPOIPPlip@POIWIP(WiRoWaft@filiP@Plifi@liii *
1600** 888088E44040 01 0441 E041 980f1 000R801 01 8talip@W44 1 @8@9088889 *
1700** @P@PP@FF@PFli@fit@PPRPPWatIpiiR8P@PPR9418F0(18(4188P0008898 *
1800** *
1900**
2000** *
2100** *
2200** *
2300** *
2400** *
2500** *
2600** *
2700**
2800** *
2900** *
3000**

*
4 00** ************************************************************ *
3300** * DATA CONVERSION! PROGRAM
*
*
*
*
* * i488:: * Tos pe00 04, 00myER's TH E RiGIONAL.DATA INTO A sTAND * ARo * 600 * * * FORM As DESCRIBED BE L OW .

Is A TOTAL OF 6 pROGAmS * *
3700** * FOR THE COFvERSTON OF DATA * *
*
488
ERDm 6 DTFFERNT STATES *

:: * THE FOLLOOMG Is THE sTANDOCPD DATA BASE BEING ppUROsrO * * 4000 * * * TO RERRFSEMT THE MAXIMAL SET OF pATIENT.pLEVEL DATA * *
4 100** * ITEMS, * *
* *
:388:: * DATA ELEMEMT . NO, OF CHAR, * *
4400** * =======g=mv========z=======r=r====x====z========m= * *
4608:: * A003 COUNTY NUMBER 3
*
*
*
*
4700** * 4004 CLINT(' NUMBER 5 * *
411:: * 4013 SIATE _ASSIGNED NUMBER 9 * A096 REGISTERED FOR mEDICAIn 1 * * *
5000** * A093 MEDICAID NUMBER 6 * *
5100** * 4009 RAC
E
1 * *
5200** * A037 RArR 1 * *
5300** * A010 ETHNIC * *
5400** * A018 MARITAL STATUS 1 * *
5500** * A008 BORN c+ 6 * *
5600** * A018 WHAT CrUNTY DO YOU LIVE TN 3 * *
5700** * 4017 HIGHEST GRADE OF ScHn01 COMPLETED 2 * *
5800** * A095 CUPREIATLY ON WELFARE 1 * *
5900** * A116 FINANCIAL STATUS 1 *
6000** * A119 NUMBER IN FAMILY HnUSEk4.0 2 * *
6100** * A002 TODAYS DATE 6 * *
6200** * A094 TYPE CF THIS VISIT 1 * * 6300** * A097 NUMBER OF PREGNANCIES 2 * * 8400** * A098 NVMBEF BORN ALIVE
_
2 * *
6500** * 4029 DATE LAST PR E GNAN CY ENCED 6 * *
6600** * A100 OUTCOME OF LAST DELIVEpY 1 * *
6700** * 4032 NUMBER PAT
I E N T S
DEATMS. *
*
*
6800** * A031 NO
MB
, OF PATTENTs CHILDREN ALIVE NOW F * 6900** * A105 EVER LSED ANY METHOD Tn PREVENT PG. 1 * *
7000** * A107,AP39-4e * *
7100** * mt.THDO MOST USED IN LA;T 2 YEARS 2 * *
7200*** A132,I.4049 ? 51 * *
7300** * WHO PRESCRIBED LATEST mETHOD 1 * *
7400 * ** A023,A026*28,4013 * *
7500** * COUNSELING 1 * *
7600** * A067 BLOOD PRESSURE 1 * *
7700** * A074 V.D. FLOOD TEST 1 * *
7800** * A073 HCT OF HO 1 * *
7900** * 4129 BLOOD TEST 1 * *
8000** * Al28 VDRL 2 * *
8100** * A069 PAP SEAR 2 * *
8200** * A070 G.C.-CVLTURE 2
8300** * A068 BREAST
8500** * A072 URTNALYS S
8400** * A071 PELVIC ElAm
8600** * A075 SICKLE C LL ANEMIA
8700** * A076 STERILIZATION
8800** * A077 INFERTILITY
8900** * A079 PREGWCY TEST
9000** * A078 OTHER
4052 9100** * 4.62 9200** * MtTHOD AFTER VISIT 1
9300** * 4062066 9400** * REASOV FOR STOPPING METHOD
9500** * A087..92
9600** REFERRED EtSEwHFRE
9700** * A0135 PATIENT SEEN BY
9800** * AtOt MAIN SOURCE OF REFFRAL.
9900** * A086 DATE CF NLYT APpoINTmEmT 6
10000** A081 85
10100**
*
* A0814.8
10200** pURROSE OF NEXT APROIN:imENT
10300** * A112 REASON FOR DISCHARGE
10400**
10700**
sOp00** ************************************************************
10900**
it000** /488 ** *InENTTricATToN DIVISION.
113000rpRoGRAm-ID ALABAMA,
1 488:Mq[1:AIONNVIP COMPUTER, CENTER, 1 1600*DATF-wRITTENI SEFT 25, 1975, 1 1700*DATE*COMPILE0. 11 800*NVIBONMEI PIVISION,. ii9oo*coNrinuRATIoN sucTIDN. 1 2onowsouper-COMPUTER. p.5700 WITH DERUAGIN0 MODE,
12200*IN uTi OUTRUT SECTION.
12100*ORrTeiCOMPUTFR P*K5700. ,
13g88:FT EPCOWDLI
Lci TAFF-OUT ASSIGN TO TAPE,
tpsoo* SELECT TAFEwIN ASSIGN TO TAPE,
13c88*P001.cONTROL.
12800*DATA (!IV SIGN.
12900*FTLE SECTION.
@PPta@fl@PPPWAPOIPtiqqaPfie@tiPPREIFIPPRPWIPPPEaPtiPta@PFPWIFIPPPloPPOIlititi
0 Ei
P DEFINITION OF IMPUT PATIENT RECORD @
P P
elIPPfo@P@MDFFPPP0PPPP0P@p@PP4+ PPPPPPPFIPP@PPP@PPP@PPPPPPPPEAPPIP
1
1
2
1
1
1
1
2
1
* FOR MORE DETAILED INFORMATION REFER TO THE REPOPT
!Mk" 'WE* CONTAINS 2120 cHARAtTEi'S
13200* LAPEL RECORDS ARE OMITTED PECODDING MODE IS NON-STANDARD
13300* BLOCK CONTAINS 1 RFCORDs,
13400**
13500**
13600**
13700**
13800**
13900**
14000**
igig8::
14300**
14400**
14500** 14600**
Irpg831 PATIENT RECORDgul,
14810* OP D OCCURS 20 TIMES,
!ggSS: 83 56St V M 15100* Q3 A00 4 ., 1 PIC X(4),
15200* 03
15300* 03
15400* 03
15500* 03
15600* 03
15700* 03
15800* 03
15900* 0 3 16000* 03
16100* 03
16200* 03
16300* 03
A0134DI PIC X(9).
FILLER PIC x(9). A0024.1 Plc X(6),
A01,00,./ PIC X(1), 0 8 -I. PIC.X(6).
M OCCURS 10 TIMES PIC x(1).
A02 6 -I PIC X(3).
A0874, 1 PIC X(3).
A061-I PIC X( 2 ). A0620.1 PIC X(1),
408 PIC X(6).
A081-
I PIC X(1),
RIC X(2).
9(2). plc 9(1).
PIC X(P),
PIC
PIC X(6),
PIC x(1). piC,x(2),
PIC y(1),
p71e4f;:*
;IF ( 1 ) .
;IF M;
44c00): .
16400*
16500*
16600*
16700*
16800*
16900*
17000*
17100*
17200*
17300*
17400*
17500*
17600*
77 100*
17800*
17900*
18000*
18100*
18200*
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
EILLFR
PIC 4O9m
40
/
32-I
4031wq
4029 I I
4095 I 1
409 6 I I
40176, I
401QGPI
403 , 4P
4009wI
41010.I
410 , 0I
FILLER
4107wI
4049"
4116r
I
4119PI
FILLER
18500**
3 8800**
38900**
39000**
39100**
39200** 3 9N8 ** 9 **
39500**
39600**
39700**
39800** i 9900** 0000**
40100*F0
40200*
40204*
40214*
40224*
4 0234* 40244*
62700*01
62800*
62900*
03000*
63100*
63200*01
63300*
63400*
03500*
63600*
63700*
63800*
63900*
64000*
64100*
64200*
64300*
64400*
6 4500*
64600*
64700*01
64800*
64900*
?5000*
65100*01
65200*
65300*
65400*
65500*
65600*
65700*
65800*
65900*01
66000*
66100*
66200*
66300*
66400*01
66500*
66600*
66700*
66800*
66900*
P@@el0W14 0@t1IFF0(01 00) 00(400@@ 0 @0PEDP 0WI P@PAPPli ti PPET4100(a PPPFo li Opta 0
, DEFINITION oF OUTPU .T I RATIENT RECORD A
9 A
9 01 09099909049909099A9P901 0009099A40 99999099 90009999 i,999999000
TAPE-OUT
SAvE ,PFArT0p IS 300
LABEL RECORrS ARE STANDARD
VALUE OF Ir. Is ?omASTERw
BLeoRDTNG polg is STANnARD,
RECORD cONTAINS 80 CHARACTtPS
BLOCK CONTAINS 10 RECORDS.
CLINIC , DATA,
02 STATEPNW
02 4003"
02 A004"
02 FILLER
PATIENT-DATA.
02 4013 I 0
02 40961.0
O 4093 4NO
0
P
2 A029*0
02 4037-n
02 40 1 0 8?0
02 4018"
02 A0v8 01.0
02 40164.0
02 Aol7on
02 A095-r
02 0.16-r
02 A119 I C
02 FILLER
VISITaiDATA,
02 A0Q7 100
02 A0vo'r
02 FaLER
PREGieHisTOpY,
02 409700
02 A028"0
02 AC/M-()
02 Aino.r
02 A032 1
02 4011-E
02 FILLER
CONTRACEPTIVE-HISTORY.
02 A105r
02 Alor.r
02 A049-0
02 FILLER
SEROCE-PpoVIDFD,
02 A026-r
02 A0671, 0
02 A074.0
024073-C
02 At?9-r
x
PIW
PIC
(.0
(3),
;)
PIC X(66),
Pit 9(9),
PIC X(1).
Fqc 9(6).
PIC 9 (1)..
PIC X(12.
Pi (1;:
PIC 9(3).
PIC 9(2).
PIC 9(1).
PIC 9(1).
PIC 9(2)1
PIC Y(45).
T. tn;
PIC Y(73).
PIC 9 (6 ) .
pI
PI
C R(1),
W)): pTc x(65).
M
PIC R(1), PIC X(76).
PIC 9(1).
NE NH:
PIC X(1). PIC X(1).

67000* 02 Al25sp PIC X(2). *
6 7100* 02 A069 -o*
67200* n2 A070-r ;IF 0: . 67300* 02 A06e-c PTC x(1), *
67400* 02 A071"r PIC X(1). *
67500* 02 P072ell PIC X(1). *
67600* 02 A07501 PIC X(2). *
67700* 02 A076"0 PIC X(1). *
67800* 02 A077"p PIC X(1). o
67900* 02 4079"r PTC X(2), *
68000* 02 A078-I PIC X(1). *
68100* 02 A061
- r PTC 9(1).
66200* 02 A062 17 PT 9(1). *
M88:
op ApszeT,
02 40135"0 PIC V(1). *
68500* 02 A101 r piC 9(2). A
600* 02 Aum6 r PIC 9(6). *
68700* 02 A081.r PIC 9(1), *
68800* 02 A112-i PTC 9(1".
68900* 02 FILLEF PIC X(4 )
76500** OPPPPPPPPOPFPPPPIPPP@PPPPP@PPIPPPRPPPPPPPPP@PPP@P@PEPPPOPPPP 4
M88:: 0 pROCEDLFF DIvISInN (FTLF MANIPULATION)
El
P
76000** P @ *
7 6900** POIPPPPPPPPPF*40PP@PIPPPPPPPPOPP@PPP@PPPPPPP@PPPPPPROPPP@P4P@P *
77000** *
[7100** *
77200
Z00**
*
7** * 77309*wORKINGsSTOPAnE sr0TInN, *
77306*77 I PIC 9(11). *
77309* 01 X PIC 9 compi *
77350* 01 C PIr 9 COMP. *
77360* 01 ONE Plc 9 VALUE 1.
77400*FROnEOuRE DIVTSItl. *
77500*OPEN UP SECTION. *
77600*BOJ. *
77700* OPEN INPUT TAPE-TN. *
77800* OPEN OUTPUT TAPF"OUT.
m00"L8:
MEAD TAPE-TN AT END GO TO Fru,

*
ff018: PERFORM FIIE.mANIpuLATToN VARYING I FROM 1 BY 1
7 50* G
U
O
NTIL I I
*
S GREATER THAN 20. *
78 TO 00 -1oP1
77900*FTLE I mANIPULATIO SE C TION,
77910*DP0A1. * 8088* MOV All "N" TO C N C"PA A * 6100* MOV E AlL "N" TO p T NTrio T . *
Z5200* MOVE AlI "N" TO VT5TT"QATA. * (8300* MOVE All "Nw TO PRE0 I HisTORY. *
78400* MOVE ALL "N" TO CONTRACrPTIVEwHTSTORY. *
75500* MOVE ALL 99 10, TO 5ERVICL.PROVIDEn. *
78800* MOVE. "ALA" TO STATE-NAME. *
106200* MOVE A00 3 -I(T) Tn A003-D. *
106300* MOVE A00 4 -I(I) Tn A004-0.
106310* WRITE 0LINIC"DATA. *
106320* MOVE ALL "N" TO P A TIENT-DATA; * 106400* WIVE A01 5 -Iii) To A013 - 0. *
1 0 6500* IF A009 I(T) EQUALS "1" MOVE "Fs TO A009-0 ELSE *
106550
00
* MOVE "p" Tr Arc9s0.
_
*
1066* MOVE A037
- I(I) Tn A037"0. *
106700* IF A037-I(I) EQUALS "4" oR " " MOVE 6 TO A037"0 1 *
106500* IF A010-1(T) EQUALS "0" OR " " MOVE "N" TO A0t0 - 1(I) El SE *
106805* MOVE "Y" TO 0010"I(I) . *
106900* MOVE A00 8 "I(1) Tn AO0R-0. *
1 0 7000* MOVE A011 T(T) To A017-D. *
107100* IF A095-I(I EQUALS "2" MOVE n TO A095"0 ELSE *
1.07130* MOVE 4 TO A095"0. *
107200* MOVE A116wI(I) Tn A116"0. *
107300* MOVE A119 1(T) Tn W9..0. *
107310* WRITE PATID.T"DATA *
107320* MOVE ALL "N" TO VISIT-DATA. *
107400* MOVE A002-I(T) To A002-0. *
107500* MOVE A094-I(I) Tn A094"0. *
107600* IF A094"I(I) EQUALS "4" MOVE o TO A004-0, *
107610* WRITE VISIT VATA. *
107620* MOVE ALL "N" TO PREGPHISTORY. *
107700* AnD A098-I(I) r A032-I(I) GIVING Cl MOVE C TO An97s0.
107800* MOVE A09e*Iti) To A098 - O. *
107900* MOVE A03 -I(I) Tn A03p...0.
108000* MOVE A031 - I(T) To 4031-0. *
108010* WRITE PRFG OSTORY, 4
108020* MOVE ALL "No' TO CONTRACEPTIVE-HISTORY, *
108100* MOVE "N" TO A105-0. *
108200* IF A105-I(I) EQUALS "x , MOVE "Y" TO A105,0. *
108300* MnVE A10 7 -I(T) Tn A107 0. *
108400* IF A107-I(I) EQUAIr S "A , MOVE- 9 Tn 4107-o. *
108410* TF AlOrmI(I) rQuAL5 " " MOVE 10 TO A107-0. *
108500* MnVE A04 9 -I(I) Tn A049.0 *
108600* IF A049-I(I) EQUALS "2 mnvr 1 TO A049-0 ELSE *
t08700* IF A049-I(I) EQUALS "1" MOVE. 7 TO A049-0. *
108710* IF A049..I(T) EQUALS " " MOVE t TO A049-n. *
108715* WpITE CONTFACEFTIVE.-HIsynpm, A
1.0(3720* mOVE ALL "NI , TO SERVICE-PADvInED, *
toesoo* IF A026 1(I) EQUALS "2" MOVE. 1 TO A026-0 ELSE 108900* IF A026 - T(I) EQUALS "1" MOvr 2 TO A026-0 ELSE *
109000* IF A026-I(I) EQUALS "I , MOVE 3 TO A026-0 ELSE *
109100* MOVE 6 TO Ar26-n *
109200* MOVE ONF Tr X. * 109350*pAPA02. *
109400* IF M(I'Y) EQUALS " " OR ".." GO TO END-LOOPS ELSE *
109450* IF m(TPx) EQUALS "1" MOVE , y0? To A069-0 St *
I 109500* IF m(I*5) EQUALS "2" MOVE "Y " TO A071-0 LSE *
109550* F m(T , Y) EQUALS "3" MOVE tor" TO A068..0 LSE *
109600* IF m(I , x) EQUALS "4" MOVE "Y" TO +10674.0 ELSE *
109650* IF m(I,Y) EQUALS "5" MOVE "vo? TO A079-0 ELSE *
109700* IF m(I,Y) EQUALS ?6" MOVE "Y" TO A074-0 ELSE *
109750* IF m(T , Y) EQUALS "r" MOVE "Y" TO A072-0 ELSE *
109800* IF M(I,Y) EQUALS "8" MOVE "Y" TO Al29..0 ELSE *
109850* IF M(I'X) EQUALS "9" MOVE , Y , TO A0764Po ELSE *
102900* IF m(DY) EQUALS "0" MOVE "Y" TO A0770 ELSE *
10 9950* IF M(IPX) EQUALS "X" MOVE "Y" TO A078-0, * 109960* Ann ONE TO X. *
109965* IF y IS LESS THAN 11 GO TO i'ARA-2. *
18388:EmDIRE
*
I A061.I(/) Tn A061-0', *
ligg88:
IF

*
EQUALS "X" OR " " MOVE 9 TO A061-0,
MOVE A062 I 1(I) To A062-0, ,
*
*
118q8 * * TE t0o2:? t I) _EQUALS "2" MOVF 4 TO A062-0. Tr A062-I(I) QuALS "494 OR " " MOV E , To A067-n * *
0 1100* IF A087-T(I) EQUALS "5" MOVE 1 TO A087-0. *
110900* IF A087-I(I) EQUALS "4" MOVE 2 To A08T T. *
il

1100* IF
IF AQ87-1(1) EQUALS "2" MOVE 3 TO 01287 0.A087., 1(1) EQUALS "1" moVt. 4 TO A0870
*
*
111200* IF A087-I() EQUALS "3" MOVE 5 TO P087-0. *
111300* IF A087-I(
I
) EQUALS "0" OR " " MOVE 6 TO A087 - r+. *
ling8: glvilAl217WW4X- 47, p6R t, " MOVE 10 To A101-10) , * *
111700* mnvE A086-I(I) Tn A086..0. *
111800* MOVE A08 1 -I(T) Tr 4081..0, *
111900* WRITE SERvIrF-PRnvT0E0, *
112800* MOVE ALL "N" TO CLINIC-DATA. *
112900*EnJ SFCTInN. *
112910*DODA2, *
113000* rLOSF TAPE Ik, *
113100* CLOSE TAPED UT WITH LOCK. *
1 1 3200* STOP RUN, *
FIlEs GERGIA/ HEW MoN 6/28/76 09:2
50*SLIsT
100** F@PFDPFIPPP@PPP5PPP@IPPRPREitaPPWIRP@PP@IPPLaPPFIRtifaPiif* *
200** ta@@WaFFF444~afiRli@PPPRPREatapppOlLiPPRiapp@pPpPiqiill4P
300** ti@PPPEIFFMaraPPFORP@PPPPPiaPPOIPLIPPW4lialaWIWOjiPLIPS5 *
400** ?1a@P@FIFFP(0)@@P@PAPFilaPRPPEWa@P@REa@fitaPP@FIPPEDP@P@Wil
500** PROiRtaPIFF:0) wip@fifitapp 4,
600** P0 1 @taFFP@ P@PREiPPREIR *
700** 10i@OP:4FP(il kifitipWati@t1A A
PEIPPViiFFRPa LiPPoixtiPtipta 800** GEnRnIA
900** @@@P@fif - PPP
nATA
t11444f4itita(0
1000** 6 R 411(01 FFP@ (ilp@WIticopo it
1100** PFIlvia@O4fRfi CnNvERSTON (otiltioPPOPt* *
1200** 8P61 (*(0 @FF(afi PRI9GRAm EIPPROP@MI *
1300** lifiPPE4IFFRP tatafiR@PP@PP 4
1400** @EOPPIVEIFFP@FIPPEWPRP@P@(08P@ROltillitaPPPW*Ea@WaPPOLatafatifi *
1500** POIPPE4aFFkli@fipPLIVO4404441 (aPos@PP@WDRP@PPfifitifiPPPPWa@gola *
1600** 5faPPP*WatapPRPPpLilitiliiP@o@WOWaR10;4440 1 (iO44441140iPpfi *
1700** 8P@PPPFF@PliPP@PPPPP5PRipp5PRWi55PPPPli5Ci56)(01@543PPF0P *
1800** *
1900** *
?000** *
2100** *
2200** *
2300** *
2400** *
2500** *
2600** *
2700** *
2800** *
2900** *
3000**
3100** *********************************************************** *
33P8** * *DATA coNvERsT0p, PROGRAM
*

*
.
*
308** *
_ **
*
*
*
THIS pRrGEAp cONyERIs THE REGTONAL.DATA INTO A gTANDARD
*
*
3600** * FORM AS DESCRIBED BELOW. THFRF IS A TOTAL OF 6 pROGAMS * *
3700** * FOR THE COII VERSTON OF DATA FROM 6 DIFFERNT S TATES. * *
3;88** * * THE EOLLOwING Is THE STANnA * .P0 DATA BASE BEING ppOpOSEr *
*
*
4(100** * TO REPRESENT THE MAXIMAL SET OF pATIENT-LIVFL DATA * *
4100** * ITEMS. * *
420** * * *
4300** * DATA ELEmEt, T NO, OF CHAR, * *
4400** * ========================_ m, =__m_mm m * *
4500** * * *
A600** * A003 COUNTY NUMBER 3 * *
4700** * A004 CLINIC. NUMBER 5 * *
4800** * A013 STATE AssinNED NUMBER 9 * *
4900** * A096 REnISTFRED FOR mEDycAIr 1 * *
5000**
** * * A093 MEDICAID NUMBER 6 * *
51 009 1 * *
5200** * A
A SEX
037 RArF 1 * *
5300** * A010 ETHNIC 1 * *
5400** * A018 MARITAL. STATUS 1 * *
5500** * A008 BORN cp * *
5600** * A015 WHAT couNTy DO YOU LIVE TN S * *
5700** * A017 HIGHEST GRADE OF SCHDO, COMPLETED 2 * *
5000** * A095 CVPRE4TLY nN WELFARE 1 * *
5900** * A116 FINANCIAL STATUS 1 * *
6000** * A119 NUMBER TN FAMILY HnUSGOLD 2 * *
6100** * A002 TODAYS. PATE 6 * *
6200** * A094 TYPE CF THIS VTsIT 1 * *
6300** * A097 NUmBEF OF PREGNANCIES 2 * *
6400** * A098 NUMBER BORN ALIvF_ 2 * *
6500** * A029 DATE LAST PREGNANCY f_NnEn * *
6600** * A100 OUTCONF OF LAST DELIvEpT f * *
6700** * A032 NU'pEF OF FATAL DEATHS_ 2 * *
6800** * A031 NO, OF PATIENTS CHILDREN ALIVE NOW 2 * *
6900** * A105 EVER ISFD ANY MFTHOD Tr PREVENT pG, 1 * *
7000** * A107,1'0398.10, *
7100** * HETHOf MOST USED IN LAcT 2 YEARS 2 * *
7200** * A132,A049 ? 51 * * 7300** * WHO PFESCRIBED I ATEST mETHOD 1 * *
7400** * A023,A076 28,A013 * *
7500** * CnuNSFITNG 1 * *
7600** * A067 BLOOD PRESSURE 1 * *
7700** * A074 V.P. ElOOD TEST 1 * *
7800** * A073 HCT OF HGR 1 * *
7900** * Al29 BLOOD TEST 1 *
P000** * Al28 VDPL 2 * *
8100** * A069 PAP SFAR 2 * A
8200** * A070 Grf0PCUtTURE 2 * *
8300** * 4068 BREAST 1 * *
8400** * A071 PELVIC FRAM 1 * *
8500** * A072 URTNAlySTS 1 * *
8600** * A075 SICKLE CELL ANEMIA 2 * *
8700** * A076 STERIlI7ATTON 1 * *
8800** * A077 INFERTILITv 1 * *
8900** * A079 PREGNAt, Cy TEST 2 * *
9000** * 4078 OTHER 1 * *
9100** * A0520.62 * *
9200** * METHOF AFTFR VISIT 1 * *
9300** * 40626.66 * *
9400** * REASOE FOR STOPPING METHOD 1 * *
9500** * 40876, 92 * *
9600** * REFERPFD ELSEWHFPE 1 * *
9700** * A0135 PATIENT SFEN BY 1 * *
9800** * A101 MAIN SOURCF OF REFFRAL 2 * *
9900** * A086 DATE CF NEXT 4PpnINTNENT 6 * *
85 * !WS
10000** * A081 ,
*
*
*
*
* A081.85
*
- PuPpOSF OF NEXT APPOINTmENT 1 * *
*
*
10300** * 4112 REASO!, FOR DISCHARGE 1 * *
10400** *
ing8:: * * FOR MORF 0FT4ILFD INFORmATIrN REFER TO THE REPORT
*
*
*
*
10700** * * *
10800** *********************************************************** *
10900** *
* 11000**
*
M88:IDENTTFICATION DIVISION. *
IINWAT915g 41:1 D tAUnc l.. A.

1 1500*INSTALLATION. RIO.' COmPUTER:CENTE *
1 1600*DATF - WRITTEN. SEFT 25. 1975. *
117888:FATV;;URYqtVISIDN?
*
*
1 1900*CDNFIDURATION SECTION. * 1 2000*SOURCE-COMPUTER, P-5700 WITH nulunGTNG MOPE, *
1;g8:5110giOSUPThcl: ".

12300*FILEPCONTROLL
Apr-ruT ASSIGN In TA
*
_ . 2400* sELECT 1pE. * 12500* SELECT TApE I IN ASSIGN TO TAPE'. * 127no*I-o-cnNTRoL. , *
12800*DATA DIVISION. * 12900*FTLF SECTION. *
*
MSS:" TOMcONTAINS 200 fH4RAfTERs *
13101* LABEL RECORDS ARE (WITTED_ *
13103* RECORDINc, mrcr Is NON.sTANDApD *
13300* BLOCK CONTAINS 10 RECORDS. *
13400** *
13500** *
1
1
3600** *
4" 0"0**
.
.
13900** *
14000** 0@@PPEI@PPPPFFPPOIPPPPIPPPPPPRPr@PPPPPPPPPPPPPPPPPPPPPPPPP(apPPPP *
1g3(38::
A @

S
DEFINITION nF INPUT PATIENT RECORD P
*
*
1x300** (i)
14400** o@PPPEaflfa gi@PFP@PPOPPPIIPPPpPPPPPPPPPPOPPPPPPPPOIPPolopppppppppipop *
14500** *
14600** *
4700** *
14800*01 PATIENT I PECOPO6PI. *
14900* OP FII- PXC Y(1). LER *
15000* OP 40110I Plc Y(9).
PeICTN56
*
15100* OP FILLER *
15200*
07
A0370'1 *
15300* OP A009 ,1 pIC Y(1). *
15400* OP AOOP I plc X(6). *
15500* OP FILLER PIC X(40). * 15600* OP A0670 I PIC x(1). *
15700* OP A0 6 PPT PIC Y(1), *
15800* 02 A0 6 9-1 PI f Y(1)} *
15900* OP 40706, 7 PIt Y(1). *
16000* OP A0714alt PIC X(1)
.
*
. * 16100* OP A072461 plc x(1) *
16200* 02 FILLEF pTc x(l).
41784.1 16300* 02 PTC X(1), *
16400* 02 FILLEP PIC X(1).
407601 16500* 02 *
16600* 02 A0780, 7 PIC Mi: *
1 6700* 02 A079 - 1 PIC x(1). * 16800* 02 FILLER PIC X(2).
16900* 02 A023 ? 1 M Oli:
*
17000* n2 A02.6 ? T *
17100* n2 A027 ?l *
A0284,1
PIC X(1),
17200*
17300*
02 *
A033PI r,1 X(1) . n2 *
17400* n2 A034 ? I PIC X(1), *
17500* n2 FILLER *
17600* 02 11002-I
PIC X(14).
L
A003 I
PIC X(6), *
17700* 02 FIL ER *
02 PIPCICX::)26)..
*
1 Zeno* 1(900* 0? FILLFF
PIC X(3),
*
18000* 02 FILLEF PIC X(3). *
18100* 02 A031 ? T
A032-I
plc X(2). *
18200* 02
PTC X( 6 ) 17. " "2"

18300* n2 A029*T *
18305* 02 A107*7 PIC X(1). *
18310* 02 0,105"1 ;IF NII)): * 18320* 02 FILLER
18325* 02 4049'1


Pie X(11.. *
18330* 02 FILLER PIC Y(7). *
18400* 02 A061 ,1 *
1e500* n2 FILLER
A062.-I
IFD"i nP): *
18600* 02 *
18700* n2 PIC T LER
Pit.; Y(1),
0). 1 *
PAP- 18800* 12 ;IF 061:
*
18900* n2 FILLER *
1 9000* 02 A081 ? 1 PIC X(2). *
19100* 02 A0861.7 PIC X(4). *
19200* n2 A087-I . PIC X(2). *
19300* 02 coo.Ty - Nn - T PIC X(3), *
19400* 02 A004 I I * M ;((c(i
19600* 02
3; * 19500* 02 FILLER
AD1t*I
F W):
Plc i() *
19700* 02 FILLER * I;IF 19800* 02 A017 0 T
"r" FVX(1) .
*
19900* 02 FILLFRB *
20000* 02 AO1FIPT *
20100* 02 FILLER PIC xc2n), *
20200* *
20300** *
20400** *
20500** *
20600** *
20700** PPPPPPP@PPPFPPPPOIPPPPPP@PPPIP@PPPPPPP@PPPPP@P@P@P(*P@PPPPPPP * i8 8 88** 9 *. P DEFINITION OF OUTPUT-PATIFNT RECORD P * *
21000** P P
21100** OfiPPPP(OPPFPFtP@P@PPPPP@PPOIP@PPPPPPPPPPPPPPPPP@PPPCiP@PP@PPPP *
21200** *
21300** *
21400** *
21500** *
21600*ED TAPE-OUT *
21700* SAVE FACTOF TS 100 *
1 PFCDPFS OE STANDARD * M
21704* LABS
VALU OE IC IS ?IPMASTro
RtC RDING kupE IS S NDAPD.
*
*
21734* RECORD rONTAINS 80 CHARACTEPS *
21744* BLOCK CC1NTPTNS 30 REcnRns. *
44200* 01 CLINIC-DATA. *
44300* 02 STATE*NAkf PIC X(3). *
44400* 02 A003 4 1 PIC 9( 3), *
44500* 02 8004-0 *
44600* 02 FILLER
PIC 9(5),
PIC Y(69). *
44700* 01 PATIENT*OPTA, *
PIC 9(9). * 44800* 02 A0 1 1'0
4 4900* 02 A096-0 Plc Yci). *
45000* 02 A003*T P
02 A000-0
IC 9(61. *
45100* PIC Y(1).. *
45200* 02 A037 0 PIC 9(1). *
45300* 02 8010-n PIC Y(i),
4 5 400* 02 Aols-0 Plc 9c1), * il
45500* 02 A008 I 0 ET ;(3).
*
4 5600* 02 A016-0 *
4 5700* 02 A017*0 PIC 9(2). *
4 100* 02 A095 r PIC 9(1). 1
*
45900* 02 A116-1 *
46000* 02 A119 I 1. PIC 9(2). *
46100* op FItLEF. PIC X(45). *
4 6200* 01 VISIT"DATA. *
46300* 02 A002 ,Pn PIC 9(6). *
4 6400* 02 8O94 - n PIC 9(1). *
46500* 02 FIRER PIC Y(73). *
46600* 01 ppEG-HTSTrpy, *
4 6700* 02 40 9 7-0 Pic P(?). *
46E400* 02 A0980.0 PIC 9(7). *
46900* 02 40241-0 *
47000* 02 A100wr PlIcCQUi), *
47100* 02 A012w.r PiC 9(2). *
4 7200* 07 4011-r
M VCP1.
*
4 7300* 02 FTREP *
47400* 01 CONTRACFFTTVE.HISTopY; *
47500* 02 A1n5 - c*
4 7600* 02 A107wr PC UP: *
47700* 02 40491, c A
47800* 02 FTLLEF PE Mi. *
47000* 01 SERVICE - FFnvinEo. *
48000* 02 4026-r pTC 9(1). *
48100* 02 40670.n PIC X(1).
!!8200* 02 40746, n PTC X(1). *
4 8300* 02 A073-r piC x(i). *
48400* 02 Alpg.r, PTC x(1). *
48500* 02 8178 ,Pc *
4 8600* 02 4069-r ;IE M: * 48700* 02 A070-I PTC X(2), *
48800* 02 4068Pr PIC X(1). *
48900* 02 4071-r PTC X(1). *
4 9000* 02 4072.0 Pl C M;., * 49100* 02 4075.r *
49200* 02 4076-r PIC X(1). *
49300* 02 4077 r *
49400* 02 4079-1 PE N1 1: *
49500* 02 A078-r PIC X(1). *
49600* 02 8061 0 1 PIC 9(1). *
49700* 02 A062Pr
PE &((i),.
*
* 119e00* 02 A0p7-r
4900* 02 80135w0 NC 9(1). *
50000* 02 4101wr PTC 9(2).

50100* 02 4086-u PTC 9(6), *
50200* 02 4081-1 PIC 9(1). *
0300* 0? 4112-r PIC 9(1). *
50400* 02 FILLEF PTC x(45), *
58000** OR@PRPR@RRRRRRREIRRREOPPRPROPPRPRPRPRPRPRPRORPRPRROPPPPPPPRP *
;4S8
**
**
!A
P pROrEnlPF DTVIST1IN (FTLF MANIPULATION) P P
*
*
58300** P R *
58400** OpPpPRPPPROIFFRPRPRRPODPPRPRPPPRPRPRPRIIIRPRPRP@PRIIRPORRPROI@PpR *
58500** *
58600** *
58700** *
58800** *
58900*PPOrEPURE OTvTSIrv. *
59000*o/3EN-up sFcTinN. *
5 9100*8(1J.
59200* OPEN INPOT TAPE-TN., *
59300* OPEN OUTPUT,TAPF ,DOUT. *
59400*FTLF - mANTPULATIOrk. *
MR8: MOVE All "N" TO CLINIC*TATA. moVF All "N" TO pATTLNTI.DATA, * *
59700* MOVE All "N" TO VISIT-DATA. *
5960
"N"
0*
"
MOVE All " TO pREG-
DATA.
*
59900* MOVE ALL Nw TO rONTRACFPT
n
IVEIPHISTOPY, *
60000* MOVE All "N" TO srRvirt.ppoVInEr, *
6 0i0o*RFADynNE. *
60200* READ TAPE-IN AT END GO TO EPJ. *
60300* MOVE 7.nA ,, TO STATE-NAME. * 60400* MOVE 400 3 -I 7r *
60500* mnvE 400 4 -I Tr 8004-0, ,
i
*
60600* WRITE CLINTC DATA *
60700* mnvE ALL "N" TO PATTFNTwrATA. *
60800* MrVE A013.1 Tr 8013-0. *
60900* mnvE 4009-I Tr 8009-0. , *
61000* IF A037.1 EQ(ALS "W" MOVE 1 Tr 4037-0. *
61100*IF 4037 1 EgLVS "R" movE 2 Tr 4037 0 *
61200* WIVE 6 TO A 0 37-o. *
1210* MOVE 6 TO 401Fon, * 6 61300* IF 4018-I FNIALS "VY" MOVE i TO 8018 0 ELSE *
61400* IF AOTm-I FOUALs "NM? mnvE n TO 4018 0 ELSE *
61500* MOVE 3 TO AC18 -r., *
61700* MOVE AOOR T TO 4008-n. *
61e0o* MrVE A016-I Tr A016 - n. *
61900* mnvE A017-I Ir 4017-0.
62000* WRITE FATIFNT-DATA ,
62100* mnvE ALL "N" TO VI8IT-DAT4.
62200* MOVE 4002PI TO 4002-0,
62300* WRITE' VISIT-OAIA A
62400* MOVE AIL PI"' Tr PREG I HT5TuPY,
62500* mnvE 4032-1 Tr 4032-0.
62600* MOVE 4031-I Tr 4031-0, .
62610* MOVE 4079-I TO 4029 - n.
62700* WRITE PRFr-HISTORY .
62800* MOVE AIL 9'1, " To CONTRAcEPT'ivE-HISTORY,
6
62814* IF A105-I EPUAIS ?Y? MOVE "Y" Tr 4105-0 ELSE
2 815* MOVE "N? TO 1C-0.
R 8*
62822*
62826*
62830*
t43A:
62842* 62846*
g;M:
=8:
63000*
63100*
63200*
03300*
63400*
63500*
63600*
63700*
63800*
63900*
g2388:
6 4400*
64500*
64600*
6 4 700*
64800*
6 4900*
65000*
65100*
65200*
65300*
65400*
65500*
65600*
65700*
65800*
65900*
PAW:
4388:
66400* 66500* 66600*
66700*
66800*
66900*
m;s:
67100* 67110*
67,15*
M;8: 67300*
IF A061"T EcuALS "4" MOVE 3 TO 4061-0.
IF 4061.1 ECI:ALS "5" MOVE 8 TO 4061"O.
TF A061mT EQUALS "6" MOVE 9 TO 4061.0.
IF #061 -T ECrALS "7" MOVE'. o TO A061 . 0.
IF 4061PT EQUALS "8" MOVE 6 Tn 4061 - 0.
TF 4061 - T EF1ALS "9" MOVE 6 T0 4061-n.
IF A06 1!I EcuALS " " MOVE 9 TO A061 0 0.
MOVE A0 0 7.1 Tr A062-o.
MOVE A0864.1 TO A086-n.
MnVE 9 TO A01350.0,
MnVE 09 Tr AlC1-0.
MOVE "NO" Ti 407c-0.
WRITE SERvirt-RROVInFo .
MOVE ALL "N" TO CITNI0-04T4
67500* nn Tm READ-ONE,
6e000*Enj,
68i00* rLOSE TAPE-Tr,
68150* CLOSE TAPFPnLIT.
68200* CTOP RUN,
IF 4107-I EAtAIS '90" MOVE 07 TO 410 -n ELSE
IF A107-I EtatAIS MnvE 02 TO 410T-0 ELSE
IF 4107-7 EQUALS ?2" MOVE 01 To 41076, 0 ELSE
IF 4107-I Etat - ALS " 3 " moVE 04 To 4107 n ELSE
IF 410.7-1 ECWALS "4" MOVE 03 TO A1077so ELSE
IF 4107-I E0tALS m5" mnVE 0, To A107-0 ELSE
IF Alor-I Q LA LS "6" MOVE 09 To 4107-n ELSE
Jr A107-7 LOLAIS "f" MnVt. Uu TO 4107-n ELSE
IF 4107-I EQUALS "8" mnVE 10 TO A 1 07"P ELSE IF 4107-T ECUALS " " MOVE "N" TO AIOD-n,
IF 4107-i FOLALS ?2" MOV 05 To A107-n i
IF 8049- " 3 " mnkit 4 Tr, 4049-0 E LSF
MOVE 4049-I Tr A042-0,
WRIT t CnttpACFmTIVF-MTSTOpY I
MOVE A[L Tn SERVICE-PROVIDED.
IF 4023-1 EplAis "Y" MOVE 5 Tr 40264.0.
IF 4026-I EOL.ALS "Y" MOVE 5 To 4026-Q.
IF A027 ,, 1 E9LALS ?Ym mnvL 2 To 4026-0.
IF A028-I E9LALs "Y" mnvE 4 To 4026-0.
IF A033-7 E0tALS "Y" mnVE 3 Tn A026-0.
TF 4034-T ECTALS "Y" MOVE 6 TO 40 26 -0 / IF 4067-1 EGuALS "Y" MOVE "Y" Tn A067 I 0 ELSE
MOVE "N" To t067 ne
IF 4128-I L9LALS "Y" MnvE mY0 ,9 TO Al26-n ELSE
enVE "NO" To 1, 128-0, IF A069-1 EQUALS ?Y? Aran PAP-RESULTS EQUALS "3"
I nVE mY" in A069-0 ELSE F A06 9-I tgOiLs '001 4Nn PAP-RESULTS EQUALS "2"
MnVE mYl" TO A062-0 ELSE
MOVE "NO" TO 406y-0.
IF 4070-I E9tALS "Y" mnVF "Ym? TO 4070-0 ELSE
MOVE "NO" Tn A070-n,
IF 4068-1 EQUALS "T" MOVE "V" Tn A068 - 0 ELSE
MnVE "N" TO 4068-n,
IF A071-I EQIALS ?Y" MOVE "V" Tn 4071-0 ELSE
MOVE "N" TD 4071-0,
IF 4072-I E0tAL$ "Y" MnVE "Y" Tn 4072-0 ELSE
MnVE "N" TO ACTIq'n.
IF 4076-I EOLALS "V" MOVE "Y" TO 4076 0 ELSE
MOVE "N" TO A076-0,
IF A079 T EctALS "Y" MOVE "yr ,' TO A079-0 ELSE
MOVE "NO" TO A079-0.
IF 4078-I FOALS "Y" MnVE Tn A078-I ELSE
MOVE "N" TO Ar78-n.
IF 4061-I EDLAtS "0" MnVE TO 4061v0,
I
/F 40
F 40611oT/
EF
Ec
IA
LALS "2" MOVE
E P
To 4061 ,P0.
1 F A06
6
1wi Ec
UAL
LS
S "2" M
oVF To
OV 1 TO A00661-0 41-n,
"3" m .
rTIF: c0NKTY/ HEW ICON 6/28/76 09:5

1000 FigiFPFg4F@P@P@VO@P@P@RFP@PPEARP@P@IPPP@Ptip@PiiPtig 4 E4 p@i2 *
2000 (APPPP@MaPfifb@fitiPpfliPP@PPPPRI 2441 PPP(OPPP@FitiFiWiRtifi@IPPla *
3000 figiRPFP@@PHIPPPOOOPPRe@PRofoRP 0 (agigitiqqa(1 0(ata@PiqWiliP *
4000 tifil@PE4PPRP(001 @@BPPROiraPPti@F@EiPPRPPlatatiPPREIPPPlifitifiop 0 *
5000 VIPPFPFFeRP @P@P@P@PP0 *
6000 P@PF41 10 FFR@ P@PPEl@EiFifiP *
7000 POPRFPgFPR PIDEDAPtiRPOW *
_
B000 tiPPFP@IFFPER KFKTUCKY PPPAItilig@PRP *
900* (OPPPOI@FFR@ , @RPRE.PfoRR@ *
10000 PPRPH4FROil rATA @fileRREita@ri, *
11000 IDP@OPPFFRP CDN)4PSTON 61 10 (apii, P9P@P *
1200* ViiPPPPfFol@ PPriGRAM (14044E01 @PP *
13000 Ei(aPP@EI6k@P (RAPPti, Witalil *
14000 P@@PPF4PPPP0fi@fifetaRtita@PPPEiPP[a@P@P@B@Rtifita@WiRE4EilocaR
15000 FaR@PP@IFFP@Wil@PF40@ta@PRePPRtafilliiPPO@PPP@OliiPiliatJR@RPR *
1600*, VaPP*EafFPP@RPFIPPRoPPPRRPPORtapPPRilaP@P@PWifiltae@gPtatiEita *
1700* , PPRP@PF P@PPOafita@OPPP@PPRPRPOPPPROIREiP@Eitifil(44 1 P01441 @@ *
1B00* , *
1900* , *
2000* , *
2100*, *
2200* , *
2300*, *
gP8:1 * *
2600*% *
2
700.1 *PO *% *
2900,0, *
3000*I *
* * 3100*1 ***********************************************************
32004,1 * * *
3300*,
3 4 00* ,
5000
3600*y
37004,2
3B0Q2
390u*
*
y
4000*y
41004,2
4200*y
43000
4400*y
A5000
4 6000
47000
48000
49000
5000*,
5100dr1K
52000,
53000
54000
55000
56000
57000
5800*2
59000
6000*%
61000
6200*%
63000
640004
65004,2
6600*%
6700*1F
68000
69000
70000
7100*2
72000
7300*y
74004, 1F
7500.1
76004,2
77000
7P000
79000
B0000
P1000
*
*
*
*
*
*
DATA CnmVE9sTrm PPnGRAH
THIS PPDGPAV COMVFRTS THE piGTONAL DATA TNT() A STANDARD
FORM AS DESCPIBFD BF(0N. THFRF TS A TOTAL OF 6 PROGAMS
FOP THF CPVFRSTON OF DATA rRnM 6 DTFFERNT STATUS.
_
*
*
*
*
*
*
* THE FoLvo IND Ts THF STANDARD DATA PASE BEING P9CIROSED *
* TO PEPPFS 1, 1" THF MAXIMAL SFT nF pATTENT-LEVEL DATA *
* ITEMS. *
* *
* DATA ELFWEJT
_ No. OF CHAR. *
* r=========rr==============zr=======R============== *
* *
* A003 COuNTY NUMBER 3 *
* A004 CLTNIC NUMBER 5 *
* A013 STATE ASSInNED NUMBER 9 *
* A096 RFnISTFPED FOR mFDTCATr 1 *
* A093 MEDICAID NuMBER 6 *
* A009 SEX 1 *
* 4037 RAPE 1 *
* A010 ETHNIC 1 *
* AO1P MARITAL STATUS 1 *
* AOOR 1309, N r4 6 *
* ACM, WHAT croNTy DO YoU LIvi., TN 3 *
* A017 HIrlIFFT GRAOF OF srHOni rompLETEn 2 *
* A095 CUPREATLY nN WELFARE 1 *
* A116 FINANCIAL STATUS *
*
*
A119 NUHBFF TN FAMILY HnUSGOED
A007 TPDAYS DATE
6
*
*
* A0911 TYPE IF THIS VTSTT *
* A097 NUmBEE OF PREGNANCIES 2 *
* AO9P NUMBFF PORN ALTvF 2 *
* A029 DATE LAST PREGNANCY, ENnED 6 *
* A100 DUTCME OF LAST DEIIVFPY 1 *
* A032 NUPPEF OF FATAL DEATHS, 2 *
* A031 NO. OF PATIENTS cHTLDRrN ALIVE NOW. 2 *
* A105 EVER lFFD ANY mFTHMD Tr PREVENT PG. 1 *
* A107,4019-41' *
* mEiHrir MOST USED IN LAST 2 YEARS 2 *
* A1324A049", 1 *
* WHO P4SCRTRED LATEST 4THOD 1 *
* A023,A096.2P,A013 *
COuNSFITNG 1 *
* A067 BLOOD EPESsURE 1 *
* A074 v/o. Hoop TEST 1 *
* 4073 HCT rIF HGR 1 *
* 04129 BLOOD TEST 1 *
* Al2F4 VDPL 2 *
* A069 PAP SP, FAR 2
F200*Z
P300*%
P40010;
P500*X
8600*Y
P700*1:
PPOO*%
e900*1
9000*,
9100*1L
9200*1
9300*%
9400*t
9500*1K
9600*X 9700*,
9(400*X
9900*%
10000*%
10100*%
10200*%
10300*1
10400*%
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
A070 G.r.-rtiTURE
AO6P BREAST
A071 PELVTC EXAM
A077 URTNALYSTS
4075 SIrWLF DELL ANEMIA
A076 STFRIlT7ATTON
A077 INFERTILITY
4079 PREGNWY TEST
A07P DINER
A052-62
HE- THOU AFTER VISIT
A062 ? 66
PFASOrk FOR STOPPING mETHnn
40P792
REFEREED ELSEWHERE
40135 FATIFI T SEEN RY
4101 MAIN sruRcE OF prErRAL.
4086 DATE rF NEXT APPD1NTMENT
A0P10,85
A0P14.85 _
PUpPOFF OF NEXT APPOINTMENT
01112 PFASDtk FOR DISCHARGE
2
1
1
1
2
1
1
2
1
1
1
1
1
2
6
1
1
lng8:: * *
*
* FOR WORE DETAILED INEDRmATInN REEER TO THE REPOP1 * *
10700 44 * * *
- 10P00*% ************************************************************ *
10900*% *
11000*% *
/110044 *
11200*InENTTFIcATTOpo DIVISION. *
11300*PROGRAH 10 1 KENTLCKT. *
11400*AOTHOP. F TASIIMI. * _
11500*INSTALLATION. RIO rOHPUTFp.CEmTED, *
11600*DATE I WRIITEN,.SEFT 25. 1975, *
11700*DATEIPCOMPTLEr, *
1 1800*ENVIR0NME INT DTVSTON" * 11900*CDNEMPATION SCTTON. *
17000*SOURCE-CONPUTFR. p-5700 WTTH OFPUGTNG MODE. *
12100*OPJECT-COHPUTFp. p-57n0, *
12200*ImpoT*OUTpUT SECTTON, *
WIRR:FTL'IPITYLtARE.
*

ruT A SSIGN Tn DISK ACCESS W OOF Is sEnuENTTAL: *
12500* SELECT TAFF IN ASSIGN TO 1 * 100 oTsK *
12600* ACCESS MICE TS 5E00E1+17'j/4, *
12700*10-00NTRDL. . *
12800*DATA DIVISION. *
17900*FTLE SECTION. *
13000*FD TAPE IN * _
13100* RECORD CONTAINS 200 CH4PAnTERt *
13200* VALUE OF yr IS "DAINr *
1 3300* ALDO( crtotTlYs c RECORDS. *
134no*% *
i35oo*% *
13600*% *
137000J *
13800*% *
13900*, *
14000*S. P@@PWAPPRPFFPR@WailfitaPPPP@RIPPRP(A@PPra@P@PIPPPOiPPPP@PPPP@PPratalitaE 0 *
PR e e PEFTNITTnN nF INPUT PATTENT RECORD @ * W:1 P *
143000, e FA *
14400*% PfiqaPPP@PPPRFFP(aPPFP@PpPfloPPPP(ippPPPEI0EIPPPPEDWataPPO,P@P@PF64)040E4P *
14500*% *
* 14600*X
14700*$ *
lapoo*01 PATIENT-Rrr0Fr-I. *
* 14900* 02 FILLER RIO x(1). 15000* 024003?T PIC x(1). *
15100* 02 4004?T PIC y(4). *
15200* 02 oloiPPT PIC x(0). *
15300* n2 4002Y-1 Ric y(2). *
15400* 02 4002M-I PIC y(7). *
15500* 02 40020.7 PIC y(7). *
15600* 02 4094?T PIC y(1), *
15700* 02 4069"T RV'. Y(1).. *
15800* 02 4071?T PIC Y(1). *
15900* 02 4068?T
;I re W1)):
*
16000* n2 A067PT *
16100* 02 4079?T RIC y(1). *
16200* 02 4074'T PIC v(1). *
16300* 02 4072*T PIC y(1).
Y(1), *
4129 T PTO 16400* n2 *
PATIENT-PFC0FC-0.
07 A001-0 400n-0
07 A011-0
02 A 0 Q6?1
02 A093-c.
02 4009*r
02 A097 - r
02 4010 - C
02 A018-r
P2 gne-r
02 4016-c 02 4017-C
02 4095*r
n2 A116-r
n2 A119-r
02 40n2-r
02 4004-r
02 4007-c
02 Ancle.r
02 A0P9- n2 41 r00r
02 4012-1
02 4011- F
02 41n5 -r
02 81 07-f
02 40b9,mr 02 4026-F
02 4067-r
02 A074-r
n2 Ap73-r
f,2 Al29-o
n2 4178-r
02 A069*r
02 4070-r
07 A068*r
02 AC71*1
16600*
16700*
16800*
16900*
17000*
1 71 00*
17200* 02
17300* 02
17400* 0 2
17500* 02
17600* 02
17700* 02
17800* 0 2
17900* 02
1P000* 02
1P100* 02
18200* 02
18300* 0 2
18400* 02
18500* 0 2
18600* 02
18700* 02
1 8800* 02
18900* 02
19000* ne
19100* 02
19200* 02
19300* 02
19400* 02
19500* 02
19600* 02
19700* 02
19pn0*%
19900*
20000 44
201000
20700*%
M88:1
20500.4
20600* , 20700*%
20800*%
iig (01:1 2 100*01
21200*
21300*
21400*
21500*
21600*
21700*
21800*
R1900*
22000*
22100*
22700*
22300*
22400*
22500*
22600*
22700*
22800*
22900*
23000*
23100*
23200*
23300*
23400*
23500*
23600*
BUS: 23900*
24000*
311084 0 **
24300*
24400*
24500*
?4600*
24700*
4076*T
4077"1
40713*T
4026"51"*1
4026"C0*T
A026"TN*T
4026 - 0T-I
4087"N!0"1
4067'57"I
4087'IN"I
A087'PT'I
4061*T
FTLLEP
4067"T
4081*T
4080*I
A0861)-1
FTLLFP
4018T
FTLLEP
4128"1
A070"T
FTLLEP
4116"T
FTLLEP
4010"T
FTLLEP
4037"1
4009"T
4101"1
4075*T
FTLLEP
PTC y(1).
PIC v(1).
PIC Y(1).
PIC Y(1).
Plc y(1).
pTC le(1).
PIC y(1).
FDIC y(1).
PIC Y(1).
PIC v(1).
PIC Y(1).
PTC X(1).
PIC Yll).
PTC X(1).
PTC X(1).
PTC X(2).
PTC X(2).
PTC X(2).
PTC X(2).
PTC X(1).
PTC X(1).
PTC x(1).
PTr
C
X(1).
PIX(3).
PTC X(1).
PTC X(4).
Plc X(1).
PTC X(5).
PTC Yt13.
PIC X(1A. PTC X( e).
PTC X(1).
PTC X(11P).
PIC X(3).
PTC X(5). PTC X(9). PIC-X(1).
FTC X(1). X(1)
)
.
PIC Y(1).
PIC X(1).
PIC Y(1). P. X(6). PTC X(3.
P/C X(2)
)
.
PTC )(M.
P/C ?1,1,
PlC X(2). P/C YC6).
PIC x(1).
PIC Y(2).
Plc X(2).
P/C Y( 6). PyC
P/C Y(2).
P/c X(2)e P/C Yfl,,
PIC Y(2).
P/C Y(l). P/C YC1,0 P/C Y(1).
PIC Mi.
P/C X(I
PTC X(1
P/C X(2).
PjC X(2).
P/C YCT )a
PIC
16500* 02
02
02
02
02
02
e@PPP@PPPPPFFPPPIPPPPPPP@P@PPG I PPPPPPPPPPPPE I P P OIPPWWPPPEIPPP
9
P

DFFINITTON or OUTPUT-PATIENT RECORD @
o P
etappfippppp@gppppOppppoppPPOPopPRPPF@ P PPP PPPPPWIPEzPPPPR@PPP
24800* n2 4072-1
24900* 02 A075 - r
25000* 02 A076-1
25100* 02 A0774-r
25200* n2 A079-r
25300* 02 11078-r
25400* n2 A061sT
2500* 02 A0A2 - r
25 6 00* 02 AOPT-r
25700* 02 A0135 - n
25800* 02 A101 - r
25900* 02 A086-r
26000* 02 A0P1 - r
26100* 02 01112 - r
PYC X(I).
P/C Y(2).
Plc Y(1).
PIC Y(1).
PT0 Y(2).
P!C Y(1).
Plc Y(1).
PYC Y(1).
Plc Y(1).
P/C y(1).
PT*: X(2).
r4 i( ((r).
PIS y(1).
26200*1
26300*%
26400*%
26500*%
26600*% 00@PP@Pf0 00P4400000E1 0Pp0P0PPPP@PPR00(aPP0000000 0 0(1 P@PP0PPE01 00
26700*% P 0
e600*t P PPOrEDIPF DTVISInN (FiLr mAN1PULATInN) P
26900*% P @
27000*t RP@P0899089f099809990889p9090090009900000(0) 0000(00) 00000@@0@
27100*%
27200,0
27300*%
27400*%
27500*PPrcEOUPE 00./Tsirr.
27600*OPEN-UP 5PCTIntk, . 27700*80j,
27800* OPEN INPUT TAPE - TN.
27900* OPEN OUTPUT TAPE-OUT.
28000*FILE-MANIPULATTOP.

8100* MOVE SPACES Tr PATIENT-PFCnPP ? n.
28200* READ TAPE-IM AT END Gn TO EnJ.
28300* MOVE A005-I Tr A003-0.
28400* MOVE A00 4 -1 Tr A004-0.
28500* MnVE A01 3 -1 Tr A013.0.
28600* MOVE 4009 - I Tr A0n9 - 0.
28700* MOVE "3" TO 8r37 - ni
e8800* IF A017 - I FOlt15 " 2 " MnVE n1? Tn A037 0 0.
28900* IF A03 -I FolA[s "1" mnVE "2" Tn A03' ,00,
29000* IF 4037-T EQIALS "5" MnVE "4" Tn A03 -0.
29100* IF 40174.1 EcAlLS "6" MOVE " 5 " TO 403/ 4"0.
29200* I F 80377-I Fol.05 15 "4" mnvt ?A" TO A037"0.
Wg MnVE A 8: m t 01 .11 otg. Tr A0110,6-0.Q-0, nVE Tr A

29500* MOVE A002Y I I TO A002Y - n.
29600* MnVE A002m-1 In An02M - n.
29700* MOVE 40020mI Tr An02.n.
29800* MOVE 4026-I Tr 4026-0.
29900* MnVE 406 7 -I Tr A067 4, 0.
0000*
M O V E

Ti AO7A-0.
01(10* movt. A179-I Ti Al29 - 0.
30200* MOVE 4069 - I Tr A069 - 0.
30300* mnvE A068.1 Tr A068 - 0.
30400* MnVE 4071-I Tr A071-0.
30500* MOVE 4072-I Tr A072-0.
30600* MOVE A079-I Tr A079 - 0.
30700* MOVE 4087-I Tr A087gu0.
30800* MOVE A086-Y 1 TO A086ywn,
30900* MOVE A086m I Tn An86m - n.
31000* WIVE 40860..I Tn 440860.n.
3W8:T""WWWg'Il IEVT - PEcORD - n INVALID KEY Gn TO EOJ.
3A000*EnJ.
34100* rLosF TAPE-Tv.
34700* CLOSE TAPF ? rPT WITH LnCK.
34300* STOP RUN.
FI I Es COmmTS/ HEW mpm 6/28/76 1010
100*$LIsT
200*IOENTTFICATION DivTSTrN,
300*PPOGPAH-ID, gFORrIA,
400*AUTHOP, F TAstIMI,
500*INSTALLATTON. RICH COmPUTECENTEp,
600*DATE-WRITTEN?.SEFT 25, 1975.
8 00*DENVIATE PNMEHOMPTLF R , 00 *T TVISION.,
900*CONFIURATION SFrTT0N.
910*SnURCF-COMPUTER * r 57n0 WITH nEPUnGTNn HOOF.
920*DPJECT C0HPUTFR. P-5700.
930*INPuT I OUTPUT SECTION.
M8** F1LF.ND IPQ NLs
SELLcT IPPF.00T ASSIGN T0 HICK ACCESS MODE Is SEmUENTIAL,
1200* SELECT TAEE-IN ASSTrA TO , * I00 nisi(
1210* ACCESS mrrF IS sEouFNTIAL.
1300*1-0-CONTROL. .
1400*DATA nIVTSInN.
1500*FTLE SECTTON.
i600*Fn TAPF IN
1700* RFCORn COK, TAP, S 200 cHARArTFRc
1710* VALUF_OF it IS "DAIN"
u 1750* BLOrK 0NTATNS 5 pErcIP0s,
1800*01 PATTENT PFC0Fr-T.
1e50* 02 FTLLEP PTC X(4).,
1855* 02 A013?1 PTC X(10),
1860* n2 A002'T PTC X(6), 1 * 02 FILLER PTC )(fen). 1 * 02 A003?T PTC X(2).
1875* n2 A004 1"r PTC X(2).
c 1PPO* 02 A094 - T PT Xf1). 18E15* 02 A095-T PTC X(1),
1890* 02 4096"T PTC Xf1).
1895* 02 0(008*T
1900* 02 A017-I
.PTC x(6).
1905* 02 4018 1 P rIlic )11;5.
1910* n2 A017-I PIr x(n), 1915* n2 A097 ,, I plc Y(1),
1920* 02 A098-I PIr Y(1).
Ao31 0, T 1925* 02 PIr Y(1).
1930* 02 FII LEP PIC X(A),
1935* 02 A079-I PIC. Y(4). 1940* 02 A100-T PTC MI,.
1945* 02 A101-I pir Y(1).
A107-I 1950* n2 PIr x(1), 1955* 02 FILLER PIC Y(3). 1960* 0 2 A009.T plc Y(i).
19E5* n2 FILLER PIr x(1),
1970* 02 A076-1 PIr Y(1).
1975* 02 A0135 - 1 PIr Y(1).
PIr Y(i),
11,1F )183:
1980* 02 A0A8 I I
19P5* 02 A071?'
1990* 02 A069"
1995* 0 2 FILLFP Pc x(4), 2000* 0e, A0 i

79 ,PI pr x(t),
2005* 02 A072-I Pit! Y( 1 ).. 2010* 02 A078-T plc X(L).
2015* 02 A061 4PI PIC XCi).
7020* n2 FILLER PIr MI),
2025* 02 A086-I
2030* 02 Aosl-T
Pic Y(F),
PIr Y(1).
2035* 02 FILLFP PIC YfP5i.
9035*Fn TAPE-OUT
90P5* SAVF I FACTOF TS 100
9095* VALUE OF TO IS "DAOT"
9135* PrcOpn cONTAIvs inu cHARArTFPc.
9235*01 P6TIFmT-PFCCIPT-0.
9335* 0 , PiC X(11. 9435* OP N (0) ;41: PTC X(5),
9535* OP A011 ,00
A006-r
PTC Y(9),
9635* 02 pTC_X(l).
9735* n2 A093-c P/c x(6).
9P35* 02 A009-r P/C X(15.
9935* A037 I 1 02 PIC X(1)
10035* 02 A010-r PTC Y(1)$ 10135* 02 A0181.1 PrC y(1). 10235* n2 Annesr PIC X(6).
10335* 02 401.-r FTC Y(3)0
10435* n2 A017
6
1 Pic Y(2).
10535* n2 A095-r PIC y(1). 10635* n2 A116-r PTC Y(i).
10735* 02 A119"1 PIC Y(2).
10E1 35* 02 4002-r pTc X(6).
10935* 02 4004-1 P/c x(1).
11015* 02 A0 0 7?1 PTC X(2).
11135* 02 40o8-r PIC Y(2).
11235* 02 4029-r Pic X(6).
4100-0 11335* 02 PLC x(1).
11.435* 02 4012-1 Pic Y(2).
11535* OP A011-1
PF:1 r(n. 11635* n2 4105"1
11735* 02 #107-1 P/C Y(2).
11835* 02
41:19r 0:
6
7:
1
1
A07...
PIC Y(1).
11015* PIC X(1).
12035* ;; P/C Y(1).
12135* 4074 r PzC y(1).
12235* 33 A073 I 1 PLC X(1).
12335* 02 4179-r PTC
A178'1 12435* 02 PLC
409-r iClii 12515* 02
12635* 02 4070"r PIC Y(2).
12735* 02 A0A8"E PIC Y(1).
12635* 02 407i-I PIG Y(1).
4072-r 12935* 02 P/c X(1).
13035* D2 A075'r P/C x(2).
13135* 12 A076"1
13235* 02 4077 I 1
P70 Y(1).
P/C X(1).
13335* 02 040790T P/C Y(2).
13435* 02 4078-r P/C y(1).
13535* 02 A061"0 PIC X(I).
133 * 02 4062-1 PTC Y(1).
13 1 * 02 A087'r PIC Y(1).
13835* 02 A013 ,,, r PIC Y(1).
A101"0 PIC Wi3: 13935* 02 14035* 02 A086'r
1 4 135* 11 2 4081-r
4112-r
P/C X(1).
1 4 235* 02 4335*PROcEnuRf 01VysT1v. P7r. x(1).
14145*QPEN"OP SECTION.
143.55*8nJ.
14365* OPEN INPUT TAPE-1N.
14435* npEN OUTPUT TAPE-OUT.
14515*ETLEwmANIPULATIOP.
14635* MOVE SPACES Tn PATTEMT RECOPP-0.
14735* RFAD TAPE-IN AT END GO TO End.
FR3;: MOVE Mi=1 IF MR:R:
27735*
27740*
MnVE 8013-I TO 8013-0.
MnVE 409 44 ., I TO A009-00.
27741* MnVE 4095-I TO 4005-0.
27742* MOVE 4096-1 TO 4096-0.
277i3* MOVE 4097-I TO A007'0.
27744* MOVE A09 8 "I TO 4098-0.
27745* MOVE 4029 I I It A079'0.
27746* mIvE 4100-1 TO Aln0-0,
27747* MOVE #101-I Tr A1P1'0.
27708* MnVE 4107-T_Tr 4107-0. ,
27749* MOVE A013'-T TO An135-n,
27835* MOVE A0090.I Tr A009'0.
27935* Ir 4017 1 E0tALS 99401 mnvE I To 4037-0,
een15* IF A037-1 EOIALS ?B" mnvt. 2 Tr 4037'0
28135* MOVE A TO 4037-0.
28215* IF 4018'1 MILS "Y" MOVE 1 TO 4016-0
28335* MnVE 6 TO A0180.0.
28435* MOVE A0014 I 0 Tr A008"I.
28535* MOVE A0160-I TO 4016'0.
28635* MIVE A017 I I Tr A017'0.
28735* mnvE 4002-1 Tr A002"0.
28835* MOVE 4032..1 Tr 4032-0.
28935* MOVE #031 1 TO A031-D.

P43;:
IF 40261 [DIALS "Y" MOVE 5 To A076..0 Jr A027" F01415 "Y" MnVE 2 To 4026"0
24315* IF A0? -I EQI Al S "Y" mnvE 4 To 4026-0
29435* IF A013'I E0tAlS ?Y" MnVE 3 To 4026'0
29535* TO 4014-i EQ14LS "Y" MOVE 6 To 4026'
9635* IF A067...I tOtAIS "Y" MoVt_ "Y" Tn 4069-n ELSE
29715* mnvE "N" TO 4067'0 k
29615* IF A178'1 EOLALS 'CT ,. mnvE tr2w TO Al28..0 ELSE
24915* MOVE "N2" TO Al280.
30035* IF AOrk9-T EQLAtS fors ANn PAP"PESULTS EQUALS "3"
30135* MOVE "YO" TO 4069-0 ELSE
30235*

IF A069-1 EOLOS "Y" ANO PAP'0FSOLTS EQUALS "2"
30335* MOVE "Yl" TO 4069-0 ELF
30415* MnVE "NO" TO 4069-0.
30535*
3(1 635*
30735*
30635*
30935*
31015*
31135*
31235*
31335*
IF A070-I FOltIS "Y"
MnVE "N7" TO An70.n,
MOVE "Y9" To A070-0 ELSE
IF A068-I FOIALS "Y" mnVE "Y" To A068-0 ELSE
MnVE "N" TO tC68-n.
IF A071-I E01A1S "Y" movE "Y" Tn A071-0 ELSE
MOVE "N" TO Pr71 - np.
IF A072-1 Folt1S " Y" MnVE "Y" Tn A072-O ELSE
MOVE "N" TO 4071 - n
Ir A076-I EMAIL "Y" moVE "Y" Tn A076-0 ELSE
31435*
31535*
3,635*
31735*
31635*
31915*
32035*
32135*
32235*
32335*
32435*
56 31
32735*
32635*
32935*
33035*
33045*
33065*EnJ.
?13*
5
5
3235*
33335*
MOVE ', No, TO pc76-n.
IF 4079"T Fc1ALS "Y" MOVE "Ylm Tn A079-0 ELSE
MOVE "N2" To An79-0.
Ir A078-i Fouts "Y" MnVE "Y" Tn A078-1 ELSE
MnVE "N" TO 4C78 - nt
Ir A061-I E010, 15 "0" movE ?7"?Tn A0610
TF A061 - 1 EKTALS "2" MOVE 2 To Aoei - n
TF A061 I T ECt'4LS "2" MOVE 1 TO 6061m ,
TE A061T EcTALS "3" MOVE 4 To Anel - r
IF A061 0 T EcTALS "4" MnVE 3 To A061-0
TF A061-1 F(TALS "5" MOVE A TO An6I - C
IE MnVFV(41:1 R[4,Ei :P: g TO
T F A061 - 1 EcUALS "8" MOVE 6_Tn 4061?0
TF A061 - T ECTALS "9" MnVE 6 TO A061 - 0.
'ROVE AO 7-1 TO AO 2 0,
'ROVE AO 6-1 Tn An 6..n,
WRITE pATIET-IREcORD - o INVALID KEY Gr TO ELL).
rLOSE TAEFTtk,
T WITH IOCK, CLOSE TAPE*TU
QTDP RUm.
pp*IIIsT
100**
PO** 100**
ono**
FIIE: CoNSr / HEW m0N
@PRP@@FFP@PFPRPRPRI@P@R@PPRPPEIPPPPPF@@tiqa@iitaPP@LPEIRFP
piDFFp@filse@ilotacip@p@o@pPfatia@Rtliga@p@q 0 @0fitile#41 @ptila
liPoPPPFF@Ea@OPRE4004@PEae@PPIAati@fatiO@PP@PPE*P@P@P@IA
Foa@PREaFf@R@R@PPPROIppopp@poipp@p@p@plappp@pppopfatiwa
6/28/76 10::
0

i
4
500** @RIRPRPFFP@ Elp@ipORPRIPP 0
600** Ei@@P@PtagFP11 tapPeOPEIPPP 4
700** @fiforaf.PFFPR FitaPotlifl@PP0 4
FOO** FPRP@PFFRP SOUTH fAROLFNA fiFiiPtifo@tiopF 4
900** 6iFi@R@PFFPF @p@pitiPE4, 1340 1
1000** Fragtern_FRP r, ATA fifitio(*(alaPPP 4
1100** faPPRPPPFPF1 cONvERSTOM EiPPefilotAPplA 4
12000r* F@Feii144(a@ PROGRAM eiptiptitilifitua 4
1300** vaPofa@gf@go taPP0OP@RP0 4
1400** @P@PP@FFPP@PFPPII@O@P@FitiPtiPPR@P@PEEI@PR@P@PPP@Pk410 1 FR
1500** PRRP@PFFP@WaPPPPOIOPPIPP@PP@PPPoPPPRPP(ifiliPPPR@RP0 4
1600** @gl@PFRP@PtitataPPP@P@O@PEIPPPPP@PPP@REIP@Oltatil@PkitagaileR 4
1700** t3PFP@FOFPiltIRR@WIPP(113@PPOP9Pfl@P@OWIPPAPP@PPPPOP@R@P 4
1P00** 1
1900** 0
2000** 4
2100**
2200** 4
2300** i
?AN)** 4
2500** 0
2600** 4
7700**
2F00** 4
2900** i
3000** d
3100** ************************************************************
3200** * *
* DATA 0ONVERSTOm PROGRAM *
3
33(1 0
0
**
4 0** *
3500** * THIS PRDGRAV CONVERTS TpE REGIONAL DATA INTO A sTANDARD * 3600** * FORM AS DESrPIPED pElow. THERE IS A TOTAL OF 6 FROGAMS * 4
3700** * FOR THE Cor, vFpSTON rIF DATA FROM 6 DTFFERNT STATES. * d
3800** * *
3900** * THE FOLLOvTf4(7: IS THE STANDARD DATA BASE BEING PpUpOSED *
41000** * TO RERRESDT THE MAxTmAt SET nF pATTENT-LEVEL DATA * d
A100** * ITEMS. *
11 200** * *
4300**
4/00**
*
*
DATA ELFMDT Nn. OF CHAR. ,
=======rc:,=========, = = = ==-,---s--= = = _
*
*
4
4
4500** * * 1
4600** * A003 COuNTY NUMBER 3 * d
4700** * A004 CLINIC NUMBER 5 * 1
4F00** * 4013 STATE tSSInNEO NUMBER 9 * d
A900** * 4096 RE0ISTERFD FOR mFDTc4In 1 * d 5000** * 4093 mEnirtyp NumpER 6 * 4
5100** * 4009 SFy 1 * d
5200** * A037 RACE 1 * d
5300** * A010 FTmNIC 1 *
51100** * AO1P HARITtl STATUS 1 *
5500** * AOOF PORN f4 6 * 4
5600** * AOIP WHAT rruNTy DO ynU LIVE IN 3 * 5700** * 4017 HIGHEST GRADE Or SWIM cOmpLETEO 2 * 0
5P00** * 4095 CUPpDTLy oN wFIFARE 1 * d
5900** * 4116 FINANCIAL sTATOs 1 * 4
6000** * A119 NUmpEF TN FAMILY HoUSEMOLO 2 *
6100** * 4007 TOOAYF PATE 6 *
6200** * A09A TYPE rF THIS VISIT_ 1 * 4
6300** * A097 NUmeFp OF PREGNANCIES 2 * i
6400** * A09p NUMPFF RORm ALIVE 2 * 0
6500** * 4029 DATE ttFT PREGNANCY. ENOFO 6 * i
6600**
6700**
*
*
Alon oUTcrwr (IF LAST nEtivFpy 4032 NUmPEP O FTAL DE ATH S, /
*
*
i
4
6F00** * 4031 kin, OF PATIENTS rHTLORrN ALIVE NOW. 2 *
6900** * A105 EVER IFED ANY METHOD Tr, PREvENT pG, 1 * 4
7000** * 4107,4P9-4P *
7100** * mt , i4nr MOST uSFn IN LAtT 7 YEARS 2 4
7700** * 4132,40t9-1 *
73(, 0** * wH0 PEESCRYBED 1ATFST mETMOD 1 * d
7 41 00** * 41021,41026-7P.A013 *
7500** * COHMSFITNG 1 * 4
7600** * 4067 BLOOD rpFscuRE i * 4
7700** * A074 von. Ft 000 TEST 1 * 4
7p00** * A071 HCT OF HGP 1 * I
7900** * Al29 SLOOP 'TEST 1 * 4
P000** * 412F ORL 2 * 4
4069 PAP sFAR
4070 A.r.-CI1TURE
4068 PRFAST
4071 PELVIC ExAm
4072 UPTNALYSTS
A075 SICKLE CE L1 ANEMIA
4076 SIERI117ATTON
4077 INFERTILITY
A079 PREGNAECY TEST
4078 OTHER
A057-62
mETHor AFTER l'IsTT
A062 .6p R Jiso Fop STORpTNn mETHDP
408792
PEFERND ELSFOFPE
40115 PATIFET SEEN PY
4101 MAIN sruRCF OF REFERAL
4086 OATS IF NEXT APpnINTmEwE
A0810.85
A081-85
pOpPoFF OF NEXT APPOINTMENT
A112 REAsor FOR oiSrHARnE
2
2
1
2
1
1
2
1
1
1
1
1
2
6
1
*
*
*
08000880088880000800000080P000PPPP00 0 00088080 8 0 08 0 008 8 88000008
0 0
9 DEFTNITInN nE ImpoT PATIENT RECORD 0
P
080000000008-8808800880808008P08P00P098000000000008800888808008
PATIENT-PECOFC-I.
02 0 occupS :",'. TIMES.
03 FILLET PIC y(7),
03 A003-T PIC Y(2).
03 4 0 13-T PIC X(71,
03 A002-T PIC X( 6 ).
03 A004-I PIC x(2.
03 FILLEF PIC XrI).
03 A094-1 PIC x(1),
01 EILLEF PI
FIC ttE-R
xt2).
03
03 4071-I
03 AO6p-I
03 4067-I
03 EILiER
03 A069-I
PIc x(2).
pI0 X(1).
PIC X(1 ),
;I re X( 13):
Ric yti),
P100**
P200**
P300**
P400**
P500**
P600**
P700**
P800**
P900**
9000**
91.00**
9200** *
9300** * 9400** *
9500** *
9600**
9700**
9800**
9900**
10000**
l oir0** 10200**
10300**
incoo**
1 0500** * 0600** * FOR MORE DETAILED INFORmATInN REFER TO THE REPOPI
10700** *
lopoo * * ************************************************************
10900**
11000**
111100** 200*IDENTIFICATIOm PIVISInN,
11100*RPOGRAm-To, SoUTLCARnLINA,
11400*AUTN09, F TASIIMT,
11500*INSTALLATION. PICF COmPUTEp.CENTEE,
11600*DATF-wRITTEN..SEFT 25, 1975.
11700*DATF*frrOMPTLED.
11800*ENVIRINMENT DIVISION..
11900*CONFIMUR4TIDN SECTION.
12000*SDURCF-COMPUTER. F-5700 WITH DEPU;GING mOnE.
12100*DPJFCT-COmPUIFR, P-5700,
12200*INPuT.00UTPUT SECTION.
12100*FTLF-rONTpOL.
12400* SELECT TAPF0.nUT ASSIGN To TAPE.
12500* SELECT TAPF-TN ASSIGN Tn TAPE,
12700*1-0-CnNTROL. .
128PO*DATA
12900*FTLF tECTT0N.
14P8: 10 CONTAP.S 2128 CHARACTEiv5
13200* LAPEL REroREF ARE OMITTED
13250* RECOpOTNO WIT Is NON.5TANnA00
13300* PLONK CONTAINS 1 RErnpDs.
13400**
11500**
13600**
13700**
13800**
139n0** 140(10**
141n0**
14700**
14300**
14400**
14500**
1 4 600**
111700**
14800*01
14850*
14900*
15n00*
151 00*
15200*
15300*
15400*
15500*
15600*
15700*
15Ro0*
15900*
16000*
16100*
16200*
APE-o ? T
SAvEFArIpp TS IQ?
LAPFL RFc0Frs AOt STANDAR!)
VALUE OF Yr TS ?0mASTFR?
RFr0p0Tfv0 tv ? DE is sTANnARD.
RECORD cOMTATNS 80 CNARACTEPS
BLOCK CrINTATNS 10 pFrnRnS.
01 CLIN7C-PIA.
02 STATt*NW
02 A003 0 0
02 A00 4 "r1
02 FILLIP
PATIENT-0PTA.
02 tioll-n
02 Ao96-0
0? A093..r
02 A000.p
0? A037-0
02 AOln-0
02 A018-0
02 A008-0
0? A01-0
02 A017-0
02 A0(15-0
02 A116-0
02 A1194, r
02 FIILFF
VIsTT*0ATA.
1.300*
16400*
16500*
16600*
16700*
16p00*
16900*
17000*
17100*
ly200*
1/300*
17400*
17500*
17700*
17800*
17900*
1p000*
111100*
1P200*
1P300*
Ift400*
1m500*
16600*
1F700*
IRPOO* is90*
1900
o
0*
19100*
19200*
19300*
19400*
19500*
19600*
19700*
19p00*
20000*
20100*
20200*
20300* 02
38100**
3P200**
3P300**
3P400**
38500**
38600**
3P700**
3sp00**
39100**
J9200**
39300**
39400**
39500**
39600**
39700*FP T
39;q:
4 0000*
40100*
402co k
4 0300*
40400*
40500*
4 0600*
40700*
40000*
40900* 01,
41 000*
41100*
4 1200*
41300*
4 1400*
4 1500*
4100*
4 1700*
4 1800*
4 1900*
42000*
42100*
4 2200*
4 2300*
47400* 01
03
03
03
03
03
03
03
03
03 03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
03
FILLFF
A071-I
A072-I
A070-I
FILIFR
A0794.I
FILLFR
A075-I
FIL1FR
A008-
I
I
A009-
A037-
A010-I
FIL[FR
A010.4
A11-I
A017-I
A101-I
FIILER
A032-1
A031-I
A107-I
FTLLF
A049-I
A069-1-1
A0 7 0 - 1 - I
FIL1FR
A079-1-I
IL1FR F
409
7
..1-T
F
0
I
7
L(FR
4-I
A087 I I-1
A0P7*Ii.0401:,
A087 I IiiSTED
8087 -0THr A087-1.-REFK
Ai1W-1
FILI FR
PIC Y(1).
PTC Y(1).
NF.
PIr Y(1),
PIC x(1), PIC x(1),
PI y(7). Y(A),
PIC y(1).
Pr Y(1). PIC Y(1),
Pr(' Xgl.
PIC (,
p7
X1)
1.c41;!'
Pir x(1).
;It'
PIC y(i).
plc x(i).
PIC Pi) ); "). PTC A(1),
PIC x(1).
PTO )((tH; PTC Y(1).
pTC y(1).
r,TTE pyc x(1. PIC Ycl) ) .
PT P4 ( X4),
PIP y(3).
PTC X(3). PTC 9(3). PIC 9(5)1
PIC Y(69).
PIC 9 (9). PIC Y(1),
PTC 9(6).
plc Y(1).
PIC q(1).
PIC Y(1).
PIC 2(1),
Pic' 9(6).
Plc, 9 (3).
Pic 9(2). PIC 0(1).
PIC 9(1).
PTC 9(2). pTc. y(45).
PPAP0AAAPAPFgoARgiAPPARpAPAeR0 10PAPAPAAPPAPPAPAPP (a84441 PAPA P PA
0 P
0 OFFINITTON OF Oi-ITPUi I PATIENT RECORD A
A
0 08888PPAPP8gFAAARAP8AAPAPP88PA0p0(app 0 ppppga ppppppp (i pppp p p ppgi
Pl (:. (70(2)).
4
Plc Y(72).
PIC 9 (2),
PIC 9(2),
Pic! 0 (0,0,
PIC 9(1).
PTC9(2).




4

43a 8*
4 ,50 *
OP 4011.1
41600* 01
V , FTLLEF CONTRACEFTIVE.HISTORY,
PTC ?(W5-. 0 4
PTC X(1). 4 3700* 02 4105-r
43600* 07 4107mt PTC 9(2),
4 3900* 0P 4049-r PIC 9(1).
44000* 02 FILLEF PTC x(76),
44100* 01 SrpvIeF FrovInFD

4 4 200*

PTC 9(1).

02 A076 - r
4 4300* 02 Ac67 - n PTC X(1). 4
44400* 4
44500* op 4073
OP 4074..r
.-C
PTC X(1).
PTC NI?:

4 4600* 02 A1p9..r

4x00* 0?
02 AQ75-0
OP A076-r PE n:
4 5300*
4 5500* OP A077wr PTC X(1),
4 5600* 07 4079-r PTC X(2). 45700* OP 4078-r PIC X(1). 0
4 5Fr1 0* Op Ac61 F
OP 4062-r
PIC 9(1).
4 5900* PTC 9(1).
4 6000* 09 A0p7pr PTC 9(1). 46100* PTC 9(1).
46200*
02 A0135..r
CP Alni-r PTC 9(2). 4
4 6300* 02 AOP6e,r PE MI:
46500*

46400* 07 AORI.r-
07 A112 - 1 PIC 9(1).
4 6600* Op FILLEF PIC x(44).
4 6610*WORKING I STORrE FErTInN,
4 6615*7 7 I PIC 9(11). 46700** oppppEoPpoppFP@PPEopppROPPRP@PEDPRPEDR@R@PPRRfiqqa@PPPRPRFRPRE110
,Bno** a @
4 6900** a pROcEnlEF 0TvISTnN tETLr mAN/PULATInN) fa
47000** o P
4 71('0* * OR/16R(04)FPF44ffigIPPRW4g44)04@?@PRP@R@ORR@Pg4PP@EiftRt4q1R@OPPPP 4
4 7200**
447300**
47400** 4
A76. *PPOcEnUPE DTVTS1(1,

475n**
47700*OPFN.up sFcTInfv.
itTpoo*BrJ,
47900* OPEN INPuT TAPP-IN, ,
48000* OPEN OUTPUT TAPE cluT.
4s010*DrPLOnP,
4 P020* REAP TAPE-114 AT END Gn To EnJ.
Wil: p U ENED T FIL T pm IS [ OPEm ATtp T.AmIPULAH TAN 2InN 5 ppyING 1 FROM 1 BY 1 . *

", Nit, TO CEINIC"0ATA.
"N" TO pATTENTT0ATA.
"N" To OSTT 0.06TA.
"NM TO ppEn-cTnIve . ?NI, TO rnNTp HIqrPTIVEISTOPy,
?N? T O sERvICt-ppOVI0t0.
49000* MOVE "FC 9* TO sTATE.NAmE,
49100* WIVE 4003-1(1) Tn 400100.
49200* MOVE 4004../(I) Tn 4004-0.
4 9300* woTTE cl_TIr.DATA.
49400* MOVE ALL "N" TO PATTEmT DATA.
49700* MOVE A013-1(1) Tr, 40131-0.
49P00* TE 4009-T(T) FOOLS "1" MOVr "M" TO A009-0 ELSE
49900* IF 400 9 -I(I) FOOLS "7" MOVE "F" TO 4 0 0 9 ?N
50000* IF A037-I(I) EQUALS "4" OR " " mnVF 6 Tn A 19 37 -U ELSE
50100* MOVE 4017-T(T) TO Ao17 - 0, .
50110* IF 401n.I(1) EQUALS ?1 ,, MOVE "Yl, To 4010 I 0 EL5F
50120* MoVE "P" TO A010 - 0,
50200* IF 401pwT(I) EQUALS " MOVE 1 TO A01 P-0 ELSE
4 2500* 02 A0 0 7-0
42600* 02 Ao9r - n
4 2700* 02 FTLLER
4 2800* 01 PPEGsHISTUEY,
4 2900* 02 A097-0
43000* 02 AO9P-n
4 3200* 02 Alvo - r
4 3100* 02 402n..0
4 3300* 07 4012-r
4 4700* 02 4170NT
44p00* OP A0696.1-
44900* OP A070 - r
45000* OP 4068-r
4 5100* 07 A071.1.
4 5200* A072.1
PIC
PTC
PTC
PIC
PIC
X(2).
X(2).
Y(1).
X(1). X(1).
4





46050* GO TO Dr-Lrrp.
46100*FTLF-mANTpuLATIn9.
2; 3g8: MOVE Al MOVE Al
mr,Vr AL 4p400*
48500* mnVF Al.
48 n0* MOVE Al
4Pop* mnVF Al












4







50300*
310*
031.5*
50370*
50500*
50700*
50600*
51000*
51100*
51105*
51110*
51115*
51120*
51125*
51130*
51135*
51140*
51200*
51300*
1400*
51405*
51 600*
51700*
51705*
51710*
51715*
51720*
51725*
51730*
51735*
51740*
51745*
51750*
51755*
51760*
51765*
;1r08**
2000*
'2050*
;31;8:
4P8:
52300*
57350*
52400*
52450*
r500*
2550*
F600*
52650*
52653*
52656*
52659*
52662*
52665*
5266S*
52671*
526744,
52677* 52 6P0*
526,2.3*
526P6*
5 26p9*
;W)4'
5269P*
;Pura:
5212 00*
52P50*
57900*
52950*
53000*
53010*
53020*
53030*
53040*
53050*
5300*
53070*
530P0*
TF A018"1(I) EQUALS "1" MOVE' 2 Tn A018-0 ELSE
I F AO1PwI(1) EQUALS "1" MOVE 5 TO AO1P-0 ELSE F AOJP-I(I) rQuALs "a" MOVE 3 TC 401P-0 ELSE
IF AO1p01(1) EQUALS ""5" MrIVE 4 TO Anlp-O.
MOVE AO0t-n Tr 4008-I(T) .
MOVE Tn A017-0.
MOVE A116-1(I) Tn A116-0.
WRITE PATIFNT-nATA,
MOVE ALL fq" Tn VIsTT-DATA,
MOVE A0 0 7-T(1) Tr A007-0.
TF A094 - T(I) EQUALS "0" MOVE 01 TO An94:p ELSE
TF A0944sT(1) EQUALS "1" MOVE OP TO A094 ELSE TF A094 T(T) EQUALS "2" MOVE. 0? TO A094-0 ELSE
TF A094 - T(T) EQUALS "3" MOVE OR TO 4094-n ELSE TF A094"T(I) EQUALS "4" MOVE OR TO A09a n ELSE TF A094-T(1) EQUALS "sm MOVE on TO A 0 94-n ELSE
MOVE. 09 TO AC94-r,
WRITE VISIT-DATA,
MOVE AIL "N" To PREcpHTSTO9Y,
MOVE A012-I(I) TO 4012 - 0.
MOVE A011-7(1) TO A031-0,
WRTTF 9FEr-NISTORY.
MOVE ALL vr, " Tn CONT9ArEPTTVE-MISTORY.
TE A107 - T(T) EQUALS "0" MOVE 01 To A107-n ELSE 1F ATI:1 70'TM EQUALS "1" MOVE OP TO A107-n ELSE TE A107-T(T) EQUALS "7" MOVE 04 TO A107-n ELSE
TF A107 - 1(i) EQUALS "3" mnvF OR TO A107 0 ELSE TF A107"T(I) EQUALS "4" MOVE 06 To A107 0 FLO_
TF A107 ,-1(I) EQUALS "s" MOVE 03 TO A107-0 ELSE TF A107"T(1) EQUALS "6" MOVE 05 TO A107-n ELSE
TE A107"T(1) EQUALS "7" MOVE 09 TO A107-0 ELSE
MOVE. 07 TO A107"n.
TF 4049"T(T) EQUALS "1" MOVE 2 Tn A049-0 ELSF
TE A049 0 T(1) EQUALS "2" movE,1 Tn A0A0-0 ELSE
IF A049-I(T) EQUALS "3" mnvr 1 TO A049-n ELSE
MOVE 4 To At'49-n.
WYE rONTFACTIVE-HISTO9m,
MovE ALL fq, " n sEPvTcEN.P9ovIDED.
IF A0A9-.1(1) EQUALS MOVE.- ."YO" TO A069-n ELSE IF A06(-I(T) FQ'IALs "1" mnvr sY" TO A067"O ELSE
MOVE "N" Tr A067"01 IF A073-I(T) EQUALS "1" mOVr "Y" TO 4071-0 ELSE
MOVE "N ,' Tr A071"0 1
IF A06 9 -IcI) EQuALs " 1 " Amr 4060-1-T(T) EQUALS "1" MOVE
"Yl" TO A069-0 ELSE
IF A069-1(T) EQuALS "1" AND A069.1-1(T) EQUALS "0" MOVE
"YO" TO A0(9-0 ELSE
MoVF "Nn" Tr A069-0.
IF A07 0 -I(T) EQUALS "1" AND A070-1 T(T) EQUALS "1" MOVE
"Yt" TO 0 AO7C- ELSE IF AO7v-I(I) EQUALS "1" AND_A070-1-1(T) EQUALS "0" MOVE
"YO" Tn A07 -0 ELSE MOVE "No" TO A070-0.
TE A06P.I(I) EQuALS "1" MOVE "Y" TO AO6P-0 ELSE
MOVE "N" Tr A06P-0e
IF A07 1 -1(T) EQuALS "1" MOVE "Y" TO AO6P-n ELSE
MnvE "KIP, Tr A071-0.
IF A07 2 -I(T) FOOLS "1" MOVE "Y" TO A077-0 ELSE
MOVE ?N ,. Tr A07P-(1.
IF A07 5,PIfT) EQUALS "1" AND A075-1-T(T) EQUALS "1" MOVE
"Yl" TO 1107-0 ELSE
IF A075-1(T) EQuALS "1" AND_A075 1(T) EAUALs "0" MOVE
"YO" TO A075-0 ELSE MOVE "Nn" Tn A075-0,
IF A07 7 -I(T) EQuALS "1" MOVE "Y" TO A077-0 ELSE
MOVE "N" Tr 4077"0.
TF A079-I(T) EQuALS "1" AND A079-1-1(T) EQUALS "1" MOVE
94Y1? IQ
- D ELSE
IF AOTY-
A
I
n7(T) EQuALS "1" AND A079...1 T(I).EQUALS "0" MOVE
"YO" TO AOM.0 ELSE MOVE "NO" Tn A0 7 5-0.
IF fill=1:MRT EQUALS "1" ; 'A'SWP f44
IF A087-I rTmE(i) EQUALS "1" MOVE 6 TO A0870T ELSE
IF A087-1-1(I) EQuAls ?1" mrvF 5 TO AOR7-0 ELSE IF A0r7"I"EFF5(I) EOHA[S "1" MOVE 1 TO A087"P
IF A1 01 T(I) EQUALS '90? MOVE 01 TO 4101-0 ELSE .
IF A1 0 1-I(I) EQUALS "1" mOvE 06 TO A101-0 ELSE TE A101-T(I) EQUALS " 2 " MOVE 00 T0 A101-0 FLO_ TF A101-1(I) EQUAIS "3" MOVE 03 Tn A101-0
TF /1 101w7(T) EOU4IS "4" mOVE 09 To Ai01-n ELL
TF A101 T(I) EQUALS "5" MOVE 04 Tn A101-n ELcE IF A101-T(I) E0uAls "6" MOVE OR Tn 01101 n ELcE TF A101.1(T) EQUAIS "7" MOVE 09 To Aint-n FLO.
TF A101 1(I).EQUALS "A" MOVE 09 TO A101"O ELcE MOVE 09 TO A101-0.
53090*
531 00*
53110*
53120*
53130*
53140*
53150*
53500*
53600*
53800*EnJ,
53900*
54000*
WPF:
51, 300*
TF A112.1(I) EQUOS "0" movF 4 In 4112-0 FL5E.
TF A112-T(T) EQUAIS "1"
TV A112-T(I) E0uAts 1'2"
kTVF
movE
5
6
To
To
4112-0
A112 - 0
FLcL
FLci-
Tr A112*T(I) E0UA1S "3" MOVE 7 To A112-0 ELSE
TF 1, 112-T(T) EOUAI S "4"
yF A112-1(T).EQUALS ?B"
MOVE-
MOVE
6
2
To
To
A112"n
A112-0
FLck
FLci
movF 8 Tr 4112"0.
107ITF SFFV1CF-PROVTMEn.
MOVE ALt "N" TO 011NTC-0ATA.
CLOSE TAPE-Tm.
CLOSE TAPE-r( T,
STOP R00,
CLOSE IAFFprOT wITH 1170v,
s, TOF POo.
EfiEl noNTEN/ 14E44 MON 6/28/76 094
100*$1,IST *

200** PAPP@fifFe@f441@EDED00)@PP@o@P@Pta@PREiFifiWaii@P@EiPOPPOI@P *
3n0** P@FP@PMafafilaPPEaPPOWPFpfiRrafiPaPPIta@fitatilP1WaPPAIMPfita *
400** @PP0(044aPtaPP@PPWieWl@R@PPOPOPPPRPOPPPPMP@P@IPPR *
500** pp@pppf . ptapPrappplippfapplOPPPR8ppptaPtapptopgita@plipPpfatatapp *
600** @@IPP@PFFa@ (aPPoOtiqaPfilf; *
700** Wita@ti4Fota gifiiipfip@PIRR
800** figitIPPFliP ElptifitfifiWil *
900** @P TENNEssEE til@EDPFFPFB Pfatae@P@P@R *
1000** PtaFfifitaFf@aP (i(a11 0@fitilt3 P *
1100** rATA PgieW4FETifo
00NvERSION
Qta@loWitafatli *
1200** VaPP@PfFtatii
ppr,GP4M
PPPOOPOPPOI * 1 3 0 0** HIPPiiti4FREI
PtaPPPOiFFREi
P10@m@PO41@la
@p@ROPPIPR

*
1500** WIP@PFFPP@PPEatiPp044PRePP@PP@PRPPEIPPEIPPPW 9441 1itPtafi *
1600** laPPR@PFRPEa@p@PEIPptofitatigitRPPR@P@PEIPtatIPPPPPEilata@taii@Ei@p0 *
1700** taPPlaptaFftappppEopPpopppflippppgapiappRtapptatippOIPPPOPplita0 *
1800** P@PRPFifFPfagitafiPPPRfatata@P@PEWafl@PtiPPPPo@PPEOita@Rpiltap0 1 *
1900** *
2000** *
2100** *
?200** *
2300** *
2400** *
2500**
2600** *
2700** *
2600**

2900** *
3000** *
3100** *
3200** ************************************************************ *
3300**
340
0
0**
36050 ** 0**
3700**
3600**
3g8 ** 4
4100**
420
300
044
A*
4400*
*
*
A500**
4600**
4700**
4F00**
4900**
5000**
5100**
5200**
5300**
5400**
5500**
5600**
5700**
5800**
5900**
6000**
6100**
6200**
6300**
6400**
6500**
6600**
6700**
6600**
6900**
7000**
7 100 ** 7200**
7300**
7400**
7500**
7E00**
7700**
7800**
7900**
6000**
P100**
*
* *
* DATA CDNvERSION PROGRAM *
3
*
* THIS PROGRAV CONVERTS THE REGIONAL DATA INTO A STANDARD *
* FORM AS DESCRIBrD BELO#, THERE IS A TOTAL OF 6 BROGANS *
* FOR THE COIkVERSTON DE DATA FROM 6 DIFFERNT STATE'S. *
*
* THE FOLLOWING IS THE STANDARD DATA RASE BEING PROPOSED *
*
*
* TO REPRFSEt,T THE mAYTmAl SET OF pATTEmT-LEVEL DATA *
* ITEMS. *
* *
* DATA ELEMDT Nn, OE CHAR, *
* m=========, =?= m= m= = == = m *
* *
* 4003 COUNTY NUMBER 3 *
* 44
STATE
NumpEp *
* 4013 C 13 S TF ASsInNED NUMBER 9 *
* 4096 REoISTFPED FOR mEDICAIn 1 *
* A093 MEDICAID NUMBER 6 *
* 4009 SEX 1 *
* A037 RACE 1 *
* 4010 ETHNIC 1 *
* 4018 M4PITAF STATUS 1 *
* A008 POPN rt4 6 *
* A018 wHAT cruNTy DO YOU LIVE TN 3 *
* A017 HInHEST GRADE Dr Semnol COMPLETED 2 *
* A095 CUpPDTLY nN WELFARE 1
* A116 FINANCIAL STATUS 1 *
* A119 NUmBEF IN FAMILY HOUSEHOLD 2 *
* 4007 TODAYS DATE 6 *
* A094 TYPE rf VATS VISIT 1 *
* 4097 NUmREE OF PREGNANCIES 2 *
* 4098 NUMEEF BORN ALIvF 2 *
* 4029 DATE ttST PREGNANCY ENDED 6 *
* 4100 DUTCDNF OF LAST DELIVERY 1 *
* 4032 NUMBEE OF FATAL DEATHS, 2 *
* 4031 NO, OF PATIENTS CHILDREN ALIVE NOW 2 *
* 4105 EVER IFFD ANY METHOD Tn PREVENT PG. 1 *
* A107,A019-tp *
* mETHDr MOST usEn IN LAcT 2 YEARS 2 *
* A132,4049-51 *
* WHO pFFSCRTBED LATEST 'ETHOD 1 *
* A023,t84;Frfal3 *
1 *
* A067 BLOOD PRESSURE 1 *
* 4074 V.D. Ft DOD TEST 1 *
* A073 HCT OF HO 1 *
* 4129 BLOOD TEST 1 *
* 4128 V'PL 2 *
8200** * A069 PAP SMEAR 2 * *
8300** * A070 G.0...CUTURE 2 * *
8400** * A068 BREAST / * *
P500** * A071 PELVIC EXAM 1 * *
8600** * A072 URINALYSIS 1 * *
8700** * A075 SICKLE CELL ANFOA 2 * *
PROD** * A076 STERILT7ATION 1 *
8900** * A077 INFERTILITY 1 * *
9000** * A079 PREGNANCY TEST 2 * *
9100** * AO78 OTHER 1 * *
9200** * A052-62 * *
9300** * mETH0r AFTER VISIT 1 * *
9400** * 4069 ? 66 * *
9500** * PEASOf FOP STOPFONn METHOD 1 * *
9600** * A087..92 * *
9700** * REFERFFD ELSEWHERE 1 * *
9800** * A0135 PATIWT SEEN Ely 1 * *
9900** * A101 MATH SpuRCE nF PEFERAL 2 * *
10000** * A0P6 DATE CF NEyT APpnINTmEmT 6 * *
10100** * A(14110.85 *
1R3R8:: * ..8 * A0815 * PUPPOSE OF NEXT APPOINTMENT 1 * * *
10400** * A112 REASM FOR nTSCHARnF 1 * *
105** *
1Pg
n0
8:: * * * FOP MORE DETAILED TNFORmATI0N REFER TO THE REPOPT * * *
10800** * * * 40900** ************************************************************ *
11000** *
11100** *
11700** *
11300*InENTTEIcATTON DTVTSI0N. *
11400*pPOGRAMID. TENNESSEE. *
11500*AUTHOP. F TASLIMT. *
11600*INSTALLATTON. RIO, COmPUTFp.CENTEP. *
11700*DATE WRITTEN,,SFFT 25, 1975. *
11PO0*DATE ? COMPTLED. *
11900*ENVTRONMFNT DT1/TFITN.. *
12000*0nNEImURATInN SECTION. *
12100*5OURCE I COMPUTFR. F ?5700 WTTH nERU0GTN0 mODE. *
12200*OPJFCT-COMPUTER. P-57n0, *
12300*ImPuT-OUTPUT SECTION. *
12400*FTLE rONTPOLL . *
12500* SELECT TAPE.CLIT ASSIGN Tn TAPE. *
12600* SELECT TAPF ? TN ASSIGN TO TAPE. *
12700*I-01, 0nNTRnL. . *
128004DATA NIVIsInN, *
1290 *FT CTTONs *
1300 *
L
F0 AP 'PIN *
13,0 * RECORD CONTAII, S 1s04 CHARACTEPS *
13200* LABEL RECORDS ARE OMITTED *
13300* PECOPOIN0 mrPE Is NONSTANDARD *
13400* BLOCK CONTAINS 1 RECnROS. *
13500** *
7 13 60 8 ** .0 **
*
*
13800** *
13900** *
14000** * latno** e@P@PPR@RMPgavagitDp(aPpppt3@opepplawWtota@RP@Polapptaiiptiqb@Wapfata@@ *
142p8

w fi
**
43, **
0
0 OEFTNITInN OF IPUT pATTENT RECORD
La *
*
14400** 1.1 o *
14500** PP(0108(08@Pfifftal;@PP@P00PEigo(a0PPPAPPPPPPLAPPPPPlafifiP@POP@P(10PPROI@Ell *
14600** *
14700** *
14,00**
lo900** *
14R8:81 PATIENT ? RECOPE-I, ,
*
*
15150* 02 0 OCCUPS 10 TIMES. *
15200* 03 A003 T PIC Y(2). *
15300* 03 A004 0 PIC. X(2), *
15400* 03 A013 I PIC x(ln). *
15500* 03 FILLER PIC Y(66), *
15600* n3 A095 T PIC Y(1). *
15700* 03 A096 T PIC! X(1 ). *
15800* 03 A009.1 PIC Y(1), *
15900* 03 FILLER PIC Y(1). *
16000* 03 A008.1 PIC Xf6). *
16100* 03 A037.T. PIC Y(1)? *
16700* 03 A097 T Pi t Y(1). *
16300* n3 FILLER PIC Y(1). *
01
g3
n3
03
03
03
03
03
03
03
n3
03
03
07 FILLER
401p-I
FILLER
*086-T
FILLER
FILLER
*098-T
FILLER
*017-T
4101-T
FILLER
A0 68 - T
4071-T
*076-T
PTC X(4).
16400*
16500*
16600*
16700*
16sr0*
16900*
17000*
17100*
17200*
17300*
17400*
17500*
17600*
17700*
17710*
17600**
17900**
1(4 000**
18100**
1P200**
18300**
18400**
1P500**
18600** 1P700**
1P800**
161900**
19000**
' 910 0
**
9.0 **
19300** 19400*F(1 TA 0 E-DUI
19500* SAVE EACTOR TS 100
19600* LAPEL PECOFES ARE STAND4R0
1 9700* VALUE OF Tr TS ?QmAsTFRNDARE 9p00* RECORDTNG Nr0E IS STAN
14900* RECJIRD cONIAINS 80 CHARAcTEPS
20000* 8LOcK CrNTAYNS 10 REcr1P0S.
20100* 01 rLINIC-DATA.
20200* 02 STATE-NW
20300* 02 A003 0
20400* 02 A004 - 0
20500* OP FILLER
20600* 01 PATIENT-DATA.
20700* 02 A011-0
20p00* 02 A096-0
02 A003 c
OP A000 0
Op A037-0
02 A010-0
02 A01( 0
02 AO0P.or
02 02 A016-0 A017-0
02 A116
-
02 A116-r
c
02 Ali9-r
02 FIILEF.
01 VisIT"TATt,
02Q2 A0021.0
07 FILLER
PRFG HTSTrPY,
OP A097 0
02 Ao2P-
0? Aoe9.n
O
02 A100-r
02 4012-r
02 4031-E
OP FILLEF
CONTRAcEpTIvE HISTnpY1
02 A105-c
Op A107-r
02 AOA9-r
02 FILLEF
SFRVIrE-FFrivInE0.
02 A026-r
02 A067 r
02 A074-F
02 A073-C
02 11129.r
02 4128 ,, r
02 4.069-r
PIC Y(1),
FTC X(15).
rqF V( 6 ) ,
PTC X(5).
Plc X(1). PTC X(1).
RTC X(2),
PTC X(1). PTC X(12),
PIC X(1).
PTC X(1), PTC X(1),
PIC X(6),
PIC x(1).
PTC 9(6).
PIC Y().
PIC 9 (1).
Pic Y(1).
PIC 0 (1).
PIC 9(6).
PIC 9(3),
PIC 9 (2),
PIC 9) PIC 9(1(1 ).
,
PTC 9(2)
PIC x( 4g).
PIC 9(6).
FP,U
PIC 0 (2).
PIC 0 (2) PIC 9(6).
.
PTC 9(1), PIC 9(2),
PTC 9(2). PIC X(65).
X(1).
9(2).
9(1). x(76),
9(1), x(!).
X(1).
X(1).
YCII.
X(2).
X(2).
20900*
21000*
21100*
21200*
21300*
21400*
21500*
71600*
21700*
21800*
2 1900* 2000*
22100*
22200*
WA:
22500*
22600*
22R00*
23000*
23100*
21200*
23300* 01
23400*
23500*
23600*
23700*
23p00* 01
23900*
24000*
24100*
24200*
24300*
24400*
24500*
01
PTC X(3),
FTC 9(3), pTc 9(5), FTC X(69).
pTC
pTC
PTC pTc
PIC
PTC
PTc
PIC
pTC
PTC
pIC
0PPPP@PPPPPFPPpPPPIPPPpEAPPPPFP@ProPpPPPPPPPPPP@PPPPOp@PPPPPpO i
* a
a OFFTNITTON OF OUTPUT-pATTENT RECORD P
a @
Ea@PP@PPR@PFF@(01 0ataibfltaa@a@faaataa@POIPPElataa(04401 Rat. arnoPta Fi tia
24600* 02 A070-E PTC Y(2).
24700* 02 010f, 8-f PTC Y(1).
24pn0* 02 A071-r piC x(1).
24900* 02 A072.1.- PTC x(1).
25000* 02 A075-O PTC Y(2).
25100* 02 A076-r PTC Y(2).
25200* Op A077-o PTC x(1).
25300* 02 4079"r PTC x(2).
25400* 02 A078-r PIC Y(1).
25500* PIC 9(1).
25600*
02 A06.1.r.
02 A062-r PTC 9(1).
25700* op A08701. PTC 9(1).
25800* 02 A0135pr PTC 9(1).
25900* OP Alni-o PTC 9(2).
26000* 02 A0A6-o plc 9(6).
26,00* OP AoAl-r PTC 9(1).
2200* 02 A1 20f PTC 9(1).
g08:wnpKIWg?Or4 Ir[FEsTrTIrN.
PTC x(44).
26315*7 7 I plr 9(11)
26400** PEopppppFP@OFF0(4100000000000040000000 0 000 00 00000044. 0000Pplipp
26500** 9 P
26600** P pROrEDIFF OTVTSION (FILE MANIPULATION) 0
26700** P @
26F00** 0000000p0ppFp0iiiplapppP00@poipppppp0000000pp0P00000(*000000000
26900**
27000**
27100**
27200**
27300*pPOcErURF DIVTST(I'.
27400*OPFN-OP SECTION.
275no*BoJ.
27600* "PEN INPUT TAPE-TN.
27700* OPEN OUTpuT TAPE-OUT.
27710*DO-L00P.

p 720* 773O* WP0g 11744 TANi taL raIITIP VARYING I FROM I BY 1
27740* UNTIL I IS GREATER THAN Ir.
27750* GO TO ur-LOOP.
27e00*FTLpiPmANIpULATTOrI .
2 900* MOVE All "N" TO rL mI0-nATA,
if4RF: MOVE "N" TO pA TENTPDATA, MOVE All "N" TO vISTTiBOATA.
28200* MOVE All "N" TO pREn*HITnRY,
2s300* MOVE ALL "N" TO rONTRACEPTTVE HYSTORT.
24400* MOVE All "N" TO sERvTrE-PROVIDED.
28700* MOVE :TEN" TO STATE-NAME.
2PF00* mnvF A003-J(T) Tn A003-0.
04 900* WIVE 4004*I(y) To A004-0,
Wg8
92.00*
: WRTTE rLII, Ir-DATA, MOVE ALL " N" TO PATTENT w OATAo
IF 4096-I I) EQUALS "1" oR "p" MOVE "N" TO Ao9A-0 ELSE
29300*
c
MOVE "Y" TO A09A-n.
29400* M"VE 4013..I(I) To A0114.0 .
. 29500* TF A009-1(1) EQUALS "1" MOVE "M? TO A009*0 ELSE
29600* MOVE "F" Tn p009-0,
IF A037*I(T) tQUALS "8" OR "9" MOVE 6 To A037*L ELSE
29800* MOVE A037-T(T) TO A037-01
9900* IF A018-T(T) EQUALS "2" MOVE 1 Tn A018-0 ELSE
3 0000*
30100*
TF A018 - T(T) EQUALS "1" MOVE 2 TO A018-0 ELSE
WIVE A018-T(T) Tr A01A-s,
30200* MnvE AO0f-0 Tr Aon8!(,) .
30300* IF A01(-I(T, EQUALS "90" MrIVE 03 TO A017-0 ELSE
3gP8: M1YE AD1170, j(J, jn 4017-11 . IF Ao9 , -i(I, tQUALS " " OR "9" WIVE 4 TO A095*() El SF
30600* MOVE A095-TIT) Tn A095-n.
30700* WRITE pATItNT-nATA.
30p00* MOVE AIL " 9, Tn VISTTi-nATA:
C1900* WRITE vISIT-DATA, .
31000* MOVE AIL Pt"/ Tn Wn.HTSTO9T.
314g8: MOVE
A097T(I) TO A037 n.
movE A098*T(T) TO An P-n.
31300* WRITE PRErwmISTORY.
31400* MOVE ALL ,4,'" Tn cONT9ArFPTTvr-HISTORY.
31500* WRITE rONTFACEpTIvF*HIsTORy,
31600* MOVE ALL "N" Tr SERvTCE*PRrVTOE0 1.
WA: IF A069-1(1) EQ U ALS ?i? MOVE "y0" TO A069-0 ELSE mnvE "NO" TO P069-0
31900* IF A068-1(I) EQUALS "ir MOVE "Y" Tn A06800
32000* ELSE MOVE "N" TO A068-n.
32100* IF A071mOtI) EQUALS "in MOVE "Y" Tn A071-0 ELSE
32200*
32300*
WIVE "N" TO 4r71-n.
IF A076- I(I) EQUALS "1" MOVE "YO" TO A07A-o ELSE
321100*
32500*
32f00*
32T00*
32500*
32900*
33000*
33100*
33200*
33300*
33500*ErJ.
33600*
33700*
3301 0*
33900*
36000*
mnvE "NO" Tn 0076-0.
I! A101-I(I) EQUALS "7" WIVE 00 Tn
Ir WI-Tr') EQUALS "0" MOVE q3 To
Ir A101-T(I) EQUALS "1" nP "2 MOVE
Ir A101-T(I) EQUALS " 9, MOVE 05 To
Ir A10i.0(I) FOLALS "VI MOVE 07 To
IF A101-1(I) EQUALS "0? MOVE in TO
MnvE 09 Tr A101-0.
WRITE SEEviCE.PPOVTnEni
MOVE ALl "N" TO 0LTNIC-DATA.
CLOSE
TAPE-
TAFF0,TAPE-1R!.
f'Lost7 Ef T.
STOP RUN,
CLOSE TAPE*nuT WITH tricK.
STOP RUN.

A1010.0 ELSE
A101-n ELSE
0A TO A101-0
A101-n ELSE
A101-0 ELSE
A101-0 ELSE
ELSE
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
TALLY PROGRAM
TALLY PROGRAM
The function of the Tally program is to aggregate individual patient
records into county and state level summaries, which can be used for further
transformations by the Report Generator, the Plotting Program, and the Mapping
Program.
In the Tally Program, detailed data is on tape with an ID of DMASTER;
restart data is on tape labeled RESTART; and tallied data is on tape labeled
CMASTER. The program starts by asking the operator if this run is a restart,
where "restart" means that the program terminated abnormally due to a system
failure. If not, the output tape, CMASTER, is covered with a special character.
This technique is for restart capabilities.
The next question to the operator is concerned with the selection of
a state tape. The input tape, DMASTER, is read. For reasons of efficiency,
10 counties are tallied on one pass through the input tape. Each variable
is now being accumulated.
At the end of each pass through the input tape the last county processed
is displayed. The county totals are written to CMASTER. The partial state
totals are written to the RESTART tape and the next pass is initiated.
After the last county group is processed, the state totals are written
to CMASTER. The next state tape will now be requested. When the last state
is processed all files are closed and TALLY goes to a normal end-of-job.
Restarting principles: (1) The output tape is marked with a special code.
As the valid information is written this special code is erased leaving an
indication of exactly where the valid data ended. (2) Any totals that are
being aggregated but that are not due to be written (e.g., state totals while
county totals are being written) are put on a backup tape called RESTART.
Restarting the TALLY program at an intermediate point is accomplished
by replying "OK" to the question "RESTART?". The files are positioned at
the proper point and normally processing continues.
TALLY PROGRAM FLOWCElal
START
END
OF TAPE
WRITE STATE
TOTALS
LAST
COUNTY GROUP
PROCESSED?
RESTART
FACILITY
READ IN COUNTY
VALUES (10
COUNTIES AT ONE
TIME)
INCREMENT TOTALS
F
WRITE COUNTY
VALUES
ANY
MORE STATES
TO RESTART
TAPE H -- WRITE PARTIAL STATE VALUES
INCREMENT COUNTY
GROUP
PREPARE OUTPUT
TAPE "CMASTER"
WHICH STATE WILL
BE PROCESSED?
EDE: TALLY / PISNK3Y Flit 4 /27 / 7A n '6 :o
co*s)(RFF
100*S[IST
300*I0ENTTFTCATTPP DTVISInN,
500*pPOnPArA-10, F FAI,.TI FOuCATTnN AND Et..FARF mASTFR CONTROL
700** F=QOOFAM STATE Tv nATA p0OrrsSiNG NETW0PK.
900*AOTHOR. DANTFt RAY CRTDFR.
1100*IMSTALLATTON. PTrH CnMPUTFP 0INTrp--0,A ImsT Of TFCHNnLnGY,
1300*DATr-LopITTEN. JULY-OrrEMBrp 1975.
1500*DATP-rOMPTLFE.
1700*ENVIPnNKNT 0IVTFT0N.,
1900*OoNFIr,UpATIOk SF(TI0N. pino*SoUprr-COmpUTrp, r-5500
2300*UPJECT-COmPUTrp. r-5500.
2500*ImPuT-OUTPUT SECTION.
2700*FILF'PONTRUL.
2900* SE'LE'CT DETATLFT-mASTER AssinN To TAPE.
1100* SF1FCT C0UNTy-FPSTE0 ASSIr,N TO TAPE.
3300* SEL E CT cr)Pv[ INF AsSTON TO CnNS0iF?
3500* SE .FCT CoKLIN2 hSST0N To CnNSOIE.
3700* SFL CT PFSTAFT*FTLE ASSTWo TO TPr.
1900*I-O-C NTRol?
4100*DATA oIVTsin a
4300*ETLr cFCTT0N.
4500*Fn RESTART-FTIE
11700* PLOCK CDMTATrF 20 RECORDS
4900* P7r0P0INO tj)1J- TS STAMTIAR0
5100* prcopn cOmTATS 8n CHARACTERS
5300* VALUE OF TO IF ?PFSTAPT?
.;5f1 0* SAO-FAcTnR 1F 30n.
5700*01 pETAPT-A.
5900* 01 prs-0001, TwilmE
V8': 83 FINiFITWI
6500* 03 pATTENT-TOThi
6700* 03 mEDIcAT0-TOTAL
6900* 03 FEMALF-TOTAL
71 00* 03 10ALF-T0TAL
7300* 03 CA-PUP
7500*01
7700*
7900*
0100*
P300*
F1 .5(q)*
P7o0* P900*
9100*
9300*01
9500*
9700*
9000*
10t00*
10300*
10500*
10.700*
10000*
11100*01 pEFTAPT-00,
113n0* 03 AOF-TOTALs.
11500* On Al7 - UNPER
11700* Oh A17
- 25
11900* OA 05.75-3
17100* Oh A35-0AIFP
12300* Oh AVERAGE-AU
Mn:01 PPT4 FTV1(. 1.. P
12900* 03 VISIT-InTAI.
13100* 04 VTOTAI Pic 9(7) JUST n10HT.
13300* n4 suppLy-oh-S0HF0 PIe 9(7) JUST a10HT,
13500* 04 1JscHrp - ttN0AI - CHFCK pIr 9(7)UST pIGHT, J
13700* 04 IN,AKF-T(TAL PIO 0 (7) JUST ni0HT.
1.375()* Ot PTAKf-TNTT - ANII -EXAMPIC 9(7) JUST RTGHT.
3376U* CA INTAKt..cOtt, SFLTNG plc 9(7) JUST RiGHT,
13900* 04 PFOS -AMHAL -0-4 FcK pp' 9(7) JUST 0101-17.
14100* 011 REVISIT Pir 9(7) JUST n10HT,
14300* n4 SuPPIY-Oh-UNSrMFD PIr 9(7) JUST PIOHT, 14500* t)toSCI-TE! rM-PROR pTc 9(7) JUST kI6NT,
14700* Oh cci-nt , r pie X(10) JUST np;HT,
14900*G1 RE S TART-C1.
15i00* 03 IINSCHFP-vroPLrm pTc, 9(7) JUST kiGHT,
15300* 0 3 MvSCHrr-rrOpLrm-REV plc 9(7) JUST HIGHT,
15500* 03 PREr-TDTAL.
PTC X(3) JUcT RIGHT.
PIC M I. ( ) JUST 01rHT.
pit" 9(12) JUST hiGHT.
p1 0 9(12) JUST GHT.
N Cr coT3; VtNT;
PIC y(20) JUST RIGHT.
RFclAPT - R.
03 RACE.
nh ViHITF
04 RI ACK
o4 AmEPICAN TmDIAN 04)(Trit-fr,=rRIrAM
0 4 OR
-
IENTAL
OTHFPRArr
04 cp-nUtA
REsTARP, R 2 .
03 ETHNIC
03 mAPTITAI-sTAT0S,
04 PARRIED
04 tk , FvFP MAvrTED
011 SEPAPPTEr
04 [iTVOPCLO
0 4 SPOUSF..PFerASFD
CP2-OuM
Pic 9(10) JUST NIGHT.
PP' 9(10) JUST KTGHT. pir 9(10) JUST BIGHT,
Pir 9(10) JUST 1.0 04.1 T,
PP" 9(10) JUST fOGHT,
Pir Q(10) JUST
Pic Y(,0) JUST RIGHT.
Plc 9(10) JUST RIGHT.
PIr 9(10) JUST IITGI4 T.
InIr 9(10) JUST NIGHT,
PIC 9(10) JUST F, TGHI, PIr 9(10) JUST
Pic 0(10) JUST kTOHT,
RN, )((n0) JUST QTOWT.
PIC ()CT);
Plc 0 (7).
RIO 9(7),
pir 9(7).
PIC 0 (n),
PIr )((go).
PIE WI MI OW
PTC 9(7) JUST RIGHT.
PTC 9(7) JUST HIGHT,
Or 9(7) JUST HIGHT,
ic 017) )05THIG PihT. P PTC 9(7) JuSI HT,
PTC 9(7) JUST HIGHT,
04
ma
rA
TrIAL-FPFC
pri-iN - PLTVT ,
LAST - NITvFRY.
Plc
PIC
9(7)
9(7)
JUST
JUST
rIGHT,
rInHT,
oc Firrt?tiTvE-TERm PIC 9(7) JuST pisHT,
05 PCP-l1IVF-PRE Plc 9(7) JUST rinhT,
05 PrIP-(f40 PTC 9(7) JUST P1OHT.
05 mic-AFTPT Pic 9(7) JUST r10hT,
On Cr2-00, PTC x(2 4 ) JuST rIGHT.
RESTART - C2 .
2FUER Pr: MI AlgT MOT:
15700*
1-9(, 0*
1610G*
1F10(1 *
1650r*
1 670C*
16900*
1710G*
17300*01
MSS:
179N)*
1P300*
1P500*
1p7nO*01
1P900*
19100*
19300*
19500*
19700*
19900*
20100*
20100*
20500*
20700*
20900*
211000-01
21300*
21500*
21700*
21900*
22100*
22300*
22500*
22700*
22900*
23100*
23300*01
23500*
?3700*
24300*
24500*
24 700*
p9 900* 100*
25300*
255003-01
c700*
00*
26100*
76300*
26900*
26700*
26900*
27100*
27300*
27500*
27700*
27900* 1
2P100*
2p300*
2P500*
2P7r0*
2R900*
29,00*
29300*
29500*
20700*
-e9900*
30100*
IPP8: 01
30700*
3070.*
307?)*
30900*
31100*
3,300*
31500*
31700*
PFSTAPT-0.
03 CONTRACFFTIVF-USE.
04 PATTprTs-nN0p-USFn
04 mETH0p-tSFD mOST.
Oc NOKIE
os oPtI
05 TUr
05 nrAPHFPnm
05 FPPH
09 PITHm
05 CorDOr
On CD-DuP. Plc X(24) JUST
W. PP41(c:EPA
04 AR09TT(r-couN
04 SOOTAL-FFR-ROON
04 HFR-(0uN
04 bE
OT
000-FFFSSUE
04 vn - PLni0-Tfci
Oh CF-DUN`. PIC X(2 4 )
pEsTAIPTwEl.
04 HrT-HnE-TEST
04 81_0(1 0-TEsT
04 VOPI-TIST,
05 VOPL-TPTAI
05 VrRt r0S
05 VnpL-TFG
04 PAP-SMFAP,
05 Pi!P-TOTAL 0 5 pp.p.prs
05 PAP-t, r0
0 4 CF1-OUp PIC X(2 4 )
PFST RT-F2,
04 GCTrUtTIPE.
05 GC-TrTPL
05 rr-pr$,
05 Gr-NF0
04 WAST-1OT41
04 Prp/If-TPT41
04 uR.HALy5TS TOT
04 STOKLP (FLL-TEST.
05 PCKIF-TOTAL
05 Cvl(-POs
PIr 9(7) JUST plsHT,
PIC 9(7) JUST rIGHT,
PIr 9(7) JUST PIGHT.
HST RIGHT.
PIC
PIr
PIC
PIr
PIr
PIr
PIC
PI('
9(7)
9(7)
9(7)
9(7)
9( 7 )
9(7) 9(7)
9(7)
JtST
JI ST
JtST
J1 ST
J1 ST
JIST
Jl . ST
JEST
rinhT,
TIGHT,
plsHT,
rInHT,
rIGHT.
P1nHT,
rIGHT,
rIGHT.
9Tr4T,
PIC 9(7) JUST plsHT.
PIC 9(7) JUST TIGHT.
PIr 9(7) JuST rickT.
PIC 0(7) JUST pir,HT.
PIC 9(7) JUST Pir, HT.
PIc 9(7) JUST 0101-11,
PIC 9(7) JUST pinhT,
Pie 9(7) JUST rIGHT,
pInHT.
PTC 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT.
PIC 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT.
PTC 9r7) JUST RIGHT,
PIC 9(7) JUST RIGHT.
PIC 9(7) JUST HIGHT,
PTC 9(7) JUST RIGHT,
pTr 9(7) JUST HIGHT.
pTc 9(7) JUST RIGHT.
pTc 9(7) JUST RIGHT,
PIC 9(7) JUST HIGHT.
PTC 9(7) JUST RIGHT,
pIc 9(7) JUST HIGHT,
PTC 9(7) JUST HIGHT.
PTC 9(7) JUST HIGHT,
PTC 9(7) JUST RIGHT.
PIC
pTC, PTC
9(7)
9(7)
9(7)
JUST
JUST
jUST
RIGHT,
RIGHT.
RIGHT.
On til'vtIlorr
C4 FFIAL-liFtTPS
n4 CHIL 0 PEN-hOW-ALIVF
04 CO-0111, PTC y(49) J
prsTAPT-01,
0 4 INJECTInN
04 STFRI1I7ATTON
On OTO-p I coNTpA
04 MFTH0r.PNIIT KNOWN
04 mETHr0 ,, rFPSCPTREn q1 Y.
05 PPTv-Irrinp
05 PUP I rITNIC
0 DRUGGIST
05 OTHFP
04 CDI-O0uN PIC x(24) JUST
pFSTART-Ft
0 1 SFPvIcrS - FP0vinED.
CONTRA(FP-CnUN
on. pPFnNAN0Y-TFST.
05 PpEn-TFST-TOTAL
05 PPIr-FOS
05 Ppio
- rFn
JUST PInHT,
JUST PInHT,
On 0:2 ? 0Um PTC X(24) JuST rI0hT,
pEsTAFrpfcK, F-NEn PIC 9(7) JUST RIGHT,
04 STEPTII74TInN-TOIT
On STFR-THEP PIC 9(7) JUsT RIGHT.
On SIFF , NrN PIC 9(7) JUST RIGHT,
04 TNOPITtITY-TOTAL PTC 9(7) JUST RIGHT.
PIC 9(7 )
PTC 9(7) PTC 9(7)
PTC 9(7)
Plc 9(7)
FTC 9(7)
Pic 9(7)
PIC 9(7)
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
HTGHT,
HIGHT,
HIGHT,
HIGHT,
kTGHT.
kTGHT,
HIGHT.
HIGHT.
HIGHT.
Pip 9(7) JUST PTC 9(7) JUST
P ;c 9 6Tiri nIr k OVIT
Plc 9(7) JUST HIGHT,
PIC 9(7) JUST kTGHT,
Plc 9(7) JUST kTGHT,
9T.(zHT.
PTC
PTC 9(7)
9(7)
PTC 9(7) PTC 9(7)
PT C 9(7) PTC 9 ( 7 )plc 9(7)
PTC 9(7)
JUST kTGHT,
JUST HIGHT.
JUST HIGHT,
JUST HIGHT.
JUST kTGHT,
JUST HIGHT.
JUST HTGHT,
JUST HTGHT,
Plc 9(7) JUST HIGHT.
Pic 9(7) JUST kTGHT.
PT c 9(7) JUST HIGHT,
PTC 9(7) JUST HIGHT. Plc 9(7) JUST HIGHT.
PIC 9(7) JUST HIGHT. plc 9(7) JUST HIGHT.
PTC 9(7) JUST kTGHT.
9(7) JUST HIGHT,
PE M1 JUT W6iV4T:
PTC 9(7) JUST hIGHT,
PIC 9(7) JUST
PC 9(7) JUS1 HIGHT.
PTC 9(7) JUST kTGHT.
Pic 9(7) JUST HIGHT.
PTC 9(7) JUST HIGHT.

PTC
PIC
pip
RTGHT.
9(7) JUST HIGHT,
9(7) JUST kTGHT,
9(7) JUST HIGHT.
PIC 9(7) JUST kTGHT.
PIC 9(7) JUST kTGHT. PTC 9(7) JUST kTGHT. PTC 9(7) JUST HIGHT,
PIC 9(7) JUST HIGHT,
Pic 9(7) JUST HIGHT,
plc 9(7) JUST kTGHT.
PIC 9(7) JUST HIGHT.
Plc 9(7) JUST HIGHT,
pinHT, 319ne* 32100*
32300*01
32500*
32700*
32900*
33100*
33300*
33500*
33700*
33900*
34100*
34300*
34 500*C1
Pc700*
34900*
35100*
08:
35700*
359no*
36i00*
3A300*
36500*01
367no*
36900*
3710n*
37300 ,
375(10*
3 77(1 0* 7900*
3p100*
3(4 300*
31a500*
3f4 700*
38900*01
39100*
39300*
39500*
30700*
30900*
401 00*
40300*
40500*
4 0700*
40900*01
41100*
41300*
4 1500*01
(4170)*
4190 ,*
4210k
A;)300*
42500*
47700*
42000*
411 0 0*
4 3300*
43500*
437oc*O1
109pc*
Woo*
4L' 3P0*
hhcr, 0*
44700*01 449()C*
45100*
45;00*
45500*
4 5700*
45900*
4 6100*
46300*
46500*
46700*
4(900*
4 7100*01
4 7300*
47500*
4 7700*
47000*
4p1P0*
4P300*
OA (ITPrp-TvsT
04 rF-Ott PIC y(17) JuST
pEsTApT-F.
0 1 COmTPA-PF1F0D AFTE 9-VIsIT,
Oh NO - HETF(0
04 0941-TcTAt
Oh itiO - TrItl,
04 OIA-TOTtt OP FOAv-T(TAL
04 pYTI-im-TrTAL
011 crNrCm-TrITAI Oh imJFCTIr-TriTAL
Oh CF-0UM FTC y(24) JUST
PEsJAPT-FT,
04 STFPIII7A-T0TAL
04 oTHFp-crnITPA-TOTAI
oh RFAsrsTrr-toETHOO,
8; 'gFV.:MrPlibT
05 SEEK-PFro-ToTAL
05 p iF0TCAt-PFASON-T0T
05 0THFP-IFASOm-TOTAL

05 CF
- r)( PTC y(31) JHST
PEsTApT-G.
01 PFFERPFP-FIsF6PEPE.
04 T0TAL-FIFFPPEO
0 4 Snc-sEF-TOTAL
04 tvq-SFF-TOTAL
04 STtPILI7ATInN-PFF
04 4P0PTICt-TOTAL
04 INFrpTII-TRF4T-TnT
04 0THFp-FrrrPRE)-T0TAI
01 PATIFKIT-SEFm-PV
N
1
04 pHYsICIJ-TnTaL
OIl C0
- D(W. FT0 y(24) JUST
0EsT4pT-G1,
Oh P-H-N-IrTAL
04 F-P-H-t?TOTAL
04 NURSE-f , TrviIFE-TnT
Oh L-P-N-TrTAL
04 S0CIAL-SFP-TOTAL
04 AT ('F-TOTAL.
011 cjFpK-TcTAL
04 NOTPITIrNTST-TOT
0 4 pri1-OH!4 PIC )(('4),
pEsTAPT-G?.
04 uTHFP-F-tNDLF- D-T0T
oh 0- 0Um PIC X(71) JUST pT
PFSTAPT-H.
01 PFFRPfil-srliprr. ot sFiT(IAL
0 4 00 1 0. 4(1--WOOKFR-TnT
pt OTHER-FF-CLTNIC-TpT
04 HOSP-HfkITH.AGENcy-ToT 04 ppIv.prc.NupSt..-ToTAL
Oh wFlrAPF-40PNTY-ToT
04 ANOTpFF-cLImIC-PAT-TOT
Oh i.04 -FPTIND-TOT
Oh (1-1.011M_ rip y(24) JUST pTGHT
PrsTApT-H1,
04 Tv-pADTC-NEwSPAPFp-TOT
04 PFJFPPFC-BY-OTHER-TOTAL
04 pErFFF4PFr-PY-UNKNowN.T 0 T
Oh CHI-D ? PIC Y(59) JUST
prsTAFT-T,
PUP. 01 NFyT-APPOIt . TMENT-
04 SUPPLY-FTPD0 G-CHv-T0T
04 ANNHAL-FY4M-TOTt[
04 rFPTCAI-pROp-TOTAL
04 OTHER - AFpoIN - TOTAI
04 N0 - rlyT-APP0TN-T0T
01 REASnr'-FOI-OIScHAPc,F,
04 STEPTL-tPPOTN - TnTAL
Oh WAAPPAIFF - TnTAL
04 tv,r0TCAI*PFAs-TOTAI.
0 4 C11-DUN FTC Y(24) JUST
PFsTApT-T1.
04 pATTENT-mOVF0-InTAL
Oh pATTENT-[OST-INTEREST-TrIT
04 p9Fr-OISTRE0-T0TA[
04 HPEc-OtrIAN-TOTAL
Oh UNKPOW-CITScAR-PFAs-TpT
Oh CT'POM PIC Y(4) jtjej
kTGHT.
PTGHT.
PTGHT.
PTC 9(7) JUST HIGHT, PIC 9(7) JUST kTGHT.
PTC 9(7) JUST kTGHT.
PIC" 9 (7) JUST PInhT, PTC 9(7) JUST HIGHT,
RIGHT.
4p500*(,1 9FcTAPT I J

4$1 700* 02 P-PATF"'cTilir OCcUP5 10 TIME IDTr 9(5 ).
4 P900* 0? P-STATE-0ATF-STnRE PT(' 9( 7 ).
49100* 02 P-PEG-nATF-Tnkr plc 0(7).
4p300., 0? FILLEP PIC Y( 16 ).
49500*F0 nETAILFD-wrSTII
49700* IAPFI RtCCIPps PPE STANDARD
40900* SAVE-FACT 0 P IF 300
50100* VALUE OF In 7F "IMASTFP"
50300* 9FrOPPING ? (Inr TS STANDARD
500* PECOPD C0NTAII, F 80 CHAPArTFRR
50700* pLcCK rcKITAINF 30 PFCDP0S.
50900*01 CLTNIc-DA1A.
51100* 02 C0PkT -rAmE
51300* 02 rnUNTY - mrmrFp
51500* n2 CLINIc - kWmFrp
517* 02 FILLER
51900*01 PATIFNT-0ATA,
52100* 02 COUNT-PATTEPT-NO, PEP
52300* 0? mEpTcOn-pFrISTFRED
52500* 02 mEnTcAIn - NiNpFP
52700* 02 SEY
2900* 02 m-PACE,
3100* 0? m-FTHNIC
53300* 02 P4 -ARITTAL-STATuS
n 4, 02 PATF-OF.-FETH. 03 mnm PTC 9(7).
53900* 03 nY PIC 9(2).
5 ,J100* 03 YR PIC 9(2),
5 11 30* 02 COUwIY"PEST(FNCE 5 450 * QR HIGH-scHrOl-nPanF-cnmpLFTFt)
0? 0UPPENTIY-0/--WEIF - ApF
02 FINANCTAL-STATUS
02 NO,, PER-IN-FANTIY-MDUSFHPLI)
5300* 02 rIL1EP 5 550 *01
55700* n2 DATE - 0E - VISIT
55900* 02 TYPE., 0E-VISIT
56100* 02 FILLER
5630.0*0 1 pprn-HTSTflPY.
56500* 02 NumjlE9-0E-FrrGNANCIFS
56700* 02 NUMPER"PORt, -ALIvE
56900* 02 0ATF-LA S T-IPEG-FNPE 0
57100* 02 OUTr0mF-0E-IAST-DELIvFRV
57300* 02 NUPpER - 0E - FFTAL-DEATHS
57500* 02 NUmPER - 0HltCPEN-ALIVE-N0W
57700* 02 FILLER
57900*01 cOmTRArEpTIVF-kIST0RY,
58100* n? FVEP-USED-kFTHOn
5p30Q* n2 mF.TmOn - MOST-uSEn-LAST-2-yEAPS
5p500* wm0-pPFccOTEF0-tATEST-mFTkinn
5P7n0* 02 FTL(E0
5R900*01 SFPvICFS - PPnVIrFn.
59100* n? COONSFLTIvr,
59100* 02 mm.non:PREE5opF
!7, 9500* 0? MVO-PLunp-TEST
59700* 02 HCT-HGP
50900* 07 mftrOD - TEST
60100* 02 VPPL
60300* 02 MPAP-SMEAR
60500* 02 G-C-CUIrupF
60700* 02 BREAST
60000* n2 PF1vIC -Txp
61100* 07 HpINALYgS
61300* 02 SICkLFaTLLt-ANEmIA
6 15 0 0* 0? I7t1- InN
61700* 02 INFERTpITN-
61p00* 02 mppFGN Nry-TFSI
62100* ('2 m"CITHFP
67300* n? mF_TH00 - IFTFF-VISIT
6200* 02 PEASONe'r0R?TPPPIN6-0'1 - 1-10n
62700* 02 m-PEFFRPED-ELSEWHERE
62000* 02 Y-PATTE-KI-FEEN - RY
631 00* 02 MAIN - 500pcF - nF - pEFEPpAL
61300* 02 PATE - 0E - NFO - APPOINTMENT
63500* n? puPPO5F-0p.4FxT-App0INTmENT
61700* 07 m-PFASrm-FrP-DIRCHAP0F
63900* 02 FILL FR
6P100*F0 rOkALIrqr
6t 300* PEcOPP Cf ETATNS p0 CHARACTERS.
6/150O*01 0PFRAT0R-ESSACF PIC X(8 0 ) uSAGr TS DISPLAY,
64700*En ri1K41Itv2
64900* PErflon CONTAINS 2 CHARACTERS.
5 6 900*
55100*
pIr v(3).
PIC 0(3),
PIC
PIC y(69),
PIC r(0).
plc v(1).
PIC 0(6).
PIC v(1).
pp- 0(1).
PIr Y(1),
PIr 9(1).
PIC. 0(3).
I PC ' P r
PIC r(1).
plc 0(2).
PIC v(45).
PIC r(().
PIC v( 7 2 ) .
PIC 0(2), PIC 0(2),
PIC r(6),
PIC c(1). PIC r(2),
PIC 0 (2). PIC v(65),
PIC v(1 ),
PIC r(2), PIC r(1),
plc v(76),
PIr r(1).
PTC X(1).
PIC X(1). plr y(1)
p PI C ytW 4 PTC x(25.
PIC v(2). PIC v(1 ).
rd CC sN;(1i.
plc v(7),
PIr Y(2),
P ACTe;., PIr Y(1),
PIC r(1).
PIC 0(1),
PIr 9(1),
PIr 9(1),
PIC 0(2).
PIC r(6).
pIr r(1).
PIr 9(1 ),
PIC Y(44).
PIC
PIC
Pic
PIr
Plc
JUST
0(10)

9(10) 0(10)
0(10)
9(10)
RIGHT.
JUST
JUST
1usT jUST
JUST
HIGHT,
hIGHT.
hIGHT.
HIGHT,
HIGHT.
(1-FSPrNSF. FTC Y(2) USAGE TS
rTL:Nn - W4Yr F 22 PECOPPS
ppropnING W1 1F TS STANPAR0
PrrOPP comTATts 80 rHARACTEPS
VALUE OF TO Is ?rmASTrrfl 300. SAVE-rAcTrp Is

COuNTY-A.
01 c-coulvT-ASPw . F
03 cOUNIY - mUm rIC
03 cLINir-ToTAI
03 PATIENT-IOTA(
03 minjcAID-TITAL
03 FEMALE - TOTAI
03 mA[F-TOTAI
01 CA-00w FTC X(20) .fi'ST
crimiTY-h.
03 RACF.
n4 V, HITE
04 PLAC;
n4 AMERICAN-TNPIAN
"
MEXTCAN-AwFPIrAN
04 r9IF?TAL
n4 rTHER-pA(c
04 Cp-DOm PIC x(T0)
oTsPL8Y.
PTC X(3)
090,
PIC 9(6) pIc 9(12)
plc 9(17)
PIC 0(12)
PIC 9(121
PIr 0(10)
PIr 0(10)
plc 9(10)
PIC 9(10)
PIC 0(10)
Pbr 9( 1 0)
.JUST RIGHT.
JUST
JUST
JUST
JUST
.JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
70100*01 rOONTY-B2.
70300* 03 FT10,10

70500* n3 mApiTTAI-sTTuS.
70700* nil HAHpir0
70900* n4 NFVFP - WIAFFIEO
71100* 04 sFpAPalFr
71300* n4 0TV0PrE0
7 1 0) 0* n4 sp(JUSr-oF(FASrD
1 BP8:01 rililkTc m
77100* 03 AGE-TOTALS.
7210Q* Oh A17-uN0FP Pic 0(7),
72500* 0 4 A17-25
77700* 04 A79 - 35 Plc
(17).
(7900* Oh A39 - rIvrp
0 7),
Pic 9(7),
73100* oo AVFPACF-41v Pic 0(1),
73300* 0 4 A r,F-num plc x(v).
71500*c1 couNTY-C.
73700* 03 VISIT-TOTAL.
7oloo* '; 4 11 411.1FWA-m
Plc 0(7) JUST 'lrHT, 71000*
-501Fo plc 9(7) JUST p10HT.
74300* n4 LuoscHro-ANNuAl-cHFcK plc 0(7) JUST PIGHT.
7 4 500* n4 INIAKr-TrIAI PIr 0(7) JUST rIGHT.
745 5 0* 04 INTAKE..INTT-AM0-EXAv PTC H(7) JUST pinHT,
7h56r* 0, INTAKE-cotsELTNG plc v(7) JUST RTrolT.
71[700* rl il REVIS-ANItAL-rHErle PIC 9(7) JUST pinHT.
74900* o4 9F\iiSTT PIC 0(7) JUST D10HT,
75100* n4 suppLy-ow-uNSrHED PIr 9(7) JUST rIGHT,
75300* n4 utA , scHro-tr-ppOp pTc 9(7) JUST HTGNT.
75500* On C01-0 1 p PIC X(10) JUST TIGHT,
75700*01 COUNTY-C1.
75000* 03 UNSCHEP-VEOpLFH PTC 9(7) JUST HIGHT.
76100* n3 UNSCHFU-FFPPLvM-REv PTC 9(7) JUST HIGHT.
7 6300* 03 PRFG-TOTAL.
76500* 04 TrIAI-FRET Pit' 9(7) JUST rIGHT.
76700* n4 ArRN-ALTvF
.
PIr 9(7) JUST plrHT.
76900* n4 LAST'PEEIVERY.
77300, oc PuoN-AtTVE-PRE r 0(7) JUST r, 10HT,
P I C 0(7) JUST pIGHT.
P
77100* Oc RQPN-AI-TERm
77500* 05 Ro0N-rrAn pir 0(7) JUST piGHT.
Mq: on c?;-M ,- "";, Tc, x(24) JUST i;InIAT.
78100*01 COUNTY-02.
65100*01
g;_48:"
65700*
65000*
66100*
66300*
66c00*01
66700*
6 6900*
67100*
67300*
67 9 00 *
67700*
67900*
6P100*
6(1300*01
6P500*
6P700*
6P000*
60100*
6 0 300*
69500*
60700*
69900*
HIGHT.
HIGHT.
hIGHT.
HIGHT.
hIGHT,
11760.
PIC 4(10) JUST RT6HT.
HIGHT,
rIGHT.
hIGHT.
HIGHT,
fITGHT.
HIGHT.
PIC 9(7) JUST p104T,
7P300* 04 NEvER-EPEG PIC 9(7) JUST rIGHT,
P500* 64 PPFG-ITHER pic 0(7) JUST vi0HT
/P700* OA uNKv0t plc 9(7) JUST HicHT:
78900* n4 FFTAL..0EATPS Pic 9(7) JUST r1GHT.
70100* 04 CPILrrFm-TOW-ALIVE Pic 0(7) JUST HIGHT.
79300* 04 rr-out Pic y(45) J0ST PHIHT,
79500*01 COUNTY-U.
70700* 03 CONTRACFETIVF-UsE.
79900* 04 rATTFNTS-ONCF-0SEn plc- 0(7) JUST pIGHT.
80100* 04 pETHn0-tF-Fn - HOST,
F0300* 05 mr, ,,F
60500* o ,, oPpL
6070 *
8090 *
Plino*
05
05
cc,
TUn
PJAppFArm
FflAm
Pic 0(7) JUST riCHT,
PIC 9(7) JUST WIGHT,
PIC 9(7) JUST piriHT?
PIC
pi('
9(7)
9(7)
JUST
JUST
pinHT,
c'ir,HT,
81300* C5 PVTHM r, Pir P(7) JUST inhT,
Ft500* oc rri[01, plr 0(7) MIST ric,HT.
81900*O1 rnuNTY-D1.
PT( xrp4) JuST rIro-IT, 81700* Oh CO-Dum
82100* On TkJECTT(IN PP' 0(7) JUST ric,HT,
82 300* Oh sTrPTAT7ATI0N Plc 9(7) JUST rIrHT. 820* Ot STFP-TUfP PIC 9(7) JUsT PTGHT. 82 .10* Oh STFR-tql(? , PTC 9(7) JUcl RIGHT.
82500* oh nTpEP r(INIpA PIC 9(7) JUST ric,HT.
P34P@: 04?O,EY[rWrzfPPH.t:RY: Pic 9(7) JUST c-, 101-4T.
pir 9(7) JUST Dic,HT,
PT(' 9( 7 ) JUST riGHT.
PTC 0(7) JuST 01014T, Plc 9(7) JUST nloHT,
JUST pir1HT,
JuST rinHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
PIC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
P T C 9 (7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) ,JUST HIGHT.
Plc 9(7) JUST hTGHT.
JuST vI0HT.
[),; 0"/:
83100*
83300*
83500*
83700*
F:1 900*
84100*01
8/1300*
f3400*
P14 700*
8h000*
8c100*
85300*
855n0*
8570c*
85900*
86100*
863co*Ot
86500*
867no*
86000*
67100*
87300*
87500*
87700*
87900*
86100*
8P3P0*
P500*
M 8 700*01
88900*
690[1*
poc re *
8000*
89900*
90100*
90300*
90500*
9o7r0*
90900*
91100*01
91300*
91500*
91700*
91900*
92100*
9230. 0*
92s00*
92700*
92900*
93100*01
93300*
91500*
93700*
91900*
94100*
94300*
94500*
94700*
94900*
95100*
95300*01 $REit
959c,o*
96100*
96300*
96500*
90C)*
96000*
97100*
973 0 0*01
pc, pPlv-TrrTflp
05 pUp-riioTO
0s OP1160TsT
n11.40
0/1 CPI'OUIT PTC X(10)
COUNTY-E.
SEpVTCFS - FPnvInEn.
Oh CONTPACFP-CnUN
04 STFPILI7A-CnUN
Oh INFFFTTIT-CflUN
Oh hAripTTrf, - (7011
04 S0CYAL - FFP*rOHN
04 OTHrp-rouN
04 BLOnr-FpOsSIIRE
04 vfl-PLIIrr-TEsT
OA crw[dIm PTC X(2 4 )
COUNTY-Fli
04 HCI-HGT-TFST
04 HVOCIO-TTsT
Oh vflPI - TF5T.
05 V0PL - T0TAI
05 VrRL-PrS
05 vr1Pi-rrl
04 PAP-SMFfP.
05 PAP-T0TAL
05 PAP-FCS
05 PAP-NFr
On CFA-DUm pIC X(24)
COUNTY-F?.
04 Gr-rt,LTIPF.
05 ce,re:;W L
05 Gr-NFO
04 FREAST*T0TAI
04 pEl.vIr-TOTAI
04 uRINALYSTS-TOT
OA SiCvLF*CELL.-TFST.
05 STOKIF-TOTAL
05 STCO.r-POS
Oh CE? - nr' 0 PTC X(24) JUST pIC,HT.
cOuNTY-E31
04 PTCKIF-NEE' PTC 9(7) JUST HIGHT.
04 STPILT7ATInti-TtIT PTC 9(7) JUST HIGHT.

04 INFEPTTATTY-TOTAL PTC 9(7) JUST PTGHT.
04 ppfr,K4tcy-TrST #
05 ppEc,-TEST.TnTAL PTC 9(7) JUST hTGHT.
05 PPEr,-rnS PTC 9(7) JUST hTGHT.
05 PIPEG-t, F0 PIC 9(7) JUST hTGHT.
04 (ITHrP-TEST PTC 9(7) JUST hTGHT.
04 CF - nth PIC x(31) JI'ST RIGHT.
001INTY-F.
01 COkTRA-S4. 1PP AFTEP-vISIT.
04 Nn - k4ETFrn
04 ORAL-TITAL
04 IHO-TOTt1
04 nTA - InTlq.
04 FilAm-TITtL
04 pvTP-ICTAL
04 CrIN00m*TOTAI OA INJFCTTrN-TnTAL
Oh CF-DUM P TC x(24) JUST
rOoNpf-FI,
@A bfWW7ATVAI4bTAI
rt! REASON-STrr-METHOD.
05 p00-PIrk-TrITAL
05 pPrG-likpLAm-TOT
05 SEEv-pFFG-TrITAL
05 kEnTCAI-PFAsON-TOT
05 OTI-TP-I=FASOwPTOTAL
C5 Cr - 0'r PTC y(31)
COUNTY-G.
PTGHT.
Jr
PIC 9 ( 7 ) JUST hTGHT.
Plc 0 (7) JUST PI01-iT.
PTC 907) JUST HIGHT. PTC 9(7) JUST HIGHT.
PTC 9(7) JUST hTGHT.
, ST 9Tr,HT,
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) .JUST HIGHT.
PIC 9(7) JUST HIGHT.
0(7)'JuST PI0HT.
PIC 9(7) JUST H.TGHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
plc 9r7) JUST hTGHT.
Plc 9(7) JUST RIGHT,
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST hTGHT.
PTC 9(7) JUST HIGHT.
PIC 9(7) JUST HIGHT,
PTC 9(7) JUST kTGHT.
PTC 9(7) JUST HIGHT.
PTC 9(7) JUST HIGHT.
PTC 9(7) JUST HIGHT.
PIC 9(7) JUST HIGHT.
PTC 9(7) JUST hTGHT.
PIF $ff3 jOf
97r7;no*
97700*
97900*
9P1r0*
9P3r0*
96500*
9P700*
9P900*
9 0 100*
99300*
99500*
9P700*01
99900*
10 0 100* 100300*
100500*
100700*
;6MR:
101300*
101500*
101700*01
1019no*
102100*
10230n*01
10 2500*
1 e 7 RP* 10 ,*
1031n0*
103300*
103r,pc*
iO3700*
103900*
10 11 100*
104300*
10 11 500*01
10/17n0*
104900*
10STon*
1 09300*
105n0*01
105700*
1Qconn*
106100*
106300*
106500*
10F, 7n0*
106900*
107100*
MABB;
107700*
i079004,01
ipP100*
1 .P1 0 0*
10Ps00*
1014 700*
10/3900*
109100*
1 0930044 0
10000*01
109700*01 100000*(0
110100*01 1103(10*01
JUST
JUST
JUST
RIGHT.
RTGIIT

RTC,HT,
JUST
JUST
JUST
JUST
JUST
JUST
ji
RIGHT,
hiTGHT,
RIGHT.
RIGHT,
MW:
01 PFFEPPrn-ifSERHERF.
04 ToTeL.FrrEPpEn FTC 9(7)
04 snr - sFf - TnTAL FTC 9(7)
04 fv,P- P-SFr-TnTA1 PTC 9(7)
04 STFrII T7PTInN-PFF PTC 9(7)
04 400pTI(r-TOTAL PTC 9(7)
04 INIrpTII -TPrAT-TnT PTC 9(7)
04 nTHrp-rEFEFO-TrITAI PTC 9(7)
01 PATIFT-SFFN-PY.
04 PHYsIcT(N-InTAL PTC 9(7)
OA 00-DI' Fir Y(24) JUST F1 GHT.
rOONTY-G1.
04 p-P-N-TFTA1 PIr 9(7)
04 F-P-H-f*.TOTAL PTC 9(7)
04 NuPsF-rInwIFF-TOT PT r
PTC
9(7)
0/1 L-P-N-TrTAL 9(7)
04 Sn0TA1 -5TR-TOTAI
Ph uff;izIuq[
PTC
PIE
9(7)
Wi
04 NuT0ITTrroIST-ToT Pie. 9(7)
OA CGI - nUP plc Y(r4)
rOONTY-0,2,
04 OTHrP-vANO1F- 0-TnT FTC 9(7)
04 CO'nUm PTC X(73) JuST PT0HT.
MINTY-H.
0 1 REFERRAL-FCUPCF.
Q4 SELF'-TrTAL
uh wilpEAci- I WrIpkT9',, T(IT
04 OTHER-rr-CLINTC-Tn1
Oh HnSF7/4 HrAITH-AGE?d rY - TOT
Oh ppIv-D0C-NURSE-TOTAL
04 viELrApF-AGFmcy-TnT
0j AN0THFF-CLINIC-PAT - ToT
04 FA9-EPIFNO-TOT
PTC 9(7) ,JUST pTr 9(7) JUST
pTC 9(7) JUST
PTC 9(7) JUST
PTC 9(7) JUST
Or 9(7) JUST
NC' 9(7) JUST
Plc 9(7) JUST
HIGHT.
kTGHT,
RIGHT.
RIGPT,
RIGHT.
RIGHT.
RIGHT,
OA CH-DUm FTC y(24) JUST k ? GHT,
rrlI U
04 TV - PADI(-NFwSPAPpP - TOT
04 REFrPRF0-FY-OTHER-TrTAL
04 REFF- PPFC-8Y-UNKNnWN-Tol
04 (141-pUlk PIr X(50) JUcT
01 NEy1-APP0TNTmENT-POP.
04SUPPLY-FTPING-CHw-TnT
04 ANNIIAL.ryAH.T0TAL
04 07DICAI-PROP - TOT41
OU OTHFR-tEPOIN-TOTAI.
04 NO - NFyT-APPnIN-T0T
0' p1AsON.F0E-0IScHAP0,r,
04 srEpri.tppoTN-TnTAL
OA CI1 ..r)L[m FTC Y(24) JUST PiGHT.
PTC
PTC
PTC
plc
pIc
Plc
PTC
PTC
FTC
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
W3
MINTY-11.
04 PAIIENI
T
-Pnvr0-T0TAL pTr 9(7) ;JUST
UI RI
YGHHT.
oh ph 1 i E N ft-I OST-I NTF pLsT ...I rT Pic 9(7) jS kGT.
04 pRfn-nIcTPEn-TOTAL PTC 9(7) JUST kTGNT.
04 pRUn - urviAN.TnTAi pin 9(7) JUST PIrhT,
04 UNI(Nni0,-OISrHAP-prAs-TIT plc 9(7) JUST RIGHT.
04 CI - 0Um pIO Y(45) JUT RIGHT. RvIlorl-STORAL SI0TIoN.
7F p/c p crp VALUE TS 0.
kmu pir 9(17) COMP.
9(3) CORP. COUNTY-TPAr
Y PTc n(2) JUST RIGHT nnHP. .
PP", ""TrITALS.
JUST RIGHT.
JUST RIGHT.
JUST RTGHT.
JUST ITGHT.
JUST RTCHT.
JUST RIGHT.
JUST RIGHT.
JUST RIGHT.
JUST RIGHT.
JUST RIGHT.
JUST
JUST R,IGHT.
JUST RIGHT.
JOT OW:
JUST HIGHT.
JUST
110500* n3 Pr0 - 01,
1, 0 7 0 0* 014 P-COUNT-Ntp pIr Y(1) VALUE "PEr", Worn* nu p
- roHNTY ,'PIP PIC. 9(3) VALUE 909.
111100* 04 CLINIC-TGTtl PTC 9(b).
111300* 04 PATIEN (1

T-T1*(1 PTC 9(12).
111500* 04 NE-DICAI0-TrTAL PTC 9(12), 1117(10* 04 FEI(ALE-TPTti PTC 9(12).
111000* 04 mAr-TOTAL PTC 9(1?).
1121(10* 03 prO-P.
112300* 04 PACT. PTC 9(10)
112700*
112500* n5 WHITE'
11?or0* f n5 WOrAN-YPOIAN
PTC 9(10), PTC 9(10),
113100* 05 mrxICIN-Pt'EPIrAN PTC 9(10).
113300* 0 5 ORIENTAL PTC 9(10),
113500* n5 OTHER - Poll PIC 9(10).
1110I1 03?01111W7 PTC 9(1r).
PTC 9r5).
PTc 9r5).
PTC 9(5).
PTC 9r5).
PIC 9(5).
PTC 9(5).
RTC 9(5).
PI r 0(5).
PIr
Pic P(m).
PIC 9(5).
PTC 9(5). *
*
PTC 9r).
PTC 9(5)
Plc 9(5).
Plc 9r 5 ).
*
PTC 9r5).
PIC, 9(5).
PTC

PTC 9 0).
PTC 90_0.
*
PTC 9(5),
PIG 9(5)
PTC 9e5).
PTC 9(5).
PTC 9(5),
PTC 9(5),
PTC 9(5).
PIC 9(5).
*
PTC 9(5)
PTC 9 ( 5 )0
*
*
PIC 9(5).
PTC 9(5),
*
PTC 9(5),
PTC 9(5),
PIC 9(5).
PIC 9(5).
*
PIC
PIC r,(5).
PIC t~(5)*
pl c o(5)
PIC n(r0 PIC 0(5),
.
PTC 9(5).
PIC (1(c),
*
PIC c(5),
PIC o(5),
*
PIC c(5).
plc o(5).
PIr r(5).
0 4 MAPTITAI-IPTHS. *
0 5 MAPPIFD 0Tc 9r10).
05 P - vFP-NAr0TFF) PIC 9(10).
0 5 SFPAPTFf PTC 900).
(19
(1 5
PrvnPrEP
spo1)sr-nTrF4sr1 PTC
9r1(:)
. 9(10).
114100*
11 4 300*
i14500*
11(1700*
i14o00*
1191n0*
11c300* n3 PrG-005,
119900*
115700*
115900*
11 6 100*
1163n0*
1165no*
116700*
116900* n3 PrG-c.


117100* n4 VISIT-TOTAL.
117100* 05 vTOTAI
1175o0* ?5 SiIPPLY"Or SCHrn
117700* 0 5 1)P0 SCHFD-tNI,JJAI - CHEck
117900* 0 5 IvTAKT- .-TIT/IL
1179c0*Oc Tt-TAKE..INTI".0,11". F.YAM PTC 915). 1179A0 * 05 INTAKE-c0INRELTNC PTc 91).
11F100* 05 RFOS-ANNI - AL-rHFCK
110300* ?3 REVISIT
11p5rNo* 0 5 SIIPPLY-0N-UNSCHED
14 03 H(4: n5 FG
UNSCHFP,rrN-Pp0R
i.
119100* 04 UNSr1-(Fn - pprrirP
119300* 04 uNScHr0-PRIFIENA.PFV
i1o5no* n4 pREn-InTAI,
119700* n5 InTAL-ppEr
110000* n5 pnpNw4LIvr
1201r0* n5 LAsr-nFLIvrpY.
12 0 .300* 0c R0PN?I TVF-TERM
l'er500* (), pn2N-plIvE-PPE
11 0700* 06 RPPN - rvpr ,n00o* 06 mIc-AFrpT
121100* 03 REO-C2.
1213n0* (c NEVERwFPFG
of, pRrco.rTwER 12 15(1 0*
121700* 06 0NIKNni.
121900* n6 Fp -TA[-(TVIHS
1221nO*. P6 CHILOPFNP0W..A.LIVF
122300* 03 P70,-D.
122500* 04 CONTRACrFTI?T-UcE,
122700* 05 PATIFNIC-nmCF-HSEn
122900* 05 mETHnp-t5F0-WIST.
1211no* 06 NProE
123300* of? nPni.
121500* 06 TUn
123700* 06 nIepwFpnm
123900* 06 FflAto
124100* 0A PYTHm
124300* 06 CrN , 00k
124500* 03 PEG-D1?
124700* 06 INJECTIPN 12/$900* 06 sIPpT[ I7AT TON

lift0.9: 4 ;TW4g1F gIE $R3:
125100* 06 nrwEp.enNTp4
125300* 06 HFTWII.00 0T-KNOwN
12500* 06 METH01-PERSCRIPEn
- RY.
/2700* 07 RRTo.riCTOP
1V5900* 07 PUP-CITNIIC
126100* 07 DPI , c(zisT
;WU: n3 prr4: nTliEn
126700* 04 SFPVICFSFPCVTrIED,
126900* 05 cri, 1 TpArrp-c0UN
127100* 05 sTtPILT7A-c0uN
127300* 05 ImFERTTIT-CPUN
127500* 05 WIPTTr..ciliftY
1 27700* 0 5 SrICIAI' 5.EP"r 0 UN
127900* 05 OTHFR..(0UN
/2P100* 05 PLPor'FFRSSIIRF
12133 0 0* Oc. vn - RIOrr-TicT
12F500* 03 RIG-E1.
1.2P700* 05 HOT-HGF-TEST
12P900* 05 WIrp - TFST
120100* 05 vnPr - TEST.
120300* 06 V0PL-T0TAI
12 0 900* 06 v0PL-rnS
129700* 06 vr, PL-0, F6
04
0;
Oc
Oc
OS
Oc
Oc
Arj- -T01ALc.
A17-0:0EP
A17-25
A25-35
A35-n\)r P
AvFP4GP-,5CF
A0E-nUk;
PIr
PIr
pIr
PIC
PIC
PIC'
0 (c).
Q(7).
9 (c).
0 (c),
9 ( , ).
Y( 4 0.
129900* 05 [CAF'-sHIPP.
10100* rt. Pf?p - TriAl
.5 10300* 06 PAP-H- s
130500* 06 PAp-pr0
130700* n3 RFC, -F?.
130000* 05 GC-CL_TIPE.
131100* 06 Cr-Tral
131300* 06 6r-prF.
131500* 06 0r - mpr
131700* 05 F , PEST-T0TAI
131orC* 05 PElvir-I0TAI
137100* 05 UPIKIALNIs-TOT
132300* 05 STCvLF.0FLL-TEST.
13?500* 06 STCKIF-TOTAL
132700* 06 sTcwiF-Pnf
132000* n3 PVG-E3.
133100* 05 $TCKIF-f, F0
133300* 05 5TFpit.T7nTInN - TnT
131500* 05 INFrPIIITTY-T0TAI
133700* 05 PpIrrArcY-TF5T.
131900* 06 PPfn..IFST-T0TAI
1.3,4100* 06 PPEG.0PS
1.54300* 06 PPF0-P, FG
i34500* 05 f1TI-FP-71-
13 4 700* 03 Rt- G - F.
134900* OP cmoT9A-frETP0D-AFTEP-VISIT.
i351()0* 05 N0-pFTEr0
135300* 05 OR41.-TrTAL
135500* 05 iun-TnTfl
1 3 57 0 0* 05 0TA-T0TA[
135900* 05 FflAm-TITAL
136100* 05 RYT1-1 -10TAL
1P, 300* 05 c0N0PmeTPTAI
11W, S: 03 Ric,.ml ..ircTir-TnTAL
136900* 04 sTEpILT7P-TOTAL
137100* 04 (IT1.4- p-(fP0 TRA - TOTAI
137300* On RFAS0^.1.-STrfi-METH0D,
137500* 05 PRE0-PIPP0 -TrITAL
137700* 05 PPF6-t PLAN-T0T
137900* 05 SEEle-PPF6-TOTAL
131100* 05 mEuTcAl-PEAsON-T0T
13 5 3 0 0* 05 OTHER-FrASON-TCJIA(
1P500* 03 Pr0,
- G.
liP700* 04 pEFERRFD-FISEtNHERE.
i P900* 0 . 10TAL - rvFERRE
1 o100* 0 Stlf I SFri- T0TAL
0

139300* 05 mEn - SEF - TOTAL
139560* 05 STEPILI7ATI0N-RFF
139700* 05 AR0PTIrr-T0TAL
139900* 05 INFrpTIL - TREAT - T0T
140100* 05 OTHrR-RFFFRpFD-T0TAL
140300* Ob PATIENT-SFIN.43Y.
140500* 05 PHYICIPm..T0TAL
1 4 0700* 03 REG - G1.
140000* 05 P-H-n-TcT4L
1 4 1100* 05 F - P - H - t, - TPTAL
1 4 1300* 05 NuPF-T0v4TFE-Tni
1 4 1500* 05 r-P-Is, -TrTA1
141700* 05 SOCTAL-FFP - TOTAL
141900* 05 ATnr..TfTAL
142100* () CIEP - TfT4I
142300* 05 NOPITIft, 'IST - TOT
142500* 03 REG-62.
1 4 2700* 05 0TPrp-ulponi.Fo-TrT
M?Set 03 FiT G OFIRPbL-S0PRCF.
143300* 05 SELr-TrIAL
143500* 05 nuTpEACF--WORKER-TOT
143700* 05 0THrp-Fr-cLTNIC-TnT
1 4 39 0 0* 05 HOSP-HFAITH-AGEN0Y-TOT
144100* 05 pPIw-0c0-NURSE-T0TAL
144100* 05 ti FL
144500* 05 ANCTHEF-CLINIC-PAT-TOT
144700* 05 FAM-FpIrtIT-TPT
044900* 03 REG..H1
1 4 5100* 05 TV-PAnir-NEwSPAPrp-TOT
1453n0* 05 RF- f-CPPfr..PY.OTHEpTnTAL
145cr0* 05 prEFRPVF - PY - UNKN0WN - I0 7
145700* 03 R70, - I.
145900* 0/i NF9T-4PP07 ,, TMENT-, PHp.
14 ( 1r0* 05 SUPPLY.-FTPImG-CHK*J0T
146300* 05 ANKpAL-rYAM-TOTAI
*
riE 6 P3:
Plc ,(.5).
*
PIC n(c).
PIC n( 5 ).
pICr(5).
plc r?(5).
PIC f'(5).
PIC n( 5 ).
*
PIC r(5).
PIC r( 5 ).
PIC 9(e).
PIC )
PIC r(5).
PIC, 0(5),
PIC 0(5).
pir 0(5),
PIC 0(5).
*
PIC 0 (5).
plc 0(5).
plc 0(5).
pic
PIC ,(5).
PP. n(5).
pI c 0(5).
PIC e(5). *
PIC 0(5).
PIC r(5).
*
PIC 0 (5). PIC 9(5).
PICf7(5).
I PC c7(5). pc r.,(5).
*
(,(5).
pi r
PIC o(5),
PIC
PIC r, (5).
PIC ^(5).
plc 0(5).
PIC 0(5).
PIC f, (5).
PIC 0(5),
PIC c, (5).
PIC (, ( 5 ).
PIC 0(5).
PIC
PIr r(5).
PIC 0(5),
*
PIC n(5).
*
*
PIC 0 (5),
pIC 0(5).
PIC 0(5), PIC 0(5).
PIC 0(5),
plc n(5).
PIC 0(5).
PIC n(5).
*
PIC 0(5). PIC r(5),
PIC r(5).
*
PIC c(5).
PIC PI0 0(5).
03 STATE - C.
0 4 VISIT- 1 0T 4 1.
0 5 VTOTAt
0 5 SUPPLY-nlk-SeHr0
^5 UNSCHFOortt+NUAI - CHErK n5 INTAKE-Tr7AL
n5 INTAKF-T ?kTT-AW)...EYm PTC n(5).
^5 TNIAKF-0nioSFIING PIr P(C).
05 PrVIS - ANItt'AL - rHFCle
n5 Pi- VISIT
0 5 SUwPtv-0t, -tINScHEO
05 uNscHrp- PpflR
03 STATE-C1,
04 HNSCHFP-Pry(PLIM
04 UNS0HF0-PPrrIEfri-PF - v
n4 ppFc,mrPTAL,
0 5 TeTAL-VPFc
05 PeRN"A[TVF
^5 LAST - "[LTvFPY.
06 RePAITVF-TERM
(`6 HORN-AITVE-PRE
06 POpfv-FeAD
06 4Tc-AtivcPT
o3 STATE-C2.
NEvIP-FPFG
06 PPFG-ITPER
06 uNvN0Vr
gii_17, 0!JH-AtivF
03 STATE-f1.
04 CONTRACFPTI1 , E-UsE,
05 PATIrNTF-0NCp-USEn
05 mETP0p-icro - 01ST.
06 NONE
OF 01
OF
06 (iAPHFpcM
05 MEPTCAI-PPOR-T0Tisi
05 OTHER-APOIto - TOTAL
05 N0 - EYT-APP0IN-TnT
0 1, PFAS0N-Fri-pTSrHA9 0 F.
05 sTIPIL-APP0TN-T 0 TAL
1 4 f, 5r0*
1 4 67ro*
1460(10*
147100*
147100*
147500*
4477r0*
147900*
14p3no*
14850 u* 14p700*
1 4,9900*
1401no*0
149300*
149500*
1 4 9700*
1 4 9900*
15 0 100*
15n100*
150500*
15 0 7 1-'0*
150900*
151100*
151300*
151500*
151700*
151900*
152100*
1 5 2300*
152500*
152700*
152900*
153100*
153300*
151500*
151700*
153900*
1541no*
154300*
154500*
MOB:
155100*
155300*
159500*
15 5 700*
155900*
15 61(1 0* 156300*
156500*
i56700*
1567s0*
i56760*
156900*
i57100*
157300*
157500*
157700*
157900*
15P1P0*
15p300*
156500*
15P700*
1. 5 P900*
159100*
159300*
1 59500*
159700*
159900*
160100*
160300*
160500*
160700*
160000*
161100*
161300*
161500*
161700*
1610(10*
46?Ir0*
162300*
162500*
05 P(ENnPAI Fr-TnTAL
05 mF0TcAl-pF4s-TOTAL
03 REC-I1*
05 PATTFNT-0Vrp-T0TAL
8; W- LNIF ITP; 7JNTF E
05 pPEn-mEIAN-TrTAL
05 uNi.(PloW-0ISrHAp-prAs..ITT
sTATE-TOTAIS.
n3 STATE-A.,
Oft R - COONT - NAVF PIC
eft Ft-COUNTY" ?A PlC
04 cLINTr-Trrpt
04 PATIENT - TOT,L
0 4 mE0TcAI0 - TrTA!
04 FEMALE' - TOTAL
04 MALF-TOTAL
n3 STATE-H.
04 RACE.
n5 wHTTE
n5 PI AO`
09 P,IFPICANwIvOIAN
05 PrXICA-Ak4-10rAN
05 PplENTA[
05 OTHEP-PACF
04 ETHNIC
03 STATE - PP.
04 bI APTTTAiw.STPT05.
n5 m4RRIro
05 t,r079-mAFFIED
^5 svpAPtTrr
n5 DTvnP0F0
n5 SPOUSE-IMFrEASrD
n3 STATF-0015,
0 AGE-TOTALS.
Os A17 - I)N 0 FP PIr 9 (s). fR 04=i; RiF
Oc A35-OVER PIC 9 ( 5 )..
OS AVERAGF-Arc PIC
0 5 AGE-01,U0 PIr x(4 2 ).
PIC n(5).
PIC o(5).
PIC r1(5).
PIC 1(5),
PIE r7, t;I:
PTC 9(5.
plc f, (5).
Y(1)
9(3) VALUE 9991
PTC 9(0),
PIC 902),
PIC 9(12).
PiC 9r12).
PTC 9r17).
PTC 9r10).
PIC 9r10).
PIC 9(10),
PTC 9(10),
PTC 9(10).
PIC 9(10).
PTC 9(1r).
PTC 9(10).
PTC 9r10).
PIC 9(10),
PTC 9(10).
PIC 9r10).
PIC o(s),
PIC 9(r)p
PTC 9r5),
PTC 9r5).
PTC 9,5).
PTC 9r5).
PTC 9r5).
PTC 9r5).
PTC 9r5).
PIC 9r5).
PTC 9e ).
PR 'r i( 3;
PIC 9(5),
PTC 9(5).
PIC 9(5),
PTC 9(5).
PTC 9(5).
PIr
pI
plc
ST-i nT
PTC 9f5).
PTC 9(5).
PIC 9r5).
PIC 91'5).
PTC 9(5).
PIC 9r5).
PTC 9r5).
PIC nt,),

162700* 36 Frno.,
16290* o', PYTHm
161100* 06 00rJ0n
163300* 03 STATE-01.
161500* 06 TNJECTYnN
1. 6 3700* 06 9TrpI1T7ATTON
1617 9 0* 0 4 STER - TPFP PTC 9(5) ,
163760* 06 STFR-rkTN PTC 9(9),
16390C* 06 0TwEP-cnNTPA
16h100* 06 mErpor-NoT.KNowN
164300* 06 0THor-PERPIRrn-PY.
164900* 07 PPTy-ircTilp
1611700* 07 PUP-01TNIC
164900* 07 0R110W-T
165100* 07 nTuFp 165300* n3 STATE-E.
165500* Oh SEpVICES-FEnvT0FD,
IMP6I 8? gq;Yti5W*RHN
166100* 05 INFrRTI1T-CnUM
16630C* 05 AROPTT[-COHN
166500* 05 50CTAL , FFP - rOHN
164700* 05 OTHER-CCUN .
166900* 05 BLP0D-Et'FS9IIRE
167100* 05 V0 - PLO1c-TicI
167300* 03 STATE-El.
167500* 05 HCT-HC4-TEST
167700* 05 800D-UST
167900* 05 v0R1-TEcT.
16100* 06 V0PL-70TAI
166300* 06 vnpL-rns
16P500* 06 V0pL-r?re, 1644 700* 05 PAP-SMEtP.
16p900* 06 P4P-IrTAL
16 0 100* 06 PAP-FCF,
169300* 06 P4pmt, Fr
1 6 9500* 03 STATE-F?.
169700* 05 GCmCOLTIRE,
169900* 06 GT-TOTAL
170100* 06 G0-PCs
110300* 06 00-Nfr 1r0500* 05 EiptrisT-TrTAI
170703* 05 PELVIC-TnT4
170900* 05 uPIPALYFTS-TOT .
171100* o5 sTCw(r-rFLL-TEST. 171300* 06 ST0KIF-TOTAL
171900* 06 STCKIF-P09
171700* 03 STATE-Fl.
171900* 05 SICKLF - tFn
WP V2) * ?..); larPTITIT;'n7lUT
172500* 05 pPFnNAp, ry-TFST.
172700* 06 PPE(-TEST-70705 1
172900* 06 PPE( -pos
1.7.3100* 06 PpE(1-tkFG
1(3300* 05 OTHFP-TEST
171500. 03 STATE-F. 173700* On CONTRA-mETI-nD-AFTER-VISIT.
173900* 05 NnwHETI-rn 17i1100* 05 DRAI-TrTAL
17"300* 05 TuP-TTITilt..
174900* 05 DTA-Tnit!
1711700* 05 F0Am-TrTAI
1
14900* 05 RYTwm-T0TAL
9100* 05 CON 0 0m-TPTAI
1 5300* 05 INUFOICN-T0TAL
175900* 03 STATE - F1.
175700* 04 STF9ILI7A-T0TAL 175900* On OTHrP-(0NTR4-T0TAI
1761r0* 0 ,1 REAsnN-sTur-mETHop.
176303* 35 pPFo-PLpf,i-TrITAL
176503* 05 PPFG-rtipLAm-ToT
1Z 6 700* Q5 SErw-PEFC, -TOTAL 1(6900* 05 W0TcAl-pEAcrIN-T0T 177100* 05 nTF, FP-ETASOm-TOTAL
177300* 03 STATE-0.
177503* On PFEEPPE- D-FtsEWpERE.
177700* 05 1 0 TAL-FFFERRE0
177900* 05 spr-sEF,-TnTAL
17/2 100* 05 pEr-SEE-TOTAL
175303. 35 sTFpl[T7PTInN.prE
i 7I08: R gPMC':TQW1-.T,T
PTC 9(5).
PTC 9(5).
PIC 9 e5).
4.
PTC 9r5).
PTC 9r5).
PTC 9t5).
PTC 9f5).
PTC 9(5),
PIC 9(5).
PIC 9(5).
PIC 9(5).
*
PM:
plc n(5).
PIC n(5).
PIC n(5). r,(5). * FTC 9(5).
PIC 0 (5).
*
PIC r(5).
PIC n(5).
*
PIC r(5). PIC n(5).
PIC (7q5).
PIC c(5).
PIC c(5).
PIC r(5).
PIC )
PIC n(5),
Plc (7, ( 5).
Pic 0- ().
PIC (, (5),
PIC (1(5).
*
PIC n(5).
PIC f(5).
*
PIC P(c),
;IF ;M:
*
PIC 0 (5). PIC '(5).
*
PIC n(5),
PIC n(5). pir c(5).
plr n(5).
PIC n(5),
PIC "(5).
PIC 0(5). PIC 0(5).
*
pir
PIC r(5).
*
PIC r(5).
PTC 9(5),
PJC
erM:
PIC n(5),
*
PIC 0(5).
Plc 0(5). plc 0(c ),
PIC o( .9 ).
gM:
PIC 0( 5 ).
PIC 0(5).
P10 n(5).
Plc n().
PIC
pIr
n(5), r(5).
PIC n(5).
Plc
plc
r(5),
r, (5).
PIC c(5).
*
plc ,-(5).
*
*
PIC n(?.
Pie
PIC o(c),
PIC n(5).
plc c(C).
Pic
PI
r(5), c,(5).
PIC n(5).
W. PM:
Plc r., (5).
Pic
PIr
pl
pICc
PIC
PIC
PIC
PIC
f, ??
r, (5). n(5 n(5 ).
e(5),
0(5).
0 (5).
n(5).
*
*
PIC
PC
PTCPlc
PIC
Y(3) * 9(3).
n(5).
n(5).
cC),
c(5),
*
*
PIC 9r6).
PTC 9(5).
PTC 9(5),
PTC 9(5).
PIC 9r5).
*
PTC Yf5)i
PTC 9(5).
PTC 9(5).
PIC 9(), *
PIC 9(5).
*
PIC 9(5., .
PIC 9r).
PTC 9r
PTC 9(5),
PTC 9(5).
PTC 9(5).
17P900* 05 OTHFF-r4FFP9FD-70TAL
17o1n0*

On pATIF- NT-srr-E01.
179300* 09 PHY<ICIAK-InTAL
1 7 9500* 03 STATE-(1.
WZ8: 05 P-H-N-TrTAL 05 F-P-H-t-TOTAL
180100* 05 NUPcF-tT0WIF - F-TriT
180300* 05 L-P-N-TrTAL
180500* 05 SCICTAL-FFR-TOTAL
180700* 05 ATOF-T(TAL
180900* 05 CLEPk-Tr7AL
181100* 05 NuT9ITTiNIST-TOT
1 8 1.300* 03 STATE-0?.
181500* 05 0TE, FR-q-At,J)[FP-TOT
181700* 03 STATF-H.
181900* 04 RFFE RPAL-FCURCF.
182100* 05 SELF-717AL
1132300* 05 ouTPEA0-141017KFP - TOT
182500* 05 OTHER-Fr-CLiNTC-TnT
182700* 05 HOS9 NEATTH-A0Fm0Y. , T07
182900* 05 PRIVeT1C-NU9SF-TnTAL
181100* Obi tNELFARF-AGEKICY-TrIT
1E3300* 05 ANOTHFF-CLINIC-PAT-TOT
1e1500* 05 FAH-F9TFW-TOT
183700* 03 STATE-H1
. B 4.qP4IF:NcOYAFFAT;94
184300* 05 RFFFRPfr-PY..UNKNrwN.T 0 1
184900* 03 STATE-I.
184700* 0 4 NEXT..APPOIlkTMENT-PHR.
1 .4900* 05 SUPPLY., CTRImG-CH(,-T0T
1 5100* 05 ANNUAL-1YAM-T0TAI
1E5300* 05 MFDICAt-PPOP - TOTAL
15500* 05 OTHER-APPOIm - TOTAL
189700* 05 N11 -,,JEXT-APPnIN 0'70T
185900* On REASON-F4-015(71-0190F.
11 6100* 05 STF9IL.APPOTN-TOTAL 1t6300* 05 mFNCIPAIFF-TnIAL
186500* 05 PAEPTCAI.P9FAs - TOTAI
186700* 03 STATE-11.
186900* 05 pATTimi-mnvr0-TnTAL
187100* 05 pAITLNIT-LoST-INTFpisT-TnT
187300* 05 pRtr-OFFTREn-TOTAI
187500* 05 pRI- 0-HtFtAN-T0TAt
187700* 05 UNKP,T0r-OIS0HAR-pFAs-TOT
187900*01 01 " 1 . 18p100*07 (7011NT-A nrcUpF 10 TIMES.
188300* OS R-00LINT-mAlp PIC
1e 8 500* Og P - COUNTY - r PTC
1887o0* 05 cLINIr - ToTti

188900* 05 PATTENT - T0IAL
189100* (15 mEDTcAIo - TOTAL
189300* 05 FEmALF - TOTAI
189500* o5 HALF-TPTAL
189700*01 0I""2.
189900*02 COIINT I P OCCURS 1 0 TIMES.
190100* 05 PACE.
1;08).1 4 MIg<
190700* n6 AmERICAN..TNDION
190900* "6 fvF)(TCAN-AN, FPI0AN
;1.;V"!8: 06 OPIENTAL 0 6 UTHFP-PArc
191500*01 ()Tv-3,
1 9 1700* 0? COUNT-P2 111.(PRS 10 TTNIES.
191900* 05 FTHmIc ,
1 9 2100* 05 mAPYTTAI-STATUS.
192100* n6 PARRIFO
192_00* n6 NFVFP-MAFFIVD

192700* n 6 SFPAPATFr
192900* 06 oTkinPrEn
193100* rle, SPOU 5 F..DPCFASFD
193300*01 pIv-405.
1 9 3500* 0? 0 0UNT-0O5 OrropS 10 TIMES.
193700* 0 5 A17-Uk0ER pi r o( ).
1 9 3900* 0 5 A17-25 PIC 0(5 ).
194100* 0 5 A25-35 PIr 9 (5),
19h300* 0 5 A3-0Vrp plc q(c.).
198900* Oc ANIFRAnr-ACE PIC c)( ),
194700*01 nTv-4.

19Ac00*02 crIIINT-r nCrypF.to TIME S .
19100* o5 visTT-TrTAI.
195100* 0 6 vToTAI PTC 9(5).
PTC 9r5).
PTC 9r5).
PTC 9(5).
*
PTC
,T, 9?):
PIC
*
PLC P(c;).
PIC 9(a, ).
*
PTC 9(5).
PTC 9(5).
*
PIG 9r5).
PTC 9(5).
PIC 9(5),
PTC 9(5).
*
PIC 9r5).
PIC 9(5).
PIC 9r5).
PIC 9(5).
PTC 9(5).
*
*
*
PTC 9(5).
PIE M3:
PTC 9f5).
PIC 9(5).
PTC 9,5).
*
*
PTC 9(5). PTC 9(5).
PIC 9r5).
PTC 9(5).
PTC 9(5).
PTC 9(5). PTC 9(5),
PIC 9(5).
*
*
*
PIC r, (c).
Plc r(5).
PIC r, (c).
PIC (, (5).
PIC r(.5),
Pic r(5).
PIC 9(5).
PIC o(;).
*
*
*
*
*
*
pir
PIC 0(5).
PIC c(5).
PIC
pIr
r(5),
(7().
PIC e7, ().
PIC r, ().
PIC o(5).
PIC
pI0
o(5 c(5).).
PIC
PIC nt5),
PIC ris).
PIC ).
1955 0 0* 0 6 SIIPPLm-0t-cHrD
195700* ' 6 UNS0Hr0 - 0, 01 - 0HT- 0v
19 5 900* "6 ItoTAF-TrIAL 195900* "6 TIAKF-TPIT-AmU-EYpm Pic, r(5
19960* ^ 6 TP,-Tni( r - CrINSEIING
P
196100* fl 6 PEVTS ,-Ayr(AL - rHEcK
196300* ^A FFVISTT
196500* 06 SuPPLY-cl, -IINSeHED
NI 196700* 06 USCHF- D-t,.0N-PPnP
196900*01 oTV-5.
f" 1971n0* 02 iluNT-C1 OCrtPs 10 TTMFS. Tr r.(
197300* 05 UNSCHFT-pptrIrm
197500* n5 UNScHFD-FP(FIFN'-9EV
197700* 09 PRFr-TOTAL.
197900* 06 T0TAI-PRfc
19P1c0* 16 pripm - At TIrr
19P300* 06 LAST:0ELIVFpY.
19Pc00* 07 RuPro-t1TvE-TERM
19P -700* 07 PrPN-tlIVE-PPE
19(4 900* 07 R0DN-rrA0
199100* 07 MIS-AFCPT
199300*01 nIV-6.
199500* 02 rTUNT-c2 0C(1 , ps 10 TTMFS.
199700* 07 mFvEP FPF6
199900* 07 PPrG-ITHFP
700100* ( 700300* 17 F7-4rtw,;,,s
700500* 0 7 CHILPPEN-0w-ALIO7
20c700*01 nisi - 7.
2009P0*02 CMINT-0 nCcUPS 10 TIMES.
201100* 05 COVTRArrPTTVF-USE.
201300* 06 PATIENTS-0NCr - USE0
2010* 06 mETH00-t5Fp-mOST.
NW P31M:
702100* 07 0 10
702300* 07 nTAPHF10m
gPU: o 07 r FPM R THm
202900* 07 CM. , 01, T
203100*01 0T l!-8.
203300* 02 r0UNT - D1 oCcipS 10 TTMFS.
203500* 07 TNJECTTON
703700* 07 SIrRTIT7ATION
703900* 07 flTpEP rONTRA
204100* 07 miTHOC - N0T-KNOwN
204300* 07 mETHOT-PERcCPIPFT)"PY.
70400* oP pRyv-tr0TOp
204700* OP PUP-cIIt,IC
704000* OR nPuGGIcr
205100* OP CITHER
705300*01 0Tv-9.
2055(10*02 0TIIINT-F OrcUPf, 10 TIMES.
205700* 10 SEpvTCFS-FF0vT0E - 0,
7R?Pg * Q6 00TpArrp-CrUN 2 06 STtPILT74 - CrIUN
70630(1* 06 INFrpTIIT-CrUN
206500* 06 APPRTTri%-c0IIN
206700* 06 50CT4I-CFP-rOUN
206900* 06 OTHrp-rrHN
707100* 06 W.,[ 1 00-FrFSSIIRF
707300* 06 v0-PL.0rr-TERT
307P: CjI 0MPf-F1 oCcips 10 TIMES.
06 HcT-H0E-TEST TV(
* 0): pi:4 00 n 0 17 41W-,
7000* 07 VopL-T0TAI
208700* pi VORL-roS
708900* n7 VoRL."FG
709100* 06 PAP-skqtp,
709300* 07 P4P-IrTAL
709500* 07 PAP-Ers
209700*
709900*01 0Tv-1lY 7, 11""-
210100* 02 rOUNT-Fe U0(tPS 10 TIMES.
210300* 06 GC - 0U1T(PE.
710500* 07 (1c-TrTAL
'10700* o7 Gr-PUF
210900* 07 00-Nfr
211100* 06 iiipEAsT - TrTAI
211300* 06 PFLvIC-T0TAI
211c00* 06 upImpr ,(FTs-TOT

211700* 06 SIC1.(LF-fILL-TEST.
711900* 07 SICKtF-TOTAL
212100* 07 ST0letr-P 0 s
212300*01 nIv - 12.
1270t
,nn* * 02
rO067 uNTsTClet.F.
F3 oc(IPS 10 TTmrs.
17 , FG
2I2900* 06 STFPILT7ATInN-VIT
2129 5 0* 06 STEP-TTp pTc 9(5).
212960* 06 STEP-NC PTr 9(5).
313S994 94 oifFMi4iTrYI , 1
213500* 07 PPE0-TEST-T0TI
213700* 07 PpEcn-rns
713900* 07 ppEG.KFG
214,00* 06 OTHER-TFcT
21 6 300*C1 DI""-13.
7 14 500*0 7 CO!INT-F OCCUPF 10 TIMES.
214700* 0 5 CONTPA-MF100-AFTER-VISIT.
714900* 06 N0 - q.71-r 0
715100* 06 opAI - TrTAL
215300* 06 I00-TriTtp
715500* 06 DTA-Trite,
215700* 06 FoAm-TrTAL
7 1 5900* 06 PYTHm-IrTAL
716100* 06 c1Npom-T0TAi
216 300* 06 ImUrCTI0N-TnTAL
216500*01 0Iu-14,
216700* OP cOUNT-F1 PCCIPS 10 TTmrS.
216900* 05 STFPILT7A-TrITAL
217100* 05 OTHFP MoTRA - TOTAL
217300* 05 PFASIIN..STCF*MFTHOD.
217500* 06 PRE. 0...Ptehl"JCITAL
717700* 06 PPFP.IrPLAN TOT
717900* 06 sFrw - ppTn - TnTAL
71p100* 06 NEOTOL-9E4s0N-TpT
21p300* 06 EITHER-pFASON-TOTAL
21e500*01 rill'-15.
71p700*07 roINT-c, nCrup 10 TIMES.
71f,W0* 05 RFF- FRPFD-FISEWHERE.
2.9100* 06 j0TAL-FFrrRPEO
219300* 06 snc-sEF-TnIAL
310P8: 8g Tr A7

719900* 06 APOPTT(TOTAL
720100* 06 ImFrpTI[-TREAT-TnT
720300* 06 OTHrP-FFFERPEO-ToTAt.
7
1
070
05000*
*
05 PATIENT - SEFV - BYA 06 pHYcIritN-iniAL
720900*01 0I"-16.
221100* 07 f'OUNT-GI OCcrPS 10 71mrS.
P21300* 06 p - H - r, - TnTAL
2215 0 0* 06 F-.PH.q..T0TAL
7e1700* 06 NURSE-1nwIFF-TnT
221pn0* 06 L-P-N-TrTAL
722100* 06 snETAL-FFP T0TAt
722300* 06 AIPF-TCTAL
222500* 06 CLF_PK".1rTAL
72270()* 06 NOIPITICk'IST'T0T
222P00*01 0Tv'1605.
22250* 02 COUNT-02 OCCOPS 10 TTMES.
222900* 06 OTHER'qPto0LF- D'.TPT
723100*01 niv-17.
223300*02 COM4T."1-1 nCrupF 10 TIMES.
223500* O5 RFFEPPAL'FrilP0F.
223700* 016 SELF..TITAL
223900* 06 OUTPEAW'WORKFR'T0T
724I00* 06 [)TIFF'-FP-CLINIC - T0T
224300* 06 H0P-14t1TH-AGENcy-r0T
724500* 06 PRIV"'DCC.., NUPSE..TPTAL
22b700* 06 WEIFAPF*A(ENCY.-TpT
724900* 06 AVITHFF.-CLINTCPATTOT
2251.00* 06 FOA 4PJFND I TOT
225300*01 nIv-1P
3;?88: 0, "KiiV-r4F4E;EgpPeOtoT
225900* 06 REFFROr-PY-OTHFp-TnT 4 1
226100* 06 REFrPPFr-PY-UNKNnwN.TnT
?26300*01 niv ,w19.
226500+*02 ce!INT-T nccupF 10 TIM FS
226700* 0t. NFO-App0PI TmFNT-P0A.
726900* 06 SUPPLY-TPImG-CHK-TnT
227100* 06 ANNItAL.-FyAM.TnTh[
227300* 06 T7C4[-PPOn-ToTtil
Pir 17( ,, ).
PIC r'(5).
PIC 9().
PIC n(5).
PIC n(5).
PIr n(5).
PIC n(5).
PIC c!(5).
PIC n(5),
PIC c(5).
PIC n(5).
plc r(5).
PIC n(5),
plc
PIC 0().
PIC n(5).
PIC n(5).
PIC n(5).
PIC n(5).
PIC r(5).
PIC 9(5).
PIC (7'(5),
Pic 0(5).
plc (7, (5).
P l C 0(5). pl c 0(5).
PIE ccii;_3:
PIC c!(5).
plc t- (5).
PIC o(5),
PIC n(5).
PIC rq5),
pI0 r, (5).
plc "(5).
PIC n(5).
PIC n(5).
PIC n(5),
PIC n(5).
PIC n(5).
PIC r(5),
PIC r(c).
Plc f'(c).
PIC r'(c).
PIC 0 ( 5 ).
PIC r().
Pc
PIC r.( 5 ).
PIC r(5),
PIC n(5).
plc e!(5).
PIC n(5).
9Ir e(5).
PIC" r(5).
PIC n(5).
PIr n('+),
PIC f-, ().
PIC f., ().
PIr n(5).
PIC
pIr
plc n(9),
Plc I(c),
PTC 9(5'1.
PlC r(5).
227500* 06 TI.-'r14-ArPnIN-TOTAI
227700* 06 Nn - NEXT-APPnIN-TOT
P27900* Oc p1Asn-r0E-niScHARnE.
22p100* 06 STFPIL-APPDTN-TnTAL
22P300* 06 hIENTIPAir-TnTAL
22P500* 06 WI TCAI-PEAs-TOTAF
22P700*01 nIv-20.
22P9n0* 02 rOutkT-Il CCCI PS 10 TImFS.
229100* 06 PAITFNT-mOVED-TnTAL
229300* 06 pATTENT-[OST-INTFPEsT-TrT
229500* 06 pREG-DFFTpin - TOTAI
P29700* 06 PRFr-urrLAN*TOTAt
229900* 06 UNKNuWP-DISrHAR - pFAs-TOT
230100*01 TEm PF! 9 9 IMUF 10.
230300*00 c-cPLIT.
230500* 02 r - 1 - SPLIT OTC 99 .
230700* 02 c-2-SPLIT FTC 9 WM:81 WTAPT-n PT( )(Y.
731300*01 7 PTC 9 (2) ?!ALUF 00.
231700*01 ArF P IC
231900*0 HOLD - DATE. 9 9 "PP.
P32100* 02 DATE-STORE CrCJI9Splo? TIMES1
r 4P,C 9(5) Cr!". 732300*0 1 STATE-nATE-sTrFF
232500..01 pEc.DATE-STOPF Pic 9(71 rOMP.
232900*01 H-POUND PIC 999 VALUE 10,
733100*01 F- 9 0UNn PIC 999 VALUF O.
933300*01 FNn-COUNTY PIC 0 99 VALUE 999.
233500*01 rnIINT-TRACK Plc x(3).
743700*01 THIS-yPAP PIr 99.
? 3 3800*01 COUNTY-A-LnOK PIC x(80).
731900*PPOrFoURE 0TvTSTI.
23 4 100*PESTA 9 T SECTTnN.
234300*RESTART,
234500*CHErK7OPFRATOP.
734700* DISPlAY "RESTART?" UPON rnPoSnLE.
4900* Arrj.pT prsTPpT-ri, FROM cnmsOtE.
235100* IF RrsTapT-Ow TS knT F.00AL Tn ', Ow ,'
235300* ODE!' OUTPUT RrTART-FILF;GO To r, prm-TAPF.
235500* nPFN INPUT CrIUNIT-AsTFR.
735700*NEw-PrADFP.
235900* READ COUNTY-mASTF9 AT END GO TO rwTTri-f - CnNTRflL.
236000* MOVE CouNTY-A Tr roUmTY-A-IOnK.
236100* IF COUNTY-NUM IS NOT NUMFPTC OR IF COUNTY-NUM
936300* EnUALS 0 OP IF COUNTY-NUM Is OPrATEP THAN 160
236500* AND COUNTY - NUM T5 LESS THAN 996 (1 TO 1 6700* FESTAPT-TAPF. 6900* IP r"-COUNT - NAME. FOUALS "#$#N 0 Tn RESTART - TAPE.
237100* MOVE COUNTY - NUM TO COUNTY-TRACK.,
313 86t oBff EnRYV-Tg TB E C W;b7 ACK '
237700* ADD L-BOUND , TEN U-pnUND.
231p00 * pEpFnpm FORWARD-TAPE 21 TTmEs.
Witq: r;iYJA NYJFI CE FI, :tnnK.
737910*SwITC - CONTRN.
237920* IF COUNTY
- TRACK FOUAI S 999 Gn TO RFG-DUmP.
737930* o0 TO RESTAPT TtFF,
73P000*FORWAPD-TAPF.
73p010* DEAD COUNTY-mASTFP AT END GO Tn rANT-RECOVER.
23P1 0 0*PESTA 9 T-TAPE.
23P3n0* rLnSE HEPE. COUNTY-MASTER WITH NO RFOND.
P3p5s)0* DISPLAY ', LAST ccAmTy DriNFft,L.Rmimn uP0m rONSP(E.
PiF900* OPEN TNPHT PFSTPPT-FTLE.
239100* PEAR RESTART-FIBr AT END nn To CrNT-9ECOvEP,
739300* MOVE FFsTAPT-A TO STATE
- A.
239500* PEAR PESTAPT-FT1F AT END rn TO CANT-PE COVER,
739700* MOVE PFF4ART-R Tn STATE - P.
930900* READ RESTART-FIir AT END Gn TO CANT-PECOvEP.
2 4 0100* MOVE PFsIAPT-P7 Tn STATE - T.1 2. 740300 * pEAn RESTART - FTir AT END Gn Tn (PNT-pFrovER.
740500* MOVE REsTART-rrc. TO STATF - 0O5,
240700* PEAR RESTAPT-FTir AT END rn TO CANT-RECOVER.
740900* MOVE RFSTAPT I C Tn STATE - C.
241100* REAP) RESTART-FItr AT END on Tn CANT..PECOVE9,
941300* HOvi RESTART-01 TO STATE-C1.
741500* PFAO PFSTART-FILF AT END r,n TO CrNT-PECOVEP.
941700* MOVE RESTAPT-C2 TO STATF-C2.
241900* READ PESTAPT-FIIF AT END Gn TO CANT-PErOVER.
7 4 2100* WIVE. RESTART - n Tr STATE - D.
242300* PEA') RESTART-FTLE AT END On Tn cANT-PECOVEP.
3WFit OPa PFAJWIWF T WTqA5 F r, R 1 TO CANT-RVCOVF9.
PIr 9 vAILIF I.
247000* MOVE RFSIAPT-F TO STATE - F.
743100 * READ RESTART-FTIr AT END Gn Tn CANT-7EcovER,
7 4 33rD* MOVE RESTART-r1 To STATE-El.
743500* READ RESTART-FIEF AT END Go TO CANT-RECOVER,
243700* MOVE REsTAP-E2 AT-.
7 4 3900* READ RESTART-
T
FUF
TO
AT
s
END
E
Gn
F2
Tn (p4NT-RFrOvEP.
744100* MOVE RFSTART-E3 To STATE - Flo
7 4 A3D0* READ RESTART-FIlr AT ErD Gn TO CANT-RECOVER,
244500* MOVE RESTART-F Tr STATE-E.
744700* READ RESTART-Mir AT END n0 TO CANT-RECOVER.
244900* MOVE RESTART-Ft To STATE - Flo
745100* READ RESTART-FIEF AT END nn To CANT-RECOVER.
745300* mOvF RESTART-6 Tr STATE-G.
745500* READ RESTART-FTic AT END 6n To CANT - pFrOvER.
745700* MOVE RESTART-61 Tn STATE - Gt.
745900* READ RESTART-FIEF AT END Gn TO CANT-RECOVER,
746100* MOVE RESTART-67 In STATE - r2.
746300* READ RESTART-F-11c AT END Gn TO CANT-RECOVER,
746500* MOVE RESTART-H 1C STATE-m.
246700* READ RESTART-FIEF AT END on To CANT - RE0OvER.
74?900* MOVE RESTART-N1 TO STATE - Hl.
747100* READ RESTART-FIEF AT END Gn To CANT-RECOVER.
747300* mOvE RESTART-I IC STATE-I.
747500* READ RESTART-ETEr AT END Gn TO CANT-REcovER,
747700* MOVE RESTART-I1 TO STATE-T1.
M &PF: P ERIPSTART-FTtE AT END Gn TO CANT-RECOVER.
701100* MOVE RESTART-A Tn Rrn-A,
741300* REAP RESTART-FIFF AT END Go Tn CANT - RECOVER.
244780*REAPFAW:rM rAr- P-741. Go TO CANT-RECOVER,
7 4 P900* MOVE RESTART-P2 TO PEG-PP.
749100* READ RESTART-FTEr AT END on TO CANT-RECOVER,
2 4 0300* mOvE pEsTAPT-0(c, TO Pro-005.
24Q500* READ RESTAPT - FTIV AT END Go To CANT-PECOvER.
749700* MOVE RESTART -C Tn RFG-C.
?40900* READ RESTART-FIEF AT END on TO CANT-RECOvER.
750100* MOVE RESTART-CI TO REG-C1
750300* REAP RESTART-F-1AF AT END Gh TO CANT-PECOVFR.
250500* MOvE RFsTAPT-0 2 TO REG-C7.
250700* READ RESTART-FIEF AT END GO TO CANT-RECOVER.
750 0900* MOVE RESTART-n Tn PrG-D.
751100* READ RESTART-FIEF AT END Go TO CANT-RECOVER.
751300* MOVE pFsTAPT - Di TO pEo - Di.
751500* READ RESTART-FIEF AT END nn TO CANT-REcOvER.
751700* MOVE RESTART -r To RFG-E.
751900* READ RESTART-EIIF AT END GO TO CANT-RECOVER.
252100* MOVE RESTART-F1 TO PEG-F1.
752300* REAP RESTART-FT(F AT END Gn TO CANT-RECOvER,
757500* MOVE RESTART-E2 TO RFG-E2.
752700* READ RESTART -FTEF AT END GO TO CANT-RECOVER,
757900* MOVE RESTART-El TO RrO-El.
253100* READ RESTART-FIEF AT END rn TO CANT-RECOVER,
251100* MOVE RESTART - F Tr pEo - E,
75500* READ RESTART-FIEF AT END Go TO CANT-RECOVER,
7;3700* MOVE RESTART-Ft Tn 753900* READ RESTART-ETIF AT END Go TO CANT -RE COVER.
3%0S9et U?TW:T/F Wrqn GO TO CANT-RECOVER,
754500* MOVE. RESTART-oi Tn RnG - 61.
250700* READ RESTART-Fill AT END on TO CANT- RECOVER.
75 11900* mOvF RESTART-67 7n RrG-0.
?55100* READ RESTART-FIll AT END Go To CANT-RECOVER.
255300* mOvF RESTART-H Tr RE r,-H,
255500* READ RESTART - FILF AT END op To CANT - RECOVER.
75571* MOVE PESTART-H1 TO RvG-H1.
75590.* READ RESTART-FTEr AT END GO TO CANT-RECOVER.
756100* MOvE RESTART-I In REG-T,
756300* READ RESTART-FI1F AT END GO TO CANT-RECOVER,
756500* MOVE RESTART-II To REo-T1.
756700* READ RESTART -FIEF AT END On TO CANT-RECOVER.
756900* mOvF R - PATE - sTOEF(1) TO DATE-STORE(i) MOVE P.-DATE
77100*--STn0F(2) TO pATF-sioRE(?);moVE r- HATE-STORE(3) TO
757300* DATE-STORF(1)IFCVE 0 - DATF - STOPEr4) Tn DATF-STnRF(4):
257500* MOVE R-HATE-sTrEF(5) TO nATF-SToRromovE R-nATI-ST1RE(6)
757700* Tn 0 ATE-STORE(E)IMOvE R-nATF-STrIRF(7) TO nATESTOPE(/);
757900* mnvr p-oATF-STrrE(8) TO nATF-ST0RECA);MrIVF P-HATE_-STUBLF9,
751000* Tn SATE - sTORE(c);mnvF R-nATF-STnRFC10) TO DATE-STnRF(10).
25P:300* MOvE P...STATF - DATF - STORE Tn STATE.DATE - ST0pF:movE
75R500* R-Rr 6-DATE - cTOFF TO PEG-nATF-STnRF,
75p700* CLOSE RESTART-FTIF;OREN noTP0T FirsTART-FTLF.
751,1 900* DISPLAY ?sHCrESFrift RESTART".
75p901* TE COUNTY.-TFACK Pf.)UAIS 9Pg AN D CrUNT I TPArK
25P9r3* EQUALS "GA " GF To couNT.DoNTR(JI
3M: RWLV,TnTApuytulwsqpcnuk!Ty#,.,L-nnuNn UPON CnNsfli E.
25Q500* n,0 To RESET - TAPF.
259700*CANT-RECovER.
75Q900* nisp!AY "PFCoVFF ATTEMPT FAItEo..soppy"
260100* UPOY CONsolF;Gr Tn F0J,
760300*LnAn-TAPES SFrTTr!, .
7 60 500*OnEN - TAPF.
260700* OPEN INPuT CrIML2;n0FN ouTPUT CoMLINF.
7 60 900* OPEN nuTPuT 0Cur, Ty-MASTER.
261100*X-00T.
761300* MOVE ALL "i" TO COUNTY-A.
261500* PERFoRY y-WRITE-FUT 50000 TIMES.
2617000-WRITF - OUT *
261900* WRTTr COUNTY-A.
262100*GFT-READY.
262300* nLnSr COuNTY-mAFTFRJnPFN PUTPUT rOuNTy-MASTER.
7 6 2500*AIA-TAPE.
762700* MOVE "ALARAMA TIFF PI EAST" Tn PPERATnR-MFssAGE.
267900* OISPLAY OPFPATOF-MESSAGE uPON COP Sn[F;ACCERT n-REsDOvr
763100* FROM CONSOLE,
763300* TE 0-PFSpoNSr EcrALs "nK" MOVE "ALA" To
763500* COUmT
-
TRACKS60 TO FTLF-PFADY.
263700*GA-TAPF,
763900* MOVE "GFORGTA TIFF PLFASFq. Tn OPERATOR-MESSAGE.
264100* DISPLAY OpERATFIF-MESSAGE upOm COmSnLF;ACCERT 0-RFSPO , 'SF
764300* FROM CONSOLF.
264500* TV O - RESPONSE EcrtLS "OK" MOVE "rA " To
764700* CnUNT-TRACK;Go Tn FTLE-PFADY.
Orng: F 47/V4rnRinA TIFF PLEASF" To nFTRAT0R - mrssAcE.
765300* DisPLAY npFP.ATn-MESSAGE ',RON 00psoLFFACCEpT 0 - RFSROSF
?g? Wit WIM-PPWArr EcrALs "nK" MOVE "FLA" TO
765900* CnUmT-TRACK;GO TO FTLF-READY.
266T
m
FN-TAPE.
26630 * MOVE "KENTUCKY TAPE PLEASE" TO OPERATOR-MESSAGE I
76650.* nispLAy npFRVT0E-MESSAGE opOm COSOLF;ACCFRT 0-RESp0 , SF
766700* FROM CONs0LF,
766900* TF 0-RFSP0NSF FrxAIS "OK" MOVE "vEm" TO
267100* cnuYT-TpArR:Go T0 FTLE-PFADy.
767300*MTS-TAPE.
267500* MOVE "MIcSIScIPFT TARE PLEASE" To nPERATOR-MFSsAr,E.
767700* DISPLAY OPFRAT0E-MESSAGE !mom cnNsD(E;AcrEPT CI-RESPONSE-
767900* FROM CONSOLE.
26p100* TF 0-RESPONSE FCIALS "OK" MOVE Tn
76P300* CoPYT - TPAcK;Gn TO FTLF-PFADY,
26p5(10*Nn-TAPE,
26P700* MOVE "NORTH 0APIIINA TApF PLEASE r TO OPEPATOR-mEsSAGr,
76P900* OISPLAY rpFPAT0E-mEScAGF upOm rPhisoLF;ACCERT 0-RFSRONSF
769100* FROM CONSOLE.
769300* IF 0-RESPONSE FcrALS "OK" MOVE "mc " To
769500* CoHmT-TRACKTGO TO FTLE-PFADy,
76970O*50'"TAPF,
269c00 * MOVE "SOUTH OAPIITNA TARE RLFASF? Tn 0PEPATOP-MESSAGE',
270100* nispLAy opEPATnF - mEssAGE UPON rek'sniF;AccFDT o - REspor
27030o* FROM CONSOLE.
27000* IF (I-RESPONSE F(tALS "OK" MOVE "cc " in
770700* CoUmT-.TRACK:GO TO FTLF-RFADY.
770900*TFN-TAPE.
771100* mOvE- .." TFNNFSSE TAPE PLEASE" TO nnERAT0R-mEssAGF,
271300* OIsPLAY OPFPATOF-mFSAGE uP0,0 rOmSOLF;AUERT n - REspo ,,, SE
771500* FROM CONSOLE.
771700* IF n-RESPONSE FcAALS "OK" MOVE "TEN" TO
377 B 4nyvnwiO4,0 1 ,Tril FTLF-PFADy.
272300*sPArF-TAPE.
272500* READ DETAILED-MAFTER AT ENn GO To P-TAPE. 2Z270Q* R[TliE[PiTg ';',;R GO ..r; 273I00* P An DETAILED-MISTER AT Fern on To p TAPL.
773300* PEAO OFTAILFO-mAFTFR AT END (40 To p-TAPE.
77300*EscAPETAPE,
273700* CO Tn MASTER..S0Pk.
p739()*RF5rTmeTAPF.
P74100* OPFN INPUT nFTATIED-mASTER.
274300* MOVE PATIENT-TOTAI. OF BEG-TOTALS TO NUM.
274500* PFRF^PM SPACF-TAFF NuM TTMFS.
7707 0 0* MOVE R-COUNT-NAFF OF STATE-A To COUNT-TRACK.
P74900* no To MASTER-SCI".
275100*FTLF- 9 FAny.
2 75 300* OPEN INPUT nrTAIIFP-MASTER.
275500*MASTER-SCAN.
275700* RFAO OFTAILFPP-MASTER AT Fran no Tr E.-TAPE.
775900*INOFYFR.
7 76 100* IF ColINTy-NUmpFP TS 1FSS THAN 1,-POUND GO
276300* In ACF-TAPE
77630* IF COUNTY-NUmbEF FQUALS l-pOuNo rO TO SPACE - TAPE.
77A5o0* TF CPUNTy - NUNFFF IS nPEATFP THAr. u-poomo
7 70'0* Go To SPACE - TAFF.
276900* MOVE COUNTY - NUNFrP Tn C-SplIT.
?fflOt Vpvr FV7W
-VAF ;10 GivINn Y,
777500* MOVE COUmTy - mumFfp To COUNTY-TPArKs
277700* IF COUNT -TpArK IS NOT EQmpt To CruNT - NAME
777900* OF PETATLFP"NASToR rO To wPrING-TAPE,
778100* ADO ONE TO FAITFT - TOTAL rr cTATr - TrTAIS.
778300* rO Tr A - TALLY,
278500 ,04RONG-TAPF.
7Z87 0 0* MOVE ?wpoNn,TArF ,- To OPERATOR-mFr.SAGFOISPLAY 7(14 900* OprpATop
-
MESSAGE uPrN CrNsOIE.
779100* ACCEPT P-RESPONSE FROM CONSOtE;Ir 0-PFSPONSE
779300* EQUALS "CT" rLfSF orTAILEo - MASTFpfnr TO CHECK-TAPE,
279500* IF O-RESPOOr FciALS "SP" pEprOpp cPAcE-TAPE
.279700* Gr, TO PASTFPf- SCAN,
279900* IF 0-RESpONSO FCIALS "GU" rInSr nETATLEO - mASTFR
279901* wiTm RELEASE';
780100* IF CoUNT-TRArti icOALS "ALA" nO To ALA-TAPE;
780300* TF COUNT-TRAck FCPALS "FtA" no To VIA-TAPE;
780500* IF CnUNT-TRACK FrHALS "GA " r0 Tn n4 - TApF;
7e0700* IF CUNT-TRArk FCUALS "KEN', GO Ti wFN-TAPE;
280900* IF COUNT-TRArt( FrOALs "MIS" GO Tr mTs - TAPE;
7811n o* IF CrUNT-TRACK FCUALs "NC " no Tr NC - TApE;
781300* TF COUNT-TPArK FCUALS "SC " nO To sC TAPF;
7e1900* TF rouNT - TRArf< F CI!ALS nTE10, no Tn TFN-TAPE.
78, 1700* DISPLAY ..wpONG rrsRONSF,.saa r n pE CT,SR , OR GU" UPON cNsr[r.
Pe1900* nO Tr WRrING-TA2F .,
782100*CHECK-TAPF.
Pe2300* OPEN INPUT OFTATIFO*mASTEP.
782500*RFAtle, PHECK.
287700* pEAO DETAILF0-NAFTER AT ENn GO To FO J.
782900* IF 7 IS GREATER THAN 20 Go Tn wRrNn-TAPE,
281100* IF CrONT - NAME of nETAILF- r.mAsTER IS NOT EQUAL
3g.PB945r/014MT-TRACK knO nNE,7 nIvImG Z.
783700* TF CPUNT-NAME Or PETAILEP-NAsTrRIS moT EQUAL
7 8 3900* Tn rTUNT - TPACK CO TO READ - CHFCK.
02;H: rar4FY_ 7 -VgT rTltffq r4grj, FIG AMP'N;1
784500* PERFORM INOEYFR;011 Tn A-TALLY,
784700*COUNTY-wRTTER,
AtS.
784900* MOVE. ZE TO X.
785100* PERFORM COUNTY-TTE.
289300*COUNT-WP/TEP
7800* MOVE. ZE TO X.
785700* PERFORM COUNT-WFTTE.
785800*CPUNT*CONTROL,
785900* IF ClUNT-TRACK F0UALS "ALA" no To GA-TAPF,
286100* TF COUNT - TRAnK FCTALS "FLA" GO In KEN - TAPE.
7f363o0* TF COUNT -TRACK FCTALS "GA 9, no In FLATAPE.
286500* IF CnUNT-TRACx F0tIALs "KEN" GO To MIS-TAPE,
786700* IF COUNT-TPACK FCTALs "Os" on In NC-TAPE.
786900* TF COUNT- TRActr FCuALs ?Nr on Tn SC-TAPF,
787100* IF CoUNT-TRArK FCUALS "SC " no In TEN-TAPE.
787300* IF COUNT-TRAcK FrtiAL on To STATE-WRITE.
287500*COUNTY - wrTTF SErTTON.
287700*LOOP-1,
287900* ADO nNE,Y GIVING Y,
7P8100* COMPUTE nATF.sTroF(X)=OATF-STORE(X)/PATIFNT-TOTAL
788300* OF POUNT
- A ( Y)1 28P00* MOVE DATE-STrPF(X) Tn AVERAGE-AGO of rrUmT -0O5(X).
288700*C-WRITE.
788900* MOVF CoUNT - TpAck TO p-COUNT-NAME. OF
289100* COUNT-A(x)
289300* Apt) Y,L-ROUN0 GIVING COUNTY-TRA cv.
OPPB:OBVIE FROJX0TWOrTP4rJ9LIW IYr pf,pyt4-A(x).
789900* MOVE COUNT-R(X) In COUNTY-p;wRIIr rouNTY - B.
790100* MOVE COUNT-P7(Y) TO COHNTY I 82;WRTTF rOHNTY'BP.
790300* MOVE COUNT-CO50) TO COUNTY CO52wRITF COUNTY-0O5.
790500* MOVE COUNT-C(X) Tr 0nUNTY-C;WRIlo truNTY"C.
790700* MOVE COUNT - C1(Y) TO COUNTY-CIPOOTF COUNTY-C1,
790900* MOVE Cnuml-C7(y) TO rOuNTy-Cp;wPTTF rooNTY-C7,
?91100* MOVE COl , mT-o(x) In CnUNTY-OFwRITr rrUNTY - O.
291300* MOVE COUNT - D1 (Y) TO cOUNTy pl;wRITF COUNTY-o1,
291D0* MOVE CoUNT-F(x) TO CnUNTY-r;wRIT!": rOUNTTI - F.
? 9 17n0* MOVE COrNT-FI(Y) Tn rOoNTy-EI;wpTTr rouNTY-F11
?PipoO* MOVE COUNT-F2(x) TO COUNTY-E2;wP/TE COUNTY-E2,
2921n0* MOVE COUNT -E3(Y) TO rOUNTy-E1;WPTT7 CoUNTY-El,
297300* MOVE COUNT-FcX) Tn CnUNTY.F;wRIlr COUNTY-F,
292500* MOVE COUNT-F1(X) TO rouNTy-El;wPTTr rnIINTY-F1.
292700* MOVE COuNT-GfY) TO CnUNTY-G;wRITr CoU TY - G.
?92000* MOVE COuNI-G 1 (y) TO rOoNTy-G1;wPTTr COUNTY-GI, 293000* MOVE rouNT-02(y) in AUNTY-62;wPTTr COUNTY-G?,
293100* movE cruNT-H(y) Tr cruNTY-OwFillr rruNTY"H. 293300* MOVE COUNT-H1 (X) TO rOUNTy-Fil;wRTTF COUNTy*Hi, '93500* MOVE COUNT-I(X) in cruNTY-T;wpTir COUNTY - I. 293700* mOvF COUNT-It(X) in COUNTY-Ii;wPTTr
793900* MOVE 7Epr5 In CrrmT - A(Y).
294100* MOVE 7ERnS In rfINT-P(X)..
294300* MOVE 7FpnS In cr ? rT-P2(x).
294500* MOVE ZEROS To Ot[NT4 005(Y).
3$11;Bilt 090 3W? FR FF4T:00).
295100* MOVE ZEROS Tr crLmT-r2(x).
795300* MOVE 7EPnS Tn crtNJ-n(Y) ?
225500* MOVE ZEROS In crrNT-01(x).
P95700* MOVE ZEROS ir rrt4g-r(x).,
795900* MOVE 7FRnS Tn CrtNT-pi(x).
296100* MOVE 7Epns Tn orrNT-FP(x).
796300* MOVE ZEROS TO CIVNT-F3(x).
296500* MOVE ZEROS To ori . mT-r(x). 2967r0* MOVE ZEROS Tr CrINT-61(Y). 296PrO* MOVE ZEROS In crrNT-n(Y) t .
297100* MOVE ZEROS Tn rrrNT-(11(X.
7 9 7300* mOvF 7FPrs Tr rILNT-H(Y).
)
,
2970* MOVE 7FRrS Tn CPINT-H1(x).
797700* NONE ?Epps Tr criNT - T(Y)..
297900* MOVE 7EROS Tr rrtNT-T1(x).
79,3100* IF Y. IS F- QuAl Tr 10 rr,o To r-FNn.
29p300* no Tl LOOP-1,
p9P5r0*C-ENn.
79?00*DATA-TAHITI ATION FFrTInN,
29p9n0*A-TALt.Y,
P99100* ', FAD OFTAILEr-mtFTFR AT END nO In P-TAPE.
299300* ADO nNF TO PATTFII T-TnTAL or PEG-TOTALS.
299500* ADD /NE TD PATTF/, T-TnTAL or rom, T-A(Y).
299700* TF cLINTr-NUmBFF IS rREATrp THAN cLINic-TOTAL OF
799900* COUNT -Acy) MOVE
300100* CLI'N'IC-NUMPFP Tr CLINIC-TOTAL 1
.
r couNT-A(Y).
100300* TF mrnIcATO - PEDIFTERrn EOi!ALS ADD ONF TO
300500* NFoTfAin-TOTAL rF CnUNT-A(x),mETrAIn-TOTAL OF
300700* STATE-TrITALF,mFITCATO-TOTAL OF vEG-TOTALS.
100900* TF SrX FOUALS ?Ft, Ann ONE TO FFMeLF-TOTAL OF COUNT
101100*--AcX1, FFMALF-TOTAL r1F STATE-TnTALS,FFmAtE-TOTAL
301300* OF REG-TrTALs.
101500* TF SrX FouALF /q r Ann ONE TO MALT -TOTAL OF COUNT
301700*--AwpmAIE-ToTAt OF cTATE.TOTALS,mALF-TOTAL.
0210 pr REGTOVOS * I M-RACF E90q5 1 AnD ONF in WHITE- OF COUNT-R(X), 30230,* WHITE OF SIAT -TOTALS,WATTL OF pEr;-TnTAls.
302500* TF M..RACF EQUALS 2 AnD ONF TO PLAcK OF COUNT-O(X),
102700* BLACK OF sTATF-TOTAL s,BLArK OF oFn-TOTALS.
10p900* IF M-RACF EQUALS 1 AM) ONF Tn AmFRTCAN-INDIAN OF cnuki
103100*--P(x1,AMFRIPK-IFPTAW OF STATF-InIALS,AMFRICAN*
303300*..TNnIAN Or RFC,-TOTALS.
101500* IF m-RAcF EQIIALS A AnD ONE Tn mEyIrAm-ANFIRTcAN OF cOPNT
103700*--B(XI,MExICAN-AFFRICAN OF sTATF-TOTALsoMExTCAN-
103900*-AmFRTcAN oF PEn-TOTAtS.
104100* TF M I RA0F FOuALF 5 Ann ONE Tn ORIENTAL OF COUNT
104300*--8(Y) * ORTENTAL cr STATE-TnTA[SpOPIrNTAL
30 4 500* OF RFG-TOTALS
104700* TF m-RAcF FOnALF 6 ADD ONE Tn PlwER-PACE OF COUNT 104900*..-P0(1,0THER-PA0F OF sTATE-TOTALS,OTHFp-RAnF
305100* OF REG-TnIALc.
109300* IF m-ETHNIC EQuALs "y" Ann ONE In FTHNTC OF COUNT
3[1 5500....R2(Y),ETHNIC OF STATE-ToTALs,r1por 0F PEG-ToTAts, 1(15700* TF M-mARTITAI-STATUS EfnAtS 1 ADr nNF TO MARRIED OF r.UNT
1059O0*--R2(v),MARRTF0 rr STATE-TnTALsoAARRIFn OF
106100* RFC-TOTAL S.
106300* TF m-mApTTTAI-sTATus FinArs 2 ADn ONE TO NFVFRi.MARPIri, OF
106500* COUNT-p2(x),mFvFr-mApRTEn OF STATE.TnTALS,NEVER-mAPRTir
306700* OF prr,-ToTALc,
7069D0* TF m-mApITTAI-sTAT0S F0LIA[s 1 Apr, nNF TO SEPARATED Or 107100* COUNT-pp(x),cEptpATEn OF sTATF-IrTALs,sEPApATEn oF
0
107300* pFn-ToTALs,
- nuAls h Dn nNE_
vuIU-DIVRP;Vn OF ?: hurTVOI;;-, I014.V.6 r syvr r-TA uTALs piRct..
107900* PEG-TOTALS.
10P100* TF N.NAPITTAI I STATUS EQUALS 5 A['r ONE TO SPOUSE-DEcEPSFT rr
1 0 P3 0 0* CnUYT-F2(y),SPrisFmnF0FAsrn nr eTATF.T0TALS, 308500* SpOlISF - rEcLASEr rF pFn-ToTAls.
108700* rOvPHTF AGF.T.THI5-YEAR YR OF nATF - OE - PITH.
108900* An /, GE TO PATE-FTORP(Y),sTATE-DATE-STORE,
109100* RFQ..0ATF-SjmPF,
109100* IF AmE IS LF SS TF AN 17 Ann ONE Tr A17.ONnEp
109500* OF PEG-005 , A17-LmDFP nF STATE-Cr5,A17-0'nFR
109700* or rouNT-rpK().
10990n* IF ArT Is css
X
T4AN 25 Akin (,BEATER THAm 1 7
110100* Ann ONF TO A17-5 nr RECD-ros,A17-75 Or FTATF-005
110300* ,A1 7 ..25 OF 00W.T-005(X).
310500* IF AmF IS LESS IVAN 15 ANn 0,9FATFp THAN 25
110700* Ann ONE TO A2C - ?tS or REn-r0,A2q-15 OF STATF-005,
110900* A25-35 nF CruNT-r05(x),
111100* IF ArE Is GPFATrE THAN 35 AD', nNr Tn A35-EVER OF
111100* RFG-005,A35-0VIE OF STATF-005,A15-PVFP rF
311500* COOYT-0O5(X).
111700* Ann !, NE TO VTOTA1 OF COUNT-0(x),vTOTAL OF STATE-TOTA,S,
111900* VTOTAL oF ErG-TrTALs.
112100* READ DETAILO-MASTFP AT Frig GO Tr P-TAPL,
112300* IF TYPE-nF-vTsTT EQUALS 0 Ann orkr TO SUPPLY-ON-S0HED LF
117500* CnUmT-C(x),supFly-ON-sCHFO nF STATE-TOTALS,
312700* suPPLY-oN-srHFr OF pFG-TnTAls.
113?pp : Tt n pyt : F g.0;04Fiyorm649al r Tq T Atig!wfirli-ANti-FxAv rF
113101* ,INTAKF-TNTT-tru-EXAM
113300* OF 0 EG-TOTAL SfAEO OmF Tr INTAKE-ToTAL OF rOONT - 000.
113101* TNTAKF-TOTAL Cr sTATE-TOTALS,ImTAwF-TOTAL rF
413;fig: TFPV4V24 ,4fT7 EQUALS 02 AnD okl, TO PEVIS-ANNUAL-CPL0K OF
113700* cnOYT-r(x)ppiTs-ANmuAL-cHErK OF sTATF - TOTALS,
113900* PrVIS-ANNUAL-0E-E0K nF PFG-TOTALc. 314100* IF TYPE-of-VISIT FQUALS 01 Ann ofot TO PEvIsIT nF
11A3or* cooNT-r(x),prviciT rF sTATF-TrTALsio- vTsTT nr
314500* PF0-TOTAIS.
114700* IF TYPE-n F *VTSTT FQUALS n4 AnD CmE Tn SUPPLY-ON-uNscwlo rF
314000* CnUmT-C(x),SUPFIY.-Om-UNS0HEn OF,STATr-TOTALS,
115100* SUPPLYON-ONSCFFO OF PEG-TOTAIS.
115100* IF TYPF.nF-VTSIT EQUALS 05 Ann PmE TO UNS0HEn - ANNUAL.LHEC Or
315500* COUNT-C(X)PONSCPFD-ANNUAL CHEOK OF STATE-TOTALS,
3157 0 0* UNS0FIFO-ANNPAL.CHECv OF PEG-TOTALS. 115900* IF TYPE-OF-VISIT EQUALS 06 AnD CimE In UNScHEn - NON - pRrh
11 61n0* OF rooNT - 0(y),IksCHFD - Nok - PpoR rF STATE-ToTA[S, 61n0* UNSrHEn-NoN-Fp(F 0F PEG-TOTALS.
116320* TF TYPE-OF-VISIT EQUALS 07 AnD N'E Tn TNTAKE - COUNSFLTNr-
316310* OF rOUNT-C(Y),TTAKF-COHNSELTMG OF STATF-TOTALS,
1161A0* INTAKE-nOUN
m
EL!, G T OF REr?ToTALs.imTAKF-ToTAL rF
113co* COUmT-C(x) , TNTAKE-TrITAL rE sTATE-TOTALS,TNTAKE - TOTAI
116360* OF PEG-TnTALs,
116500* IF TYPE.PE-vtsil EQUALS Op Ann C'A'F To oNscHEn-pRnBLEk .
116700* OF courT-C 1 (X)JoNsCHFo-PRTHIEm OF STATE-TOTALS,
11 6900* UNS 0 HED-PR(1 PLF- 1. nr pFG.TnTA[s. 7100* IF TYPE OF-VTSIT EQUALS Op ADD nt,J TO UNSCHEO-PRobLE-PFV
317300* OF 00UNT-C1CX),LNSCHED-PpoBIPA-PFV OF STATE-TOTALS,
1.7500* UNSCHFP-pROPIFfr-PFV OF RFG - TOTAIS. ;WIr WbrYgITn i=:0MONHEYO riOT 7 LZP;PRE FIF
11P100* crumT-Cl(y),ToTtL-PREG nF STATE-TnTAE5,
118300* TOTAL-PPEG nF Frn - ToTALS.
3i85n0* Aor mUMPER-FirRN-PITVF TO pnRN-ALTvF OF
410U8: gROT;11 6VOT FAWFA JF STATF-TpTALS,
319100* TF 0 1 1TCOpF-PF-LAFT-DFITV6;y FQHA!S 1 ADD ONE TO
3193o0* PfP t-ALT VE-TE Rr nF COUNT-r1(x),popN)-ALIVE-TFPN
119500* OF sTATF-TOTALS,POPm-ALIVF-TEPN
110700* nF PEG-TOTALS.
119900* IF OOTCONE.OF ,-LtFT-DFLIVERY FOALS 2 Apo ONE TO RORN-ALIVF-120100 * .ppF rF COUNT-01(y),PDRN-ALIVE-PPr OF STATE-TOTALS,
320300* FinRN - AITvE - ppE or PF0-TOTALS.
120s00* IF OfITCOmE-OF-LIST-DELIVERY EQUALS 3 ADO nNE TO pOPNLFAO
320700* OF rnoNT-cl(x)propN-nFAo nF sTATF-ToTALC,POPN-DFAD
320900* OF AEC-TOTAIS,
121100* IF POTCOmE ,-Or-LAFT-OFLIVFpY FQHAIS 4 AnD ONE TO MIS-AboRT 121 3('0* oF r'nokiT-01(X),rTS-ARnRT OF STATE-TOTALS,NIS-ARORT
121500* nF RFC,-TOTALS.
121 700* IF CUITCONE-nFimLAST-OFITVFPY EQUALS 5 ADD ONE TO kiLvEr-ppF6
121900* OF rnuNT-r2(x),krvFp-pRFn OF STATF-TOTALS,
122100* NFVFP-PPE( OF Fr(7 - TrITALS.
122300* TF O ? TnOmF - Or - EjFT - OFLIvEpy EQUAIS 6 AOC) ONE TO PRFG - LTHFP
122500* OF 00UNT-02ry),FPFG-OTHFp OF STATE-TOTALS,
122700* PPFm-OTHER rF FFM-TOTAL5.
122900* TF OATCoHE-Or-LAFT-nrlivFpy FOHAIS 7 ADD nNF TO uNuNroo r1 F

121100* COONT-C2(Y),UNMr, nviN OF STATF-TOTAL spumi0 1 0WN OF
123300* EFG - TOTALSA 1235(10* ADfl NOMBER - yr - FFTAL - nFATHs Tn FETAL - DVATHS OF
123700* CoOmT - c2(x),FETAI - DEATHS OF STATE - TOTAL S ,
123900* EFTAL -DFATHs OF PEG -ToTAtcp 32Ain0.A. ADn YumFFR - cPILirrN - ALIvr - Now TO.CHTLD 9 L"1 - NOWALTVF 124300* COUNT - C2(v),CHItnPFN - NOW - ALTVF vF STATE - TOTALS ,
124500* CHTLDREN-NONE-AITvE OF pEr,-TnTAI.e.
124700* PEAD nETAILEn-MASTER AT Fran rx Tr 9-TAPE.
324400* TF E'ER-IISFD-PFTI-rD FQOAls "v" ArD ONE Tr PATIFNTS - 0 ,0cF - usrp OF
125100* OF rOUNT - n(y),FATTFNTs - nNcE.uSEn OF STATE - TOTALS,
12100* pATTENTs-Ork-1FFD OF pEn-TnTALc,
125500* IF MrTHOn-HOST-IFF0-1AST-7-YrAPS EDUALS 0 0 AnD ONE To
125700* NnNF OF COOKIT-r(Y) mONE nF STATr
325900* -- TOTALS,NONF OF FFG - TOTALS.
126100* TF METHOD-MOST-1FFD-IAST-2-YFAPS LoUALs n1 AnD ONE Tr
126300* OPAL OF couNT-rky)poRAL or sTAIr
326500*--TnTAL5 oRAL or FFc,-TOTALs.
326700* TF MrTHOn - MOST - ISFD - iAST - 2 - YrAPS E0UALS n2 ADD ONE To
126900* Ion nF COUNT-n(y),TIIO OELsTATF
3271rI 0*--TnTALs,T10 OF FFn-TOTALS.
127300* IF pFTHOn-mnST-1SFO-IAST-2-YrAP5 EnuALs n3 AnD ONE. To
3T 500* DIAPHRAGM OF CCINT-00(),nTA9HPArM OF ,7700* STATE-TnlAs,DTAPNPAGH or 9r6 - TnTA1$.
1 2 79 0 0* IF mrTHOn-MOST -ISFO-IAST-2-YFAPS E0OALS n4 ADD ONE To
12A100* FnAm OF CnUNT-F(Y),F0A4 OF STATr
12R300*--ToTALS,F0Am OF FEO-TOTALS. 32p500* IF mrTHOn-mrsT-I FFO-IAST-2-YFARS.EoUALS n5 Ann ONE Tr
12P7PQ* PyTHM OF COIINT...rfy),RYTHM OF STPTF
lzP900*-T0TALS,PYTHm OF REG - T0TAIF,,
329100* IF MrTHOn-MOST -IFFD-IAST-2-YrAPS EDUALS 06 Ann ONE Tr 129300* CONoOM nF CoUNTwn(X),CONOOM OF cTATF
4?$RWTT ri tTAAtIPNFY 44,FW 4MIL? ,rAPs EnuALs 07 Ann ONE To
129900* TNJFCTInN Or crFT-n1(x),TNJEcIT0N OF STATE
13 0 100*--TnTALSONJFrTUN OF PEG-TOTALS.
330300* IF mFTHOn-mOsI-(FFD-LAST -2-YrAPS EoUALS ng Ann ONE To
13 0s00* STF 0 TLI7ATTON (FCOHNT*D1(X),STrRFITZATTON 0700* OF cTATF-TOTAL,STE9ILI7ATInN OF PFGTOTALS,
130900* IF mrTHOD-HOST-IFFD-IAST-2-YFAPS EouALs 09 Ann ONE To
331100* OTHER-CONTRA OF COUNT..DI(Y),OTHrPi.CONTRt
1 31 3 0 0* OF c-TATF-TOTAL,FITHFP'CONTRA OF PFG -TOTALs,
331500* IF METHOD-MOsT-IFFD-1AST-2-YrAPS E011ALS 10 AnD ONE To
331700* mFTHOD-NOT - wNOV0, OF COUNT-D1 (Y).
131900* MFTPOD-NOT'kNOO' OF STAIF-TnTAlc,mETHOD -
332100*PNOT-KNOviN OF pEr
- ToTALS,
132300* IF WHO-PPESCPIp10-LATEST-10FTHOO rQIIALS 1 AnD ONE Tn
13 2 705oQv** Or PpIvsTA-nolp..TOrToR Tp QF 5,PPTv rnuNT -nOrD1( TnR,PRIV-D 0 CTOP 2 U
337900* Or PEG-TOTAIS.
333100* IF WHO-PPFSrPIPFC-LATEST-mFTHOD FOOAIS 2 ADD ONE To
333300* PUP-CLINIC nF CCPNT-D1(Y),PH6-CITmT0
1 3500* OF sTATF-TOTA1 S,PUP-CIINIr nF pirG.inTALS.
1337 0 0* TF WHO-ppESCpIRFr-LATFST-NFTHon rQuALs 3 Ann ONE TO
133900* npliGisT nF cOiNT-Ol(x)pnRUnGTST
134100* Or ATF"..TOTALI.',OPUr;GIST OF RFC.-TOTALS
13/13004, IF wwn-PpESCoipEr-LATEST-priHon rwiA[s 4 Ann ONE Tn
134500* OTHrp OF 001INT r1(Y),OTHFP nF STATF
334700*--ToTALSpoTHEp or 9EG-TOTALS.
334800* PEAD DETAILED-MAFTER AT ENT 00 To 9..TAPE,
135100* IF CnUNSFLTNn F(tALS 1 Ann ONE Tr CONTRA0EP-
1 5300*-00um OF rOUNT - F(Y),CnNT9ArFp.cnup 5500* Or ATF-TOTALS,r(INTPAcFp-cruN
135700* OF 9Fn..AL
;1MB:JhuVIOSA
TOT
Aq4S.R'MT?RiPY7RV.O1);1 sTFOLT7A.-
336300* OF STATFTOTAI,STFPILI7A-COUN
136500* nF RFC-TOTALS.
136700* TF CPUNSFLT 1vO FcrALS 3 Ann ONE Tr TrorEPTILT-
UMS* .c4N cY FATFMT7FINAIrMITILIFIFirq"
137300* nF PEG-TOTALS.
337500* IF 0PUNSFLINO FcIALS 4 Ann ONE To ARopTIrN - CnUN
33770* 01 nOUNT-r(v),AFFIPTTON-CnHN
33 79 0 0* OF cTATF-TOTALF,ApnpTION.rOuN Or pFG.TOTAIS. 13p100* IF rruNSFLTKr FOALS 5 Ann ONF Tr SOCIAL-sFp.
3311 300* - 000N nF rouNT - F(Y),SntiAt.sEp - rOuN
33P500* OF sTATE-TOTAlF,SOCTAL-SFP - CDON OF
13P700* PE 0 -TOTALS.
338900* IF CriHNSFLINr EcIALS 6 Ann ONE Tr nTHEP-0011N
139100* OF nOUNT-F(Y),FTHFR-COUN nF
130300* STATF-TrTArs,OTI-Fp-rOHN nF pEn-TOTALS.
13 0 50o* TF mmLOPP-PPFSSIrr f DUALS **Y? Al r ntJF 1(1
139700* P10 0 D-PREql , PF rr COUNT-F(x),
339900* HI_O?P-PPESPE rr STATF-TOTALS ,
1401n0* EirPrID-FpFSSvpF Fr RFG-TOTALS.
140300* TF MUD-PlOnr-TFFT FINIALS "Y" Ant nmF To
340500* VD-PLOOD-TEcT fF COUNT-F(Y).
1 4 0700* vn - PLonn - TFcT rr sTATF-TnTAts,
140900* vn - Pinnn - TEcT fr PF0-TOTAiS.
141100* IF FoUALF ?Y? ADD nNv TO H0T-Hr;R-TEST pF T :fitoI T wA r t.womTIrkI nF cTATF-TOTALS,
341700* TF MPLOOn-TFsT FrmAls "Y" ADD nt , 'r Tr BLOrp-TEST
141900* OF rOUNT.-F1(X)AFA0On - TEST OF
142100* STAIV-TrTA(Fs,
142100* IF VnPL FQUA1S ? Y ? ADD no7 Tn kIPL-TnTAI nI
347 +00* CnUmT-Fi(tx),vnP[-PUs or rnUkIT-E1(y).
14276'0* vnPL-TOTAL rF FTATF-TOTAIs,v0PL-Pn 5 OF
142900* STATF-TrITAL,vrFI-PnS OF pEr,-TOTALS,
343100* vO9I-ToTAI OF FFA-TOTALS.
143300* TF VDPL FQUAIS "Yl" ADD ONF TO VDHL-ToTAL OF
143500* cno ,0J-F1(Y),VoFf-NEn oF rnuNT-F+(y), 343700* VnPL-TOTAL of STATE-TOTA[spvDPL,MFG OF
34390.0* STATF-T0TAL,VrFl-NFG OF pEn-TUTAls,
144i0.0* vOPL-TOTAL OF FFG-TOTAls.
144300* TF MPAP-SMEAR Fct'ALS "YO" ADD nNr Tn pAP-TOTAL OF
144500* CnUmT-F1(Y) PAP-PnS OF CmINT-FlfX)*
144700* PAP- TOTAL OF STATF-TOTALS,PAP"roS
144900* OF ATF-TOTAL5*PAP.TOTAI OF 9.n-TOTALS,pAP-POS Or
1 4 51.00* p1 -TOTALS,
1 4 5300* TF to 0 AP0.9A-EAP F(UALS "Y1" ADD IMF TO PAP - TOTAL OF
145500* CnumT-F.1(x)spAF-ToTA1 OF sTATF-
145700*-TOTALS k PAP-NFG IF COUNT..F1(X),PAp-WG
145900* OF STATF-TrTALS*FAP - TOTAL OF RFC,-TITALS,PAP-mFG of
146100* 9 Er: - TOTALS. 146300* TF G- C-CIILTUPE FroALs ?y01, AnD OtA. In nC TrITAL OF
146500* CintIvT', E- 2(Y),Gr''FDS of CruNT - E 2 (v).
146700* G('-TnTAL OF ST,TF..TnTALS,(;C.PDS 146900* OF cTATF-TOTALS,CC-TOTA! OF PFG-ToTALS, 0 0-PoS OF
?7r0* PE-TOTALS. 347 00* IF G-C-O u ,9

ILTO9F F "Y1 ADD rloE Tn GC-TOTAL OF
14700* coumT - F2(x),Gc - TnTAI OF
M
STATE- .
o, 3g8: - ;914tPETN4LQ;4 1210WW6K.VPALs , G 0- mF OF
148100* RFG-TOTALS.
30;300* TF P 0 FAST EQUALS "Y" ADD p'E TO nRFAST*TrTAL
148500* OF rTUNT'F2CY),FREAcT...TOTAL
148700* OF c.TATF*TOTAL,PRFAST-TOTAL OF RFG - TnTALs.
148900* TF PFLVIr-FYA1.4 FrUALS "Y" Ann nNr TO pFLvTri.TEITAL
1 4 9100* CoUmT-F2000PFI1-IC-TOTAL OF STATE-
149300*-TnTALS,pFLOr-TITAL OF RF0,-TnTALc.
149500* IF U*INAlySIc. FctALS "Y" AnD ONE In URINALYSIS-If-1T
149700* OF f'OUNT-F2(X),19INALYSTs-TOT
1 4 9900* OF cTATF-TOTAL5,0RImALYSIS-TOT 1 010Q* RE 0.-TOTAL5 030u* IF STCKLF - Ctrl - APFMIA EQUAl S ?Y0f. Ann nNF Tn sicKLF - TuTAF OF
150500*0nmT-F2(x),SIrVLE - PnS OF COUNT-E2(Y),
T
0
700* STCAeLF - TOTAI OF STATE. - TnTALs,sieKLF - Pos
1 900* OF ATF-TOTALE,STCO_F-ToTA[ OF PFG-TOTALS ,
15110* sTrKLE-FnS OF FIG-TOTALS.
351300* IF SICKLE-CFI L-trFmIA EQUALS "Vi" ADD ONE TO SICvLF-TLTAI OF
151500* CoumT-E200,sTfietE-TOTAL OF sTATF-151700*-TOTACS,STC0E-NFr OF COUNT-E1(Y).STCKLF - NFG
1519 0 0* OF sTATF - TnTALs / sTcKIF - TnTAL or 0En - TOTALS*
152100* SIrKLF-NU OF FFG-TOTALS.
152300* TF M*STF9IL17ATIrm EQUALS "YO" Aon ntqF TO sTFFILIZATTLm-
352500*. TOT_ 0 F COUNI-F3(Y),
152700* STtDILF7ATinNiorT OF sTATF - TnTotis,sTFPIII7ATIoN - TnT LF
352900* pFo-TOTALS,STFr-THFR OF 00uNT-F3(x),STFR-THEP
152905* OF cTATF-TOTALF,STFp-THF9 Or Pfr-TOTALS.
152910* IF ki - STFRIATZATTDN EQUALS "Y1" Pun oNF TO
152915* STFRILIzATTOm*ToT FIF COUNT-F3(y),STFRIII7ATInN-TnT
352920* nE STATE. - TnTAt,sTFPILT7ATTnN - ToT OF RIG - TOTALS ,
157p75* sTrp - NON OF 0rrmT-F3(X),STFR-NrN OF STATF-TOTALS,
3 * TF ,NFFpTIL,
I
Ty coALs "Y" Ann rmr Tn Im L FFpTILITY-TnTA 1pm* STrP-NON PC..TOTALS.
I3D0* OF rOUNT-ti(X),TP0 FLPTILITY'
153500*-TOTAL OF STATE-IFTALSONFFRTTLITv-TOTAL
353700* n1 PEC?TOTALS.
151900* IF MPRE0NAN0Y-T[FT CoUALS "Yo" Pop nNF To FIRFG-TFST-TUTAl OF
ant 1O0* 0nUmT-F1(Y),PR1f-Pus 0.F rouNT-t1(y),
154300* P9Fr;-TEST-ToTA[ nF sTATF*TOTALS,p9FAI-POs
154500* Or cTATF-TOTAL5,FPF0 - TEST-TOTAL or
154700* RE 0 -TOTA1.5,F9FC-P0c OF PFG-TOTALS.
3549r0* IF mDREGNANCY-TVFT FnuALs 'w , Aro ONE Tr PPFG-TEST-TOTA[ nF
155100* COUNT-F1(0,PPFF-TEsT-TOTAL Or sTATF-
159100*-TOTA)5,PpEr; - NEn, IF 0n1!NT-F3(Y) , PrEn - NFG
155500* nF STATE-TOTALS, roFG.TIST-TOTAL 0F PFG-TnIALS,
155700* pPFG-NFG Or RFC'-TOTALS.
1591900* TF M-PTHFR F0PAIF o Y Aor nNF TO OTHER-TEST
1561 0 0* COUNT-F1(Y).OT[fP-TFST CF
156100* STATE-TOTAlc.01FIP-TEST or pFG - ToTALS.
356500* IF NFTHOO-AFTFP-VISIT FQUA1S 0 ArD nNE Tr
356700* Nn-kAFTHrn OF cri - NT - F(x),
356900* No - METHOD Cr sTATE TPTAI S,Nn-mFTHnn flF
157100* RFC-TOTALS.
157300* IF NFTHOO-AFTFR-VISIT EQuAIS 1 AnD nkIF To
1;
7500* OPAL-TOTAL nF truNT-F(X),
7700 * OPAL-TOTAL OF FTATF-T0TALspopAL-TnTAL OF
157900* pEr-TrTALS.
15P100* IF PAFTHOn- AFTEp.o/TSIT EQUAIS 2 AnD ONF TO
1408: in:fATPE gWil=4Nrs,Inn
-
TrTAL or
35P700* PIne, TOTALS.
358900* IF NFTHOne.AFTFP.47SIT EQUALS 3 Aran nNF TO
359100* DIA TOTAL OF C(rNT-F(Y),OTA-TOTAL
159201* OF cTATF-TOTAL,nIA.TOTAI Or PEn-TOTALSA
159700* IF MFTHOO-ArTEP*vISIT EQUALS 4 AnD ONF
159900* FRAM-TOTAL OF cruNT - F(x),
360100* FOAM-TOTAL. OF STATF.TOTALS,FOAN-TnTAI.. Or
360300* PEP-TOTALS,
1 6 0500* IF MFTHOC-AFTFp-1:TSIT EQUALS 5 Aro n)or TO
360700* pyTwm-TrTAL OF frUNT - E(Y),
160900* PyTwm-TrTAL.rF ATF-ToTAIS,RYTpm-TrT4L OF
161100* PE -TOTALS.
361300* IF PAFTHOn-AFTER-vISIT F0IJAIS 6 Ann nNF IP
161500* CONnnN-TOTAL OF COUNT-F(y),
161700* coNnnm-TOTAI nF sTATL - TrTALcpc[worN - InTAL or
1619n0* PEP - TOTALS.
162100* TF MFTHOO-AFTER-VISIT IQUALS 7 Ann nNF Tr
362300* jMJFCTION-TOTAL nF rOUNT - Fty),
162500* INJFcTInN - TnTAI nF sTAII-TOTALS.
162700* INJECTION - TOTIJ OF RFG - TnIALs.
367900* IF mFTHno-AFTFF-vISTT EQ0ALs A Ann ONE TO
163100* sTEPTLI7A-TrTAI OF COUNT-riLx), 163300* sTtoILI7A-TrTAI CF cTATF.TOIAIS.
163c00* STFPTLIZATOTtl OF PEG-TOTALS.
161700* IF METHOD I AFTER-VISIT EQUAIS 9 Ann nNF Tr
361900* OTHER-00NTPA-TOTAL nF cruNT - F!iv),
164100* OTHER-00NTPA-TOTAL nF STATE r TniAls,
164300* OTLIFFR..cONTPA IF pEn - TOTALS.
164500* IF PFASCN..F0P ,, SIrPRImrv-METHOD EQuAIS 1
164700* Ann ONE Tn PPIN, PLAN-TOTAl OF
3P0P8:-TAWTF4 1 0tr 2 EfET-40 - 165300* PPFG-PIAN -TOTtl OF RIG - TOTALS.
169500* IF REASON-FORe.STrPPING-MFTHOn EcJIALS
16700* AOC) ONE TO FPFC-UNPIAN-TnT nF
1 0
1659r0*
0*?"TOT
COUNT-
OF
E1 v2fr P UNPLA 746 6 - T AL
166300* PRFG-UNPLAN., T(TAL OF pF(; - ToTALc.
166500* IF REASON-FOP-5TrppING-MFTHOn r(7:11ALS 3
166700* Ann ONE Tn FFF40.PPI0-TOTAL nF
366900* CoUNT-F1(q,SIFk-PRF- G-TOTAL
3 6 7 100 * OF cTATF-TITALF,
167300* $FFK-PREG - TOTAI nF PIG- TOTALS.
367500* IF REASON..rOP STrPPImG ,-MITHOn FCPALS 4
167700* Ann ONE Tn mFnIcAL - REAsnN - TOT Pr
167900* COUNT-F1(Y),MFFIFAL-RIA
368100*..SON-TOT nF STATF - TOTALS,
168300* mErICAL - PEAsM? TOT OF RFC. - TnTAIS.
168500* IF REASON-FORN, SIrPPING MITHOn FQUALS 5
168700* AnD ONE TO nIFIFF-REASON -TOTAL Cr
168900* COUNT., F1 (Y),UTFFP-PrA
169100* - SON - ToTAI nF 5TATF-TOTALS,
369300* OTwER-REASON-TPTAl OF RFG - TnTAIS.
169500* Ti N REFFRREP-IIFIWHFPF FOHALS 1 Ann ONE TO
169700* TOTAL - RFFrPpfn CF STATE-TOTALS,
169900* TOTAL-RIFE:PPE!) Cr CnUNT-GcX),
:'46990* TOTAI-PFFIRPED rF PIG-TOTALS,
370100* SnC-SEP-TnTAL CI COUNT-O(x),
170200* SoC-SEP-TOTAL IF REn-TOTAIS.
170100* Sn1-SER ,-TOTAL IF STATE - TOTALS.
370500* IF M-PEFFRRFo.-El5FW-IFPF FOALS 2 Ann ONE TO
170700* TOTAL*.PIFIRPEn rr STATE-ToTALS, iP$RP: TAT4:0- 1FPUB FF ;POTWA;
17110o* NFn-sFR-inTni. FF STATE-ToTAts ,
171200* mrO-SEp-TnTA1 IF pFn - TOTALS,
171300* MFD-SER-TOTAL IF COIINT- 0 (Y).
171500* 'IF M-PEFFPREn-FLFFwHFRF FopAis 3 An ONE To
3717r0* ToTe!t - RFFFPprn rF COUNT - n(X),
171900* ToTAL-PFFFPPF0 rF STATE-TOTALS.,
372000* ToTAL-RFFFPPEn rF PFG-TOTALS,
177100* STF0ILT7ATIoN-FFF OF colINT - r,(Y),
172200* STEpTLI7ATJoN-FFF Or REF-TOTAL5,.
172300* STF9ILI7ATInty-FFF nF sTATF-T0TAls.
372500* TF 10 -REFFRREn-FIFFWHFPF EQUALS 4 Ann ONE TO
172700* TOTAL-FiFFERpFO rF STATE-TOTALS,
172800* ToTAL-RFFFPpEo rF PF0 - TOTALS,
172900* TrTAL-RFFFPPED rr COUNT-GfX1,
173100* AROpTIoN-TOTAL rF STATE-TOTALS,
1732(10* ABOPTInto-TOTAL IF PFG''TOTALS,
173100* AROPTION-TOTAL OF CnUNT-n(X).
173500* TF ro-P[FrRRFn-FtFFwHFRF FoOALS 5 Ant) ONE TO
373700* TOTAL-PrrrRpfn rF STATE-TOTALS,
173800* TOTAL-RFFERRFo (r pF(1-ToT ials,
173000* TOTAL-RFFERPFO rF coUNT-G(.x),
174100* INFrPTII-TPFAT-TnT nF STAT E -TOTALS,
174200* INFFRTIL-TREAT-TnT OF RFG-TnTALc,
374300* INFFRTII-TPFAT-ToT nF coomT Gcx,.
374$00* IF N-REFFRPFO-F1FFWHFRF Fou4S 6 ADD ONE TO
PS: TRTAE=WMER IYFIVAIW'
374900* ToTAA-PFFFPPF0 rF COUNT-G(X),
175100* OTHrp-pFvFPpEn-ToTAI OF
37300* 00UNT-G(X) ,
175400* OTHER-PFFFP0F0-ToTAI OF RFG-TOTALS,
17550C* OTHER-PFFFPPEO-TOTAL or STATE-TOTALS.
375700* TF M-PATTENT-SEE?RY EQUALS n ADn nNF TO
3Z50o0* PHYsICIAN - TOTAL (IF row0T - ncx),
1/6000* POcTrIAN-JoTAt OF ptc-ToTA.Ls. ,
376100* PNYTCIAN-TOTAL sTIF-TOTALS
376300* IF M-PATIENT-SFfp, By EQuALs 1 ADi; nNF TO
376500* P-H-N-TnIAL OF rOONT - G1(Y),
176600* P-H-N-TnTAI OFFFG-TOTALS.
376700* P-H-N-TOTAL OF STATF-TOTeLS. 3/6900* IF M-PATTENT-SFft?HY FOuAls 2 ADr nNF TO
377100* F - P - H - N - TOTAL rr COUNT-01(X),
377200* F-P-H-N-TOTAL CF PEP-TOTALS,
17730Q* F-P-H-N-TOTAL IF STATE-TOTALS,
1r7no* IF m-PATIENT-sFFp?py EQUALS 1 Ann nNF TO
377700* N101F-PITOwIFF-TrT Or COUNT-01(X),
377800* NuPcF-MTnwIrE-TrT Or PEG-TOTALS, .
377900* NoPF-MIDwIFE-IrT or sTATF-TnTAls.
378100* IF N-PATTENT-sFF-RY FOUALs h Apfs nNF TO
178300* L - P - N - ToTAL OF COUNT - Gi(y),
178400* L-P-N-TOTAL pr rF6-TOTALS,
378500* 1 ,^P PN-TOTAL OF STATF-TOTALS. 3(p -TOu* TF M-PATTENI.sFE.BY EQUALS c ADr (INF TO
178900* SOCIAL_-SER-TOTAI OF COUNT - G1 (X),
79000* Sn0TAL..SER - TOTAI OF PEG-TOTALS,
379100* SorTAL.-SER"'TOTPI OF STATF-TOTALc
179300* IF M-PATTENT-srFh-py EQUALS f, Apr, o'F TO
if$;P8: AiBF:MAL /} F'!
379700* Ainr-TOTAL OF STATE-TOTALS.
179900* TF M-PATIENT-SIFF-BY EQUALS 7 Aor nNF TO
380100* CLEPK-ToTAL OF COUNT - Gi(y),
380700* cLL0K-InTAL OF FFG-TOTALS,
380300* C1E0K-TnTAL OF FTATF-TOTALS.
180500* TF M-PATTENT-sFFp?BY F0u4s 8 ADn pNF TO
380700* NuTPITIoNT5T-TrI OF COUNT-G1(Y).
3e08n0* NOPTTIoNIST.TIT OF REG-TOTALS,
180900* NuTPITIoNT5.T-TFT OF STATF.TnIALc.
31100* TF . M.-PATTENT.SFFt..RY EQUALS 9 Apr, nNF TO
181300* OTHER-HANoLFD-TrT OF
1815001* COUNT-r,7(y),
18160o+ OTHER-HANDLED-TrT or PEn - TOTALS. _
181700* OTHER-HANOLFC-TFT Or STATP- TOTAIS.
381900* IF MAIN-SOUPrE-FI-REFERRAL EruALe 00 A0D ONE TO
387ioo* SFir - ToTAL of FAINT - H(x),
382200* SFL.r-TOTAL rF FFc.-TOTALS,
382300* SFLF-TOTAL OF STATE-TOTALS,
18P500* TF MAIN-sOoPrF-Cr-REFERRAL FnuALc 01 AOl) ONE TO
382700* OuT9FACp-Wrivi<FF-TOT OF
382900* CoUmT-Fi(x)s
183000* OuTPFAcH-wOovFF-TOT OF PFr,-TOTAIS,
1e1100* OuT 0 FACH-wOoKEF-TOT OF sTATF - TOTALS.
383300* IF MAIN-SOuRrE-IF-REFERRAL Fnufac n2 AnD ONE TO
183900* OTHER-FP-CITNTC-ToT OF *
383700* CnuyT.H(x), *
1831100* OTHER-Fr-CtTNT(-TOT Of PEn-ToTAls, *
383900* oTHFR-FP.cLTNTr-TnT OF *
184100* STATF-InTAts, *
184100* IF MAIN-SOURCE-CF-RFF- FPR 4 1 E0UALc 01 ADD oNF in *
18 4 500* HnSD-HEALTH-AGENCY-TOT nF *
184700* CoUNT-H(x), *
180;00* HoSP-HFALIH-AGFArY-TOT OF Rrn-InTALs, *
38 4 9 0 0* HoSP-HEALTH-AGFACY-TOT nF STATF.TnTALs. *
385100* IF mATN-souPrF-rv-pFEERRAI EnDALc na ADD nNE Tn
185300* PRIM-nor-NUpSF-TnTAI OF *
3 50(1* COUNT-H(xl, * 8960 ppiv - poc - NupsF.TnTAI (IF PEG - TOTALS, *
385700* PpIv-Dor-NUPSF-TnTAI OF STATE-TOTAL S. *
385900* IF MA ini-souPrE-rf-RFFFRRAt Foulqc n5 ADD ONE Tn *
386100* WELFARE-AGENCY -TOT nF *
186300* CoUNT-H(X), *
186400* WFLrARE-AGtN0Y-TOT nF RFG-ToTAtc, *
386900* WFLFAPE-AGFNCY-TOT nF *
3 8 6700* STATE-TnTALS.
186900* TF MAIN-SOURCE -rF-REFERRAI FouALe 06 A"D ONE Tn *
187100* ANOTHER-CLINIC-FAT-TOT nF *
187100* COUT-H(x), *
387400* ANOTHER-cLINIc FAT-TOT or *
387401* REG-TOTALS, *
187900* ANOTHER-CLINIC-FAT-TOT n F STATE-TOTALS *
187700* IF MAIN-SOURCE-Ot-PFFERRAI EDUAlc 07 ADD ONE TO *
187900* FAM-FRIFND-ToT or *
* .FIV0'8: F=VW:ToT rF PEG-TOTALS, *
3e8300* FAN-FRIFNn-TOT Cr STATE-TOTALS. *
388500* TF MAIN-SOURcE-OF-RFFERRAI EouALc ( ADD ONE TO *
pm: Im54.11;m5 . SPAFFP-TOT OF
389000* TV-RADIO-NEwSrAFFR-TOT OF RFG-Tf,TALS, *
189100* Tv-PAnIn-NEwspArFp-TOT OF STATE-TOTALS. *
389300* TF MAIN-SOURCE-OF-RFFTRRAI E0UALc 09 ADD ONE TO *
389500* RFFrRPFD-RT-OTF-VP-TOTAL nF *
389700* COUNT-Hi(x), *
189800* RFFFRRF0-RY-OTI-EP-TnTAL nF *
:489801* RFG-TOTALS ,
189900* REFFRRFni.RY-CTF9-TnTAL OF STATF-TOTALS, *
390100* TF MAIN-SOURCF-FF-REFERRAL EnuALt 10 ADD n'F To *
190300*
MPP8:
190 700 *
390900*
191100*
191100*
391400*
191500*
191700*
191900*
197100*
19?P0o*
392300*
192500*
192700*
39908*
39.00 *
193100*
193100*
193500*
3$306:
1939 0 0*
194100*
194300* 12450Q*
194600*
194700*
194900*
195100*
19530o*
19540D*
19950 0 * 195700*
195900*
396100*
1962 0 0*
196100*
REFFRREP-PY-ONOnwN-TOT nF
WrIF7r) 1 V:UNkfOWN-ToT nF RECIwTOTALs,
RFFFRRFO-PY-UNkAnWN-TOT nF STATr-TOTALS.
IF PURPOSE..OF-NF)[T-ApPOINTmENT FnuA1S 1 A00
SUPPLY-STRING-CI-A(-70T or
COUNT-11(X),
SuPoLY-STRING-r.4, -TnT OF REG-TOTALS,
SHEPLy-sTRIG-(j . K-TOT OF STATE-TOTALS, .
TF PURPOSE-OF-NFYT-APPOINTMENT EmUALS 7 Ann
ANNUAL.-FRAM-TOTAL OF Crukcr-i(x),
ANN0L-Fxnr?.-TnTft Or REG - TOTALS. ,
ANNUAL-FRAM?TOT/J OF STATE"TOTAIS.
IF PfIRPOSF-Or-NF YT-ApPOINTmENT EeTALS 3 On
NFOTCAL-PROD -TOTAL OF
COUNT-I(X),
MEDICAL-PROp-T(TAI nF RE0-TOTAL,
MFDTCAL-PROP-TrTAL nF STATE-TOTALS.
IF PURPOSi-OF-NFXT-APPOINTNENT EmuACs A Ann
OTHER -APPOIN-TFTAL
of
69N:46PN-TrTAL OF REn-TrITAL,
OTHFR-APPOIN-TrTAL nF STATE-TOTALS.
IF PuRPOSE-Or-NFxT-ApPnINTmENT ErsuALS 5 Apo
NO ,-NEXT-APP0IN-TOT nF
CnUNT-I(X),
Nn-NEXT-ARPnIN-TOT nF RFG-TnTALc,
Nn-NEXT-APPrIN-TOT nF STATE-TOTALS.

ALS 1 DD ONF IF N-REASOAP-r0R-CISCHARGF FOu A
STEPTL-APPOTN-IrTA1 OF
Cni.lmj-I(x)P
STtpit-ARPOTN-TrTAL OF RFG-TOTAIS,
STERTI-APPOTN-TOTA1 OF STATF-TOTALS
IF M-REASON-r0R-CTSCHARGF FOuALS 2 A n ONE
MENnpAUSE-TnTA[ or
COUNT-T(X),
NFNIPAPSE-TOTAL OF PEG-TOTALS, .
MENnPAl)sE-TOTAL OF sTATF-TOTALS.
ONE
ONE
ONE
ONE
ONE
To
Tn
TO
TO
TO
To
TO
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
196500* TF m-REASON
-
r0P-fTSCpARGF EQUALS 3 Ann ONF In
196700* mEnI 0 AL - REAS - T0101
196900* CnUmT - I(x) , 197000* MFOT0AL..ptAc.-TFIAL nF RFC-TnTAL,
197100* mFDTCAL-RFAc-TrTAL nF STATEmTn1ALS.
797300* TF M REA50N - FOR ? rISCHARGF FOHAL5 4 Ann ONE TO
197500* PATIENT-MOVEO-ICTAL OF
1977o0* CnumT Ti(x),
397p00* PATTENT-MnVrp-IrTAL OF RFC - TOTA1S,
3mH: TvAr.Rigi4W.FTM-H4GPIPI5
-41TilL OmF Tn
198300* PATIFNT-LOST-TTFREsT-InT OF
198500* COUNT-11W,
19p600* PATTENT-LOST-TP, TFREsT-TAT
190 01* OF 9 FG-TOTALS/
19A/00* PATTFNT-LnST-TT1kTERFsT-InT OF cTiTF-ToTA(S.
19 8 900* IF M-REASON - FOR-0ISCPARGF FQ0ALS 6 Ann OmF Tn
199100* RRF-OFSIRF- 0 -TITAL nF
1993n0* CnumT-J10y,
199400* RpFn-0t51R n-TrTAL nF RFn-TnTALc*
199500* PRFr!,-DE5IREn-TrTAL OF STATE - TOTAL.
199700* IF M-REASON - FOR-rTSCPARGF EQUALS 7 Ann 0mF Tn
399900* PRF0--UNPLAN'-TrITAL OF
1100100* CnUNT-Ii(x),
400200* PpEr, -uNpLAN-TnlAt Or RE(-TOTALS,
400300* PpEft-UNpLAN.TnTA( Or STATF-TOTAIS.
400500* TF m-REASON
- r0R-rTSCHARGF FQuAIS S. OmF Tn
400700* UmKm0WM-DISCHAF-PEAS-TOT OF
400900* CnUmT-I1(y),
" 10 00* UNKNOWN-CTScp4-pFAs-ToT nF
401001* RFC - TOTALS,
401100* UNKNOWN-OISrHAF-PEA5-TOT OF 5TATE-TnTALS,
401300*' Gn In fvAsTEP-SCAN.
601500*R-TAP!.
1101700* nIsPLAy ?PASsIt",t-ROUND.
401900* TF II - ROUND EnuAIS 160
402100* MOVE "OUT - OF - DATA PEFORE FOF,?RIIN PROCLFOINn? Tn
402100* OpEDATOp-mEcSACr:OIcPLAm nprpATr , p-mEsFAcIF UPON cONSrLF;
no500*EFRFnPm CnumTY-vPIIFRIOn TO cnpvT-WRITER
402700* P E RFO RM cOuNTY-1,, FITtp;PLPFnpm Pr.c.T4RT.wRTTFR,
402900* ADO 1 0 TO L-pourr,u-pOuNn. Ai Bt p FA INPUT OFTAILED-MASTER. .
403500*RFSTART-RITEP SF0T10m.
40370004 nVr-sTATF.
43900* rLOSF' HsTAPT-ri[E3OPEN nuTPuT RcsTART - FILF.
b 4100* 00mpuTE sTATF-nATF-STORE=sTATE..-OeTF-STORr/P
404300* ATTEmT-TrIAL OF FTATF-A,
404500* MOVE COUNT-TPACI. , TO pFs-rnIINT-NAuF .
11n/1700* WRTTF RFSTART-A.
110ao00* MOVE STATE-t, TO FFSTAPT-R;WRITF PESTART.P.
405100* MOVE STATE - RP Ti pFSTApT - p2)wpTIr RFSTART;.p2,
/105300* MOVE STATE-OATF*STORF TO AkaRAGE ASF OF STATE-005.
405500* MOVE STATE-C. 0 5 Tr RFsTART-rOs;wRTIF RESTART-005.
405700* MOVE STATE-C Tn FESTAPT-C;wRTIF pEsTART-0.
405900* MOVE STATE-CT TC RESTART - 01.;wpTTF RESTART-C1.
406100* MOVE STATE-C7 Ti PFSTART-02;wRITr pFSTART
- 02.
006300* MOVE STATE-f1 TO FFsTART-0;WRITF 6FsTART - n.
406500* MOVE STATE-P1 Tr pESTART-n1;wRIIF pFSTART-n1.
406700* mOut STATE-t In pFsTART-F;wpTTF pFsTART-F,
406900* MOVE STATE-E1 If RESTART-F1JwRITr pFSTART-F1
a07100* MOVE STATE-E? TC PFSTART-F2;WRTIF RESTART-F2,
407100* MOVE STATE-F1 Tr RESTART-Fl;wRTTF PFSTART-F3,
407500* MOVE STATE-F Tn FFSTART-FswRITF pEsTAWT-F,
110 7700* MOVE STATE-F 1 Tr RESTART-Fl;wRIIr RESTART-F1. 407900* MOVE STATE-C' Tn FFSTART-0,;WRTTF pESTART-n.
11011100* MOVE STATE-C1 Ti PFSTART-G1;w0Tr RESTART-G1.
408300* MOVE STATE-G7 Ti RESTAPT-G2.;w0Tr pFSTART.2;
40 11500* MOVE STATE- 4 Tn PFSTART-H;wRTTE pESTART-N. .
11011700* MOVE STATE-ml Tr PESTART-m1IwRITF PE:START. ..0,
4 0 13900* MOVE STATE- 1 TO FFSTART-T4wRTTF pESTApT-I,
n 09, 10* MOVE STATE- 1 1 Tr RESTART-1 . 1;w0Tr RESTART-T1.
a09300*MOVr-PFG.
aqM8 * -.
-
c9OTT E T PLGt F
r
oATF- EG
OF=prn-DATF-cTnpr/P
, _. niA uF -A.
409900* MOVE "REr" Tn RFS-001INT-NAME.
410100* MOVE 999 In RESTART - NUM.
410300* wRTIF RESTART-A,
blin500* MOVE REG-6 Tn REFTART-R;VIRTTF REcIART-R.
ain700* MOVE REG-62 TO FFSTART-R?IwRTTF PESTART - P2.
410900* MOVE RE0-DATF-cTFRF TO AVtpAnE-A0E nF pEr,-(7
_
.
411100* MOVE PEG-cnt Tn FFSTART-0O53wRIT0 RESTART-0 0 c.
411300* MOVE RF6-0 Tn REFTART-C;WRTTF REcTART-C.
A11500* MOVE PEG - C1 TP FFTA0T-C1;WRTTF RESTART -0 1.
11 1 7r0* MOVE PEG-C? Ti PFSTART-CP;wRTTE rESTART -0 2.
411900* MOVE REG-D Tn pEsTART*.D;WRTTF REcTART-r.
Wino* MOVE. RFG - 01 TO FFSTART-01;WRTTF vE5TART-rl,
h123ro* MOVE PEG-F Tp prTART-E;WPTIr RESTART-F.
417500* MOvF. REG-El Tr FTSTART-E1OARTTF RESTART - Fl.
412700* MOVE REG - E? TC. rESTApT-E2;wRTTE RESTART-r?.
41200* MOVE REG-E3 TO FFSTART-El; WRITE RFSTAPT - E3.
413100* MOVE pEG.F Tr RESTART-F1wpTTF RESTART-F1.
413300* MOVE REG-E1 TP FrcTA9T-Fle
t
wRTTF RESTART-rl,
413500* MOVE pEG-G Tr 9FFTART-G;W)TTF RESTART-G.
A13700* MOVE REG-G1 TO PrsTART-G1;wPTTE: pESIART -01.
413900* MOVE: REG-G? TO FFSTART-G2;WRTTF RESTART -0, 2.
414100* MOVE PEG-H Tr PFTART-H;wPTTF RESTART-M. A14300* MOVE pFG-H1 TO TFcTApT-H1;WRTTE RESTART-H1.
414500* MOVE REG-I Tr OFTAPT-I1WRITF PF5TAPT-T.
4la700* MOVE PEG-11 TO FFSTApT-I1TWRTTF RESTART-II
filim8:41ys y6I:09tiE0Wp2975W W -TYpLOPWYPJ:AACT-sTopF(31;
1113(-, 0* MPVr DATE-STOPF(4) TO R-nATF-STrpF(4)/MOVE HATE-ST0rE(5) Tp
415500* R - rATE - sTORr(5);movr OATF-STORE.(6) TO P-DATF-STORECA-);
05700* Mnlir DATE-STORE(7) TO P-DATE-SToRr(7)1MoVr OATE-STOrE(P)
A15900* If p-DATE-STURF(P);m0VE pATF-STrpF( 9 ) Tr p - nATE - sTO.r..1(9);
416100* MOVE STATF - rATE-STORE Tn R-sTATF-nATE-ST0RE:
4 1 6300* moVr Rin-HATE-STORE TO R-pEr-OATE-STORE.
4165ro* wRiTr RFSTAPT-J.
416900*cnUNT-WRTTE SrCTIrN.
alrino*PrvF-TATF.
417300* 00mPIITE STATF I OPTF-STOPE=sTATE.-PATF-STORE/P
1117500*-ATTEYT.-TrT41 OF STATE-A.
417600* MOVE STATE...A TO rrUNTY-A.
417700* MOVE FNO-COomTY Tn CrUNTY.mUm.
417900* MOVE COUNT-TRACI, TO r - COUNT - mAmF .
418000* wRITr COUNTY-A.
4111 1 00 * MOVE STAT E - P 10 cruNTY-R;wRITE crUmTY-P, alPInp* MOVE sTATE-Eip Tr roomTy-P2;WRITt. SHANTY-R?.
a1p500* MOVE STATE - C TO CrUNTY-C 1 wPITE CrUNTY-0,
u1P700* MOVE STATE-PATE-FTORF TO AVERAGE-AGE OF STATF-0O5.
41p000* MOVE STATE - 005 Tr COHNTY - ro5;wRITE OnuNTY - n09.
419100 * MOVE STATE-0 7 TT rOuNTY-021WPITE crtHNTY - r2.
410300* MOVE STATE - P TO COUNTY-01wRITE CrENTY-O.
419500* MOVE STATE-01 Tr nOUNTY-ri;WpITE cnONTY-n1.
A19700* MOVE STATE - F. Tn rnUNTY-FrwRITE 0rUNTY - F.,
A10900* MOVE STATE-E1 Tr r0UmTY-FT;W0ITE COUNTY"t1.
420100* MOVE STATE-F2 TI COUNTY-E2;WPITE COUNTY -E2
420300* MOVE STATE-F3 Tr COUNTY-E11WRITE CrU I7 NTY'3:
1120500* MOVE STATE - F TO 0rUNTY-E;WRITE CNATY-F.
A ()Ton* MOVE STATE - El Ti CritwTY - Fi;WRETE CHANTY - F1,
420900* MOVE STATE-G In CrUNTY-G1wPITE CriuNTY-G. 2M'a: WiT[:R; TF. FRP4T(=W;WTF ERgT'4g3:
421500* MOVE STATE-H Tn CrINTY-H1wRITE Cr'UMTY-H.
421700* MOVE STATE-Hi TI roumTT-Hi;wRTTE. CHANTY
-H1.
421900* MOVE STATE-I TO rnuNTY-T;wRITE CrumTY-T.
Ap1P0* movE STATE-Il Tr enUNTT-TI;WpTTE CnUNTY-T1.
a 23rop*7FRn-sTATF.
622500* MOVE 7ERns Tr sTtTE - r05.
422700* MOVE 7ERns In sTATF-R,STATF-P2,STATE-C 2
422900* MOVE 7ERns To STATE-02,STATE-D,STATE-0 1 .
A23100* MOVE 7ERns To STATE-FASTATF ,PF1,STATE-E2,
A23300* MOVE 7F- Rns Tr STATE.0 F,STATF F1pSTATE-G,
423500* MOVE 7EPOS To STATE-01,STATE...H,STATE-H1.
421700* MOVE 7Fpns Tn STATF - T,STATE - 11.
423900*STATE-WRITE SrcTIrN.
04100*MOVE - PEG.
42a300* COMPUTE PEG-rATF-5TORF=REG-DATE-c.TrPF/P
424500*-ATTFmTs.TrTA1 OF FFG - A,
421600* MOVE REG-A To COrTT
- A,
424700* MOVE "PEG ,' Tn C-COUNT - NAmF.
424000* MOVE 999 10 rOut, TY-NuM.
a25000* wRTTr CruNTY - A,
a251r0* MOVE REG-P Tr 0FVNTY-P;WPTTE cnUmTT - P.
425300* POUF REG-H2 Tfl (IUNTy-P21wRITE CrUmTY-P2.
424 5500* MOVE PEG-D r, ATF-sTrRE T AVERAGE-Ark OF P 0 -0 0 c.
112700* mOvE REn - 005 TO CrUNTY-0O5;WPITE COUNTY -0 05.
425900* MOVE PEG-C Tr 0CIPTY-C1WPTTE CnO-Ty - c.
426100* MOVE RFG-C? TO frONTV-C2;WRITE CrUNTY I r2.
42 6300* MOVE REC - D Tr rUOJT-O;WPTTE cnuTy-n.
426500* MOVE PEG-D1 TO irlINTy-D11wPITE COUNTY-l1.
426700* MOVE REG-E Tr frVNTY-E;WPTTE Col , TY-F,
A26900* MOVE PEG-E1 TO rrUNTY-E11wRITE criNTy.ri.
2Wat "Ola 5i1=[71 TB crMT;',7.MwWW4g7F6b.
427500*
427700*
427900*
h2p1no*
42p300*
11 285n0*
IreP700*
42p9PG*
429100*
MOO:
mOvF
MOVE
MOVE
MOVE
mOVE
MOVE
MOVE
MOVE
REG F
PEG-E1
pEn - G
PEG-G1
REG-G2
PEG-H
PEG-1-41
PEG-I
PEG-Il
Tn
TO
Tn
TU
T0
TO
T0
TO
crutoTY - F;wPTTE CnUk!Ty-F1,
(rHNTy-F1.WPITF C 0 UmTY-F1.
rriNTY-G;wPTTE cnukiTY-(1.
crliNTy-GlswPITE rpoITY - fl.
(EUNTy-G?;wPITE CnUmTY-G2
Cr(mTY-H;WPTTE Cnt , mTY". .
CruNTY - H1;wpITE CnUmTY - Hi.
rrlyTY - I;wPTTE CnUmTY-T,
(FPNTY-TliWPITF Cr, UmTY-T1.
429300*01IMmY-STATE.
429500*CiOsTmG-tip sErmr,
429700*Enj,
429900**rLnSr CPmLIkr,rrk[Tr2,
43(11(1 0* rLnSr DETAILED - ? tSTFP,
430300* rLOSr COONTY. 0 AFTER wiTH InCK.
430400* rLoSr RESTART-FTIF.
430500* STnP PUN.
REPORT GENERATOR
REPORT GENERATOR
The report generator program produces outputs in a list format cross-
referencing various data elements for certain constraints. For example,
the user may want to know the number of patients in the Medicaid program
for various states and compare it to the number in the total family planning
program. Here the constraint is determined by the need to know how many
patient during a set period were in the Medicaid program. Thus for each
state two rows can be generated as illustrated below.
Ala. Fla. Ga. Ky. Miss. N.C. S.C. Tenn.
Medicaid
Non-Medicaid
Two approaches can be used in employing the report generator.
1. General Report Generator. This allows the creation of cross-
reference tables of data elements as specified by the user. Caution must
be exercised here, for as the user is given total freedom he may generate
multitudes of reports before deciding the one he really wants, hence con-
suming a great deal of computing time and paper.
2. Package Report Generator. This produces a set of pre-determined
reports. These reports are determined to be the most frequently needed and
useful ones. In addition, options can be incorporated which enable the
user to expand the number of reports or call on other packages for different
sets of reports.
Presented on the next pages are detailed flowcharts and code for a
report generator simulator as described above, and these are followed by
some sample dummy report specifications that show the kind of data presenta-
tions a user might want to summon for his information.
DETAILED FLOWCHARTS OF REPORT GENERATOR SIMULATOR
SET UP ALL DIVISIONS
[
SELECT REPORT MASTER
ASSIGN TO TAPE
SELECT COUNTY MASTER
ASSIGN TO TAPE
( FILE SECTION )
(REPORT-MASTER
( SET UP ALL HEADINGS )
( COUNTY-MASTER)
SET UP ALL RECORDS
CONTAINING DATA
ELEMENTS
A
Identical to
C but with
different key
words
YES
C
WORKING STORAGE )
DEFINE ALL VARIABLES 7
AND SYMBOLS
( PROCEDURE DIVISION )
OPEN REPORT MASTER
FILL
( LEARN REPORT )
REQUEST REPORT NO.
H
YES
NO IS
TERMINATION
REQUESTED
WRITE PATIENT TOTAL
AS HEADING
WRITE NUMBER OF VISIT AS
THE KEY DATA IN CROSS-
REFERENCING
WRITE ALL OTHER KEY DATA
ELEMENTS SUCH AS MALES,
BLACK, WHITE, ETC.
WRITE THEIR VALUES FROM
TALLY PROGRAM
( RETURN. )
R-1,r-1
R-2,C-2
R-3,cw3
R0.4,C 4
R 5,r.5
Rw6,C'6
RwRpci.
.0,C10
1.,C11
R12, C12
PATIENT PROrILE DATA
CLINIC DATA
PATIENT pEAcON FOR VISIT
PATIENT PPErtNANCy HISTORY
PATIENT coNTRACERTIvE HISTORY
SERVICES REriro-D
CONTpACEPTIvE PERSCPTREO BY CLImIC
PATIENT REFEEPED ELSEWHERE
PATIENT HANMLEQINC; STAFF
REF- FERAL SOuRCE DATA
NExT APPOINTMENT DATA
DROP PUT nATA
FTIE: REPORT/ HEW moN 6/28/76 09:3
THERE ARE TWOLEVELS OF AcCREGATTON THAT WILL BE AVALIBLE ON THE
REPORTS PRMOUCFD BY THr Rrr. Ail_ CLASS ', Pt, pRpnpTS WILL CONTAIN
DATA ON THE REC,IONAL AND STATE LEvFL . ALL. CLASS "C" REPORTS WILL
RCONTAO IN DATA Om THEE o COUNTY LEVEL, EACH REPrRT I WILL GI LVE AN ACTAuA
TOTT
L COUNT
F SmF ITEdm pEpT FTGS LISD TN HE TOTAS CO, PE
CTUALLY ApAGESWO FRNTAGF
TE
uF THE OCUAPNcE IN
L
RESPET
TO THF ToTAL
M
NuMBE
vE
R nF pATIENT
pBRE
S,C
cE
LINICS,ETr. THER
C
E APE 12 DIFFERENT
REPORTS AVAILABLE ON EACH LEVEL, THFy ARE AS
HERE
REPORT ITEM LISTED
.
COS REPORTS SHOULD PROOrF AN . ExcEL'ENT TnOL Fop EvALUATIoN
1[P4S F AE;PUALTJEN oVEUHPFRITPU TOT, RWrINi2E" R " kNo CONTAIN IMPORTANT TNFrPMATTON Fn OVERALL 1' IS NOT PEcOmENDFD HD0FvFp THAT ALLR CLASS RC SYSTEM REPOR EvALuATIOTS, F P0, R ALI
:OUNTIFS BE PRODUCED Om EAcH RuN AS IN THIc WOULD PRODUCE
O
OVER .000 REPORTS (EACH DISPLAYING S COUNTIES) AND THE nATN
:Roy SUCH vouLn BE QUESTICIAAALF IN COST ni COMPUTER T/mE.THE
xctRTToN TO THIS wOULO PF HHEN A COMPLETE IN.-DEPTH EVALUATION )F FAcH atINTy ON ALL LEvFLs nESTRinA ETTFp Wty TO UTTLIzr
TTU 'HE pEpopi cApABILTTEs OF THE I R DN WOOE
.
D RE
p To REWST INFOPMAm
IN SPECIFIC COUNTIES AND Ur SELECTED AREAS F OR THE PURPOSES OF ',VAL.
IATIPN,
* * * * *
LEASE NOTE THAT THE REpOETS ENCLOSED ARF cAMPLES ONLY? THUS
4A, NUMERIC FIELDS ARE FILIFD WITH 7FROS,
rTIFA scRIPE/ wEw Sflr0 6/27/7 10:0
10n*$tIsT
200*I 0 FNITFICATTP0 0TvIST0N.
100*ppnnpAm-TP. krAL TF F0110ATT0k1 AO vELFAPF YASTFR CnNTRTL
h00** PPrr-Jtm Pp- Gin' TV pAln p0nrFSSING NFTWnPK. 500*AI.J1401. 0ANTI- f QtY CPTPk_R.

600*DoSTVLATT3!'./. RTcl...4 CnMPLITFr rFwIrP--nA Ik'sir nE TFCHNnLrGY.
700*DATr-YPTTTEN. Ji![-OrfFMFIF0 1075.
POO*DATv-rOloPTIPP.
000*ErVTR'? NOFNT PTvIST0N.,
innO*C(INF- TrUPATW Sr(TTCIN
1100*SnOPCF-Cnv0uTrp. =--55;0 .
1200*OPJFCT-00HplITFp. r-5500.
1300*PoP1IT-nUTpuT eFcTirm.
In00*FTLD-^nNTROL.

1500* SpLr0T 0F_PnpT-TPSTF0 AScTGN Tn pArvUp TtPF.
16n0* SFIrrT courvie-r(ksTip AsSTnN 70 TAPE.
1700*I-0-nINTppL.
ipnO*DATA nIvIsint''.
1pno*FTLp sECTTO ,Jf 2000*F n pEPORT-mAsT[p
2100* pF-OPo 0nkrATs 11', CHARACTERS,
22n0*U1 1+ F A
2300* n2 VILLEP, rIr Y( 4 5).
21100* 02 ITTIE-1 DP' Y(21 ) .
P500* 02 FILIER rir Y( 116 1 ,
2600*01 HF^011-0-P
2700* 02 PFPTIPT -10 01 rIr Y(7).
?ROO* 02 p - r,Tr
2p00* 02 FTLIEP
rIr Y(1).
r' 1000* 02 PATF-0E-PFFCPT ir V( 141,
rIr X(P), 3100* n2 P-P-R
32n0* 02 ETIIER plc Yclul.
3 0 0* 02 TTpF-SPfN pp', Y(72),
:4000* 02 T-S-1 rjr Y(R).
3500* n2 TrT rjr x(4).
6(1 0* r2 T-s,*2 1700*01 HI-A0IrC. DTr Y(P)

1p00* 02 PFP0PT'td1WF
3900* 02 FILIFR PTr =:
11000*01 prApir-n.
hloo* o2 VILLFP
r
"200* 02 TTF!"-H
n:F FC ro .nn* 0,2 F IIEP A4no* ne s rTI0N-HrrrTNG nrcups TTuFc,
/ 1 500* 03 riLL 0 P Pit"! Y(2).
4600* 03 I OCAI - A rIr Y(15 1 .
/1700*0 1 HEATITt,, r-F.
nir Y(27). /1p00* o2 FILIEP bp00 * ne 0POIT-HrA0T ,'r OrrURS 5 TImFc.
5000* n3 rit(rk rir Y(7).
5100* 03 TTFr'..S nTr. Y(5).
5200* 03 FILLFP Dic Y(1).
530o* 03 pEp - e nTr Y(3).
.i100* 03 VTLLFP RTC MI).
550O*01 NFATIN0-F.
5600* 02 JTE pir y(77).
57 0 0* 02 GRM1D-PTSptAY nrCURS 5 TImEs.
sp00* 03 sTAP-1 pIr y(2).
5000* 03 ToTA1-A PT0 Y( 1 0).
Arno* 03 STAR-2 PI r. Y(1). n0., n3 rEPCr

(1
k,T-P
(1). 41;: 0* 03 PFP-HAFk pTf
00*F0 rMINTy-mASTFR
Auno* pnck crINTATrs 20 PuopoS
(.5fI n* P0nPpI N0 wirr TS STANpARo
(4n0.. prr0pp CrmTAINS An rHApACTEPS
6700* VALUE OF TD Tc ,, CASTPp? ( 400*. svE-r- firTnp is 300. 00*(J1 ruAkiv.A.
7000* 01 r ...sTATr*moart- r,Tr. 099,PTC x(3) JUST RTG4T,
7100* 03 COU o TY-tom
7200* 03 rLIN:Tr - Tnit1 pie Q(A) JUST nIGHT,
7100* n3 PATTE',JT-Tnii?i PIr 9(12) JUST RTGwT.
7/!o0* n3 mrPTcAT0 - TrTpi Pic 0(12) JUST RTW-IT,
75r0* n3 FFmtitF-TOTti Plr 9(12) JUST kTGHT.
7o;00* n3 rALF-TrTAt pir 0(12) JUST kTGHT,
7700* 03 CA - DUr PTC y(2P) J1 , ST RIGHT.
7P004, 01 00JhiTy..B.
7900* 03 PACE.
14 wwITE
4 plA014
F1000* plc 0(10) JUST RTGwT.
6100* pIe 0(10) JUST fTGNT.
0 8 ,:01 rO1PCP(5? PTC )((!1 0) JUST RIGHT.

0700* 03 417F inTAlc. *
9PPP* 0' A17-11"r FR PIr 9(7). *
9900* 0 4 A17-25 Plc q(7). *
lnnnn* Oh A2c-3.5
1 0 100* Oh A34-nVrp PIC 0 ( 7 )*
1 0 300* 0 4 A(;E-DUN" Plc Y(u), *
P T C 9 ( 7 ) JUST RIGHT, PTC 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT,
PTC 9(7) :JUST RIGHT.
PTC 9(7) JUST RIGHT.
PTO 9(7) JUST RTGwT.
PTC 9(7) JUST RIGHT.
PTC 9(7) JUST RTGHT,
plc 9(7) JUST RIGHT,
PTO 9(7) JUST RIGHT.
MUT:
rIc 0 (7) JUST PjCpT,
PTC 9(7) JUST kTGwT.
FTC 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT.
21200*
21300*G ,
21A00*
21 7 0 0*
M;B:
22nno*
2210p*
27700*
22300*01
22f, 00*
22700*
22p00*
27900*
23000*
231 00*
21200*
23300*
23400*
23500*01
21(, 00*
23700*
21poO*
29n0*
2hprn*
2 4 100*
2h2P0*
241c0.
24400*
24c00*0
2/1(-,PC,.
2u7^0*
14500*
16pc,,
16700*
16po0*01
01! BICrT-prFssliRp.
04 v7) - ptnrr-TEsT
O h CrwOlik PI ( Y(2 11 )
(-0NTy.E1.
JUST rI(IHT.
16900* 04 HCI-PGV-TEST
17000* OA HLrr[imirCT
17100* On VoPI-TLcT,
17200* 05 VoPL 7 0TAi
173 0 0* 05 VnRi_*ros
17hpo* 05 o'PL-FG
1 7500* Oh PAP-Smilka.
17600* n5 PAP - TPTAI
17700* 05 PAP-Frc
17$100* 05 PAP-Frc
17900* 0 4 cr1-r)04 Plc Y(2 4 ) JUST PIr;HT.
19000*01 rfl'ImTY - [..2.
1P100* Oa GC - PULTJ'PF.
1P200* 05 Or-TITAL
'Plop* r5 Gr Prc
laupp* p5 Gr-mrc
Ou oPF- psT - TpTAI 1,150
B
0*
Ph Y, W;TWYnT
1PsnO* Oh STCvLF-CELL-TEST.
18900* 05 SICKtr-TPTAL
19n0o* n5 STcy[r-Pfic _
1pino*
"
Cp2 - 01p PT( X(2 11 ) JUST RI0HT.
Plc 9(7) JUST RIGHT.
PTC 9(7) JUST RTGHT.
19200*01 on'INTY-E3.
19300* o4 ST01,6F-NEr; PIC 9(7) JUST HIGHT. 19/100* 04 STEPILT7PTInN TnT PTc 9(7) JUST RTGPT.
10500* 04 INFEPTTI TTY-TOTAL PIC 9(7) JUST RIGHT,
lew0* oh p9ForvAtcY-TrST.
19700* 05 pouc,.TrsT - TpTal PIC 9(7) JUST RIGHT.
1900* n5 P^Er;-rrS PTC 9(71 JUST RIGHT.
19000* 05 P 0 EG - NF, PTC 9(7) JUST RIGHT.
20000* Oh 0 -n-irp-TrcT _ PTC 9(7) JUST RIGHT.
20100* 04 Cr -11J PIC y(3i) JUST PicHT.
20700*C1 rruNTY - F.
203 0 0* 01 CrNIPA-roFp-rn..AFTER.VISTT.
20400* 04 NO:k4FTtr0
20500* n4 n0g1 - TrTAL
20P0* Cu 111 0 -Plitt
20700* 04 DIA.-TOTIH
20500* Oa Tpt
20000* 04 PYTwm-TriAL
21000* 04 cnNnpH.TpTAi
21100* 04 IJr0TIOv-TnTAL
0 4 CF-D)Im PIC Y(24) JUST FIGHT,
r(1Iy-Fl.
4 STEPILI7A-T0TAL PTC 9(7) JUST frIC 4 T flTHi7 F.0 (10TRA ,..TOTAL P TC 9(7) JUST RIGHT.
Oh PFASnN-ST(c.-METH0D.
05 F9Fr-PIPNI I TOTAL PTC 9(7) JUST RIGHT.
05 PPrCi-lN'PLAN"'TOT PIP 9(.7) JU57 RIGHT. 05 srf. le-pFrr..;TpIAL PTc 9(71 JUST RIGHT.
09 prOrcat-PEAcOM-TnT plc 9(7) JUST RIGHT,
05 oTprp..(rtsoKI-TOTAl PTc, 9(7) JUST RIGHT.
05 Cr-ntP PIC y(31) JuST 9jC,HT,
0, REF- FOPPp-FisflopFPF.
04 TnTAL-rFrEPpF0
04 SOC-SFF-TOT.6l
04 mEN.SEr*ToT6L
04 STFPILI7ATION - REF
Oh AHOPTIC"-TOTAL.
On POrPTI1-.TRFAT-T0T
04 nTkirp.r-rvEPPin.TnTAt
0 , PATIFT-SFr)'..pv.
Oh pOcIC?N-TnTAL
04 CC-Puk . FTC V(24) ,JUST RIGHT,
rrITYTY-G 1
p-H.N;-11TAL
Oh F-P-H-r?TrITAL
Ou NuPcF-kInt ,IFE-TrIT
l-r- - TrTAt.
Oh soCTAL?rP-TOTAL
Oh AInr-TrTAL
Oh ciF0K-ToTAL
Oh NuTpITI( 10 IST-T9T
rh pir Y(^4).
r0UNTY-62.
04 0THr- P-1-PLFD-TnT FTC 9(7) JUST RIGHT,
Oh Cry'rq0.1 FTC X(71) JUST PT(INT,
PTC 9(7) JUST RIGHT. PTC 9(7) JUST RIGHT,
PTC 9(7) JUST RIGHT.
PIC 9(7) JUST RIGHT,
PTC 9(7) JUST RIGHT.
PTO 9(7) JUST RIGHT. PTC 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT.
PIC 9(7) JUST RIGHT.
plc 9(7) JUST RIGHT.
PTc 9(7) JUST RIGHT.
PIC 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT.
PTe 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT,
Plc 9(7) JUST RIGHT.
PTC 9(7) JUST RIGHT.
plc 9(7) JUST RIGHT,
PTC 9(7) JUsT RIGHT.
P T O 9( 7 ) JUST PTC 9(7) JUST RIGHT.
plc 9(7) JUST RIGHT.
FTC 9(7) JUST RIGHT,
PIC 9(7) JUST RIGHT.
2,19r04.01 rPMTY-H.
24900*
srn.0*
sinn . . ,c*
2;200*
2S3n0*
2L;4no*
2Ss00*
2s6n0*
25700*
25p.n0*
25900*0 1
2 .n00* 6100*
2A2 0 0*
26300*
26400*01
2A50o*
26600*
26700*
2f, x100*
26900*
27000*
27100*
27200*
271 0 0*
27400*
27S00* Oh CT,-nOw PTc. y(24) JUST RTCluT.
27600*01 COANTY-I1.
?UP: PP rATT[N4:r8W2 NY4ksT-tr, T OF W3 :10T ORt1T:
27900* 04 pr/F1-,- nFTpFn - TOTAI PTC 9(7) JUST KTGwT.
2P000* ob n9F- n-tirLAN.TnTAt
2pir0* 04 [0,1Kmplo-nTScHAR-prAc-TDT
PIC 0 (7) JUST PT(.+T. PTC 9(7) JUST kTGI4T.
V-P(1?* 06 ci-num y(A5) JUT PTnwT. ,000J1RKTm0-ST09 4 nE cf rTT
2p4nO*01 R-wnLD rTr y),y.
20500*01 PPrAt<0


20600* n2 P-1 PTC cc'.
2P7n0* 07 p-2 PTC Cr;.
2PPPO* 02 R-3 FTC Cc.
2P0n0*01 PPrAK-uP.
20n00* 02 P-1. PIC cc,
20100* n2 S - 1 PTC y VALHI(' "/".
2 9 200* n2 R-2 pr c cc
' 2t73()n* 0? 5.2 PT( y /ALIIF: "/".
20100* 02 p-3 Plc QC.
29500*pPOcFoOPE DTvTSTIN.
29600*DPEm-An srcTTON,
29700*RFAnY-FIOES.

29800* nPFN nUTPUT PFPIrT-HASTFP.
29900*LFARNI-REPnRT.
30000* nTSE".AY t?pFPnpT.KUHRFR?".
3010o* milvt SPArES TO i-VAPTmG-A.
30200* ACrEDT P-Hntn.
3 0 100* CM Tn cHFcK-n-tr.
30600*Srl-ur),
3 0 500* mOwE SPACES Tn f-FADTKIG.A,
306 0 0* RTTr HEADT!k , n-A frTFp ADVANTING r'HANNFL 1 .
3 0 7 0 0* mOvF ?REnTrINAL FATA NIFTWnpv" To TITLF-1. jOpPO * w1:07.7 HFADTkr..-ApnvF_SpArrs in w- AnTNG-ApHFAnimG-E3.
iiPRP: 0806 WPOT; ('''N'Prnripi-Num;mnyr ?nATF PRnDuCEDT,
31100*In nATE-OF-REnryT;mnvF Tn0Ays-0011! Tn PPE- AO- 9;
31200* mnvr crpR HnEorp Tn FIRFAK - UP.
V3 0 0* mOvF ('RE AK-l)^ Ti 0-0-R;m0vF "DnIft enVFPS TTMF FRP ,'1 "
31400* Tn TINIF-sPANI;mr\T "n0/00/00? TO T-S-1.
31s00* MOVE n Tn " TO TP, T;HOVF "90/09/90? Tn T-s-2.
316C0* H007 P-PnL0 TO F' -NUM
31700* WRTTr HFADTP''n-P,
31an04, ? nvF SPACES Tn 1, rhioNG - C.
31000* TV P-HOLD EPIIALS "R-T" mnVP ?pAT;j- kIT PPOrILE DATA"
32000* Tn DEprpi - AmF. .
37100* TF P - Antn ro;iW hp-," Mnvr ?CLIkiTn DATA" Tn
327 0 0* RFPIRT - PANE. _ 373)04 IF P - HOLO F041.c nR-1" movr u0STT DATA" Tn
32400* REPrIRT-AllFr .
32sn0* IF p - HnLrI FPIIALS ? P /A .. mn v F ?p9EnNANry DATA"
32600* Tn DEPOPT-NAkF. 32700* IF R-1-10[n rOlIAL r "p-c" MrIvF ncnNTRACrPTIvF DATA (B.V.)"
3?nD* Tn F"PrIpl-f'-F.
3',0 1 0* TF R-HOLn FOuALF "R-6" mrk/F "SFRvIrFS REcTrVFD DATA"
31nnn* Tn PFn2PT-Nro,,F.
01 RPrERPAi-cruprc,
04 S F! r- Tr T Al
04 (IJTFAr.00r2KFP. TnT
PTC
PTC
06 nTwr- P-rP-crTTC-TnT PTC () HnSr-NFrtTH-A0Fmcy-T0T PTC,
0'. ppl"..n{r.onSF-TriTA! PTC
OP yJ- LFARI-AGENICY-TOT PTC
Or) AmrITHFF-CrimIC-PAT-TnT pTc
O'. EAY-FPIENT - TOT P T C
06 CH-UUm rIC y(24) JUST kTGHT.

("MINTY-HT. PTC Op Tv-0ADIc-NiviSPAPFR-T0T
04 RE- ErR9Fr-py*OTHFD-TnTAL PTC
06 prrrRnvr-R ,f- -uNKmrwN*TnT PTC
06 ci-4 1- r U PT(' m(59) JUcT PTraHT.
cr)INTY-I
0 1 NFmT:APPnTNTHEAIT-Rup.
04 SUPPLY-F.TRT ,0G-CHIC-TIT PTC
04 AkINIIAL-FYAH-TnTAI PTC
pry 64F0TCAl-PPOR-TOTAL PTC
06 pTPrp-pnrnIKA-TOTAL PTC
04 Nn-mEyT-APPnTN-TnT PTC
n1 prAsnN-17 0E-nISrHAR0F.

04 STL 0 IL-APPO1N-ToTAL
OP mEknPAIFF-TnTAL
PTC
-,cA[-9FAc-TpTi?l
PTC
04 011
-
PTC
9(7) 9r7)
9(7) 9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7)
9(7) 9(7)
JUST
JucT
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
JUST
hTGHT,
kT6uT,
kTGLIT,
kTGHT,
ET0wT,
kT(.;WT.
kTGHT,
kTGHT.
kTGHT.
kTGHT.
kTGHT,
kTGwT,
kIGHT.
kTGwT,
E(TGwT,
IITGHT.
hTGw1".
kTGHT?
FITGWT.

31100* TF P - HOLn rPtIALF
31p00* Tn PFPrPT-"-HmF.
31300, TF psHrtp
334nn* Tn PrROPT"mAmF.
3 1 500* IF P.HOLP FPIIALF
T"Wr7T-"'r T.:* )'n FoHAL.
330.* In DF- prpi - !, 'AmF.
31000* YE P-HELP FOltAL
31,000* In IEPPPT-NAt,T.
3',100* Tv P-HOL0 FC.1/AIS
3 4 200* pFPIRT-AmE..
34300* wPTT HEADTN'T-C.
3/14(, 0 * konvE SPATES TO FADTKIG-n.
3411 0*VIPT-STATES.
"AnvF
vnvr
"P-o" MOvF
"Pln" pnvF
"P' T" MovF
"pl," mnvF"
?CnNTRACEpTivE DATA (A,v:)"
"HPFTP9Fn FLE7wHERF nATA-
"PATTEmT HANoLFP PY"
,, REFrRAL CMIRCF. DATA"
?Nryr ApP0TNTMENT nATA"
SLIT DATA" TO
3 6 600* mOvF "1TFht." TC ITrm-P. h70n* milvP " RFT:TM" Tr incAl - A(1).,
34prO* mOvF " ALA,PAA" In LOCAL-A(2).
3hQ0C, * mrvE " rinpTrA" Tn LOCAL-A(1).
35000* MOVE " GFTTGTA" Tn (OrAL - A( 4 ).
3510D* mOvi " K ?oTurkY" in LOCAL - A( , .
352C0* "PTT , HVADTNr!.n.
39.3c0*Gn...PACK.
300* TO Tn DATA-FTEF-.
3500*SFC-SIATFs.
35600* mOvE "TIFN1" TM TTF - V - P.
3700* 10 110- " mISSIss1FPT" T0 inrAt - A(1).
35p00* mOvE " knpTP cAFT1 TA" Tn LOCAL-^(2).
35000* mOvF SOUTH cApriT^AATM TO [OrAlwwA).
36000* mOvE " TFN'HESvr" TO LOCAL-A61., ,
36100* mn07 SPATES TO iTCA,,-A(5).
300* wPTT7 HFAOTr!..n
36300*OATA I F TFP SEtsTT".
3 4nO*CMECk-PFPnkT. 5.00* mOvr SpArE S TO i.rAnTmG-E.
36600* mnvF "TOTAL" Tn TTFmrS(1),TTFm ,.Sr2),TTFM"S( 3 ),
3r,, TnO* TrEu - s(h)FITF- 00 - F(5).
3tgn2* mplIF "PFP" Tn pFr-S(1),PFP-.S(2).E , FP-S(1) , PFR-S(4) , ?00* FP - S(5).
37000* wRIT7 HFAUTNn-r.
V 1()0 * MOVE ALL m*" TO -linTNG-6 : wpTTF wEAnING-A. 379n0* mnvE spArf_s TrFAnINIG-F
373 0 0* mnvi ALL"*" in ,TAP - 1.(i ),STAR - 1
37400* ,STAR-1(4),cTA-1(5),STAp-2(1),cTAP-2(2),
375n0* STA B -2(1),STAP-7(h) STAP-2(c).
37600* mnwF 00000r ? TO InTAI.Arl
3 7700* InTAI ,, A(3).TOTtl-ACA),TOTAL-Af 5 ). 4700* mOvF " nO" Tn DFFrENT-A(1),PrprFK.T.A(2),PFp
3 7pnO1*-rlyT-(3),F, FpcFrT-A(10,pEprEyT-tr5). pnno* MOVE "I" 1n PER-ApK(1),PFp- ,AApk(2),DFp-mApK(3) ,
3P1n0* PFP-mapv(4) , prr - vApK(5). 3A?n0*CwErk-p-Ilm,
38300* IF R-HOLD Fc.)1 , AL "P - 1" Gn TO p-i'
iption* TF p..Hetn FOHALF Gn TO P-2:
3PC00* TF P-HOIn Frilw, "P-1" Gn TO P*.3,
3pf,n0* IF p
- HnLn "p - n" Gn TO P^A.
31a7n0* IF F7-HOLD F(ZIIALF "P-c" Gn TO R-5,
3npn0* TF P-HOGn FPIIA[F "p-A" Gn TO R"F, ,
3PPo5* IF P-HOIn F(-)11A1 c "P - 7" Gn TO R"7. 3pp10* IF P-Hn[r "P"P" Gn TO P"F.
p V p15* T P-HilLn FolIALc ftfq..0t, MI TO P"'9.
3P 20* TF P
- HOLo rOl!AL. "p10" GP TO p10.
3Qp75* IF 8 - Hnin FolIALF- "P11" Gn TO P11.
3RA10* IF P-HnLn Fr lq?L "P12" GP TO P12.
30600* IF P-HOL0 FOALS ENo" Go TO Fn.!.
3W, n0*F?"1'.
39100* PE6F 1 Pm SEC - PALF-p-1.
3Q200*H-1 A.
397A00* MOVF SPATES Tn ITFm,
iR4R81 Vi:MrIFI.471TAL" In iTrM:
39..00* mOvF SPACES TO 7 7 F m.
397n2* mOvF ,MYCMBFP CF ?cISTTSH In ITEM.
30AnO* loPTTr HFAnThrl-F.
39Q00* fiAnvE SPATES TO IlFm;mOvE ftmEOTrAID PATTEmTS" 4(7nnn* Tn TTFy;wpTir pFroTN(1
- F.
Anlno* 0 4 110- SPATES TO TTFm;HOVE ?mAtFS" To ITFM.
4 0 200* wPTT 7 HFADTNT-F.
40300* k"OvE SPATFs Tr ITEMP0OvE ?F- Fma[fc? Tn ITEM.
/Incino* wpTTr
A0500* mOVF SPACES TO TIrm;mnvF 9 , PILncK" TO ITEM.
/.106n0* toPTT7 HEACTMr!-F.
lin7no * tJnvE SPATES TO ITFM;mOVE "WRITF" To TTFM.
copno* wPTTr HFADTc-F.
Acorn* m01/E SPACES TO TTFm;mnVE 9, AmrRICAr, T^InTA"'? Tn
41 n00* wPTTE- HEAnIt'c-. Alinn* mOvF spprEs T O
E
7 7 rtOVE ?mEvICAm AmFpICAN ,' Tr ITEM.
412nn* WPTTF HEWNr
T
r.
41100 * PEW SPAcES O ITrm;m0VE ?IRIENTAL? To ITFm.
414c0* w0Tr HFAnTr'n-r.
4 15n0.. 0,4 0vF SPACES Tr ITrm;mnVF IIPTHFP f7AcFS? Tn TTrm.
41f!00* wpTT 7 HFADTNr-F.
1117004, mOvl SPArFS Tp iipm:wArivF ?FTHNTC? TO TTE" , .
41Pnn* loPiTr HEADIN:r-F
41Qnb* mOvF SPACES TO TTFm.:mOvE ,, ARPTP1,,, in TTFM,
ionnO* WPTTr HFA)TMr-F.
4!21 (1 0. P E kTvL SLqs n T TTFM;forVE ?NEvER.. ?0APPTED" Tn TTFM. 7:iu* HA,T^'re'F.
42300* P4 OvF SPACES TP TTP- m;k4n0" usEnARATEn" Tn ITEM.
4240o* wpTir HFADT\rw'F.
425C, 0* MOvE SPACES TO iir;m0VE ?nTv0PCrot , in ITEM.
420* tdP/Tr MFADT") r-F.
07r"0* MOvE SPACES T n iirtA;FlOvE "cPnusE nFrEAsED? Tn TTFM.
47RnO* WRITE HFADT'r.-F.
420n0 * mnvF SPACES rn TTrlo;OvE ,, AVFpAr A(?7? Tr TTrM.
43nnO* HPITr PEAnTc-r.
4'4100* mnvF SPACES Te TTrm;m0vE ?11NrEP /7? TO ITEM.
412r0* wpiTr HEApIc-F.
4 33P0* mnVE SPACES TC TTEm;mCPJF ?17.2" 'Ni TTFM.
41An0* wPTT
105c, 0* mOvF SPACES TI ITIM.;m0VE ?95.35" Tn ITEM.
416ro* wprIr HFADTkn.r.
1-1 17n0* MOVE sPAcEs 'Ti TTrm;rvE ?nurp 3r? To ITEM, A3pn0 * wpTTr . HFADTN(!-r.
439ro*R-1P.
411n00* PFPEoPto
4/1100* PFpFoR SEC - sTATEs.
44 2r0* PFPFIPm cHFCv-prcnpT.
4 43r0* PEPFnPM
444re* LEARN - PE:Pt- FT.
41150O*SFC.HALF ,-P-1.
4/1600* PEPI 1 PM SET - PP.
4A7n0* PEREnRm FlqS.T-STATES,
4Apnc+* PERFnpM CHFCV-RFFnRT.
Abono*R-2.
Ecnn,n* PEF 1 Rm 5Er - PALF - P -1 .
45104*P 2A.
452n0* MOvE SPACES TO ITEM.
hURPI nyYr"H Aj vm3q, r oF cliNTcsft in TTF.
695n04 mOvE SPACES TO TTFM . m0VE ', NUmBER nr wnPKIRs?
45600* in YTEm:ioRTTF FriO)ING-F.
45700? mOvF SPACES Tp Tirm:mOvF l ? ADmTmSTRATAinR/DTPFcTOpH
4FIF)04, Tn ITFm,
10 6 00* WRTT HFADINrE 0,,r00* mrvF SPACES Tfl TTEVimnVE ?pHysTcTAm? Tn ITEM.
4(4.in0* WRTTr HEADTkr-r.
42r0* MOvE SPACES Tr! TTEr,, v4ovE ?pHysTCTAm S ASSTTAyTt
46100* Tn ITEM.
AAAnc,,i WRTTr HFADIkc-E
465n0* mnvE SPACES Tn ITFM;mnVE ', PEC,IsTrPFn NURSE" TO ITEM.
h66no* wPiTr kFADTN.
4A7o04, MOVE SPACER T (i 7/TM;MnVE "N!UPSF pinwiFFP'UPSE PRACTITLIN.Fp?
itospn0* Tn ITEM:KPITE FGAnImGmF.
46pnO* MOvE SPACES TO TIFM;mnvE ?[TcFmSrO PPACTTc.AL NURSE"
470^D* Tn TTENAwgITE rArTNIG-F.
A71n04 MOvE SPACES Tr, TTrm;mnvE "CLINIC ATnF? 1I1 TTFM.
47200* WRITI PFADTr
- r.
b71n0* MOVE SPACES TP TTrMiMnVE ?NuTRTTriNTsT? TO ITEM.
47/100* WPTTE- HEAnTrvr!-F.
475nn* MnvF SPACES Tr TTFM;mnvF ', HEALTH FnOCATOP? Tn TTFM.
67670* WpTTr HFAWr-E.
11 770C* MOVE SPACES TT TTrtA;movE ?cOrTAL r4rPKEP" Tr ITEM.
47P,00* wRITr HFITTNr .?7 .
47prl * MOVE SPilrES Tr! TTFH;m01/E ?CLP- PK/cErPFTARY" To TTEM.
AgcnO* WPTTr HEADIkc-F.
4010 * mnVF SPACES TO TTFm;mnvE "OUTREACH WIERKEP? Tn TTFM,
4 P2r0* WPiTr HEADT 1 -r. 4r43r7.0 * MOVE SPACES Tn TTFM; MOVE "OTHER ,* TO TTLv.
Asrino* tkIRTTr HEADTt''r - E.
!#' PR SET - PP.
4P7c, 0* PEpFnPm SEC - rTATrs.
APpnn* PERFnPm rHFCPFFfIRI.
hPQ() C)* PEPF 1 Pm P I 2 11 .
410n0* rn Tl LEARM-PfPrrT.
4o1000.P.-3.
4 0 2c0* PEDF^Rto str-mALF-P-1.
110 10(!*R-3A, 4ni3O0* mOvF SpprEs To iTrr, .
losrn* mOvE "TOTAL viSTTc.? in TTpm;wpTTr HFADTNr?p.
A000* KAnvr. SpAr4c ?sopPO. nmisi (SrHroHLF - n)f,
4,7,700* In TTEm:;,,pITF
44;100* mOvE SPACFs TO TTFm,;m0vE ' , ANNUAL CPECKOP (I.INCCHEnULEn) .,
4Q00,1, Tn ITFm;iqpITE - 1.-rnOTfoG-F.
5 0 0n0* !orIvE spAr;:s Ti? T
(1
Trm;m0VE ftTNTAKE? Tn TIEm.
5c7f`O* wRTTr HFtDIk'n - F.
5n20* mOuF SPnrFS TO TTrm;tArlvE ftAN.,loAt cHFrKOP (scHEnutEn)-
5n1nD* Tn TTEM:wRIT[ F-raOT 0 G-F.
5 PA r'U* mOvF sPArFs Tc ITrm;mENE "REVISIT" Tn TTFM.
5rIcnO* wRITr HFA0Tr*L--
50 .6r0* MOVE SPACES Tr ITP- m;k0VE ftSUPPLv ONILY (UmSCHFOULFOI?
5 0700* Tn TTFMry, PITE t-FArimG-F. nA00* mOvf spArEs '1 ITF ,4;mnvE ?Ninm PpmpLEm (o")srHFouLF),u
:5 ncO0* Tn TTFM:wPTT IrrAnIm(;-F.
51000* mnvF SPArEs Tn TTF10;mr1/E -PPoPLFm (W,ISrHEOUIFT)"
In TTErvi.: pTT F i
C
0 * mD
n
wE T spATTL) FLA TI;mpq i. ?pp0RiF , pEvISIT (um SCHFOHLFO" 1. * i 1 - tm.r R s ITL
51(100*R'"3n.
515n0* PEPFnPro
516n0* PfpFIPM SEC - cTATF c,
51700* PEpF1RM cHFC-PfrrPT.
1 pn0* Pfp;'nPM 0 -1A.
519n0* rn LEAPmnoVPrcr.
52c00*R.4
571 r0* PF.FrIpm sErviALF-p-1.
52200*P..4A,
523r0.0. mOvE. SPACES Tr TTFM;mOvE "TOTAL nPrr,NACIFS PAST"
574C0* Tn TTFM.
525o01, wRTIr HFAOTrc-F 5P6cC* mOvE spArfS TO tTrm;k4rvE "BORN AlIvE-TFRYINATED"
527n0* Tn ?TEM.
52P11 0* wRITr HFAOTNr - F.
52Q('0* mnvE SPACES Tn ITrm;k4ovE ?PORN AlIvF - pPLYATuoFfl
5?000* in TTEm.
531n0* wRTTr HFADTtvr F.
517c0* mOvF SPACES TO 17rMimOVE ?ROPNI CrAlr TO TTFM.
534 0 0* wRTTr HFritOTNc-F.
514C0* MO\/E SPACES Tr TTFM;m0vE "ImISCARDIAC=F-AB7PTInN ,,
515(0 * in TTEm.
T 10e, 0 0* wRTT7 HFAOTIF .. 17rr* mnvF SPACFc Tp TrM;mOVE ?mE %/FR nprrmANIT" TO ITEM,
53pn0* wPTTr HrAUTr-F.
Slq00* MOVE sPArEs Tn iTpm;movE esnTHEP ,, Tn ITEM.
5 110c0* WRITr MFACITNc-E.
5 ,)100* mOvE SPACES Tr ITFM;uOVE ,IUNKOWk , TO TTE".
547n0* wRTTr HEADT...F.
54300* MOVE SPACES TO TTFM;VOVE "FETAL riEATmsTM TO ITEM.
r
Stqff47 F TTF- pd;100VE ?CHTLnRrN ,. Ninw ALIVE" TI) ITEk , ,
51 600** wRiTr HFAOIkr - F. 7r, OP- 4 p.
54F00* PEpFlPm
51J9no* PFREnPm SEC - TATFS. . 50n0* PEpinPM cHFCw.prrnPT.
55i

PFPFnPY p-4A
5271 0* (.1 0 Tn LFARNI-; n EPTrT.
53C0*R ,'5.
55100* PEpilPm SEC-0A1J-P-1.
555nO*F-5A i
5500* mOvE SPACES TO ITENI;MOVE ' , PATIFNTS USEn CONTRA. REFOnO,
557n0* In 'TE".
55P00* wRTTr HEAOTNr
? r.
55400* spArEs To TTE- m;m0vE ftmn porTpon USFD" TO TTEm,
5f, 0n0* WPTT 7 HFAPTP.
5f100* MOVE SPACES TI TTrm;m0VE "nRAL" TO ITEM.
500* wPTTr HFADTP?r-r.
54,100, mn,,E SPACES TO ITEm;m0vE Tn TTFM.
5A1100* wpTT7 1-1FApTfr.
56500.. mOvF SPACES Tr ITFM;m0VE 1, OJAPHPAGm" Tn TTFM.
56.6po* ! , PTT7 HFADTNc-F.
5700* mOvF SPACES Tp TT;movE. "EDAM" TO ITEM.
5 A, qn0* wPTTc' W- AnTNF.
5Ar?Pn* mOvE SPACES To Tirm;m0vE ?PYTHm" Tn ITEM.
57200* WRTTr HEAOTN!"-F.
.571r0* mnwr SPATES TO ITFM;vOvE ?rONnoN. , - TO TTEm.
577c0* wPTTr HEA6Tc-F.
57:;* mrvE sPt?7E -4,, Tr TTrm;v1IVF ?TNJECTiO\I" Tn ITEM.
57b()0* wRiTn PFADT-r.
57500* "nvF SPArFq T TTIM;unVF ?sTrpTLT7ATTnY" Tn 'HEM.
576 0 04, wPITF PFAnT-F.
5770* PTO:. SPArS TTrt, ;vOVE ,InTNFP" In TTFM.
57nr* PTT HFADTkr-r.
579nC* !AnwE sprrEc TO TTrtmnlIF ?METHnO WIT KYOWN" TO ITEM.
5prr0 * !ARTIE PEAUTNn"E 5PinC'4, mOvF SPArS 14-
F .

?n07.TnP p7PscPInEn? Tn TTFm:
5P2r0* PTT7 HFAOTN'r-F.
5FA100* "OvE SPl!rES T,. TTFP;MOVE ?PUr4LIC CL7MIC PFP5r.? TO
5ratin0* TTF".
5P5r0* WRITE HFADT-F.
5R6n0* MOVE SpArLS TTFm;mrVF ?nRilV,TcT PrRrRTprOft TO ITE".
5p700* WPTTr HFADTNr-F.
.5PP(''0* kArvE SPACEs TO TYrN4 ;kAnvE ?nTHER rEPSCPTEirD" TO ITEM.
5R9n0* wPTTe HEAnTNc-F.
50000*R-5P.
.59100* EFPF^Pm SET -11 P. 592r0* PFPF'RM sEr - cTATF.
59300* PE PFnPM cHrCv-PFrppT.
59400* PFPF 0 Phl p-5A.
59500* rn TI LFAPKI-r, r,prvT.
5o6c0*R-6,
597nn* PEnFIPN1 crr-HALF-P-1.
59prc*R-6A
500N)* ""Ov , SPACES TIFV;mOVE "CONTRArEPTTvE rOHNSFLING" IL
6 2nr 0 * 601r0* wRTTr HEADINc - E
602C0* mOvF SPACES Tr TIFmfloOVE ?ST pILTZATTrN COONCELING" TD
t6tIPPir 104f.14EADTn-r.
6000.* mrvE SpArES Tr TTFron,,,OvF ftTNrFRTIATTy r01)NSELTNG- TO
6n?)0,4. ITF.
60700* wPTTF HFADT-F,
60anO* MOvE SPACES TO TTEM;mOVE ft/ABIPTInN cnuYSELTN(1? Tn TTc- .
60 P 00 * wPTTE. HEADTNc-F.
61rnO* M00- SPACES Tr ITErimOVF srqvirE c09tosFLIN)G-
61inn* Tn TTFm.
6120D* 104 TTr HEADTNIrwr.
611^0* mnvr spArEs Tr TTEmjmOvE HnTwER riMNSFLP"G" T(1
IPPTTE HEAnIN'c-F, 61500 * mnvF spArFs Tn 7TrnVE. ?Ri.nOn rPrSSOPE" Tn ITEM.
6 1 6r0* SPATES Tn TTF- 1,1;nvF uvp BLOnr TFST" Tn ITEM.
617n0* WRTT 7 HFAOT" -c .
61FiCC.'* wPTTr HFArTNr.c.
61pn0* vrvE SPACES TO ITFM;PLWVE ?VOPL TrST" Tn !TEN, . 620* wRTTr HEADTNr4-F.
62100 * milvF SPACES Tr TiFk)N4OVE ?POSITIvE VDRL TESTS .' Tn
62700* TTF".
621r0* wPTir HFAOTrr-F
67/1C0* mOuF SPACES Tr TTFm;p4OvE 9, NIEnATIO. vnIRL IFsTS" T
62r,r0+ wPTTE"
67F, n0* WIVE. SPACES Ti TTFM;m0VE ?pAP-SrAp" Tn TTFm,
6770()* '.,PTT:. HFADTt'n-F.
62P00* KArvF SPACES Tr TTFM;m0VE "POSITIvE PAP S 0 EAPS"
62900* Tn TTcv.
630no* IAIRTT7 HEADTr:r.v.
63100* KAnF SPACES Tr TTFm;mOVE PAp S"EARS"
61200* in TTF!v.
61300* wPTir HFADT"E.
634(10* lomiF SPATES TP TTEYfimOVE ur,C CHLTUPF" TO ITEm,
MRP; 0i,TOWCFFTTrm;kinvE ?posTiivr, r,r CU TOPES"
63700* Tp TUN, .
f3'rn* NPTTr HEADTc-E. .
63gnr* mOvF SPACES TTE10 ; ? rIVE HmErlATluE rir CUIToRrS?
6 4nrO* Tn TTFN- .
fqiir0* loRTTr HFADTNn-r.
66 2 0 0* MOVE SPACE; TT TTrm;movE FYAmTNIATTnN ? TO ITE0.
6/13(10* wPTTr HFADTr-F, 66.4(In* MOVE SPACES TO TTFM;W1VE ?PE[VTC VOMIMATIr1W, TO ITE , .
6450n* '"'RITE HFADTIk'n-E
6/160C* mrvE SPATES ITFM;POVE ?ORTNALYSTS" TO ITEM.
6/17n0* wPTTr HEADIrr I F. 6hpc0* mrvF SPATES TTFm;HOVF ftSIrKLF c7LL ANEMIA TEST" in
Gil CC* ITFv.
65c0O* WRITE
- HFADTNn-E. 6L1cC * MOVE SPACES Tr TTEM;mOVE ?POSTIivF STCKLE I J Tr ITLm,
6sprn* WPTIF HFADTc-F,
6S3nr* milvF SPACES Tr TTrp;mnvE ?k1E0ATIvF STCKLF 0FLL" TO ITLkA. 65tico* wpjjn 1-4Fri)Tr, c,"E".
mnvE SPACES Tr ITrm;mnvF ?sT7RILT7ATTrm" Tn TIEN!,
6s4r0* 1 IPTTn HFArirr-r.
6570r* mOvE SPACEc Tr TTrm;m0VE ItTNFFP1TLITY? To ITEM.
6spcn* wPTTE
6(00* milvF SPACES TO TTEM:mOvE "PREGNAr. NY TVsT" TO TTEm.
660('0* wPTTr HEADII\c-F.
661n0* WIVE SPACES Tfl TTrmimOVE "POSIT - TO- PRECAANCY TEST" Tr
Pgi;F: w47P.H6e, , TNr-r
664c0* mrvE SPArE S T.y TTrM;mrvE ftmEr,ATIvE PRFC,NANIcY TEST" In *
6?csco* 11-Ft:I. *
66C0* MOvf srArfs T[ ITVM;MOVE "OTHER ('EST" To ITEM. *
f,67r0+ WRIT:- HEAOTNo-F. *
66FrO*R-6P. *
66400* PE0FnPM SET-PE. *
670 1 0* Ffpvmpm SEC-cTAIrF,. *
671p0* PEppriPM rHECK NrrPl. *
67700* PF0FnPM 0., 6A. *
67300* CO Tn LEAM PEPIcT. *
673 05*R".7 . , * 6731n* PipFlPm SEC - PA1.F-F-1.
67315*R-7A, *
6739o* m007 SPACS TO TTEMimOvE ?NO cnNTpACE0TIvF MFTHOn" Tr *
67375* ITE'A. *
67310* WRITC HEADTN0..E *
67115* mOVF SPACES TO tIrm:mOVE ?nRAt." TO ITEM, *
673A0* wIRTTF HFAOTNr-v. *
67345* mil?iF SPACES TO TTrm;mOvF 'glint, Tn TTFM. *
67350* wPTIE HFADTNowE. *
671c5 * mOvt- SPACES TO TIFm;mnvE ?nIApNRAGm ,, Tn TTFm. *
67360* WRITE HEADTNIC-F, *
67365* mOvE SPACES TO TIFm; AnvE "FOAM" TO ITEY. *
67370* wPTTE MEtC-E. *
67175* OvE. SPACES
OT
TO TTFPimOVE "RYTH"" in TV-M. *
673P0* wRTTE HEAOTC-F. *
6 73P5* mOvE SPACES TO TIrMi"OVE ftrONIOrno In ITH1. 4,
673c)0* WRTTE MFADTYC"E. *
6 7305* ""OVF SP A CLS TO ITEM:MOVE , INJFeT*Okl" Tn ITEM. *
('74?0* wPTTr HEADTkr:*r. _ *
O lt il7: tN,IYFI:rS K;QR:TFM:MOVE "STEPTIT7ATTrM" TO TTFm.
670115* HnvF SPACES Tr TTrm;k4OvE ,.riTHEr? rOYTPACEPTTVF AFTER vISIT" *
67420* In ITEM. *
67425* wPTTE HFADT-F. *
* m 6 7 /110 ilv I E SPACES Tr TFm;m0vE ,, STIPPE.f., -p0FW0 106 T(PEANNE0)"
67415* In TTFY. *
67440* WRITE HEADTNr"E. *
67445* OVE SPACES TO TTEMimOVE "STIpPEn-PREGNAMT(UNPLANNFD?? *
674S0* in urm. *
6 745* wPTTF OFAD 7 -7.
67460* mOVE SPACES Tr, TTEM)q0vE ?STIPPEn-sEEKTNr Ppi- 00AmCy" *
67465* Tn TTEm. *
67470* wRTIE HFADTr-E. *
67475* HOVE SPACES TO TTrm;mOVE, ,. cTnppEn-mEnTr!Al PEAsnIN0 , TO *
674PC* TTF", *
67pP5* wPTTE HEAOTNc-E. *
67400* PO?IF SPACES Tfl TTFm;mOtiF STriPPEc rOmTPAcEPTIvE-(THEr PFASEIN? *
674 0 5* To TIFM. 4,
675no* WPTT! Hriq)TNr-r. *
67505*R-7P. *
67 104, PEpEnPM SET-PP. *
6705* PFploPM SVC-e-TA1ES. *
675p0* oFpFrIpr rHErv-PFrOpT. *
6725* rEpEIPM p-7A. *
67510* rn Tn LEAPM - 0FPrPT, *
67515*P-8. * .
67540* PEPPIPm sEC-PAL -0-1. *
67545*R-PA

67S;* m0VtA. SPACES TO ITEM:MOVE "TOTAL nE7FFPFD" TO ITEM. *
67CC5* WRTTr HEADIrC-C. *
67560* MOVE SPACES TO TTEM;MOVE "PEE. In cnriALsFR." TO TTEE, . *
_ _ EM,mv _. "0 E... 1,,, rOTCAL , RVICFS" Tn P;4q: OW 7S6PTgr r TT nF F SF
67 5 7 5* TTFu, * 67c040* wRTTF HFADTN'n-r. ,*
675R5* mOvE SPArFs Tn ITrm;mnvE "PEE. EnR STFPIII7ATIPN" TO *
675(10.* TTE". *
67s.o5* wPTTc HEADTrC-F

*
..
676("O* mOvE SPATES Tr iTp . m;milvE ?pEE'. FOP ARnPTTnm? TO TTFm.. *
67605* wPTTE HEADTix'c-r. *
67610* MOVE SPACES TO TTEM;mOVE f'RE.F. PIP TkIE - FRT. TPEAT" *
676,15* Tn TTE.P. *
67(70* wPTTr HEp_DT!vce-r. *
67e--.25* MOVE_S PACES Tr ITFm;mOvE ftnTAF 2 PEE." TO TTEm. *
6 7 61r* wPTTr HEAnTkr-r. *
67615*P-8P. *
676en* PFOIPM SET-1+. *
676e5* PEPEnPM sEr-sIATc. *
67P0* PEPFIPM rHFrw-PirrIPT. *
676,P5* PFpFlpr p.RA *
6766.0* ril T n LEAPT-r7,EPir7. .
67665*F-9. *
67670* nIPF- nWo sp7-1-1,1Lr-P-1. *
67675*R-9A *
676p0* !ono sP,Ari.e, Tn TTEM;mnvF "SE P!1! F4m PHTSTCTAN" Tn TIFMr. *
676.P5* IAJPIT7 HFADIrr!-r. ,.
67Ao0* "CIO $PArES TO, ITFm;mnVE ?5F7N Pv p0.1-1.M" Tn ITEM. *
67A-.05* wPTTr HFADTc-r. * mp,R I rRA,wo,n,T. TF;mrIvF "SEWN f.v r*P.1-10-mt+ In TTFM.
67710* mOvF SPArFS IT ITFm;mnVE ?SEFm pv muPsF/vIIIV:TFF" In TIFM. *
67715* wRiTE HFAOTN0-F. _
67720* MnvF SPACES Tn lu L m;m0VF HSErN Pv -P-m" in TTFM. ,
67725* mPITr HEWINc-E *
6 7710* mnvF SPACES TO fTvm;mnvE "SEEN pv cnrTAL sEPvICES" *
67715* Tn TTEm. *
677/1p* wPTTE HEADTmr-F.
67745* mnvF SPACES TP TTEM;m0VE ?SFFN Pv poor ,' ID ITEm, ,.
677c0* wPTTr HEADT..F.
677P5* mOvF SPArFS TP TTFMimnvE "S F ns E , C[Fpil" Tn ITEM. *
677A0* movF spAcfs Tn tTEm;mnv "S FN! Pv m!!TpITTnmIsi? TO ITE,m.
677h5* WRIT ( HEADTNr-F *
67770* mnvF SPACES Tn ITFmimnVE ?SF.F'N Pv nIHFP " TO ITFm. *
67775* IAIPTTL" HFADTN 0 -E.
677P*R - 9P.
677P5* rFpFnpm SET-Iy. *
67790* PFpripm sEc-cTATre., *
677(7, 5* PEPVIPM rHFcw-PFcnpT. *
67knn* PfcEnpM o-4A, *
67fIr* r,oT1 IFtPm-cFPIPT. *
6781 ('*810. *
67P15* PFPFIPM SEC-PALV-P-1. *
67620*R10A *
67p25* mOvE
1
SPACES Tp TiFm;mCvE. "REF'. Pm cE(F" Tn ITEM. *
67E110* WPTTr HEAnINP-E. *
705 * mnvF SPArFS 7n TTFM;',OVE ', REF, pv 10TRFArk wnPlap" *
67P40* Tn 'TEM'. *
67 P 11 * wPTT r HFAOTNr..47.
*
67PP0* HnvE SPACES To ITFm;onvE "PEE. P v IIHFP FP CLIYIC 0 *
67pc,5* Tr TTFM. *
?W: 03 IF W iT r, pAnvE ?PEv. Pv 40Sp/HFAITLI AGrNcv?
6 7 870* Tn ITO. *
67P75* wPTTr HIADTkn-r. *

PPn* Mfl\/F SPACES Tn iTrm;mnvE ? FIEF, kv 'PTV DnC/WIPSE? *
6 75* Tp ITEM. *
67Pc0* wPTIF HFAOTrv0-F. *
6795* mnvE SPACES Tn TTFmimnVE. ?PEE. * WELFARE AGENCY ,'
679(1 0* TTEm.
670n* wPi
Tn
Tr HEADTNr;-F. *
67410 * mrvE SPArFS 71" TTFh4 ;v0VE ' , REF- . Fy AkInTNE.P PATIENT" *
67(715* In TTEm. *
67c)20* WPIT 7 HEI-ADIr..F. k
67425* ^fVF SPACES TO ITFM;kAOVE "PEP'. Pv rAmTLY/FPirND" *
67910* Tn TIF. *
67015* wPTTr HF6DTK'c-F. k
67W* MONiF SPArES TO TIFM;uOvr "PEP'. Hv Tv/pADIn/NrwSPAPER', *
6744.5* In TTFM. *
679;0* WRIT:. FADIN'r-r. *
679P,5* milvE SPACES TO TTF-,4OVE "PEE. Pv 1THFP" In TTFM. *
6 7 960* wPTTF HFAUINc-F. *
6795* mnvF SPACES Tr TIFIAApflOVE upEr. Pv UM KOWN" To ITEM.
67P70* wPTTr HE-ADT-17. *
67(175*P10p, *
67460* PERFIPM FET-WO, *
674PS* nEprlpm SEC-cIATFF,. . *
67900* PFpFnPm rHFcv-PrrnpT. *
67005* PFDFr, pm P11A. *
6Pron* no Tn LEARNP"PProI. *
6PPr5*811, *
6P010* PERrnP SEC - 4ALF - n - I. *
* 615*RITA rt
A0PFq* mYWINArEs Tn TTP- M;m0VE ', SUPPLY viSTT/STRING (NECK"
6Rn10* wPTir HFAOTNc-F. *
6r1015* mn0 SPACES Tn ilrm;mnvE ?ANmuAt FvAmImATTnN? TO ITEk , , *
6pnhn* wPIT 7 kEADTr
- r!
*
6Pne5 P-0 O1IF SPp.r. FS Tn TTFm;mOVE ftmEnTn.A1 PPnBLF" , " Tn ITEM. *
6Pnc0* WPTTr HEft0Tn-r. *
6PCcS* rivE SPACES Tfl TTHA; ,An VE synl0F 0 " TI TIF. *
6 '106 0* WRIT HEAOThc-r * 6n0A5* privr SPACES To TTrP;vrivE ' , Pon NF) . APP(ITNTmFNT" Tn *
* "r70* ITF. 6nC75* WPTTr HFAOrivrmr.
6PcPC*R11p. *
fInc5* P[pFnpm cF-T-HP, *
6FiCo0* PFpFnPV, CLC - csTATc.. . *
6r1,no5* PEpVnPhA CHFCPf-rrO. *
6P1O0* PERFIRY P1111. *
6P1n5* CO Tn LFIIRNI"PFPrrT. *
* 68110*P12.

6 P115* PEprIPM Cf'.r-1.4Al-P-1. *
6g1PO*P12,to *
6P125* t? I)Vt SPACES TO 771m;mOVE ?STrRILT7ATInm" In ITEM. *
6g110* wPITr HEAPTr-F, ... *
6F5* HINE spArc, Tn TIFtvlimnvy ?HENInPAItsr ,, Tn ITEM. *
6R10* PTTr tiEhro.Nr-r, _ *
6,11/15* MOO- SP?'ES TV TTFM;v0vE ?1,4,nICAI PFACnN" Tfl TTENA. it
601 1.0* WPTTr HFITc-F, *
6. m 01 1c5* OvF SPAT S Tr Tirm;mnvF ? !I pATTF , , vnvEn? Tfl TTFM. *
6P1?) * WPTTr HFA Ttc-F. .
6A1A5* MflVF SPACES TI TIF0m L

OVE ?pATTrkT nST I'ITERrST" Tn *
6R170* Trro, *
6P175* wpTTr HFADTr9r.r. -
6P1P0* mOvE srArhs Tr TTrmovE -PRFGmkoocy nrSIPEnn Tn TTFM. *
6n1p$* wPTT 7 HFPOTN,r-r, *
6Plon* mnvi SPACES TO TIFM;mnvE ?PPrGYA!,, Cy UNPLewqFn? Tn IIrl ,,, *
6P1n5* Vprir HEADTc-r. *
bumf'.* mOvF SPACES TO TIPM;m0VE HIINknwN rn iTPA.
6p2n* WPTTr HF/IDTNr-F. *
#121n*R12n, *
6P215* rFprnPm SET-HP. *
f122C* nFo -Ipm sEr-c7ATrc. . *
6(4 225* PERFIPM CHECK-QfFnpT. *
6;12710* PFpFlPm ol7A. *
6P215* nO In irfIRN/FPrPT. *
773Po*Enj SrrTinN. *
772*EP,T.-7 T-411 . *
773n4* rt,nSr RFoopT.mACTFP. *
77186*GnOnPvr. *
773nFi* STnP PO. *
RE 3 04TA4-1
PATIENT . 1,TiEtLE )AtA
1TE4
JATE PJJJCE0
REu114
PER
1-11:.104A ,, DATA NETOJRK
1,?/11//6
A01AAA
1 AL PER
DATA C)VERS TIRE FRUI '70/00/00 TO 89/99/99
:".EOP1IA KENTUCKY
7 0 14 L PF.R TOTAL PER
EL041)A
TOTAL PER
VISIT :AT1 1, 1.1')4A
1[4i. PER
EL:1411A
TOTAL PI 4
?'4 1JCP. ),
MAL 10140 Pt4
,E11.1 -,1 A
P1TTrNr T111,
sJ 4 1 1::: IF 1litT5
ALJI31)
4 .LEs
31.4.7A
. , ITC
44L I :Y.; 1'JF41
,ftxTCAA 1LiTCAy
074;1 ,i4:ES
4A4411
NEvE.A-1:,H1E1
S1d31?f..',
01.11 ,1,7A1
s".;J?
AVL;A:,E
ON
25-ID
OVER 13
.
a
4 4
kee
A



A



I*
* *
A



4 ,


00g.
03g
;Jog .
JO),"
' 3:t**
OA**
j O,L 6 *
J.iAaa
101 a.
JIA"
J0g .
J0g .

Jil..
'Ali.
O
?
n
U0A..
JUL
03)100.
00))04
n0)10u.
)o)) 1 's)*
02)10J.
00';',7")64
001100.
DLOOJO.
00100(..
Ou)000.
nu1000.
00 -,D00
(- 61000.
)AA, );)U.
OU'1 J0 0 .
0(..100C
0u10)56
001000.
00100u*
003000.
004.
00g.
001..
00g.
1)1)4 a
011.4
QUI
001.
Ouc.
00A .
001
00.
00x*.
UJtk.
U0 A 4.r
00g.
004
a 1 *
00.4.
001 .
00A
00(..
.3000014
90000).
J00000.
900000.
J00000.
a019:)0.
JUOU00.
J00000
.J00901.
o0011)0.
J00010.
U00000.
I)00000.
J00010.
4D0000.
.J000016
,)00000.
u00J00.
000D00.
uo0000.
O00000.
000000.
00
J14
0..14
0 9x..
0)z a
D)g.
0'3). a
(1)A
JJA.
OJA.,
0)).a
OJA 6
U. )A
1,4
U04**
0))
03) *
004.

034**
190000 901.*
1100ou
JUD000. 004..
0)000U4 J t.a
:WOCri . , 00, *
)01j0CJ '),%***
'YTUI,DU 004
0000Ut.;* 004.
0000)U. 004.*
0000;',0 004*
)uuc,Du
JOU( "lua .701a.
)0?;(,:)u )14
rAl
9000DU
011)(10). J(24e
U000,n 0 -)4
000( , 0U Ji14
JOCODU.
000C1)0+ 6'0 '
OUUL, (AJ 001 6,
000001* 004
000j0u* 001
000')Du. UU4
UOL
',J00t;00. U01
01'J030 ujg
I)00j7.0 UUt
001)500. 001
000003 004
000010* 001
000331. UUt
00G000. 004
0001,0') 004
00030o6 Ut14
UCCI:)01 (JUL
U000)7 4 004
TJ0JD1.; 00)
000050. 004
010'jr,'90, 000
UUL
i)0030J UU4
00000. U01
CLINIC '111 4
1F:1
:)ATE
Rft,[0s
TorAL PLR
RLuIONAL qA14 NETKJAK
12/II/fo DATA COVERS
FLORIDA
TOTAL RLi
THE FAUA 0J/00/00 10 99/99/99
131014%1A KENTUCKY
fIIrAL PirA 1;11AL PER

ALA3A"4
11fAL PER




NOm -0: 0 ' CLI%(;,i
?,14 I E0 ;1
;',.
1 I AS ..
0114 I 10i.1 :1qE:TiR ..
P.iy.Tr1 A , .
,, Hy ,;irl.'C 5 1;SIT4N1 a 1,
RE;TSTL-; ,:, 1041; -. .4.
NJ-zsE A -1 )1pE, -0R5E: PRAcTIT
LICflI5E.) P'+4CTICAL Niqsr. .
CLI4ic 3,.. A.
Si.j1q17 O' II 31 A
,iEA',..T.. 1 ,IC4Trii e
SJCI&L .41?:-.4
CLF_ ./Str;,i'LlAr1 ..
CjI4E..c, ,L1-:,Kr-( .
OT-4E4 ..
0)1..

U)g.
UT1
Jnzaa
001,
U !)4.;*
Ujga.
0 017) 0,) .
301',1001,
0010 )J.
0,1)00.
001(00.
001100.
0010i-10
00;)!01:2
0(13,F
000000.
0000 1 :d -.
0.31000.
OU)0JU.
0000 , ;0.
003000
00za
03Aa
00A..
0)1..
00)
001..
00g.
001..
00A.
(1.1X0.
03)..
004a
0)A
00A. .
0000 ,m.
UOutiql*
0000'104
000000*
J00000.
J00000
v00000.
J00000.
000000*
u00000.
J00000.
J00000.
O00,56
J00013.
000000*
00050u
10000.
0005,.
000ouu
00A:00t,.
3000.304
D0uur;u.
00u0au.
00000 1.
00(J000
J0000;.,
J0(150;?.
00000u.
J0003u.
00000v
10Aaa
091.6
004 *
,
34**
00A..
004.
00g..
00A.
00.
004...
oUt.
000100* UDi
00(0)17. OCA
000)00. 004
0001D0* 004
000 -,03. Oug
000130. U04
030000. 004
000^,00. 004
0G1
000300. 001
0:)0)006 00)
ODJ1DO ,
000)0,) ,. 004
000,30. uut
000000* 004

REulONAL DATA NETRDiX
REP 1414,T't u4TE Pq0NCE0 11/11/16 DATA COVERS
CL1 ,11C (T 4 TA
Tr 4 II551SSIPP1 rolrtiR CAROLINA SUJIH CAqjL1NA
ror-L TOTAL PER TOTAL PER
T14( FROM
TENNESSEE
TOTAL
UU/00/U0
PER
TU 99/99/49
ToTAL PER
40414A cr cLP;Irs . 000001* 00/.. 0D)300* 001 . LIO0Onl 011. 000100. 004.* OloiDl 004
NJ4,-1,-.7' , 0'+ I AS a 50)000e 011k. 001000 00..* 00 ,1000* W14 4 00u00',. 004. GU00A, 004
40VI,ST I 11A(CAA!,)141TLflpt a 1 -)JD , W. 01A.. 0J100J 00A. 300300. 00.. 0II0')3u4 064.* 000r.00. 00)
PAYSI ".11 I . 0 0(1, 10. 031010. 00A. 000000. 00 . 0(10010, 0('.46. C, 0010G 001
P ,Irsfcl:o. S AszTvIT *A 70J0J0 0,0000. 00g. 000000. 001.. ?WAN)* Ou4** 000,00 004
RE:ifSTE'!CO 90105E . 00050M. 001000* 00A . ,n0000. 0J/ 4000c,0. ODAA+ (7000074 U04
yo?)" ,.. ,, TrL/A1 , 1SE P4ACT1T. 000010. 011 00)J60. 001.. ,10000). 001 Ou000j. 1046* 000)D04 003
LICP4 SE,' PRACrIci. NJOqSr

iJ)000J. 011.0 001000. 00A.. ,d00000* 00ga. 000000 )04.* 00010 .:' 004
CLINdi 1010 .. 01.1004. 001003. 00A . 000100. u0Ak. 000000 01)4.k 0001D)* U01
'40141TuN131 a. 00J000. 11C14 * 007)0Ju. 00... v00000. 000*. Ou000u. 00000* 004
? C11 . 7.1 t''OCATli I 000:),)0. 0u1;)00, 00ga. 000000. 00r.. 00000o 00100o4 004
SOCT\L ' 1"H 000000. Ou1000. 00ge. 0001)13* U04.* ODU , J I.U. 0000G 4 UOI
CIA.R.C/Sr'.4t-TAiT * 10,.033. U0g.. DUDDO. 00:.. 000000* 03.o. JJ1 1 GPI .,s 094, 000103* 004
U01.4'ACH ;4ui4( .-. i to:0000 U04.. 001000. 00 A'' 000000* 001.. WOUnij. 004. 000000* 004
UrHEi * 000000* VO4.4 DUDOU0* 004 * 000000* 001 * 000000* 004** 000000. U04
RoAqT14-3 u lr. P< I , 1/..F,)
14uI1)'iA. 1ATA Nrio1J 4 K
52/11/10 DATA EJVkIRS TITE iR01 00/00 /U)) 11 -,9Pro/4'i
00 rd,
U0 A 4.
JO A.*
00Ar.
U0 A.*
OH
00 A
U0 (a a
(+OAaa
UOr
nDA..
u 0 A.
0'))a
Olx.
0J4k.
UJA.*
CJ 1 a
001a.
0)/d, +

9ugai
O q I.
000,.
ot.
(MA .
dOia
Till At. V/ ;11c,
SoPPLY T41.1 u FL,
1.
1514? 4
ANN,;I t_ )'
'1;1`,11. .
, ; ' I. )1
/I
(J l,
PRO 3(1 r r , I It
0,01)1*
PIJO)). 0 )0,4,
39 )0, A**
, 1 1 t
) 11 )* )1 4
) ) .1 IF a
)1.) ) ).) I.
) it ) ;ha
1)01 Ha -11Aaa
) )30,19a .1)1 as
01I,%ril*
Or h) ,* 994
( jg4
01r1 ?'1

'JUL
JJA
05 ,7'0). U04
U0).,07a 0I)4
OTW104 004
01:40J0 0 )4..
)Dur;..P.- 01z..
(00)0:). 00 .
0 1 03)0. 1'34 ,
u0000. 000 .
00(0)0 Ulz..
000000* 004..
000100+ 001.
.
?
dr
NEw10 ,4A' DATA NETWORK
12/11//6 DATA COVENS TIME FAU4 00/00/00 TO 99/99/99
FLO'410A 0FUa5IA 4 EN1;JCKY
1 0 1 4L PER TOTAL dER TOTAL PER
R E PT1 4TI4-4
PHEIAor Y CAT.
1TE
DATE P 30 )AGEU
tuiiCC
TiliAL PLR
ALA
13111 PER
007
OCt.t
004
004..
OCs
004.
008*.
004*
004..
008..
004 .
004*.
038..
004
00t*.
00A
000,
OUI.*
00i..
001.
004..
004.
00s.
001..
004*.
004**
000
UOS
OCT
ULA
COS
UU4
UOt
004
OUT
004
TOTAL 1.4E:', N.riEs dAiT
.304N; 4t 1?, 1 -. 1 ,- ;z 2 T kiAT7.)
-10iN
33 ,-;\
4f SCA A6E-A..+IR IriN
OT-L4
FL

AIL L'ATHs
CH1LD NJ. AL1vE
(IC')30,J.
011006*
00)300.
OL,) ,100.
00:)0:1 0
Dullou.
000000.
003000.
001000
Ou1000.
000000.
v0Our!0.
J00000.
v00000.
J00000.
000003.
(00000.
000000.
v00000.
3, 00000.
000000.
3Ccr06.
oouvJil.
000000.
000030.
00000U.
00000U.
00003u.
000000.
OoD-.00.
0301'30.
000:; 00.
009300
000-,00
000100
000000.
00000o
00000U
00000.
RE 0 !14 T7 CATS PKOWJ(FU
coNrRN:c., 11vE )ATA (H.V.)
1TF NE 310N
T,TtL PL4
NEu1LPIA', DATA NETwORK
12/1]//9
ALA34H4
ilTAL PE4
DA1A COVENS 114E FRu4 00/00/00 TO 99/99/99
FLOR1DA sEd3thJA KENTUCKY
TOT AI PER 1p1t_ DER TOTAL PER
PATIOTs
N6 i= r1 11 USED
JiAL
(U)
0142,0fq4
F- J4
kynil *.
C?\-4 4 .
IN 00 ?.
-
OT
ET.11 ,
6)r1 ';T:' ;NU" (1 'ED
PJ)L1' ;L1 , IC ''0 -C.
0.R0IST ecq;;;ciE..)
dT , Ec
000000. 00,..
0.11 .037O. 008
00'CuO. 007..
Oni.
00'3300. Ols?
00100. 007..
001,;00. por.,
0310)0* (1
'31=.
OJ100u 004
() . n) )
0C1 0, U 4**
001030* 007.*
001030* Ups**
3003* 01'4*.
JJ,100. 031*.
vo(p)0. 4*
Loo)nn. 11)0*
000)00. >g .
uoilo10, A
a0D110. 0 )4..
0003')). U )1.
vOLYND.
J00330 010.
30()0J0. 0')A*
J003034, U41..
Jn U , )(1 * 01/..
01 .
JDOilo0. Cit .
J0000u. 004
1)0000. 304 0 1 01(. ). 008
30ROlu. 0714. 0 1 07,03. 001
7300JJ. 004.. 000)00. 004
000010 034. 000)30* 001
000:110. 004. 00033) 004
006000. 001.. 00300J. 004
000000. 004 00030.3. 003
Dpuolo. 004. 1300J00. 004
003000 01 1 000-)33 001
DOjCiOU. 0J4 ,.. OODOO. 001
Jj , MUti 304.. 033300 0, 031
J00CW10 0314,6 000:)0'.). v04
101,02J. 014. 0001)3. COt
'..;,,(,Du. 1)04.* 000;,01. 004
300000* 001.* 000010 6 004
000000. J04.* 000000. UU2
Oit..
Olt..
JTtt.
Uj4..
DC 4*
01 A
0)4..
'MA**

0 Il .
COto.
000*.
0A1E PI I J'ICEo
RE61ON
To1AL
R L31I 0N AL DAT A . CT'.- 3K
12/ 1 1/16
A' A3
T PF'4
DATA COVENS T
;10 ,4 MA
IUTnL PE.i
1 4 E 140 ,4 00/00/00 TO 99/99/99
CEUROIA KENTUCKY
TU141 ER TOTAL PER
1V

,, *
UJ A..
3).) -33.
00y..
0(19..
Ult.
004..
Ifl , f 4.
001..
O - Att
30A

k.
UDR.*
004..
u0sk*
004.*
0Dt .
Or?4,
Otf.
Cw4 .
u01..
uore.
00
O.8.*
()Ott*
A
JO E..
008-.
OCR..
008..
004**
00x
u04 .
uDx.
?D6*
?vs.*
p0a.
out..
od4 .
(Og
064
000,,b
0O4.4.
0v4 .
o3s .
038 .
Oct..
03i .
(jgt
0)4 .
00t
004..
004..
Ont.'
004*
004
D04
014.
00A.*
00
u0s.*
C;04**
DOT.
00s..
0)4..
u0s
00a..
Vit
(Mt*.
001.-
000
30s
004..
004.
004.
0044
008.
00/
004
UOI
UGS
008
004
004
004
004
OJT
000
004
u0s
001
004
Opt
001
U01
OIL
UO4
U .)4
UOL
UGA
004
004
DOS
001
004
I =
.)4
iN I":). f , IN TNG
ad RI' 1:;c:L
AT4ER
V.) ,T
V1-;S . I :T
E liRL
vc,Al!rr, vJqL
;.)-) ,jT r r
vE r. T
1 4 i:A /
,! , 4 4 1
,! =
iE,.1'7+; .LL-
TE i
'qvhNA. 1;;T
?
;I f [ Pq::I NiANICY r;:j1
'JTHr^ 'EST
UCT00 0 k
CI ..('0.
UOi+i) CO3
0;1 0,100.
300'7:0 I)
00u030
00o;)01
( , ),J
C)f),(' JO
)0003)).
C:1 1 .
Gnu;'u.r.
t", V0V.
1 1 0 )0.7,
J ') I., 7)
DC( .000
')
)
'3 .170 Op
000J..)
JOu103.
OlUDOO*
0:2 , 000.
0',./1000.
00:, 000.
007013.
ow)p0e.
()uncoil.
00;)00.
Cl W)0.
001J60
001000.
^07)0,0.
0:);.101.
Ou'000.
0(':)00*
0,7, .100*
CC 1 0;1 0.
06103u.
0(;;V0i.,
00100C.
lulOD).
001300.
001000*
3.0(10?.
001J00.
0030CD.
000000.
J00000.
J00000.
000 ,100.
o00000.
v00000.
000000.
'CO0000.
O00000.
400000.
,)
?
00G.
vOoDnl.
Jo,;000.
003000.
(Ou000
300000.
O0000D.
,r000,:10.
J0V,0").
o0030)
00i) ,) (11.
COOCOD
0110000-
000000.
000000*
000000.
0000%.
00000u.
100000.
)061,00
0000
00u0nu
09(00u
00CuC0*
33000u-
00000G
:13000').
0000ju-
30000u
00000'v.
000030.
00Loa1
D000)0
0000%
.)0n3v-
J3i)03u*
)000,:1 0.
0n600J*
00000u
000000.
00000u.
DOODOO
000[)01
000 ,J00
003000
000-100
U00)03
000:, 13.
00 0s, 0 ,)*
CDO):o.
000100.
000 , 00*
00b-,01
00,1 )0C
(00 ,-)03*
00000
C33 ,)13
000103
000-0 ,)
000130
070 ;00+
010000.
003103
000100'
00000J
000n0J.
000-'00.
000?00*
a*
NO
4.1
4
It*
4 4
v
?
I
.4
ki

.
.4
.
ork
.4
1.4r
TESTS
DATE PRJ)J:.E0
5NT RALL; T 04EA (A.V.)
I TE ,i R 7 u1ON
1 JT AL PER
NEu104AL DATA NETNORK
52/11/T6 DATA COVERS 1. 14E 14(4 00/00/00 10 99/99/99
ALA0AmA ELURTOA 0EUR:',14 KENTUCKY
3 -314L PER TOTAL PER TOT: L PER TOTAL PER
00009?.
1.0000.
(WoDUO*
C4, 00 (10 *
u()u 000
' 00 0 +
(

COO C. 00*
C) I'%00.
C' 1 0 00)
0)0003 .
) CDRTp7CEPTIVE 'AEI"))
;AL
..
Tao
\J1-I
L^lLT 'II IN
=NI CE ['CR

DCC. ,- +:?NA
-CY .4
TE.ki14
a 13 1:.0
0)1.. 001010. 008.. 000000* 004. 000060 31)4..
3.. 001000. 00:.. 000000. 008 3NOCCV. 'It:: ,,,... 00)1110. 004*. ,,cuoJo. 00,1.
001.. 001000. 004. J00300. 0 ,71 000000. 004.
wo... P0l200. 004 . 000000. 007; . 00(0L0 uos..
00'4.. (101('ou. 01z.. 300000. 038 . 0)00(0. 001.
u)1.,. 0,00.00 004. 000000. 0V4 000000. :04.

3.. 0,0013. 004.. 6)00000. 037.. 00D07,,. ,-) ni*.
.,-g * r"):110'', U. 001. 3003:)0. 00 " n4100. 001..
034. 03 0' 0(0. 004. ,JGOJCO. 004 00000!. 307..
c).T.. 0010 1 ). 000.. J00000 oil 30)0(4. 104.
031.. 001000. 004.. 000000. 0J4.. 003000. 1 .04, .
0)4..001003. 004.. 000000. 004 YjS2]U: NI:
:
?0?1 00001)0. 004 . 030370. 034.
0)4.. 10)000. 001 . 300000* 008. 00(000. 001**
000-33' OD:
COODOO UUS
000100 COS
ODU'Oje 034
030100* 004
000 -0J u01
0011,00. tfll
00J;)0. Q04
00003)* U.:8
000^;3J , pat
G00330* 034
0031'1) 001
00:, )00. 0)1
003300. 001
004 000100*
RLP11Tv310
REFERTAL 1 0 ,ftr, Ct 1!1j4
FATE P,11, , ICTO
RTMION
TRIAL PER
HL.IUNAL 1)444 NETI.JR4
12/11/76
ALY9AMA
TOTAL PER
DATA COVERS
FLO4!DA
1010( PER
TIME FRJH 00/00/00 TO 99/99/99
AFP47030'
1 01 0 ( PER
SE,101A
TOTAL PER
qEPolTik -1
REFERPEo
1TE
TA
)ATE ."(1)1CJ
4r , .104 rjrAL ,'ER
RE IGNA , )41'4 NEThDRA
!2/I1/76
44434 14 4
T31 0 0 PER
DATA COVERS TIRE FROM 00/00/00 T3 0/99/99
FLORIDA GEDR3IA KENTJCKY
TjTA( TOTAL PER TOTAL PER

.,"
TOTAL REvicHro
40 . TO Sn':T3L Q,7 q.
REr.-"EF/L4L
REF. Ft ),; REF, cri. 41 4 1:1%
REF, F7 1irE-3. NEAT
DIRER REF.
. 013101.
A. 0.10 JOO j
*. 313..
301.
.4 ')1,;70.). 0)0i*
0. 034..
0. OlaDJI. 0) *
n0100C.
007000.
0000)3.
00)130
100013.
fll)J0.
10)030.
314.
004..
00g .
00g .
003
001*.
000007. 70T.. 000100. 004.. 000 ,,00. 004
000300. 003., :10C.,:3., ,, 004 000000+ 0O4
00000). 0)4.. 300330. 004. 000600" 004
v00000. 003.. 000000. 004.0 000330* 004
3000)3. 0)3 . 0000 7 0. 004. 00010o. 004
J00303* 074 000300. 0044. 000D30 UO4
000000 003 . 000030. 004. 003600' 004
REPORTgR'i
PATIENT 3 N)Lr9 iY
ITE4
DATE Pi.o00UCE0
Rc ION
U.IAL PAR
RERIONAL 0414 REThORK
32/11/76
ALA0ARA
TRIAL PER
OATH COVERS TIRE FRum 00/00/00 TO ;9/99/99
FLORIDA GEO PO IA KENTJCKY
TOTAL PER TOTAL PER TOTAL PER
0 4
o
*0
4.
.0
ibk
SFTN
ir
SEE ,' RY
SEEN 3f RJRsE/I'/YIrE
SEEN Of
SEEN 4Y sEqdT:ES
SEEN if Al )E
SEEN RY NJI4ITINIST
SEEN lf ',HER
OrA7O 2 .
CA',7J14
0.0 333.
000;AO.
CJIY;;O.
00000 0
003000.
UCCOOO
Dot.. 00100 ,.. 00 4 .
(.1i.. emon0D. 01-)g..
034 01033 004..
J-1 .4 11 03CD - 001**
007 . oc., , D10,? 00x..
004.4 01J:)0364 304.
U14 . 001001 . 4 0044
0 Li: 4 A 0u7, 00L. 004..
004 OuD000. 00t .
',DODD?. CDT*. 00000u. 010,.4 , -010 , 00. 004
00070 LOT 000L03. 0;11. 00010). UCA.
1C000). C34.. 000) , 0. 33 4 . 003700. 004
vOUDn. 004 000 , ,00 0'1x.. 000,0)* 004
:1000004 00444 Of- ooDUr 004. 070^,a,)* 004
o00000+ 004. 000003. jog.. 000-03. 004
J00000. 003". 0007o3. 004 0007,03' 001
000000* 01.11 000000. 00A." 000303* 004
000000 GOA.* 300(300. 000. 000100" 004
Rrr.
PEr.
REF.
rtFF.
REF.
REF.
REF,
REr,
REF.
REF.
lii
RI
Rf
Of
Rf
yV
4
?
0
40
.k
y ir
001
001'
D34 .
DjA
f-104 4
00444
U)4*
U04.
004..
304
004.
004
c444
:)0444
004.*
J04.*
OUh.
00,-00. 011.. 33001,',. (304.4
C1,:^ )P* ool . o,10%. n's.:t.'
LC, . ,3)C W);44 1 0"1C4 C0444
,.: 1 ;)0 ,. U0i 4 3IDWX. , 4 004
0,:1004- 3144 ,11 013. 0',T.
3Ok.00. 0)1 . wx7 n 00 . U01..
000, 0310 0u7300. ()GA..
o0(:',00. 017.. C)3) )U),, 0044.
Oo,:q , S* 0544. 0036'):. 00444
GO..:!OC U14.. OU'0 0 0. 004..
00;;00A 007.. 00100c, . 00A..
UO0010
00(300).
00(3073.
00001:J-
0000u).
o00000.
000000.
000000.
)10:)% 4
300V)0.
0030Y,f,4
OD0J;;04
00(31))0
090GOO
,)000 ,)0.
001);34
!)00( , DO.
0001100
000,30 6 ODA
Un , 3). Out
000133. 004
0003)0 UO3
00310j. 004
0O0-,D0 4 DOA
070)33. 00A
0001). 000
OD0^00,
000130. uOt
03063). 004
REu10 .44 WJA NETTIORK
52/11/76 DATA COVERS TIRE fRu.4 00/00/00 TO 39/99/99
REPORT,q1k KATE pedoCro
NEXT oaTA
ITE1 11,1'AL PER
SUpPLy vl T /ST INC,
ANNji.L Eg.,11. ,1611.34
MEDICAL PO ,LE
NU NEXT AFT jINT vENT
.4
uT4FA
.4
.0
0. 4

00LN)0.
0005,;0.,
000U.
00u500.
ALA9ARA
11 7 AL PER
X01030. 003.
0,11000. 004..
004.
00100o. u01..
0Oo000. 001..
FLORIDA
TOTAL PER
000000. 004
100000. 001 .
000000. 03i..
000000. 003**
000000* 001*
GEOP:114
1Ji4L PER
000030. 001**
000300* 06 "
030030* 004.
000000* 004.*
000000* 000..
nEhTd:KY
lo r At. PER
000703" 004
000633* 004
000030' 004
000100* 001
000600 004
REPORT:RI
0 ROP qUT ) ,, TA
iTr
!ATE '+0 , ,;F,;
PF,,T IN
I ,ItL
REoIONA 1414 IETnZqK
', 7/I1/76
ALL3V,14
I'TOL PER
DATA COVERS
FLO410A
TJT4- PER
TIME T4U4 00/00/00
iEUP I I4
TOTAL ?7.A
TO 0/99/94
KrN/jCKY
fUTAL PER
STER I/4T! -IN.;
ME 41 0 A
,11:710 AL. q , I 0. 1 0
PAT r J
PA IF.4 I vl -7.1E5
PRE1A4':cy
ON{J4N
307..
114
OIL
,J)i I
)r
J3,
011.
JJ1k
In1",00
0.);,; 3,,
(),)))0
0.:130)0
0413 )0.
oor..
'10Lik
034.
03 4..
004.+
00,3
00y .
0J4.
.., 0j)134
..+0011)4
0 ,3)70J.
400) ,1)4
P3T-034
003)9J4
003311.
/3)30).
33
)4 .
3)33..
0)3
0)3
0)0
,..)JA
Dn0c)., 4). 1114. (,1 0 -1 0. 0A
0J;:ciJo. )04. L.00,D;. uoA
JuuuJ00 114.. D::[J )2. 004
)00 ,3)D. 1)44. UU4
00!, 3704 11'44 (300,0J. 364
)1JUUJIi )14 , 0" 1 1 .01. jv4
)GUO) .). ,3)4
0300)3. I304 . 3p077.4 004
PLOT PROGRAM
PLOTTING PROGRAM
The plotting program scans the detailed master tape file for all
desired data points and inputs these into a routine which produces a
plot data disk file. The actual plot program is then initiated and
independently synchronously processed. The three subsystems of the
overall plot program are JERICO, CORREC, and PLOTDA.
The generation of specific desired plots or graphics is described
in the detailed code for the CORREC subsystem. The four programs are
summarized as follows.
THREED. This routine is the longest and most complex of the four
programs developed. It will produce 6 three-dimensional plots of 8 different
variables. The data for the plots is in the form of 8 different areas of
a single plot. Each area will produce a "Hill" of the same height, slope,
and size. Each "Hill" is multiplied by a "Factor" that is used to represent
some variation in data between the eight states. This will produce dramatic
variations in the size of each Hill. Any item that is of interest can be
compared between the eight states.
The number of states compared can be either increased or decreased
should such be required in the future. This routine generates 6 different
viewing angles from the horizon (20.0, 40.0, 70.0, 110.0, 140.0 and 160.0
degrees) so that all data is clearly visable and easy to compare. Should
other angles be desired this could be easily accomplished. This routine
also generates one table of values and two state data location maps so that
all data is clearly identified and all factors used in computation are known.
This routine also produces 4 lines of label heading above each plot (the middle
two lines of which are variable and may be changed with each perspective if
desired) so that each plot is well labeled.
BAR 1. This routine is a simple routine which generates bar graphs
with two axis. The lower axis is a calendar axis which anotes the twelve
months of the year. Thus the graph represents twelve month trend for any
variable of interest. The second axis can be label to identify the variable
graphed (the label used in the sample plot is "number of people served").
A triangle is placed at the center and top of each bar and then a line is
drawn to connect all the triangles so that the trend is easy to see. This
routine also produces a table of values so that all values used are known.
Values will be in the form of a percentage of the actual data compared.
BAR 2. This routine is similar to BAR 1 in that it also produces
a bar graph. It is designed to reflect period increases for some variable
between the eight states. At present the routine is set up to plot data
for three periods of time. Period A shows up as the lower part of each
state's bar. This bar is hatched from left to right at six lines per inch.
Period B is the center bar which is left unhatched to make it distinctive
from period A, Period C is the upper bar which is hatched from right to left
at 6 lines per inch. Due to the different hatching all periods are very
distinctive and easy to compare. A vertical axis is supplied to the left
of the graph so that values are easy to determine. This axis also has a
label capability so that the variable being compared is clearly identified
(the label used on the sample plot is "number of people served") Each bar
is labeled underneath with a state name for identification. A table of
values is once again supplied so that all values used in the generation of
the plot are known. These values will be either in the form of percentages
or factors that will reflect the conditions of actual data.
PIE: This routine is designed for percentage comparison. It is in
the form of a circle which is divided into "pie cuts" to represent the
percentage a particular variable takes up (out of 100 percent). Each 'cut"
is labeled as to which variable it belongs to. The routine generates a
table of values so that the extent percentage of each variable is known.
Sample plots follow; these are followed in turn by the actual code for
the plotting program.
FT IET JFP ICO/ w EW crro 407/7A 10:L)
.!ro * scFT L TST *
2n0SP:T CPFj *
300*1;sE T c.FQ)(F- *
/J00*I 0 ENTTrTrefTflk. nl?,TSInN, * 5no,pror,pAv_tn, kr
- ALIT EMICATTnY WI wECFARr vASTFP CnNIRP:L.
, r0** P000ppm PrGTE) TV NITA oP0CESsTmG NFTwORK.
7 0 0*AoTHIln. P(0 17 1 Ptv CPTOFR.
Itzn*ImSibLLATTON. PTCP CnMPUTF
- P rFmTr- R--0 ,1. INIST rIE TFCHN0L0GY. *
0 0 0*PITF- 4 PITTLNi. JOIY-nE0EMprp ica79. *
1000*DATF-rMAPTLFn. *
110*EN , VTPMMFNT nTvIcT0N., *
170D*CnNrTMPCTIgN' sE(TroN. *
31, 0*Snt ) per - Cp!!pOrp. r.-r.;700 OTH IFTIO00(1 mOnF. 4.
1/10::1 *OpjFiT-00nApOTrR, f7-570.
1y', 0*ImPoT-OOTNIT cEcT)nN. *
1(n*FTLF-PnNipnL. *
1 70n* SF- LrCT rtkv*. TN! ,FCTGP) TO REMOTE.,
1prh * SFIc'CT PFw- nOT P.CSTr;N Tn REmoTF. *
Toro* SFirrT 0L0IPATI ASSTrim Tn 1n * 'Co nTSK.
2000* SF- 1 7 (7T p?-!-2 AF, r, T0N TO PFmOrv, *
7l nn* ST- LrCT colit''Ty-rAcTEp ASSTdN Tn TAPF. 72r,0*I.nwnnt,JP(11, 4,
21no.nnTn nTv1sON. .
9i1nn*FTLF cFcTTfr.
2w1 0*Fr PF,A=Tr 4.
2f, 00* pir0Pn CPNTATl RO nHAPAnTF- ps.
2700*01 TTv I T PTC x(eln). +
2PrO*Fr pFkA-rtIT *
O0? prr0Rn crIN'TATP- p0 CHAPArTFPs. *
3000w01 TTv-0UT PTC X(E0). *
3100*FD PL 0 TOATA
1200* PI 0 C, ri?JTAjNc 10 pEN1Pn5 4
1300* pFr0Rn cir!TATF RO CHAP4CTFPC
i.1(1 0*
SA.k
, F-V- I?CV:10 IF 7.
3S0O*0 1 PI 9 SPECITVP . 0frnEVc.
1600* 02 OFrP0
- "OT PTC 9.9 .i
170r, * 02 0Fc, -Dilmwr, PTC )((77), .*
3 80 0*01 TIA,FE0-PFC0PnF! *
1900* 02 mA0NITOnE,-FTIL PTC 9.90.
/000* n7 PlimvY !Dir. X(76), ..
,11 0.0*U 1 THPFEP-LtJ4 v1
m2r0* Cl? THP-PLnT-l.
pTr
P Ir

i!100* 02 THP-PLOT-LtrFL2
hiinn* n? FTL1ED a5n0,.0) pk..)-nrkT-pFrrIP( PTC, X(12). *
i1600* 02 pAP - HT- Tr,r4T Pin 9. 0 9. PTC Y(76), , 6700* 02 PAR1.1..nW4 vY
6pr)C21,01 PAR-mk.r-LAPEL. *
iipo* 02 Pl-PLPT-LtrFL ,
50n0* 02 FILILP PTC )(7.;(74). 'ft' r000*01 Pp 0 -Twn-PEruRTF.
52n04- 02 PFPTOD - NITI PTC 9.90.
53r0* 02 PAP2H-0orPr plc X(76). *
50*01 pAD-rt,m-IPPrt. ,
004. 02 PP2-PIJIT-LtrF1 Pir v( 7 6)
50-0 02 FTEIFP PIC Y(6).
c7PO4-0 1 PTr-PECHROc.
c. 1 0fl* n2 rTF-DATft-n1T
s9n0- n7 PTF-Dum!,1Y
PTC 99.r,
PTC X(TA).
,700.*01 pTr-LAF4.1S.
A.100* 02 PIE-PLnY - LAr=rl_ ,
(, 2 0 .0* 0? FAIIER F'' T )=j:
1, 74 0 04, Fr' PFk4-2
rbr!C* pFrnkr cnNTAT1, s 11 rHAPArTrps.
65nO*61 nATA-TmpliT Pir Q(0)v99.
e:600*Of nATA-TrlpoT-7
(700* n2 Y - ft',PFY PIC, 0(1). -
f.8004- n2 X-PIWklY nit" n(0,, (nrn,14n nmtNTy-MASTER pLoc k crINJTATpc 20 PFCnpnS 7nnn* *
7100* prcppnrn rnrr TS STAN0AR7) *
72c, 0* P 7 CMPn crIwTAJK'S 61 CHARACTERS

'3r(' ,,, vALK OF TO it CmASTFp
7 0.1.4- sA0. - vA,rTmR Is 300. ,
7c.?", 0*01 COYNITY-A.
PIC v(71 ).

7/.,(* 0 , C..cIATr...klAkr
7700* 03 Coo -Ts!-mum PTC 999,
7F1 00* n3 ri INTC - TFTC PTC 9rt). *
7o00* 03 P11TTP)T - T0TI PTC 9r12).
* "In* n3 miPTAT'1., Tfifti PTC 9r12).
PTC 9r12). P100* 03 FrvriLF-TOTtl
J. ?I^ x(6).

A7Pr* 03 MAIF-r fl l'a
P3COw n1 ,
84101 rOANTY-H.
9r,"0* 071 PAC F,
Re^* '""4
P7nC,e ^1.1 F'i ACS
Fkgr['.* n4 trq:DTrA*TrIAN
Pgrr* r 4 ^ rxrrANMtr - rpT ("AN
4r1 0:7)* lb 1 1 pIEN'TA
o100* n4 TITI1FP-PArr
97r0* n4 cp. nHrf
03r04, 0 1 rr1;INTY-H2.
nanc* n3 FTHniTr
P5n0* n3 kAAQTTTAI .?-;Tf!ToS.
9600* n ti !,'4RPIrp
070* ^4 KJ"vFP-tvAvrTFC
qPrO* n4 SVPAPATU
997+O* n4 r'TvnPrt n
lcnnO* ^ A Srf1tISr-fFrrASrP
1P1r0* " rP2-Ph' I 1n2r0*o1 rimINTY-C.
103r0* c,3 VISTT-InTAI .
lnbrc* VTIITAI
111 500* 1 4 spppi.v.nr-c Hro
^A UkSCHrn-fh` 14:"'CHrr4
nit prvIS-AN!I Ilkl."'cHECW
"4 pPvTSTT
"4 SIIPPLY-olt-uNSrHED
n4 urr!srHrO-r, r-Pqr1R
Cci;nUro PIr v("4).
'3 H'JCHIrD-FrCHIrtvl
tit, ;SrPrP-EccPLOA-Rry
C3 P9En.TOTAL.
14 TrIAL-PPir
1 4 PnR9'AL Tr r
LAST'nELT\FPY.
CC P(710 -q1 TVE-ITRIA
r5 PrINi-t!TvE- ..PPF
oci rIPpN-i- FAP
oc riTc-AvrPT
PTC 9(. 12).
PTC 9r1P).
PTC 9r1r).
PTC 9(10).
PTC 9r1V).
PTC 9r1r).
PTC 9r1r).
PTC 9(1r),
PTC 9r1r).
PTC 9r1n),
PTC 9,1r).
PTC 9(1 0 ). PTC 9r1").
PTC 9r5). PTC 9(5
9(5). PTC 9r5).
PTC 9(5),
PTC 9e5).
PTC 9r5).
PTC 9r5),
PIr r(),
PIC r(c).
PIr' n(5).
PTC
Plc 9,5.
PTC 9(5).
PTC 9r5).
PTC 9(51.
PTC 9r5).
PTC 9(5).
PTC 9r5).
PTC 9 , 5). PTC 9,5).
PTC 9,5).
PTC 9(5).
PTC 9r5).
PTC 9(5).
PTC 9(5),
PTC 9,5).
PTC 9(5). PTC 9r5).
PTC 9,5).
PTC 9r5),
PTC 9r5).
PTC 9r5).
PTC 9r5).
FTC 9r5).
PTC 9(5), PTC 9r5).
PTC 9(5).
Plc (7, (5).
PIC r(5).
PIr ().
PIC P(;).
,
PIC n(c).
PTC 9(5).
PIr e,(5),
P l c. X(4).
PTr Xr4),
PIr Y(^41.
PTr Y(19).
lorn0*
10Pno*
17+900*
111n0*
112r0*
111"0*01
11 0 0*
110*
11600*
1 1700* 1F;"0*
lign*
12n00*
171 Hr*
177n0*
123r0*
174 7+7+* Oh Cr2 ,-DOkh 125(10 * p rmINTv-r7.
12 0,1 C)* PA NVVEP VPFG
127r0* ;)"
12pOr* 00 11NvN9l""
12000* FrTAI - OrtiPS
11nCC* r.,41 rpiLrorm.k.nw.eALTVr
131"r* o4 rC-r14
117rn*01 crliNTY-O.
133rD* 03 COkrpnCrPTIk . F-05.E.
347+0* 04 pATIrt.TF-nNCr-USrn 1
13c+0r* 04 r4TrAnD-(crr-rAfIST.
TlAr7!*
117r0k
11Pro*
119no*
140nn*
of
pc 1PAL
pc Ton
Cc 7+TPHPAr0,4
pc rn,m
CC p YTHri
CS cnkfprl
CA
rOANTY., r)1.
OA TJECTTrINI
STrPT[T7ATTPN
0A FITw[pwcnNIRA
01 `IPTHOr. torIT.-KNOWN
04E.THni)"'FrPSCPIREn.rRY.
oc PPTv..rrrTfp
pc POP-rtrk , Ir
c/ c IPHC.r,1 eY oc iTuEP
Ot CP1-1P1w, r(11INTy.f.
01 SFPvIrrS-rrnvInEn.
Ors criTrArrp-cflUN
04 sTFILT7A-CnUN
oh THIrRTTIT-CoUN
Ot APPPTI- r-rnuN
0/1 S0 (7 TAL.cFP - rOuN
CA 0THrrT-crl , N
ot! RcirL-vrrssIIRE
0 11 vn"mLnrr-TEcT
PIr Y(r, 4).
PIr Y(n4).

1A5n^* 04 rF-Dilm PIr Y( 4).
1A A JO*(1 cnwTY - El.
14.7p0* pc., HrT-Hnv-ITST 1(.pro,,, 0 '1 .i-, 1 - T r ? 1Apnr* 04 V)P1-TFST.
17nr1D* r5 VflPL Tnrto
171,. r5 VIIRL-r(IS
1 7 90C* 05 VrIpt ..f, rn
(1i PAr-S"FM7. 1 71r'3 4,
174rr* P5 P. P-IrTIll
17s/.)04, 05 PAE. irc
1704. n5 PAP-rr.
17740* 04 cri.nutA PIr Y(',, 4).
17POO*01 rnANTY-E2.
179^0* 0/1 Gc - colTIDF. lxy.., nc* 05 C, r-TITM
1q1nCO3 r5 Gr - Prc
1P200*
IQ1^0*
05 c0-W. c
nu H9FAST.-/nTAI
1R4n0* 041 PFLvIC*T0TAI
1R5r)0* 0ii urOmAL)TS - TDT ,
1!1F,0D* P. sICieLF., CF[L-TFST.
1f1 7'10* 05 STCKIF-T0TAL
1PRnn* 05 ST(7 11 11-P0c
1P9N1* Pjr Y(r)4).
" CF2-00 1Qppp*O1 rilAN!TY-Eli
91 0 D* 04 ,..;TCV1r ,....KIFn IQ200* Oa STFPILT7PTIPN I InT
1.01* 04 INFEolTI TTY - T0TAI
194 0 0* 04 PRinhht, cy-TrST. 1254c:* nc-)Pril-TEST-IIITAI
19640* 05 pgrn.rpS
1P70c,* 05 Pc_c,-rc,
19pcci oh 0TH7R-TFT
19or0* r4 ,''r - n( PI?' V(29).
2 0 PPO*P rrAK!Ty-F.
201n0* 0 1 C0mTptl-mrinp-AFTEp.visIT.
2 n2n0* oh N0 -0 FT[rn nlpc.., 04 m44 1 - Tr- Tril
2nlir)0 ,.. oh 1 1 1 0 -TnTtl.
2n5p0* Oh rTA-T0TA1
2n6no* ot; Frou-Tr7fL
207r0* 04 pyT04 - IrTAL
2 0 pP0+ Oh CnNn0m - TriTill
2non0* 04 INJrcTIr-TrTAL .
1n0Ow no CF'-011M PTC x(24) .
z linD*01 rn!INTy-F1,
212n0* Or, STEPIII7A-TnTAL
213r4, Oh EITHrp-frPTPA-T0TAI
214nn* n, pEpsnr,:!..sTrr-METHOD.
215400, 05 PPF-P1-TrITAL 21Arr, 05 PPr0-(rplAn!-TnT
21700* 05 SFEv-Pf-r(;-TnTAL
21POn* 05 rEPTchl-pFAcOm-TPT
219(c* 05 01- Hrp-?Ps0p,J-1- 0TAI
05 rr - nt ? PIr Y( 2 9).
rrIINTY
- G.
01 pirEPPre-FISEwHERE.
04 TPIA1,-FFVFRPFD
nu Snr - SFF - TnTAr
n4 hP 1 '-SFi: - TPTAL
04 sTEpIrT7t_TIPN-PFF 0/ ApripiTc.r-TOTAL
0/4 WrPTII-TRFAT-Tpi
014 PTHPR-F(FFIRPED-TpTA[
-.1 PATI , T". cFr " Pv ? ( P Oh PHYICTPlv-TnTAL
- (" C. ,*DWP pTC x(Po).
rilINTY-G1 . ..
04 P-H-N-TrTAL
PIC
pr
Plc
PIr
pir
Or
PIC
PIC
PIC
r. (5).
c, (5). -(5), r,(5),
f.(5).
17, (;).
r.(5).
P(c).
n(c).
04 r-P-H-r-T0TAL
6,4 NI1Pcf..F,TnviIrf...TOT
PIC
pIc
f, (5).
on L.P.N..inTAL PIC ,-(c),
On SrICTAL.-"TOTAl PIC n(5)*
014 AT0 -TPTAL PIC c(5).
04 rjpv.-TrTAL plc r().
Or: N!ITD1T7rTST-TDT
ri1ANTy..r;7.
OA ;1r!-irP - t- POl.rD"'InT
0/1 cq-r-No.1
rniroTy..114
t -1 PErFc'WAL.cr0pc7- .
0i1 splr-TrTA1
pir y(P).
PIC
Pic
PIC
t.., ( 1;),
n(5).
22rrn*
221pp*O1
27200*
'300* g.:7, hp0q,
22cpn*
276rn*
!Wd,4.
22Qon*
2 P00* 1
211pn*
212ro*
213 0 0*01
21400*
235nn *
21600*
23740*
21Prq)*
21on0*
2/1r)00*
2/000*
242n0*()1
943no?.
21;()*
21500,01
24600*
2 117 0 0 ,
PIC r(5).
PIr ^(5).
PIC (1(5).
Plr r:(5).
Plc e- (5),
PIr r(5).
Plc t^(c).
PIr ( (5).
PIC r(c)m
PIr n(5).
Plc r(5),
PIC nt).
PIC (5).
PIr r(5).
plc e, (5).
pTc r(c),
PIC n(5).
plc r(c).
pIr 9(5).
PIC r(5). n(5).
ptc r().
PIC
PIC r'(5).
P C c().
PIr r(5),
Plc r'(;),
PIC r(5),
PIC 0 (,),
PIC n (c00
PIC r(5).
PIr r, ( 5 ) .
PIC #7)(5).
PIr (7, (5). PIC 9r5),
PIC n(5).
PIC ,".(5).
PIC f'(c).
2AkrO Oh pHT7>FA(1-w0pKFP-TpT PIr r)c),
2/1Qr1r* plr r(). 04 nTHrp-[r-cITNTC-T0T
25. 000, 0 H HT-
2;
4 nSr-PITH.AGENrY-T0T
04 p I!-nrr-NUPSF-TrTAI N rr. Fr . (Z)

100* rO
2E000* 04 ,, rLrAPF-AGFmCY-T0T PIC r(c).

4 Aqr1 TPFF-rtImIr-rAT-TnT 2c1"0* pIr ^(5).
25400* 04 Fikv-Pirk'D - TOT ? plc (, ( c),
25500* 0" CF--DU pTC Y(24). 26nn*o 1 r11,1kly-H1.
257(1 0* r(c). 04 ivmPA0Tr-rvEt-JCP4PFP-TOT pIr

29A 0 0* pIc r(c). 04 pFFrp014, ..py.nTHFp-TnTAL
.
2,00c4, 04 PEFrppFr-pYmUmKmnwN-Trl pIr n(5).
2000* (l4 CH1-pti PIC X(40). ,
20, 10c401 rfl'ImTywI.
2A200* 01 NFyT-Arp0T!,.TmEmT-PHP.
26300* pIC rtC). 04 slIPpi v*cipTmG-CHK-TnT *
26, 4no* 04 AmrvflAl wr YAm-TOTAI Plc n(C). *
2A5004 04 vr 0 Tc41-pPOP-T0TAL PIC r(5). *
26, 00* 04 DTHrp - prrmI - TOTAI pIr r().
267n0* 04 Mn - h!!:XT-PPnIN-TrIT pi( n(c).
26sAn0* 01 RErts0-f-ric.-0ISrHARnr. *
26000 4 04 siFnTtrpOTN-T0TAL. PIC n(5). t
27000* 04 mEN, rpAisp- - TnTAL PIC r(5).
271 0 C'* pIr r(C). * 04 mFDTrAl-PFAc-TOT41 *
272n0* 04 ci1 n(1 , A PTC X(2/1). *
271004, 01 rflANTy-T1.
27400* PIC n(c).
`'
Ob paTTENFT-PrIVrP-Tnr6L *
2710* oa pATTENT-IrST-INTrpEsT-Tr , T pIr 6, (5).
2 7 600* pin r(C). 04 ppEr,-0F5Tpr-TDTAI *
27708* oh ppEr-Hr.vIAN.TPTA[
. PTC 0(5N.
27Fno* Oa LoiKmn4r-nTs^Hap-prAc-rp, plc ,(5). * 27p00* 0(1 CT - n0H PTC y(30). *
2P000*yJIPKT+!6-STDPAr.F. srrIInN. *
2plop*DI sIt'Tp-FUmn. 4
?F1200.- 02 THPF- E0-STATrwp0D prcuRs A TIMES Pic 9(c)v9c. CpvP. *
2A100*01 THPEFr-STATV-rikCTOP PTC 9119P cOmP. 4
2A400*01 7F pir 0 (s,r-
P "I
TS *
2A500*01 r(PINTy-1p4rK AC9 (1711P r(PAP. 4
V 67PR:8; TH 1 FEfl-CFILTrq PTC 9(0 V99 cnmp vALUPcS q M6000r.C. *
*
2AP00*01 ptrIT--L4Prl-nmF PIC x(24), ,
2P910*01 PL"T-(ARFL-Tor PIr. y(24).
29000*0 1 proLy PI(' y(24). *
201 0 0*01 pAP-11K , F-0FTLTr0 PTC 9(0)V09 CrMP vALUF TS 100n000n0. *
29200*01 pjr-51Pwv4pTpirc.
203nQ 4 ()2 nTr IARIL fCCUPC 17 TT,I,L1 VS PTC X(12). * 2040u4 02 nTE-s[Tcr PrilipS 12'TTk4tc Plc 9f9)V('9 CnI.,T. * 2q5rm* 07 DIF-sLTrr-prrcENT nCcIIPS 12 TTKAFC PTC 900? rq , k 4 P. *
206.00* Op n1E - Tort) 1 PTC 9(12)k , 90 r ?,P. *
20700*0 1 7T P 20p0O*01 PFrI01"Al-TrITLI F. PTC
)(firm),
200n0* n2 P'.STATE.Nhtr
3n000* 0:, P-rCHrTv-t"?
PTC Y(3 ) VALUF ?RFfir. PTC 0(1) vaLpE 909 . *
30100* 02 r(TrIr-T0TP1
3r2nn* 02 PATTENI-InTAI riE 911 2 ). *
3 0 300* 02 mE0TcAT0-TCTAL PTC 902).
304nc 4 n2 6rf,4kLF - TnTt I PTC 9112).
30000* 02 mALFInTAI PTC 902).
30(.00* 02 PACE. 3n7flo, 1 3 vpirF PTC 9e1n). *
3
n
()Prm * * c)no, "3 'orEPTrAPJ.Tm0TAN PTC 900).
n3 PI
PTC 9/1 0 ).
31000* "3 mr)(TCAN-6rPTrAm PIC 900), *
311nn, "3 rpIEJYTal PTC 9f11). *
31200* "3 0TI-4- P - P4rr k
3i3t-, 0* ''''3 ETH'Ir .
PIC 9r10).
PTC 90(1). *
310r0* n2 m4pTTT4L-sTT(IS. *
mtI 3 1 500* "3 ppTrp *
3100* "1 trirFP-104rrTED
PTC 900).
PTC 900). *
31700* 1 3 SFPAPlkITI PTC 911r). *
31;10)* r-3 r)TvnPrEn PTC 900).
31000* '1 3 SnotiCr-nvcrA5r0 PIC 900). *
*
32000* 02 vTSTI- 10 1A1 . *
321r0* "3 v -T7T 11 PTC 9r 15), * .327D * "3 SI?PPLY-0.-ScHrn PTC 905). 3930n 4 "3 W0 S(HrO-trkMAI-CHrcK PT L 901). *
32400* "3 1!kiTV4 r PTC 90C). *
32fl* ^ 3 RFUTS-ANP.IPL I ("HFC
7.0* ^'3 SHPPLY.0r*ilmSrHED
PTC 90c). *
326"0* n3 pFvTSTT *
32 PTE NZ): *
320nn, "3 uksrprm-Pp(111 PIC r(15). *
32r00* 31N1(1* 1 3 OwSCHrO-FPPRLrM PIC 0(15).
*
11 tp., spHrD-rPPPLrY'RFV PIC r(151. *
331r*
317017*
33110*
33/100*
33510*
31o0*
317r0*
31pro*
33Qnc;*
3onro*
361rn*
3/12ro*
36:00* 3/Jiloo*
3/15ro*
3 ,,4.1C*
3/17P0*
3/1/1 0..
3/1o00*
3n7(74,
39110*
35210*
3c3r0*
354rp*
3sro*
3.6r(`*
3s7ro*
3Spno*
3sc,o0*
36nno*
3 A1n04, 62rr*
30"0*
3Abro*
3sno*
3f?,no*
3470C*
3Apon*
3AcIrC*
37riNo*
371ro*
3/200*
37300*
37tro*
37500*
3 7 600*
37700*
37prO*
37Qr0*
3Rrrn*
3a.1 r0*
3P2PD*
3R10n*
3Rtrr*
3R5r0*
Bp6ro*
3P7rr*
3Apnn*
3pprn*
3q010*
3q110*
3o2nn*
393no*
3Q470*
3000*
316rr*
307rr*
3qprr*
39900*
40nro*
itoirr.;r
Lrpro,
4n3Pfl*
6061, 0*
4r16nn *
4 0 70;5*
bflrnn.i,
tino7 *
41nn0-,
aIl0o*
412no,
t11 3n(*
P2 PPF(;-TnYAL.
'3 T0TAL-PPFC
1 3 PrIpri - tLrr
1 3 LAST -1 11,T\FPY. ()r P 0 Pk-ti TVF-1FRm
pnr, H-t1Tk/F-PPE
nc 0IP1-1- Ynr
rc HIcwArt - PT os HFv[nwrpir
Oc r1 grC,-TT0FP P5 Urvi/N0v0P.
_"3 TTTill ..1:Ft'N,S
Cw101 PF .0 -0V - ALTVF
0? Co!,,JTICri, rt1,4- -11cE.
n3 rArI NTF-nr..Cr-IISFn
03 FT-4nL-kcrn-nST. nc ki7vj
oc nP.mL
rs
0c !)1ApprrInm
o, Filfw
c PYTHp
nr,
05 TrAEPTITIN
Cc STrTiTI T7ATTON
cc OTIOP-PONTPA
cc KO:TWIT-NOT-KNOWN
P 3 mETH 1 O - FIpScoIREP - PY. 0c; pPrv.q . rcTrin
ng: p*aftni TP70
cc r04 10 .,n7,-, T
ti c Piwro n7 srpvT1rS..vrrVT0F0.
03 crITpAcrr-CrIUN
03 5TEPILT7A-CHOW'
TKJrrpTIt
03 APOnfTrN.croN
03 s1CTA1.w(rPmrOuni
01 0THrp-i rlIN
03 H nnn-rrr5SoPF
03 Uri - PLnfr-TEcT
03 HCI-PGF-TEST
013 i d
(13 VDPI-TF5T,
r 5 Vnpl-TrTAI
r5 vnpL.rns
vnpL.nrc,
03 PA ,) -S ,40.
PAP - TrTAL
r5 PAP-TCS
r5 reiP-r1
03 ir - rHLIIPE. r, (1r-irTAL
r5 tlr.pic:
n5 6r-mvr
03 bpFAST.TnTA,
03 PFLCTC-T0TAI
03 UPTA[rcIS-T0T
03 STcvLF-CFLI-TEsT.
n5 STC0--T0TAL
n5 STri6 -Pfl c
ori ,sTcri
STk nI1 T 71+ TTnNI".TnT
03 PICrTi ITY.TOTAI
03 pr/FrzNArcv-IrST.
05 PrEG-TFST-1- 01- Al
05 1'0E- 1;-rn,5
05 prIkG-t'r0
03 0T ,-4 FR-71-cT
07
03 Nn- - Tkrn
0 3 ORA! Tfti
03 Ili '-'10 -trAt
03 DT A-Trvui
03 F OkKA-TT- TAI?
03 PYTwv-TPT111.
n3 -, riNnfl..T0TAI
03 TP,WrcTirkt-TnTAL
03 STF 0 III7-TnIAL
03 fiTHri-rrN , TRA-TflTAl
-sTir-OTH0D. Cc/ PFAsnN
03 pprel-p1-TnTAL
03 (;.. f n
PTC 9f1).
PTC 9r1).
PTC 9f15),
PTC 9r15).
PTC 9r15),
PTC 905).
PTC 9r1c, ),
PIC 9ri 5 ).
PTC 9e15).
PTC 9r1). PTC 9e15)?
PTC 9r15).
PIC 9t1 5 ).
PIC 905).
PIC 9t15).
Pic 9r15).
PIC 9r15),
PIC 9 F1c).
PIC 9(15).
PTc, 9r1c).
PTC 9e1).
PIC 9r15).
PIC 9e15),
PTC 9,15).
PIC 9(.1).
PTC
PIC 9 , 15).
PIC P( 1 5). PIC rs(15).
PIC n(l5).
PIC r.(",). PIC r(15).
PIC P(15).
FTC . (1),
pIr r(15).
PTC n(15),
PIC f, (15).
PIC 0 (15).
Plc n(15).
PIC r'(15).
PIC r(15.
PIC P(15).
PIC f7 (15).
PIC p(15).
PIC r., (15).
PIC f'(15.
PIC f"( 1 5).
PIC ^(15). plc (1(15).
PIC r(15). 'Dir. n(15). PIr r(15).
p!r r(15). Pic r)(15).
PIC r(15).
rIr r(15).
PIC r(15).
pIr r(15).
pIr r, ( 4 5). PIC r(15).
plr r(15).
PIC r(15),
plr r(15). Pic e'(15),
PIr r(15). pIr e(15),
Pir 0 (15).
PP' 151.
PIC 0-(15).
PTC 9(15).
tilti * 03 SFrv-Pri- r-T0TAL
hiSrn* n3 r,, FPTCnl -PFAcfN-TnT
61 . ... 03 nU1 17"r- r fisTir - TDTAI
4170'r7, 02 qF- T- E pPr - ,:-1 I cF wuFPE.
41 RN-,, ill TITAi-vrrFPPE0
1110* 01 Snr-Srr-TOTIIL
0 fr- n-..5 1-- 1 - Tirf AL u?r, nc *
4c, 1nr- 01 srFrTI 17rTInN-Prr
t2;7rn* 03 APrpmfF-TOTAL
4230n* 03 10FrPTII-TPF4T-Tnr
4p/100 , 03 01- 14- 14-.v 1 FFPprn-TnTAL
425rr* (1 ') rAT1P0 T-sIrr . -pv.
ii9On* i)3 es 3 Pu v TrTrtk*-TnTAi
4 .2700* 03 P-H-4,-T/TA1
11 79-00- 0 3 E-P-1 , -t-TnTAL
62P00* 03 N0Pc:F-kI0WIFF-TnT
41000* 03 1-0-r- -riTAL
411rOw 01 snrrAl-F4- P-TnTAL
412no* 03 AT0r..TiTAL
413r0* 03 CLFPK-TrTAt
illt!nn* 03 NimIlTTrn , isT-TIT
iosno* 03 frITHrp-tkIDLF- D-TnT
41600* 0? YFFE.PRAL-FrPPCP.
41700* 03 SEIF-TrTtr
/4 1 1RnC* 03 1107nFAcL-WrIpKER-TnT
41000* 03 0THrP-Fr-CLTNTC-T0T
hi.0004, 03 H0Sr-OF!ITH-AGENcY-T0T
4f, 1n0 * 03 pPTIT-rgC.-NUPSF-70TAI
42r, 0 * 03 /F- LFAPI-AC,EmCY..TnT
4100* 03 AmnTHri-rriroTC-PAT-TfiT
4iltIr0* 03 FAM - PTF!'T - TnT
4 69r, D+ 03 IV-PAnIr-/4wSPAPFP-TOT
4/,A.00* 03 PFFrPPTF-HY-11THFp-.T0TAL
44700* 03 prFFt?w . r-py.uNKKInwN.TnT
400,6 07 NFvT-AppnrvrmENIT-pmp,
/10n0* 03 SUPnLY.TRIK)G-CwK-InT
h5n00,, 03 VIr\1 0ALwrvAH-TTITAI 41^.()... 01 mrDTCPI-PPTIn-TDTAL
4 51 q,.. )1 0TI.J- p-rrpTITy-TTAI
4 53n0* 01 N1 - KiEYT - APPnIN"T0T
45tr0* 02 pELS"1"'-ftl-nI5r 1-1 APr, F. 4;5:(-,0 * 03 sTinTL.AppOTN-TnTAL
4n0* (13 lornFAI cF..T1TAL
457rN0* 03 PFOTCAI-PEAC - TnTAF
4;, P1 0e* 01 pATT[W1 ,, t0PVF- PwsTfITAL
b5gr01 (13 FATTEmT-jOST-INTFPEsT-IrT
LIFrrO* 03 Pfjc-orIpIn - Tryttki
1410C, * 0 1 PPIr-littlAN.TnTAI
11 6200* ()3 orfl. 1"1 -10-0TSrHAR-prAc-Tr 0
4f- 3r0*()1 cl- PTF-P TTFf, T...r4TA.
66AnO* 02 e,TATr-TPTAIF n000RS 4 TI145,
46500* 03 5TATE-A.
4 6F,0 0* Ob PldR-A
46700* OP STAIr-N/q1.
46p00* 04 r[TfrIc - TOTPI
4Aur0* flu PATTENT-TnTPt
470r1()* 04 MErTrATr-TnTbl
47100* 04 FEtoiftr''TCTfl
477row Ells m,Air-ITTA!
47300-:, 03 STATE-F, .
4711 0 0* On RAN- .
/175P0* '5 HITF
47('0* r5 p1 A'
4 7 700* 115 AN4FRirAtI-T0TAN
47pfI n* f, 5 rvroCrir, ,, o, rpIrAN
4740c* rI 5 rpirNTAI
4p00* ^5 FITFP-(4
4P100* "' FTHmIr
40200* 04 tot:PITTAI*.STVIS.
Us300 f1 5 ik , ARP.Irn
01 400* 01 5 NrOP-1AATrTF0
11 p0C,.- n5 SFPAPATFT
Moi.,* "5 nTynP ,"111
4P7n0* fI 5 SpflOSr-0.FrFAS70
tifIFin* 03 S'ATF-C.
0, 90-04- n4 )/IST f-TnTAI.
40000*
1141 111*
"5 vTnTA1
115 S0PPLY-nr\-cHFP
11420/, "5 1WS0Hrp-AP"TAI-CHFck
47300... ^5 ItoTAr"
47fIr0* '1 5 PrV IS - AMN !'ti -('HFCv
itqsno * 1 5 prvTSTI
/i7H nr, a 75 ctrPPL_v - nN I ONSrHED
PIC n(15).
PIC r(15).
PIC r(15).
PIC r(15).
PIC r(15).
PIr r(15).
plr
PIC ?7(15).
PtC n(15).
PIr r( 1 5).
pIr r(15).
PIC r(15).
pIc r(15). pro.0(15).
PIr r,(15).
plc
plc
r(15),
r(i5).
PP. f.(15 ) .
PIC ?15).
PIC r1(15).
PIC 0 ( 1 5).
PP' c(15).
PIC 0(15),
PIC f(15).
PIr r, (151.
PP' r(15),
PIC
pIr
0(15),
r(15).
PIC. f.(15).
PIr r(15),
PIr r(15).
PIC -(15).
PIC '(15).
p lc r(15).
pIr n(15).
PU' r(15).
PIC r(15).
PIC r(15).
PIC r( 19 ).
PIC r( 1 5).
PIC r (15),
PIC r(15). PIC 9(1L).
PIC r(15).
pIr 999.
PTC X(3). _
rIE zfi3.
PIC 9r17).
PTC 9r12).
PIC 902).
PIC 9r10).
PIC 9r1n),
PTC 9(.10).
PIC 9r10).
PIC 9r10).
PIC 9r1r).
PTC 9r1r).
PTC 9r10).
PIC 9r1r).
PTC 9 1P). PTC 9r10).
PIC 9e10).
PTC 9r1$).
PIC 9f1C).
PTC 9r1C).
PIC 9e1).
PIC 9f15).
PIC
PTC 9e1c;).
PIC 0(15).
PIC 0(15).
PIC 4(15).
pir r, (15).
PIr (7(15).
plc (, (15).
plc "(15).
pIC ^(15).
PIC n(151,
plc r( 1 5).
plc r(15).
plc 0 (15'1 .
PI(' 0(15),
PIC -(15).
PIC r(15).
407nC:*
4QPnO*
419""*
5I1 0";,*
5 1 100*
5r200*
5 0 31"C*
50/10C*
5rcnr*
5^e.-."0 ,,
50700
50prr*
50000*
5inno*
51100*
512n0+
51300*
511100*
51500*
51 Fro*
917"0*
51F0c*
51900*
57000*
.5?100..
52 D*
5230*
5211nD-r
974"0*
52 - 0*
57700*
52s00*
57q00*
51000*
5:11(.0*
537no*
51300* n3 STATF..V.,

t)3In0* 0 6 SFPvTrrS.-1VoVI^ED.
519^0* 05 CON:THAffP-CnUN
516..r0w 05 sTH)TLT7A-cnuN
17n0* ()c INrrpTIiT
- CoUN
5PnC* 05 AR0rITTr-cO0N
519"C* 05 SOCTAL-crP-rOUN
5r!n00y, 09 ilTHrp. c rIIN
5410n* 09 4I,_0"I I -v^r7S5IIPE
5/12 0 0* 05 vn-PLnr0-TrcT
5t!100* 05 kr.T.41-TEST
5/.4400* 0 5 fil:'n0-TFc7
560* 05411777F;TriAl
5/1 0*
5117rI O* no Vnl_.1- "S
9/19(70* ne, VnPL....rr0
5 ,t0"0* 05 PAP-Sor,^P.
550"D* "1 PrP-TmTAL
5.51"O* 06 PAP-F09
55700* 06 PAF^Prn
553 0 0* 09 n r.7%i iTI " .
A[ 59tin,",,
59500* n6 (;r - prF ("s Cin.-PIP S9AnC*
59710* 05
5Art7* ('5
55900* 05 5(.nr, o* 05
r,5 ip.;scprowrrPPCIP PIC m(15).
15 UtoSCHRO-rrpLrm
^9 0rosr.Hr-D-rrOP(rN!-PrV
pIr r(15),
PIC m(15).
06 P9Fr-TOTAL,
05 TnlAt-PRFc PTC
05 fripm-ni T ? r PTC 9r15).
"5 ST-"FiTkrpY.
"6 r.10"-ei Tyr-IF:pm
rA Pogr-l!TVI-PPF PTC
PTC ()plc).
cA 90p-rrAn PTC 9r19),
nA kiTrpT PTC 909).
0( !lEk/FP-rPF0 PTC 9'15),
ge,,' rl7.,(FP
PTC 905).
PTC 9r15).
05 FrIAL-RPTvS Pic 9r1). f)9 rpitypLN*01.,-ALIkir PTC 9r15).
03 STATE-f'.
011 CON'TkACOOTI\J--UcE.
05 pATTrp?,-"NCr-11,5,Fp PTC 905).
0 (15FW,T-1?'0-14nST. PIC 9r15),
rA r1Pi PIC 9r15).
0A. Tun PTC 9r15).
n4 nI"I Pt4pArm PTC 905).
PTC 9r15),
rAT-04
04 Wt,':
PTC 9r15).
0A crlypn PTC 9r15).
OA TNAcTION PTC 9r15).
OA SImk?T7ATTON PTC 9r19),
rA r1ToF.P-r-rNTpA PTC 9r15),
0ArTonr-t-0T-KNOwni
05 k,ETH0T,-Frpscr7IRrn-pY,
16 pPTv-rrcrrip
PTC 905).
PTC 9r19).
rA PHP- r1 TN Tr PTC 905).
(1"A 0P1,6(11T PTC 905).
(' IlTiJr7 FTC 905).
BPFST ,-TPTAI
PPI.VIC- 1"nTAI
11 70,, 31+lvFTS-T0T sTcvtr-cr[t.irsT.
PIC "(151,
pIc n(15),
PIC , (15).
PIC 1(15).
plc e, (15). pIc 0(151.
PTC 9(15).
PIC 0(15),
pir e(15).
PIC n(15).
PIC m(15).
PIC ^(19),
PIC "(15).
PIC "(15).
PTC c(15).
pir 0(15).
510n* of ST(KIT-TOTAI
5(7C0* 06 Srcio u - pcir
53"C* 06 S., TCL/IF -NLEn 56tn0, 05 sTEL,T 1 T76TTnN-TOT
5(5r0* oc jOrkT11 TTY-ToTA1
56100* 0 5 FP[70,,, Atrv-TrST,
5(700* nt. PrE.0.TFST-TOTAI
5Apn0,k 06 Prrn-rns
56oP0* m6 0 PFO-!FG
57t"nO* 05 OV-TP-TIT
571nD* "3 STATF-F.
572"o* 0 6 COL0T9i3 -FTL-00-AFTEP..visTT,
571"0* 05 Nr1-t4i T1 - V r 57hr",)* or-; or,4.1 -Tr TA'
57 '0* 0.. ToP-TrITAI
57Anrw oc rTA-TnTPI
577nc * oc vIrs#,1-TrTAL ,.)1,f4mr?,, 05 RYTP"7r7A1
57(;('0* 05 c1N^riki-TrTAI
PIC r(15),
plc 0(15).
PIC 0(15),
PIC ^(15).
PIC 1(15),
PIC n(15).
PIC n(151.
PIC n(15),
PIC n(151.
FTC 9(1).
PIC r)(15), Pic rti5).
PIC n(15).
PIC n(15).
PIC n(15),
PIC n(15),
PIC o(15),
PIC! n(15).
PI
plc
n(15), o(15),
PIC
plc
0 ( 1 5), 0(15).
PIC n(15).
PTC n(151.
PIC n(15),
PIC n(15) PIC n(1 .5).
PIC n(15).
PIC n(151.
PIC
pir.
0(15),
0(15).
PIC c, (15),
PIC r(15),
PIC
pIc
0(15),
PIC 0(15),
PIC -(15).
PIC n(151,
PIC n(15).
PIC plt 0(15', 0(15).
plc
pIC
0?15),
e)(15),
PIC n(15).
plc ?15).
PIC
plc
0(15),
n(15),
PIC n(15).
PIC n(15),
r, (15).
plc (15),
PIC r(15),
PIC p W;( f5).
PIC 9991
PTC 9q1..
PTC 9/12).
FTC 9r17).
PTC 9f1?).
PIC 9r17).
PTC 900).
PTC 900).
PTC 900).
PTC 900).
PIC 9r10).
PIC 9r10).
PTC 900).
PTC 9(10).
PTC 900).
PTC 900).
PTC 900),
PTC 9r10).
6511.nr.,
61-sQnD,
6_,Ann*
5 1 0*
5Q1"0*
5q1*
5stAn0w
t95rn*
5PF,Pr*
5P7r10*
5 9 Fr1 ;1,
5QonD., n3
5t,nnoi,
50100*
592n0*
503"3*
59/J0*
52500*
.5060C:*
5Q700*
59pn0*
5090D*
60000*
6n1nn*
60700*
603nC+
6nonD*
60snfl*
6n6nD*
6, 0 70.*
6"9.0.0*
6 0 Qn0+ n3
61n00*
611r0*
612n0*
o'11 0 0*
6160C*
forko*
61K"P*
6174-
6, 1pr0*
61000{
6:7'0004
62100*
62200* 03
67300*
67bnn*
62500*
62600*
6770C*
62900*
629"0*
61000*
61100*
61200*
61300*
61000*
63c 0 fl*
05 STF:"ItT7A-TrIAL 05 [CrOrk''(r!'jP 6.. TnTAI
Oh REASn.sTr'rwmFT1 -4 0D.
05 P'4E- n-rit-TrITAL
05 nF,'r(;-tryLAm-Tor
05 sr- Ey-pi.rr-TnTAL
05 r FDTCA1 -0 FrI0N - TnT
05 ntl'FP-rrts0?o-T0TA!
ATP-G.
On PEFFPRr0.-FicEINuFPF.
05 T /kt ^r FFPDEr)
05 sOc-SFr.-T0TAL
05 P/FO-SEF--TOTAL
0 5 STE 0 ILT7PTInN-REF
"5 Aq0nTTrN-TOTAL
05 INFrRTII-TPFAt - Tor
Os OTHrp-pvrrPoED-TrTAL
OA PATIFNT-cIFN-HY.
05 P 1-0(qtrIff.'-TOTAL
05 P - H - N"TnTAL oq F - P - H - r - TnTAL
N , 0P5FoqTPVIIPE-TnT
05 L-P-N-TOTAL.
05 SICTAI I Fp-TnTAI
ATnr-TfTL
05 CLE0K-TrTAL
05 IyITOITTrNTST - TOT 05 n*Hrp-vtkl)LP0-TPT
S'ATF.H.
nm pErFRRAL-crI!RCr.
05 SFLF..Ti- TAL
05 n1)TrEArl- I W0PKFp .. ToT
05 OTHFP-i-r..CLTNIC I TPT
05 H13 50 .0-1F 111 TH-AfiETY..1- n'T
fly p21%/-01c-NUPSF ,-IPTAI
05 KF[rApf.-AGFNcY..TPT
05 AMPTHEV-CLINIC.*PAT...TOT
05 FA1'-l-P11k4)-TnT
('5 E 5 TV'PAOTF-NF
05 pIFFRpFr-Y-0THFp-ToTAL
05 PEIFRPIF-RY-OW ,IOWN-Tr1T
crATF
- I.
0A NFO-t\PHIIVTPFmT-PUP.
nc SUrrlY?TPTNG-ckv.TrIT
ANI'AIAL I I YAP -1- 11T
(15 ImFriTCAI.-PPOP ,- TOTL
05 0THFF...trPrato..Tr1TAL
05 N0 - PTXT-ApPnIN-TnT
OF! PFt5r1N-1-- 0-rTSnHARnF.
05 STInit.-APPOIN-T 0 TAL
05 i4EN'nFAISF..TOTAL
05 N?- 0 , c4I-PEAS TDTAI
05 pATTENII-NTVrP-TnTAL
05 linTT PNT-IrST-PJTEPEST-Ir, T
05 Pr?Fr--PFTPFP-TOTAl
61,c.no* 05 FPFn.tn, r1AN-T0TAI
f..17"0* 05 owfooPie-piSf-HAR-pFAc-ToT
61AnO*01 P-qTkTr-POTIErT-nATA,
6 1 0 0 0* 02 P-STATF-InVIS rrruPc 4 TtkrS,
6/Jon0* 03 STATF-A.
6A1(10* 04 r'LANv"A
6h7nn* 04 rl TroTr -rOTTI 6/4300* nh PAITEP0 T - TOTti
64400* n4 mfnTc?0 ,1 - Tr:TAL 6/.1.5n0* Oa FkMt\IF - TOTtl
60600* o' mnr-TOTAL
647 0 0* 0 3 STATF-.
64Pno* n 1 PACF. 6/ign0* ^5 1644TTF
65on 1 5 PI Arlo. 6con, * r)s A v EpTpv0 - TI-DTAN
65700* 05 ')(TrAhmttr- RTrAN
n5 opIFNTAI
fITHFP-PACF
1 5 FTHN!n
nli rAPITTP1..STATHS.
1 5 HilkPIrD
^5 f,IF?)FP-rAFrTF0
SF PARATFF
15 niv0PnFD 6e,InO* SPOOSr-0rrrASrn
6,7r)r., n3 SrtTF-C.
6h3nD.4 n1 V TS! T'"Ir's f At *
66/4o0* n5 vTnTA! PTC 9r1c).
Fh5ro ^5 S1IPPt..y-nt-ccprp PTC 9r15).
666rq7) * .., 5 i..o, , srPro-p t r,, 1 -rHrri< PTC 905).
6A.,7no,k r,5 T lo -Til<r PTC 90c).
6(-,F1 r r i '11 PF . VT I illkit.i Al -cHFcv PTC 9r15).
60,9nc? n5 PVT PTC 9f15).
67000* oC SOPnY TIt"IINSCHED PTC 9,1c),
671n0+ 'IS 1.11, !srPrr , ...4r1, - ppflp pIr
672"0", '5 UhisCHrr-TnPlrY PIC v(15),
671f`0* ^5 lo,:ScHrr-F - rrPirM - RrV pir 0(15),
67i1n0* Oh PRFfl - TnTlat.
67500 ,0 ^5 TrITIL-Pr? '.' PTC 9(15).
676100* .15 pnRM-Al.Tvr PTC 905).
6 /7 ,', C'* '1 5 Insr-n[LT%!FRY.
67 1 0* !)f, rOPN-1'tIVF-TFRm PTC 9r1) . 679nc* 0,4.. PrPN-OTVI-PRE PTC 9c1).
6pnno* r4, ROnN - FrAP PTC 905).
6R1(1 0* r?,. Ic--rpT Plc 9'15),
6 11 2C-r2* Ot, NEvEP-FPFG PTC 905). 6R3r.c* C, !K, r'r- G...!TI-IFP PTC 90).
6RanC* C(', 10'IvN0i-N PIC 9(1).
6g5^C)* ^5 FFIAL"fj- PTPS PTC 9r15).
6q6"0* lc CIATLOoFmwrol/4-ALTVE- PTC 905).
hr7nr* P3 STATE-P.
6glar0* Oh C(1NTRAOrpTT I r-USE.
6cloc0* n5 pATTrNTF-nNCr-USFp PTC 905). igronn.. O') N'ETHnP-tFrn - 0.40ST.
691(1 C* Ot) Nri, tr PTC 905). 6Q7o0* 06 CIPAI, PTC 9r15).
69310* (.1(- TOr, PTC 90c).
6c1rir, 0*
6050'3*
67)64,
0A nimpHyPrM
OA prIA (7),, 74Y -Thhf
PTC c
PTC 9
90
05
)
)
.
,
PTC 9r15).
62700* of, crAJDT1t PTC 9f1).
64Ann* 0 TkJErITON PTC 9f15),
699 0 0* Of, STT"PTIT7ATTIN PIC 9e15),
7"000* :)(. nTpEphccNTryA PTC 90). 7^1 (C* PA mEri.411( - - ,,, OT-KNOWN PTC 9,1c
5
).
77('94. 05 I.AETI-inr...rrPSCPIREn''PY.
71300* oe, PPfv.- FrrTnIP PTC 9r1),
701100* ()A PUP-Cl TK.TC PIC 90c). 7ccrn* c)., T1PoG(;IcT PIC 905). 7r) c* OA oTufp PTC 9(15).
7n7c0* 0 3 STATF-E.
7nRnO* nn sF-pvTrr- S - frnvInED.
71400* 05 Cr0.TPACFPftCnUM PIC c(15).
710 1 1* 05 sTrnILT7A.cnUN PIC ^(15).
71100* 05 INFrpTTIT-CrUN plc r, (15).
712O0* 05 AR0PITT - t ,-COHN PIC c(15).
71300* 05 sTICTAt.-FPP-rOUN PIC e(15).
71/1"0.0 05 0THrR-cni)N Pic 0(15),
71500* Oc PLnov,y-rrFSS!IRF PTC 9(15).
71 r.o.,, 05 ',gin-nt Pr t-TFcT pIr n(151.
717n.n* (15 HeT-Hrj-TvST PIC r (15).
71P00* 0 5 P1..r."1.;-Tr plc c(15),
71001)* 05 10PI -TF T,
720nn* no vnM.-TPTAI PIC 0(15).
7:) 1(?, 0* r, VnpL.nr1 S PIC c(15),
77200* 06 VP$PI-PO plc r(15),
72300* 05 PAP-SmfrP.
724r0* nn PPi.;-TPTAl PIC r(15).
72500* ro PPP-r rc PIC n(15).
72.P7* 06 Pt, F - rFOL PIC n(15),
727nc)* 05 rpc - rtAIIPE.
72Pn0* Pf', rr"0- rTti. plr n(15).
77Pn3* no (;rwpfc PIC n(15).
71nnn* r6 (;r-tiF( pIr r(15),
71110* 05 PPE'Asr-TnTAI plc r, (15),
732O1* 05 PIL"TC-TOTAI PIC 0-(15),
713 ,7'0* 05 URIk , Aise5TS-TOT plc 0(15).
71P^0* 05 siCvi r-rra -TEST ?
71510* ,Nh STc.<1 re-TIIThl. pIr ^(15),
7 -th00* (...6, STk:r1 r -P(Ic plc f(15).
71711*
71RnO*
rh, A5TCv1F.*NEr,
n5 s -rt r0 1 T 7AT 1 ofq - TrT
nIr
;((;;,.
71QoD4r nr, *piFrpTIITTY-TOTAI Pic "(15).
7pr , no ,s, 05 ppf, nrcse-TrST.
7/11 ,', 0,, r6 Ppfn-TFST.TrITAI pie r, (15). 7/;,ro* Of rPf (;-111 S plc 1(15).
7130r%,4
liloo*
(e', PPIr.-FC, (1c nTHrp-Tf5T r, (15). pp* 0(15).
7/50(* o3 STATF ,-F.
7.f': P h Crl r, A., TTP"AFTEP-vIcTT,
7/17PC,* i)c \I.1t T L r0
7 , !F47,,. ' :, 5 mr?A!
- Tc-TAI
711c:?,00 05 Ti10 - T 71Tfl
75nrr* 05 DTA-T71TP!
7.,;107;* 0r;Fna-Trifq
752r0* n5 000,-7ITINI
79300* 09 C0P''?00.70TAI
75117'04- 05 1 , 1Jrcflrf.-TnTAL
755-,- n5 sirr->I1 T7p, - TnTAL
75i,r'0, 0 5 0THFP-TPA-TDTAt
75700* C' RFASI"SVF-METHPD,
7Sf'('0 - 05 PRFrl -P I tN-.TnIAL
790()n* 0c, raraFG- I.
7rnO* 05 srEv-rrre.-T0TAL
6100* 05 0FOTC1\I-PEAcON-Tcr
(, 20V* 05 0THFH-vrAsnto-TOTAI
7100* 0 3 STATF-(a.
700,1, 0/! pErFPPrk-rISE"AiwERP.
7A5r0* 05 TrITAL-rFrrPpET)
7640* 05 snr-SFr-irTAL
767r0* 05 vFP-SVF-TnTAL 7('04, 05 STFPTIT7ATInN-RFr
7f,or', 0, 05 ArlOPITrf'-T0TAL
77000* 05 TNFrpTT1-TPFAT-T0T .
771 0 0* 05 IITHVR- F = rFEPPE0-TOTAL
77200* oft FIATIrrr-cJVH-FY.
77300* 05 PHYc, JC1ATrTAL 77(inr* 05 H - P - N-T0TAI
775r)0 05 F-P-P-t-TPTAL
770,, 05 PcF-1,. TrWIFF-T?T
77700* 05 1.-P-tI -TFTAL
7 7P 0 0* 05 sfle.TA, I I FFR-TOTAI
77q00* Cc ATor TITAL
7sinn()4- Oc C00-71- 7AL
7P1OD* 05 r-IlTpTITCP+IST-TDT
7s200 ,- 05 riTHrk
- vP!''PLP- O - TOT
7 ,1 300* 0 3 STAFF-H.
7P4ro* 0P PFF- FPPAI-crrPCF+ 705* 05 sr[ 1-- -T TA[
7R .,?,00* 05 loTr)EArE.INOpKFR-TnT
7A70c* 05 0THrP-Fr-CliNTC-TOT
7Rc 7, 0* 05 Hn5p-i4qt1.TH.AGFCY-T0T
79900* 05 PPTw-01- C-UPSF...TnTA
77,7)* 05 n rApt --AC,floCy I Tnr
791 0 ?* 05 ANOTHFF-CI.THIC-PAT-T0T
70200- 05 [PM.-JpTrKT-TOT
7y'4! 05 lv - pA010-NFwSPAPFP-Tri
79/1 0 0,? ( prjr- F;prr-py-0THE9.1"r!TAL
7D5cr* 05 REFrpprr-pli-UNKm0wN-Tn1
7Q0,0* 0 3 STATE - I. 7Q7r0* Oli r!FyT_Pnk'n T
7opn0* 05 colPpl y.c:TpTmG-C1-41e-TrIT
7oprO* 05 ANNIIAL.ryAm-TnTAI
FnOrD* 95 , P- DrcAl-Ppflp I TOTAI
8 0 10r)* C, r..; prIAT- -tprpTps-TOTAL
8r2r, rA 05 Nr.1-ry7-AppnIN-TrIT 8 0 3no* 0/1 pFAsIrnp-nisr.pARrr.
Follfln ,, 05 sTFPIL., APPIITN-TrIAL
F0500* oc pAFknFAtsF-TnTAL
Pr600* 1)5 r,, F?TcAl-P[Ac.*TrITAI
Pm707)* 05 pATTHI-m0VrP TnrAL
Fk^000* 05 pATTpli-InST-TNITFREcT-InT
80900* 05 KPFr-0FcTRFn-TDTAk
Flrlow 05 pRf7.-11P.rIAN-TnTA!
6
.
1100* 05 uNH Knl,q-DTS^HAR-PFAc-TOT
Pl2n *01 ntr
P13P0*01 TH7E[r - NH
F 1 /400*01 TA0K
815n0,%01 TA"K-S0H._
H .. i00* 02 A nrcio, it irl,, E ,.
817n0* 02 P rrcuPc LI TT0Fc
815r. , 0* 02 C
F100,, r2 0
8 700r* 02 F
821n4, 02 F
P2205, 02 (;
e23r04- 0? H
F2/(C0.k 02 T
F?cP9* (1 2 j
8704, 02 K
F;1700* 1)2 L
H2P rY0 07 0
plr 0(15).
pIc m(15).
PIC m(15).
Plc n(151.
PIC 0(1.51.
PIr 0 (15).
PIC -(151.
PIC 0 (151,
PIC 0(151,
PT(' 0 (15).
PIC 0 (15).
PIC r.(1) plc , (15)..
PIC 0(15),
PIr 0(15).
PIC n(1;). PIC 0(1 1,
PIC 0(151,
PIC' 0 (151.
PIC 0(15).
PIC 0(15).
Plc 0 (15),
PIC 0(151
PIC 0 (151..
PIC n(15).
Pic 0(151,
plc n(15).
PIr 0(15),
PIC n(15),
PIC n(15).
PIC 0(151. PIr 0(151,
PI( r(15).
PIC (15).
PIC 0(15),
PIC (15).
plc r(15).
pIc 0(15).
PIC 0(15).
PIr (7(151.
PIC 0(15).
PIC n(15). plc n(15).
PIr 0(15).
plc r(15).
PIr 0(15),
pIC
pIc 0(15),
PIr n(15).
PIC 0 (151.
PIC 0(151,
PIr r(15),
PTC 9(I).
PIC. 0(15),
PIr P vAltIF 1.
prc 90)1
PIr Q(0) COMP:
PIr 0 ( 1 5) COMP, PIC 0(15) comp,
plc 0(15) COMP. PIr 4(15) COMP.
PIC 0(1) rnmP,
plc 0(15) coo, .
PIr 0(15) COMP,
PIr 0(15) rOmP, pIr 9(15) COMP,
PIC 9(15) COMP,
pIr 0(15) COMP,
PIC 0(15) royr.
Plc 9(15) rovp.
pjr o(15) COMP,
PIC 0(15) CnmI.
pIr 0(15) COMP_
Pic 9(15) COMP,
PIC. 9(15) COmP.
PIC 0(15) COMP?
pIr 0(15) rOmP_ pir o(15) COMP.
PIC 0(i5) COMP.
PIC 0(15) riimP.
pIr 0(15) COMP,
PIC p(15) COMP,
PIr Y(1),
0n0* n2 r
t, lnnn* n2
FlIn)* (' 2 P
P32C0* f17 r
n2 R
Plt!rr* 02 c
P35n2, r2 T
81r?no* p2 0
F- 17(T* n2 v
n n n ?
81Q'6* n2 y
./ippr* 0 2 7
c.TPTV-ri) P/12nn*PPOrFIURF icrvTFTr! , .
"3"*nrq."1P Srn,TIn;,.
FIIA00*OPF -7 ILF- q.
fin5* nPFN INFM1 q flv.- 1".
eff6C0* nPFf' TNPHT
F147r * OPFN rUTPLT
FARC04. rPFr nuTouT PLnIrPTA.
Pilorn* r00. "URE tf/NPY TO SrT UP PLr'T nATA?" TO
t5r, p0* TTY-ppr.
P5ipp* LARTTn TTv-noT
Ek5nn* PFAn Frn NFyT srNTEloCr.
TF TTY-Tr; kin,- P(1 AL TO ?YFS" (V TO rnJ.
P5400*D-1,
F 59 "* "PvF -oritLo vim i TkF nuR sTAynARn SET nE purrs..." Tn TTY-ruT:wpTTv TTy-nuT.
8=,7n0* 0FAn RFM-IN AI Ftr NF)(I SpkarNcl._,
FA5Rpc,* IF ITY-INI FDHALS ?vf- c"
F5OrD* PrPrrRm STApArr-SFT;n0 Tn F fl r,
Fi4r1pn* TF Try-Tr IS rnT F01IAL TO "YFs'
8orn* IF "IFT F(.)11AL Tn vcivr
F62O0* .TyPE IN P YF5z pp A Nn Amso- P ri_rAsFu Tn
RA100* To TTY-PUT:IORTTF TTY-01IT:Gn T1 tm-1.
P6
ex,5nv*STANMAPP-SPT.
PLn - P9nnunE. ilno* TF Trymn,j FQ I Ai F c,0 To
PgNe,r!)* t' 4 1107SPACES in rrn - PrOmmY.
PO('* m(I)!r 2,0 TO ni-r;hrF-1111T;OPTTE PF- RcP!CTIVE-
tP,,-nir,RFFs INV41 In VFY rJ-1 Tn Fl7,I, _
eAgr'r* mowF h.c Tn nEnFTF-MIT;w9TTE_pFRepF7cTIvE-
t7cionir-nEnprFS TN:vA!in krY rfl TO FOA.
F 71(0 * m n 0 0,0 Tr] ;WPTTE.PFkcnErTivE -
P 72 ^0*"nEC;Pris INON I to K Y rn Tn rnA.
P7inD.prp-FTND,
romoATF- TANK f-,'11!PEr) = A(1)+6( 7 )*A(3)+A( A )+A(1)+B(2).
P75r1 *"+P(3)+P(M)+r-4-1,44+E+n+H+I+j+K+L+Mi-N+n+P+Q. 1.- R+5+1+W+Y+Z.
P7e.nr * COKAFYITF A(1) RnIrEn = A(1)/TANK,
87710* cOpP'!ITE P(?) PrInED = A(21/TA")'.
87pr, 0* rOpplITE P(1) kntl'rFP = A(1)/TA!'44,
? -(917*rOmPAT17 P(A) prIl "PEP = Alio/TArK,
Piknrn* r0mrirri- r(1) prIlvnED = 8c1)/TAMK.
cOmp'ITF p(9) Pm , r1En = R(2)/TAmV..
COYP1TE P(1) PlirnEr) = E3(1)/TANIK.
rOmPATV P(4) = Fl(ii)/TAAlk.
FAhnO* COMP ATE C POTIN.rFr = r/TANK.
Fp5pn,? CIThrlITE n RO(!rnFr = n/TANV.
ee6p0+ rnmpATF. F Pnitt,Dtr = r/TAI?v. ep7pp * r- potinTr =
PPpnn* rOmPIIIT Prn(rnFr = P/TAMv.
PP9rP* CrImPl!TE p qrHrOFI = q/TANK.
Ponnn* rpr4P , ITF I Rrilrrfr = T/TAMK.
Figlnr* rilPTE A pnorrqr = A/TArv.
fk42r'c)* cOmPTC7 v onlippfr = w/TANw.
A01(`7* CnvPATV: t 9CHI\nrr = I/TANK.
80tin0* rOmPlITE PrIINPEr = v/TANW.
rnmPATf pritrnir "r/TANK.
P900* rOmrilIF r gnmFl . = P/TAI'K.
807r0* rOmPoIF r 90Hrnir = r, /TANK.
PoprI n* romPAur p = cN/TANK.
FO9rD* COmPATE P RnM\nFr = P/TA"'JY.
9non0* (nmn , ITE s PriirDFF = c/TAK'v.
9^1n7* cOmPvITF I POIInfr = T/TAN1 w,
9r2nn* rMAPIITF PnliNr)Ir il/TA"'V.
9n0* COPP11F \! PCIIFr = v/TAYK.
9r4r0* rOO'ITF y PCJINI1Fr = y/TArv?
9r, 5P(1* rOprillL Y PrIllrj)fr = v/TAMw .
9r)nr* COmPTi: 7 2('Ht0)i! = 7/TANK.
9 ('7 ^ *CIFAr ., rMT. 9rrr* NrvE/E Tr Arl),P(2),A(3),A(6),Er1),R(7),R(31,R(4)1pCpbri Fia;.
9rQr?c, i, kg:1yr 7c Trl ts4pN ,n, Pt PPP ,S. 1. rUf Vo 7,TANK
9 , PcO,TPPF- P- n-pTTr-r, y.
91' of=,,. Pf9inpr THpirr-rTTF-PUT-, VARY1N'G X FRO"" 1 AY 1 UYTTL X
912nr* FS (-.F. A1F. i.; /0AN t:PFDF0Pm THPFFO-WRITE-OPT-2 vARyING X FROM 1 9i n0 * PY I IINTTL X r r crFATFp THAN 4.
91v)r+ 4TTTr THp[rn-LA.fri 'ivAL.Tn KPY Tr F1J. 91t,r\0 * moo:. SVArES Tr TIPFVP - LAPpl .
917rn * 1-1vF Arn TO rtaTTUnF-HTII ;wPTIr THRFFO-PrCrPOS
91PrO* I"vAlTp KrY ,;n Tr Inj.
91gr, h4, 1WPF- FlwW?IF
- POT-
92nn0* "nvF PC Y) TI rA(",1- PnF-HTjl ;wRTTr TH 0 FF1)-PFCOTOS
921n04- V'I'AL TO KpY f,r) Tr FnJ.
9'22 0 04-PIOT..nPnflilcV sFrTTnN.
923rD*DFTFF"INF-npTinric.
924('1:,( "Pvr non YPH VISA Tfl PROnorF 3 rTHPN'STPNPL GPAPHS?" 925no* Tn TT'!'-ruT.
920,nr,* vPiTr ITY-nuT
9 ,27nO w DFAp pFri.j" AT frn NrXT SF-107 F- NrE.
92F, 00-4, TF TTY-TN FQ1 1 ,=, IF vYFc" PFPPOPM TwPrEnftPRODUCF.
97Qr0,, IF TTY-TN IS roT FOl'AL Tn "YES" ANn Iv TTY-Tn"
93rne,t. Ts "nT fc,o1A1 Ti +NrT , miTIF ?SAY wHAT???"TO
91104, TTY-ntrt:wPITE TTY-MIT;Gr To nrTrRmiNF-OnTICW5.
9 32(1 4*RFPFto - 1. 933x..* " 4 00- yriC Tsr if' PROnorE pAp.6pAPHc rTynr 1)?"
916n0* Tr TTY-coT.
sila, nn* vRTTv TTymnuT.
916n04- PFAn RF"-1" AT Fhn NFXT cF"TFNFFI
917n0* TF TTY-iN VcoAt ?YFs" PFurOPM PAR-1 ,-PROnurE,
91P00* TF TTY -T,0 Ts NrT Fol i AL Tn "Nn" Akm TTy-I33 IS
91Q 0 0* NnT FOM In "(IC', 140VE ?1-1U1-4??^" in TTY-nUT;
9nOnn* WpTTF TTY-OoTTcP TO REREAD-1.
9/1 1rI O*FFRFAn- 91, 20n* pn v i "n2 r; y nu TO pponvrF RAp-GpAPHC (TYPE" 2)?" 9/13ro* Tn
9hAnb* oPTTr TTv-TIT. 9/15n0 * pFAO PF.0-lit AT rtn NrXT sFAITFNC.E.
9t,Fnn TF TTY-.T" FOIsAiF ?YFc? PFprOP PAR-2-PROOOCE. 9/1 7no, TI Try_1 TS KriT rC3HAL Tr ?YrS" ANn TF TTY-I"'
9t9no* is mnT rw0; mnvF "WHAT DTfI ynU SAY??" TO
9'ionr* TTY-noT:wpTTF 1TNe - ollT;Go TO PFFrArl-9,
9f'0*PF- RpAr...3
91(1 n* "nvF niq,yrP TO PpnpHnE PTE GRAPHsr, TO
9s2pn* TremOuT.
951n0* "PTTF TTy - nor,
9So00* DEAn AT iPrl NPXT SFAITFNCF.
9nn* Ti TTY-TN F+<itA E. ft\as," PFprOPM FIF-PoOnUrE, 97.,Ano * TF Try-TN , IC r . nT FpuAL In pYrS" tANn TF TIy.IN
9s7nr* Is "OT Hovr "p1..F05.F. PrpEAT (?T AKISwEct,
95PnO* Tn TTY-noT;1,(pTir ITv-noTir0 TO vEPFAn
- 3. 95pr, 0* r0 Tn En l
a 9(, 000*THPrr-l-oPnl)oCr co-cTTnki.
9A. 1 nO*T!.49F- Fl-nEpsPEr1IO -ANrLFS.
962P0* HnvE SPATES TFl rrr-DUMMY.
9s-3' O* "OvF ?RFr,IOAL rPTA. vETNnPLO, Tr THp - PLnT - LARrL. 96Ar0+RFAn-"Ut4-pFQS^FrTi1/FS.
9A, PC,* "nvF ?Onv, NOvy r.rnsppCTTkivS wOilLn Nerili LIVE?" 9(-,,r0* Tn TTY-noi:okilr TIv-noT
97rr* "nvF PncSIcIr? in ITi'-noT,!vesTIF TTY-OHT,
A 9ApOn* nFp.p AT F-Jr KTN/T sFTEpor. 9(-Qnc* "rivF Y-TkIDFY Tr Y.
97 00 0* IF v S C Cr TO RrAn-nER-FPn,
971nC* Tr v Ic rriFATF INA" 6 rn To REf4 D...nrR'EPR.
972' C* IF v T5 Nn' NurrpTc on TO RrAn-nEp-F"RP.
97 1 P0* PFprflp pc- r-:nA7).rF(;pnE y TIMrS. 974n0* GP TO PpTTPH
- ^,T?F - 3n 9 7 5n*RFAn.enFP ,'rpg..
97ArT* PriVr "HUH...Ivo-11(T [On YEW silv???. To TTY
- o0T.
977r, 0* wpITF TTY
- (101. 97prc%* on Tn pFV) - -nFPSPECTIvF. S. 97Prp*RFPF- An-nErFF.
9R000* "nvF SnArES TO icr-OoMMy,
9F1n0 mOvi PrPSFrTT I iF VTpWImr, AkfGLF WOULD YOU LIKE?- 9r2n0* Tr TTy-r1!Ti ,o1.:TIr TTv-nlIT
9F PO* moo- ?1.7n.0 DrcrFFS" TO TTY-WITIwRTTF TTY-nuT.
9Piln0* MilvF ??../J0. 0 Dr(rrFS" In TTY - ritTlwaTTF TTY - OPT.
9P`,0 C)* "OVF "3-79,0 nr.crFFS ,, Tn TTY - WIT!wpTTF TTY - nuT.
9?6r* mOVE ?1.011.n r)PrpFFS" Tr TTY-roi;wpTIF TTY-roTs
9 0 7n0* mnvir ?5 - 14n.r, nfrPFFs" Tr TTY-nhi;wPTTF TTY'nUT.
9P9^0* WivE ?6.. 1 62.^ 'V'rPlic? in TTY-ouv; WRITE ITV-OUT.
9AQ* nFrin pru..? AT rr r NFvT SFNiE"Cr...
TF NoT fnHAL Tn 1n ANn TF x-INOFx NnT
941!")* EnHAL Tr 2.n A"r IF X-ImpFY NOT FILIAL TO 1,0 Q ,7724. Anon IF ,r -Tr"Pfx,f, r1T rouAL To fa.( , AMP TF YI.TNnry
911^0.,. NnT FAIlAi Tn r; r v,in Tr y-Impoy NIT inUAL Tn
6 . 0 "P; Af.F FNTER npiInNS py CnRPEoT NIIMRFP"
91sT In TTy-ru TTY-nrIT:MnVF **FYAmPLE!?1" Tn TTY", rlT;
TTY-nIT;fr in PFPFAn-nOrF;FLSr "nVF X-INOrx Tn
9o7)n* Orc, , Fi-nuT;kTir PrpSPFrTTVr-nfrpFFc
9Qrr", * TYV 4 I In ;BEY Gn Tfl FnJ.
9Qcs4?N4.0 0 TTF"-'1IVE-M.
grInr, 9, 00- 9, Pr/1'V/ in naTTnNc r- L Div. GPAPHC?"
1 011rnk Tn rTY-n1J - .
10n7r,T, I0 F, TT 7- TTY-n IT. 4(^1nr* H(vF jr Mn t, r14...F}SP C- NTF? YES"
101/1"0r T1 Y TY'-rT; 1 4ii - TIN*FljT
10 1 5('Ck 7FAn AT I- r) NrXT cfroTrNrE 1("lAnr* IF ITy.Tr Fr,)11A)F 9 mn? Tn PPF-F, AR-1-PRnnuCF.
I0170* IF TS ? rIT FCIIAI Tr ?Nn Awn IF TTY-TN
1 0"Pn0* lc r,iAl Tr "YFC" MnVF "YES_ (IP mn ANSwFP PLFAcE TO
10^9^0* TTY-nuT:i3OT TTv-rulT:50 in nPTToki-IVE-3n.
1 01nP0*TuRp- fl-OnTlW0-1 T?. iv11P0* mnvf ftTur r'ILnkTwtr, nPTIFINR Apr nprN In vnu FOP 1-0 rhAPLIS"
1012nc-o, Tn 'TY-nUT; TTy - njT
mrvr cPArFc Tr TTY-OfIT:WPiTE
1C114n0 * K 4 Ovr 1, 1.-,\HIonEp rF C TmIccn Tn TTY nUI;WPTTF
TT..-PUT.
1C1 Anr* milvf "P--NUInFP PATIFt'TC PEnIrSTFPFn rng mEnIcArD-
1017r0* Tn TTY-rit,I;wp11: TTy-nuT.
161POn* MOVE rr CITNIC VIcITS , Tn TTY-nuTswpITF
101000+ TTY - nUT.
+0200c* MOVE ?3/s-c0PrUY TTY.WIT:wPITF TTy.nuT.
407 1nnw PrivE "Ip-TwITA6r- f , TO TTY ,-rili;wpTTr TTY-, nUT.
102?n1',, mOvF "3C- Lpicr0771 oFVTSIT FnR AMNuAL CHFCVUP" Tn
TTy- 1 111;wpITF T"flr-PUT. 102/Ini HrhiF "3n-Rr"rsIT (NOT FIPcT nr YEAR)" TO TTY-00T;
10 , r-n^* 14 PTTc. TTY ThT.
102Anr* M(lvF "1F-SlInnl v rwlY (UNCrI4Fn)" To TTy-OtIT:WPITL
ip7nn*
1 ( 1 2Pr0,1 PrivF "3F-RFVTGTICAI JoAL rNF - CKUP). Tfl
107'Qnfl+ TTY-011T;trITV
101 Pnn4 "PO- "3c-uNChrf,hn 1' PRnFILFmft TO TTY-rUT:142TTF
1011 ^ 0* TTY - OUT. 10 , 20n+ PilvF "3H-UNsrHFr.PPOrliFk4 VISIT" TO TTy-OlIT;
1033pn* wpITF 71
- v - nuTA
- iribrc (10- "3T-Utic, rpvi.ppOptrm PFVTOT- Tn TTY - nuT;
4 01501'i,- WpTTF TTY"MIT PN/F rF PATTEHTC" In TTY-nUTPoRTIF
1017nr* TTY"Olj.
lonVF rr F'rrnC SPENT" Tn TTy-OHT:wRITE
iclQrao* TTY-0117.
1 0(!nnn* 1,q10- ?FKI"Lr TIF rnTInNS Ynu wANIT BY 4UMBFp" Tn TTY-O"1;
iniltrn* vpTTE TTY"' Ir. 10b2nn * pnvF opTIpJ #1 Aro F I1/41Tpy TIF 3 WTI L GI \'F YOU At L Or 3" Tn iollfv?* TTY - OUT:PITr 7Tv-o J.
MOUE_ [Tyr 1P 04TII nIvE YOU nmLY *311 FTC"" In
TTY-OuT:vRITi
inhAn* MI1VF ?1- NTFP -17(T- F7IP A ITSTIm6 Or YfI.IR OPTTnmS? To iTY..MIT:
1C47nr, * VIPITF TTY-fliq.
1 " Pnr * "nVF "F!sTr? 04r ynu ApF FTNISHFn V1TH YnUP nPTinN"
4 0/14nr* Tr TI'f I n(T;w1,1T 1 TTv.., nuT.
incrNnn, k, OVE "[YA 02 tr...'"ITSI" Tn TTY-nUT;WPTTF TTY - nUT,
4(Rirr, WIVF "tTcW'r WrIln rnLLPW....qt- OMn FYAHPLE.... ft
Ir2nr%* Tn , hTIr TTY-nUT.
4 05v)P* k4li1/r ?*?1? Tn TTY-nuT:INPITF TTY
- D;1T.
lOsor* MOVVF "?3r" In TTY-1 1 H -riNPITF TTY - nUT.
1065n^*Ti4 RFFI-nPiTnN-frtr.
4 04,, no* PEAr PI-v-IN! Al rwr , CFAITF- NFE.
1n;7nn * IF TTY-ip, rn nn Tn THnFr1...(1PTIrINLIST.
10CPnn,t- IF. Fh101( "ENn" Mnvr ', nl" In TTY - TN;
105P* rn To Fyn - TI-PFrn.
in?Inr, * If TTY-T"` F(, IAI "1" PFRrnPM T - KIIM-rLINTr; 100, 1nn* PFP 7 nPu
10A2cn,, IF ITY-1. ^ , F- C , IALF "?" PFPFnPM T-PuNI-mFDICA;
10510* PF- PrrRv CIFAk-r!T.
iCAti0p* IF ITY-I!,' F(11A1c, "3" PrPrcPM T-CITM-A
10 A9nn* PrPFPRK, I-CITm-f-!pFpFnRm
10 4, * PFPFFPP 1-CII ,0 ?:PEpFfIRm T-rLTA-F:
16.7'C* PFPrnfo , T - CI 1NJ-f!PFpFnRm T-r1TK.Gt
10E-kr%0* PrP , nRm T-11 :pFpFnRm
PrPrORP CLP- A?,-r T.
1070^;', 4,- TF "3A/T PEPFrIR ? T.miTA
1C71n^q, PrPr- FIR
107:^n* IF TTY-Tor "3F4 " PFPrnPk 4
1"3* PFPrn 140, CtrAr,-rrI
1071.nn* IF ITY-Tw F- CIA1 , ict PFPFnRk4 T.rcrm.c:
1175rr* PFPF(IPv CLF- tp-ri T.
1r7Ar* TF TTY-T"' r(111 , 9.11-1,, PF- PrnRk4 Twr.LTkl.n:
1077(n., Prpr- nqi, cFAp,-rIT.
ii(Prn* TF TTY-Tr r -1 15ic 141F ,, T -r[TN I F:
PFP.rnp F At--f1 T.
lrprrri TTY-IN F(of I c "lf" PIPN1R+4 T-r[Tm0F!
PFpvnpH FAF,"( I T.
10p2oeN, IF TTY-p. 1.3(7, pFPF(IRk4
PFPr- CPr ( r AP-rt T.
IrPhrr+ TF TTv-T r-, I 141(. pFprn8m T-r1 TN-HT
ICPc.,rn* PrPrnP , t rAk.'r, T.
irpftrr* IF TTY-TN' "lT? PFProPm
1CF1 71, 9- 4 PrRrrPlk ( F AFz -rI T.
10 1 Pnr,, TF T T NO.TIN rr"fI ( "4" rrgrrIPM T . kliMmIPATTF " 'T:
'C q Q"* PrPrrIPM c T.
100cr'",. IF TTY-TN! r 11 Als. "1" PFRFnPm T-NIIM-FUNnS:
Prprnp cifitt,"( I T.
In92nC* rn 1' THDF 1 -(01TnN - r7FA'). 1Co3nc*T-N0P-CI Tkjr.
inptin * rEprrPv T-Yik4-rtlooTC-A VArYTYG v_FPrIm 1 PY 1 UNTIL X is
irqsnr, * CoPFATFr T1A ,, illrrPFnRH T.NIUm-rONTC-P VAPYimr, X
1C?,c, nt%* Fprik4 1 py 1 wilT1 X_JC r,PFATER THAN 4.
1C, WOr*

"NOPrPP OF Tn THP-pLIT-LPHrL2.
PFpFIRm rF?-N'r:PrPrOPm TpRFFn-loRTTF-IUT.
Tinnnn* ""fl' F CIIroIr - TPTP1 rF STATF.InTA[T(Y) Tn A(Y).
11n1 n 0*TwNIINTITNIr".
11(1 2nr',1, "IlvF CI ItI - -To - ti rF R-STATE-IoTALs(y) In P(y).
11^100*T-Nlim-MIrcr('\.
11nrinr* PFPF"'PH vARYTmG X FROM 1 PY 1 UNTIL x Is
GPFATFP li!rrPrnP ?A T.mUm.04 FnTrATfl-H VARYTNIG X 11nAr(t, Fpi" 4 1 PY 1 H07 7 1 Y TS fRFATFR THAN 4.
11 1 7004 (10- "kiEPTCP'n FATIFHTS" Tn THR DLIT..IAHFL2.
PFPF^Rm PFP - rINi:PF0-1-1RM IHRrFn-w0Tr.nuT.
110r04,I-NItm-pqnTcATn.A'
illrnr* mrvr Ef)T(AIr-i-TrTAL 1F STATE-TnTrts(X) Tn A(Y).
1111r0*T.-NIIM.., rFnTr ,On-P,
1117r, n* mnvF mFnicAT-1-rfTrI iF i...c.TATF-InT AL S(x) Tn P(x).
1 1 11r) 0 41- NTY - A. 11101 C* PFpFrpM T-rITN-t1 vtpYTNr, y cRnk 1 PY 1 mMTIL y TS
1115n0* r, PFATFP THtm II ICPcnRM T.r1..Tb-An vAPyTNr, y
1W,nn k Fpr ,4 i py 1 wI1T1 X TS r,pFATI-0 THAN 4.
111700* 0111VF "SHPPLY OmlY vIsTTS" TO THP.PLnT-LARE12. iliprr* PForlw 4 rFP-rTtlf:PFRFORm THRrFn-wpTTF- -nUT.
117PrO* sUPPLY--, N-ccHFn nr sTATr-TrTALs(Y) TO ArY).
1121nq*T-clI\I-A2.
11 77nr* Prvi cliPpLv-r , "rwrO nr P.cTATF.TnTALs(x't TO R(X),
117pnr, * PFDF 1 Pm y 1 HY 1 Y TS
11 9 :7, * GPFATIr THAm 4:F- PF0PM T.CITNI.44") V4PYINC
112g, n')*- Fon? 1 py I PIT TI y IS norATFP THAN 4 1 11',7rc kinvF ?TNTV/F q'TTS? Tr1 rpP-pinT.LAP E L?
1 12pn;2* p 9 PFPFnnm P -7 T'd r:PFPrnPM THR 7 Frl"wpTTt- ..n6T.
tAilvF . TAhr nl (TATF.TnTA1S(Y) T" A(X).
11/2rc., mnvF TNITti, F nE F...cTATF-TnTALc(Y) In P(X).
1111r'041-CII"-C, i]lbrr* PFPF', Pr T-C! . TN-(1 vAoYTNn v F- Prw I PY 1 MNTTI Y TS
111c,C^* 6PF*TFP rt:f-rRrnPm vaPyTN" Y
1 116 ,'0, EPIll 4 1 L,Y 1 !HUI x IS (:pFATF 0 THAN 4.
" 1 1 1 7* POO- flArK1H4 1 FwFeLHP (MNIscHEn)? Tr THP..PLPT-
1 11P^Ci*-1APE..2.
111c) PFPF'1 PM PEP-riNr;PFRP- ORm THRFFn...wPTTF.IUT.
fl/F- UNISrHrr'-ANIK161. rHFCle nF STATE.TITAls(Y) In ACY):
t (12r, [1.,1-cl
11(t1A0* "nvE 1 1 ScHrn-AHN(AL-rmrCv OF pi-sTATF-TnTI'Lc(Y) Tn R(v).
1 145r0* PFPF 1 PM vA*YTNr; y rprIP0 1 PY 1 mNITIL Y TS
4 ;66rO* GPFATIP UOM A;(rpFnPm vi?pyTNr y
1 470C. * FoP I4 1 py 1 011T1 X IS r?pr'ATFP THAN! 4.
mnuf "PFvISTT" Tr THP"P,.nT I LAPrL'"'
1 1 4 Q ^ C), PEoF'RM PER -7 PirIPFPF9PM THRrTn*wRiTr..nUT,
1lnn0+1'"C[ J""01 2 "nvi. AFV -rl,T1 OF cTATr-TnT,%1Sry) TO A(y),
11524, 1-CITY-')2.
kgIvF PFVTSTT IF F-STATF-TnTAIS(X) TO P(X ) .
ilsnC* PFPF 1 Pv 114PYTiqr, y PRnY 1 PY 1 MITIL y TS
4 1c? - 4, GpFrTfP EHAk , 4;FIREnPM vAPyTN(1 y
11s7CC* Fpnki 1 c y I HrJT1 Y TS rprATFP THAN 4.
Pro'nP"1 !:"1-2 "' - INF:PEPE- nPm TPRrEn.. pITC. ...nOT.
11Scr ,- ,, ?SipplY (UnSrHFn) ,, Tn TH0-PLOT-LARr[2.
7"-Lt.
,4110 Spol)'-niswil, scHrn 1F STATE-TOTALS(X) To A(x).
11210-0-CLI"-F.2.
0 6 3r04, "nVF SOFBLY-f'N-1 , srHrU nr p-cTATr-TnTALS(y) Tn B(X).
11410*1-C1 Im-F.
1ARn* F, FfnP1,,J T-r!r-[1 Ve.pYT np1m 1 BY 1 HNTIL X TS
11,nb* CipFATIP il;rFPFoPm T-N.TN-F7. VARYTNn Y
1 14' 70 0* FPn" 1 BY 1 !em1 - 71 Y TS r, PrATFP THAN' 4.
11`.;, ^0* "OvP c14[rvHF (PFVTR7T) " 11 THP-
11nD*'n11T-LAPFtl.
117n,nr* rfprnpm pr'p-rm;rFPrORM TuRrFn- pTTF.p0T.
1171n14, 7.*(71 Tm., 11?.
1172n* mOVF BEifis-A0.-CHreK or STATE.TiTALS(Y) 71 A(Y).
117^0*T-C11' 1 ..F7
117A1, milvF PFwI?;...A I ;...eBrCK 1F7 8-STATF-TOTALc(Y) Tn P(Y).
?175oc?,*T-CLT ,1 -(7, .
117nn* PEPF"Pm vADYTNr y Fpnt, 1 BY 1 tlwrit Y TS
1177no* rpFAUP 1HAm 11:PrPFIRM T-rLiN-G7 wbpyTNr y
117Ara* FpNhi 1 TAY 1 uNTTt Y IS rpFATFo THerk h.
117P1* OVF "wo!,, PPnBIF (1wScHrn)" To TI-I-PtIT
11Rnn0 *--LAJ,7 12.
PFpFIR pFP-rINf;pF:PrnRm THRrrn-wRTTr-oUT.
11 ,1 2f')O*T - CL1m-cA.
11q1Po+ W107 UNScHrO.Nr1 I, -ppnp OF STATE -TmTAtS(Y) TO A(Y).
11R/in*T-CL1PI-G2. mOvF WjSrHFn-':,. m.-opflp OF p-STATE.T1TAI?Y) T1 P(x),
11R 4,T-cL1ki-H.
13f47^)* oFprnpm T-rLTN-I-1 vApYTNr y rP1M 1 BY 1 UNTIL X IS
liqqr1* GpFATFP THAm 11:Prprn T..nLYN-H7 vAPyTNr y
11PPr0+ Fpoo I o'y 1 ()WTI' X IS rpFATFP THAN 4.
1io1r0y, MOO- "PFNIO.r) ,m vT(TT rUNSrHril,? 7n THP.
11P110*'- nl?11-,-LABFL7.
linPrO* PtPIIPM ofP"rTmr!pFRrnPM THRFFn"wPTTF-oUT.
11 1 11Q*T..r[Jm.-Hi. Ponn* mOvt UNF.;rHFn-rP(?-IFM OF STATr-TOTA[S(Y) TO A(X).
11 0 s00*T-r11"-H2.
P. , 00 uPscHrn - pprrlEm OF p.sTATF-TrTAls(x) To R(X). 11D7(Nn.47- C [
1IPPr04. Ft'pElpm T-CITN-T1 vApYTNr, y Fp 1 m_1 BY 1 PNTIL y TS
ilonrr* GpiATFR IH .A10 b;prpf-npm 1/APVINn V
12rrno* Fp(10 1 py 1 tiNT TI Y Ts rprArrp THAlv ? , 1211n0 + MOVE ?PPI10_[ WVTSIT (UmSCHFD)" T1 THP-
12 1 2r0*-PLOT-1 APrL2.
1210* BFPr 1 BO PFP-rif:PFBrOPM THRFFr ? toBTTF-1UT.
1 2 nhnO*T - C1Tm". 11, 121srD* mnVF t!rcrHF-Ppir:IFM-PFV or sTATr.TnTALs(y) Tn A(x).
12no, nO*1-CLTm-12.
12n7pci * mOvF Hi4SrHrr-PPrrIrm-PFV nr R-cTATr-ToTAIS(X) TO 9(x.
12rOr0*T-N1Im-fw.rS.
1
Tor, P*T-Noto-pATTEkIT
In^n* Prpr'pH T. W , 74 - pkTTENT - A VARYTNr y FPM 1 NY 1 UNTIL v TS
1211 1 !`,. GDF.1,.Tr 1HAY 41c4- PrrIRM T.MUm I PATTFKIT.p VAPYTNIr y 1217,, n * F 0 (1,4 I py 1 orAIT1 )( IS nprATFP THAN 4,
12 1 Inn * oFpropm PER-rp4:pFPrnRY THRFTn- pTTF-nuT.
131n0' ,...T-NH!?-pi\TTF.NT-P 111C7_ * "flvi PATTET.OTA nr sTATr-T0TAIS(Y) TO A(X).
12 1 k, oV*T-Nlim-rATTET-k.
1217oC!* Mf11tF rATTNIT-TnTAI nr P-STATE.T0TALS(y) Tn R(x).
12Ign*ErAn-TAPE.
1219^C)4, FYTT.
1221 1 0*Cr'N..T 0 PFFr.
1221r*PBE ,-P.?P-1-PRrntirr
1 9 2* MnI./r O v, T ASSk4F /17, AT YOH 1n NOT (TSP In PPOnUrF 3.DIM. r,PAPPS
21^D * -" AFTER ALL. "Ti" TTy-nuT:wRTTr TTY-nur.
122tr, 0* cLoS 7 P[oToATA
1225nn4, OPEl niCtroT DOI,TrATA.
1226n0 ,- r- O 1.1 PFPFAn-1.
1237^0*i'AP ,-1-PRflrUrF.
1 72Pn1*BAP.,, 2-PBrinhCF,
1P29ro * BTF..n7)nnurF,
1211rr*CIOSImC-Ur SFrTIFK,
1 21110*EPJ,
1232n0* mOvF TT"
-
OUT.
1230* IARTTr TTY-IUT.
1216P0* rlOSr
1215^2* rLOSr pr ,-7 !
121e-r0* rLoSF PLoTnATA LITH PE FAST.
1217r't7* rLoSr cPW\;TY-;;ATrR wITH
121PP0* clop
rILE! rnPprci HEW CHN A/,7/7,, 10:3
1 n0*91 1ST *
2c+0************4.*+**********************************************************.
3r0*/,****+**********3**************************4************************A****
rire* *
con* HrALT,ri!rATTON AND WELFARE REnInN Iv PLnT RDLIRAm 4
Anc * *
7D04.************ ,*******************************************************A****
pre*, wPTTTFr Ry nntTrt . RAY CPTDEP AT THc F,FDRIIIA TNsTITI , IF nv TrcHNOLOGY *
ROD* ONIEH THE scHm or TkirripmATTroo AMT) rOkipuTEP ScIE- Nf.E F DR THE H.E.IN.
-
10P0*g pPnjEcT *
11DO*CHFRF
- ARE 4 0PD( 12 0t,^ S THAT HAwF FrEN DivELOpi AT GA. 1FrH FOR PLOTTING *
120n**HEw "ATP PI L I 7OGPAMS APE wPTTTEN TN Al r,PL FOR THE bORPrOrsHS *
13n0*%F570n PITT CIThLD FASTIY BF cONvEPTF1 To FORTRAN Erik Ak)L1THFP PLOT RArKAGE*
14n0*%py CAL TFrRNA cnt, rigF0 pRODHCTS (rAirnmP). THE Fillip nkOGRAEIS APE As *
I5nO*E0ILnWS: *
1O0* *
117)*%THRE7D: THIS RnITINF IS ToF tONGEsT ANT) MOST CDMPLFY_OF THE EnIIR
lAno*T PROqRAmf rEvEIOPED. TT HItL PRODUCE 6 THREE. DTMFMsInMAI k
1 9n 0 *g PinTS OF P DIrEERFNT vAPIABLFS. THE DATA FOR THE pinTs TS TN! TH *
2nn0 * EnRm rF F FIIVERENT AREAS 07 A SIN'GLF PLOT. rACH APEA WILL i-PO - *
710* L DucF A ?I-TI" Or THE SAME HrTGHT,SLnPF,ANn.sI7r. EACH ?HILI" IS*
2200*I NOLTTPLYI'F Fri A "FACTOR ? THAT TS HsFn Tn OpRrsENT spur VAR- 23r, 0*% ITIDN IN rATA BETHFFN THE FIGHT STATES. THIS OLL PPInUCE n,I.Am *
?Atop * , TIC vAATTnms IN THE sI7E pr FACH ' , HILL". FAF. E, HTLI THEN RFFPF * 25^.0*9 srMTs A rIEFFRENT STATE IN THE SCHITHEAST pErArN. ANY ITEM
96D0*% TWAT TS rr INTEREST CAN Dr rOvRARFD ArTwEFN THE ETGHT STATES. *
27D0*% SoWsTEF vARTRLES FOR IISTNI; THIS ROUTINE ARE, NUMBER nF PEnFrE I
2Ann*g SERVEn;MErFy USED pY EACH STATE RoUTINE. IT TS AnvTSED THAT THE*
70O0*T VARTAPIr Cw0SFN RE nNr IN-w4TrH TwE DATA ERMA. ALL THE sTATFc IS * 10D0 *4 CtOSF TOrETHEIP IN THE SPPrAn Or VALUES (I .E 'f,iPERE TwE- STATES * 3inC*1 PTErto C'f rNrY A 17.- FW DIPCrNT). *
3200* *
3300* THE- NIIMOr riF STATES cOmPPREP CAN PF ETTHFP 1!:cpEAsEp np DE. *
lon0,0 cREAS70 FLDHLn SUCH RE RFA, L1TREn Po THE FUTURE - THIS POUTINF * 15nO * 7 (",FNFRATFF F n,IFFEPFMT VTFwINC,.AmeltEs ERnM THE H0RT7oN (70.0, *
inC)*%. hn.n.70.(.110.0. 0bn.0 ANn 16D.0 DrGPFES) SO TLJAT AIE nATA Is *
17D0* Cl EAPly \TSAP1F ANn EASY Tfl COMPARE SHOULD r1HEP ANGL ES * 3An^ ;,g FE nEcTPFO THTS CrIPID RE rAsTLy ArrOmpiTSoFD, THIS ProITINF *
3nn0,*g AI Sri rEm[rATFc n\IF TAqLF nF vALUFF ANn Twr STALE DATA InrA- ,
1, n 0 C*5.. TT0H HApF, se THAT ALL nATt TS CLEARLY IDENTTFTEn ANn AIL EAr- AlDC*, Tr-IFS ilsFt TN rnmpuTATIJIN ARE KNOWN. THIS ROUTINE Aisn PPM - *
112r'0* PHcFS 4 [THE'S OF reLpFl HFrDTNr, ABovF EACH P L0 1" (THE MIDDLE Tr. * /Onn*I. LINES OF voTco Apr ONpTAFLE Akin MAY RE cHANGEn 0JITH EACH pER- *
IDO*% SnErTTvF Tr DESIRED) SO lwAT EACH PLOT TS KFLf LAPF1FD. *
45o0* *
A6nOODAP1! THTS FDITINFIS A SImPLF pnuTINE WHICH GENERATES RAP GRAPHS *
117x0,0 v 7- TTo ,Ain AMTS, THE LOWER AvTS TS A rALANDER ^XIS WHICH ANOTEs *
104 0*1 TwE TIAH_Ar MONTHS FIE THE yEAP. THUS THE GRAPu REPRFSrNTS
11 0(' 0.A.,' ToELVE HIATH TREND FOR ANY VAPTARLF nr TNTEREcl. THE SECOND *
spr, (1,0, AyIS TAN' rr tARFL in TDENTTEY THE VARIABLE C,RAHEI)fTwE *
S1DO*2. 1 . AHEL (I sf! IN THE SAMPLE pLIT TS "NuMBEP OF REWILT sFPvFP").
c2D0*% A TPTANnIF TS PLACED AT THE rEMTEP ANn TOP OF EACP PAD AND * 5 3DD * TwEN A LIrF Ic PRAWN Tn CONNECT AL THE TpIANo!LFS $n * .1O0*1. THAT THE TpENn IS EASY Tn sFE, THI
L,
S POUTTNF ALSO PPEnurES A *
s5000. TALSLF RE YAEUES So THAT AIL VALUEs HSED ARF Kk'OwN. VAIIIFS *
6DO*T IAITH_ PE. Ir THE FORM Or A 7FRCENTAr-E Pr THE ACTUAL DATA rOmPAFF) *
r-qn0* *
CsInO*PAIR2t THISpnITTNE TS STMA[AP TO RAO TN THAT TT Al Sr PRODUCES A i-..AF *
Sorn,L,Z nPAPH IT TS nESTC,NED Tn rFrLEcT PEPIN) INCREASES FOP snmE wARA.*
, I"`DO*% PIE Pr- TwFrN TwF ETc,HT STATES. AT PRESENT THE rOMTTMF Ts SET LP *
AIDD * , To PLOT FATA rOP THREr PFDInDS nF TIME PEPTOn A SrOWS UP AS .THE*
Ac,
W 8:; 4P, UcprTTnTVEYkin 14. .1, AcT0041 i; LJ ,,,-r!.tiTFIA6F , T
r., 0* , WHICH IS !EFT UNHArTHED Tr mAvE IT nIsTTNrTTVr . F- Pnm PERIOD A.
FsrC*g prpTor r TC THE UPpER BAR 4eHICH Is HATCHED ERnm PTGUT TO LEET 4
, r0** AT 6 IINFF PFp INCH. ()HE TD THE rITEE'PENT HATrhTNC, AlL pFRTrUs (, 700* Apf vrpy rTsITNIcTTO- oln EASY TO COMPARE. A ?,ERTIFAL AXIS * 6ADO*% TC rIPIIP Tn THE IEET Or THE GRAPH sr) THAT , .1 117,S API EASY * r4,' Tn nFTFpn. K4- , THIS AOC ALSO HAS A LAPEL CAP^bILTTY cn , 7('00*% THAT 7[4- t , ARATRLE PFTmG CHmDA/Fn TS CLEARLY InENTIFTEn (THE * 71000 [AREL IISfr FIN TF. cAmpLr r, inT TS "NlImpEp nF PELPIF SERI/FP") 72F':0* EACH r)Ap Tc LARFLEn UNDFRNFATH WITH A STATE NAF EnP TDENTI. * 7n0*/ ETCATTON. A TABLE nF vALUFS IS ONCE AGAIN SupnLTEo Sr THAT * 74DD? ALL vAL(0 c uSrD IN THE OE"TRATION OF THE PLOT APE KNOWN. THESE *
7PDO*g VALHfc Will Pr EITHER IN THE rnPm Or RERCFNTArLF nP FACTORS THA * 7.r0*9 vTLL *HIFI' THE OnNDTTTONS rr ACTUAL DATA. *
?int)* *
1Pn0*IF: THIS FM TINE TS DFSIO,NEO_FIP PERCENTAGE rOmPAHTSTON, TT IS * 79n( TH THr Firm Or A rTPCIF IAPIrkI TS nTvInEn INTO "PIE rI)TSH TO * PP('C',0, PEPPrcENT THE PERCFmTAGF A PARTTCHLAP VARTULL TAKES Up *
P100 (ruT rF irr prPcPvT), FArH "CuT" TS toF[Eo AS TO WHICH *
'PrD,Y- vART"!
r -Incl cr IPA-
Atari*
nno*SFNTF/ hAsTrrIlr
P7r0*F- NTF" An y 49rrhpliT
PAnP* FILE TN pEclApT
R9r0* FIEF OPT SS PEWTr
nrrr* C OMr T FFT("urw
npnr* FnpmAT pr?(";;
olrr * rfloAAT pc3("HFN
QA(/0 * r- lpKI 4 T pF4("uFw
p9r0* r, FIm
jrnO, FOPH^T r(AA);
TT HFL oNGs TO. TPF RiuTPF GFNERAIES A TAPI F
.TL i FyriCT nrnerNTAri rF FArH vARTBLE Ir tO i rtwoo.
rTck SETA ?RFSTAP" (2, 1 (1 ,3n0);
L1,101: rim PPnroAm ATE0FTING A RESTART AT etrTTnm
rlnT PPlcipAM ATE ?JPTINC, A RESTART AT cErTTrAl
rirT Pp9C, QAM ATEpTINr, A pFsTApT AT eLrTirm
rinT PROGRAM ATE ?gpTINIG A pFSTART AT cECTTOP"
nF VALuFS
*
,
k
Ar
k
k
nNF"); k
TWO"); Of THpFFH); *
FruP"); *
c, ', nD* FriPmIT PF5("PFS1PvT"); *
1nOnO* FORMAT PrID("(1): *
I ,) 100* ALPHA nC- CCTri ki,1( r KTT: *
1n2r0* (1 4, N TNTFrEP HZ; *
lnlro, I AnF fii.ecTART * 1 I, pr7START: _ ,,
irArC*
"sPn*
PFAIlfPlsTAPr.(*PESrION):
TF n'CCInn="DEsTAp? THEN FnR H7:-.0 STEP q uNTIL c nn bFf,Tk
*
k
1n<.00* 14 00* r'F AOC RFSTV4T ,F mf ,1 fificerT) ri KT; *
1^700* END; *
inPrD* TF OFSCTrIN="ni( ,, THEr\ Gfl Tn nvsTADT: lnoni* 1K: 'tn In RSTART1 *
TInf?c , * T*******************************************************************0****
111n0*%************************************************************************
112nr* * * * * rnuTINF TwRrFo * * * * *
111n0************************** * **********************************************
114no* ri<cTART: H7:7.-In; k
1?, (' D* P[r;1" *
117P0* FILE ntrT RFSTApT nTSv CEPTAL 1 7 ! 1 0 ,11 ?PEcTAR? (2,1r * tCr): *
11PDO* IFIrKrPrcTART.SA1r); *
119r0* FNn; *
12nno* PSTA9T: *
127nn* PFrdy *
123n0* FTIF nuT 0- START nISw cEPTAL (2, 1 0,3n0); *
121 25* PILE AI .7 DTSV "FlnTOA" (7,10,3nr,; *
171P0* INTFrzFR V; *
124r0 * IARF ppn(rFnl,pf.ncfri-12,npnCFFO.ppOrFEDItippFSTPT1,COSTA;741 *
125nr* tApFr pFsTR12,05TpTl / pFcTpTup
r
wAIT.cnNcIAP,cnNsTAR7prbhSTAP3; *
ilu 12Ann * cTT ,'H nrINTFp:=FEsTRT1*RFcTRTP*QSTRT1,RESTRT4; *
177r()* rn Tn nnIFPrw71: *
12 900* rn Ti PpnrFFIll; *
11nrC) * PFsTPTT:whITF(SS o pEll; * linni* FOP r:=0 STEP 1 ikTI( 5 nn SPArF(Rc'START,1)(rONSTAp)1
11nn2* rONcTAP: *
132nD* rpnrrF01! *
113rr)* wRITv(RFSTART * RP4 1; *
I14n04 PRTTr(RFSTAPT*PPc);
13CnO* rFc,P1 *
1 -?,r0* ETIF nuT 17nr FI, PTE (1,10); -?
11 P^O* PPRi" OATO: 7 1, ( 011,7F0:151,DATnrri: 2 1,0:1 1 11
1190P* ARPAV ANni0:11,PP'rLFr0:61,PFP(n:A]; *
ilrPPpf ALPHA ARRAY rJFAFIn:7T,HEAn7[n:7)e , 14inn* PFAI [py,G,T,k,,,K,S,M,77,Y,FArT,H,n,ALP*BFTpP; * litpon.0 pArlfl SFr2,sP[AriFIN.FIN2,FRnNT,pArK,ANGInn,DATEND: *
1A3n0* TNTFrEP T,J410,1; *
l hnn* FilpP ,'T FH1( 7 A6);
441R: rF=I r:0W4 1q ) nt_LnWINr, TS A !AWE OF A LL. VALUES Or TNpuT TNT(' THE. HE,
*
1h521 4, p PI nT PACKArF:t?$: ,
14S10* FriptolAl FkA4("******************** * ***************************************
1 tiii 4 ****4*****k************************?1; k
lill,* rnOM A T F5("DP1171vE THRETD"); *
r
/1
AnD*%************************************************************************
.WOrIDT ROUTINE ,- TINE HTFTFE11 ,, DEvrLnPEr PY DAmIFL PAY CPI FOP
iha00 * Sr 'Y THE HrALTI FOHCATTnIq AND kFLFARF PFr,In? I Iv DATA pPncF- FcCING
lhorO*%sYSTFH JuLv, 1Q7I. THE PuppnSr rIF THIS POUTINE IS Tr PRnPIICF <
1 n r CO esTY THRFF DT ,4NFTnNAI PLnTS r1 F DATA Fnp rnmpApTSTnN rUPPDSrS RrTWFFN * 15100 * THE FTqHT qirTnr TV cTATFc. IT wILL REQUEST AS INPUT R PEAL 'ALLIES *
1S2rC,0THAT will RFr(FcT pRnPORTTnNALY THF STATE DATA THAT TS In PF rnmpApEn. *
S FIRST *4.
1s50O0cupSrrTTnn Pr A inuP RITTNE PLOT pArKAGF DEVELOPED cy THE AIITHOP ,710 nG 15^,AT'T4F GrpTA T r cTTTUT. cIF TECH ? 01.oriY UNIDEP THE SCHrLL "F.
1 c7r0.0, TNF11 7, mATTWI ANn rnHPIJFP SrIFNCF. THIS ROHTTNE wAS r4sTrNrn nN A
1 5Pru,'r'URR -'UGHS n57nn ANT IITTLT7rs THE BASIC AND ADVANCED
lcprD*7ALnO' pUnT PACOCF nFvFLDpFD RY THE CALIFORNIA CnMPUTEP PPPP!IcTS
16rr0**rnMpOoy. THE' niTRO OF THTS OnOTINE IS TN THE EnPm rf- A OT SK FILE
11r0 * / LARrLrp "rAlrnr - to_ITrw cnNTATNc TmsTPUrTTONS FnR A cAtrpmp pLOTTFk 1APrrtrA(Sn pFvFlrpFr) E Y THE' CAITEnRNIA rrimptarp PRODUCTS rbmPANY), THIS
1flr00-rILE MUST RE mifrrn TO TAPE AND THEN' TwE TAPE MUST Pr HOUNTFD nN Tpt
1A/1 0 0,V AICI1,AP ri,n1lir, Tn RponurF TwF DrSTPFD PL nTS.
; ,;iyt ,s ,t iTNKT; ,, T trwrIFmi TrpF ,k- r0;_, 4 ni AK, 1.-,,A, 1 gu.4"viktiTr4T VI;fi f;fMkii. Litre ir f,4 1
165n0,0***************4*************************************************** * ****
1 6 5 1 0* Fnp T:=0 STEn i INTT1 5 Dr Hpr,TN 1F.r.,76* nEArrAf7,F,47 Fri-fT1): *
1fr,254. TF P"PrI1=0 TF-0- rn Tn AwrInn;
1491p* Flyn: *
4915* i'Nnt "n:i !=T; 1. lAA 0 0 ,.. CRFAI:4b(A,j,7,A.E 0 r3 , 1(04,NPSoT);
1Af10* TF P770 AND F.TO trn 0=0 Amn K=0 An H=0
1f:11* t, Nn ki=n i",r) c=r1 ^Kr) T=0 THrN fin Tn ovrrNn; *
1A6AC, * ,,, PTT - (17of,"3);
1670* IppTTr([7rFpFt01I);
1A675* wP1Tr(i7rFFF!45): -,
14,,In* wRTTr'(L7nFprwe),t+r,G,K,m.N.S.T);_ *
16?)p* rnp T : = 0 5TFr 1 (NTT' A nn HrOfT]t=" ',I r
1A602* PEA(VAI7. r"irrft T: = 0 STEP I LOTT A DO HFA FT));
1,04* rop T:=0 sTFr 1 INTII Dnn HPAI2rT :=o ?; *
1 6 6 0 6* nEAD'AI7,FA STEP T:=0 STFD 1 UNTTL 6 pn HEAD2fT)); *
1A7nn, * * *** * *** * 4.* * ** * **** * **** * **********************************************
1 pno**THE EnttriATNn ;frTTnm rPFATEc THr TNT1TTAL nAr NEFDrL *
16pn0 + %PY TAF pluTTrP Tr PRnDUrF EIsHT rHTILS" nE In NTTCAL -1F- 11 "4-1T 4
17000*,WinT4,AKn ONGT1. FArH HTI L RrPnrSENTc A STATE- AND t. Ii L *
171n0*$.1ATTrP pE HUITIFITED RY A EArTnP (TAKE- m rPnH INPUT DATA) *
172nn*%Tn PrFtFri TuF Fr0POpTTOmAI nTF- Pri.,ENIrES fI F EACH CTATr"S k
1730044nATA. THE DATA rop THESE ?HTILS TS c,ToPED TN TWn ^Cx
17Arle*V40 Ar7pAyc(2-nIm1cTOmAl). *
170n*****4**********4********************************* * * * *** * ****** **********
17?Nn * Filp T := 0 sTFo 1 ;NTII 20 nn pFnim k
17700* rflp I:=0 STfn I 1 kis T1 30 pn OFnIk'
1 7A/D* IF T GTP 9 THIN rn To SFr?; 17000* IF J ic 5 6 TqEN Y:=J+APS(T - 51; !Porn* TF j LSS 11 AND ,1 nTr2 5 THEN x! =10.J.Aps(T-5): *
1PIn0* IF J LSS 16 ANn J GTP 10 THEN Y:=(J-10) - AR5( 1 '- c):
1R200* IF J ICC 2 1 nNn ? t GTP 15 THEN X!:(20..j)..ARS(T-5); * 1R100* IF J LSS 26 Alo j GTD 20 THEM Y:-(1"'70)'"AB(T"'5); *
1P1no* IF j GTP 25 IHF- Y:=(30 - J) - APS(1 - 5);
Ir' 5 n0* cr Tn ET; 1pAn0* cEr2: IF j 1-S ( THIN X:=,1-APC(T 15); P7n0* TF j LSS 11 "inn si GTp 9 THEN X:=10.,JeAr15(1w1C); *
IPP00, IF J LSS 10, nip j m GTp 10 THE ? Y;LTj - 10 - Aloic(T -15); ,
JPon , 'F J 1_55 2 1 Ann j Gip 15 THEN X:=2n..J.-ABc(T-15);
10000* TF J ISc 26 AND ,1 GTP 20 THEN X:ej.20*AHc(T-15); k
101r0* TF j GTP 25 THFP x:=10 J,,APS(1-1): *
2920()*%***********************************************************************.
101 0 0*Imnw TWE rnOPP- CT FACTnPS Epp rACH STATE AoF mUlTIPLTEn PY i bC) ao*%TV C O ET/ pFcFETI ?HTIlS?... IC sT- ArTEP THIS THr DATA i,rn * n5?00,,VITHTM 1".,E 1141 frPAYc, Twn ARRAYS APE. USEn S(1HAT nnr vAY ,-
1q?, 0*%RE. eFn rnP...r1-P 9 rFcTTvF vTrrn ANniFs L E SS THAN 90 nr,PFIc * I n7nPwHTLr THr 51- rntlf TS A ROTAT ION nr T HE r P5T ANn.TS Qctr ,, qp.00*%Tn STNULATF rkrnirc npFATrpTHAN no nrr,P F. S. TH I S ctrw1TON 4
10on0*%Aisr FIIIC TPi firAS nF THE Apotv5 THAT ARE oF Nn INTtPfcT *
20000* WITH 7FP05 Sr T,t, T THFcr AREAS 1, TIL APPEAR FLAT WHEN THE *
201r0**ETMAL PinT Ic nFrnUrEO. *
202n00********************************4***************************************
2n1nn * rTmITF I LSS 10 At'D 1 1 5.5 10 ANr x nr n 0 THEM Y:=xxA. *
2rPrn* IF T GIP Q Al ,.! ICS ln ANn Y flFr 1 THEN Y:=1(xE; *
205on* IF I GTR 5 ANr I I SS 1A ANn 1 nTr 5 ANn 1 LSS 16 AND X LEO 0 THEN s, I=Xx*
2n6n0* ri *
20700* IF J LEO 2n ANn J GEn 10 AND I Its 10 AND Y r,Era n THEN Y:=YyK; *
2 DPD 0 * TF T Gfr,' 10 AND j LID 20 AND J rIp 10 ANn y sEp 0 THEN YtrYX ? ; or
20800* IF I oTP 5 tmi I 1SS 19 ANn j rTr 15 AND j ircf 2c ANr Y LEO n THEN I:=X*
21no0* xN: *
?li 2 or* IF j GTR 10 AND j (ITO 2n AND Y rFn 0 THEN N(!=..YXT;
*
e1nD * TF I [55 10 ANn J GTp 20 AND x r'rQ 00 THEN Yt=yxc; *
2130C)* IF I Ltr A, Amp ) I SS 0 THEN Y:=C:
214n0* IF I GTR 15 AND N [Sc n THEN Y:=n; *
21500* TF J Lri. 6 AND ), 1E0 0 THEN Y:=0: *
216n0* IF J GFr, 75 ANn k tss n THEN Y:=n; *
2 , 7n0* Y:=ARC(Y); *
F 11 ;8: r;)- N: P NT v I;,c5 10 ANn j 155 1 0 AmD y GIP n THEN y:Ltx,,T;
*
*
22000* IF I GTR Q Amr I IcS 10 AMP x GTR n THEN XII=Yxc, *
221n0* TF I GTP 5 ANN I [SC 16 AND 1 GTD 9 ANn J isc 16 AND > 1._ss 0 THEN x:=xx*
*
MU: 'T''' J Isc 21 ANn j GTp 10 AmD I LeS 10 ANn X nTP 0 THrN X:=Xxm;
22400 * IF I GTP 11 ANn J lCs 20 AND . J r, Tp in AND x nTP 0 THEN XI=Yxie; * 225(10* Ti I GIP 5 A"'0 I ICS 15 AND 1 GTr IC AND J ICS 25 ANn Y LcS n THEN X:=X*
22600* vG: * '2700* TF T GTP 10 ANn j GTp 20 ANn X oTR 0 THEN X:=..xxA;
2 2p0 0 * IF T Isc 'n At'r) j GTp 20 AND X GTR n THE/0 Y;=YXF; k
'-'1r', S: '4 I I W",4r)" , " I ; 0 coTHEN Y ; 4 *
21101* T F J ISC ' Am t, Y ISS 0 THEN y:=0: k
212nr)* IF J GTP 75 ANn $f (Sc n TwrN x:=m; ?
23100* Y:=A1C(Y); ir
21011 0* DAT2fT ? J1::Y
k
215^rfl, rNn: ,
21 ,,0o* rNn; 4
21700*/****4-*******4*******************4******** - ****** * * * * *********************
P1P'1 0.0PFPF ARE Tea[ " LArils NIP THE nTFFrprmT PEPsPEriTVF ANriFs UcFn *
21qn0 * VANn 414 Pr 14F (Fri ARF A DinT cir04 of 7n0 TNel-IFCx11 Ik1Hfc, *
21nD*7****4**********4****************?****** * ***** * * * * ***,********************
2/J1* r,111:=70.0:
?42nD* ANrill:= 110k 0 !
2 tJ 1 00* AW 1 1: = 7Gs 0 : 2/1600* Aknr1]:=11n,n; *
265 '0* AN(;Fm1:7.140.rN; *
2/100* 'mr.f1:=1610n;
k
2117nC yr rlrITC(70r,0011
, r,0); k
2i n;?*
2, r'n*7mnw Jr crEATr Lt:r(5, AKIO TnEyrifTrATTom Fop THE PLnic *
25nro * 7******************************************************************* *** * *
2ir'0* 7frI1!=" 14 Fm P":
2c7f1 0* 7111:="0,1FrT "; *
2S3r0* CYW3IL(C'.0 ? 1n.n,(.2P.7,0,(,12); *
2c500* 7f01::" 1-nImf.; *
25600* 7111 , ="P, STP"": 25700* 7(21:=HAI pi n ts;
2Silf10* 7111:="TC ";

25900* (NPII(P.Op0.5,1,114,7,0,n,24): *
274r0* cYmPil(0.0+P.2pr.n7 , 7 , 0.D,72);
277n0* 7[(11'="pp0nUr"; *
27141, 0* 7111:7,-"Er RY ";
279n0* 7121.="imvAINr";
2Pro0* 7111 , ="Er AA r+";
2R100* 7f41:=" pOir"; .
2P2r0* 7151 , =" Air,P1": ,,
2P 1 r0", 7161-=" rLnT ": *
?Paco* 7171 ="PrUTT,?"; A 2P;(10* 7I14)!="Fc ": *
21460e* likAP,11(r.0,7.5,1.r7,7,0.0054); -,,
214700* 7fnl!="rrpYRT"; s.
PPPP0* 7111!="014r 10"; ,,
2000* 7(211="6 0 "; * 3;
2Qon0* 7(11!="CrLTF.?; *
291oo* 7[4]!=ftcnmpwr?: 4
292n0* 7151:="rQ rPn";
211^0* 7fAl.="PITTc
29Lirs0* [ymp ii (n.0,7.0,F.n7r7,n,n,42); *
20;P0* 7[0]tr.moN A nry ?
296r0* 7111:="OPP91r": k
2070c,* 7[711 ="Hc R57"; *
2nPrNo* 7[1].="nr AT ";
2cmr0* 7:b11:"TpE np": ,,
3nron* 7(9)!=" INST.";
3nir0* 7[6),,, ,, rE Tr :
3r?n0* 7rr1.=?r4Nnl,?; ,
3n1p0* 71P1!="r-Y ?; *
rtIrn*YmPilt(0.0 , 6.5 , (. . 0 7 , 7 , 0.n,4);
R
i ccRo******************************p*************************************** ,
n.*V0 FyT wF Wlv THE v fl !I/FR 1" INt'hFS AND PUIln A 1PFLF rr vALurS A
3n7C*7 7 k CIJAPT FIRt4

.
..,
3"P0*,****4***************************4************ * * * * * * *** * ****************k
rop0* PLnT(12.0,n,f1 21): *
.510* 71. 011="T4HIP "; 4
vIro* 7r11:="ry vAl": *
312n0* 7r21'="1 1 FS "; *
31300* (MFIAL(0.0 P.0.0(.2P ? 7,0.n,18); 4
31/1no* 7[0]!="STATE "; *
31np* 7111 :=" "; ,,
31601w cymnli(e.o.7 0,r.14 ? 7=n,0,12); *
317r, o* wHrpr(-1,n,RA-T); *
311400* 7101!=?Fr,cTrip?:
319r0* 7[1]'=" Hsrn "; *
32 nn0 * cyuwit(14+().4,r,roa,7 , o.r.12); 3210o* wHrPr(Air,RFT,21; ,
3 2Pr0* PLnT(r.0,P.G,3); 3230* rLnI(AlP,BrT.3): ,.
3 -, 4^0* PInTr11,..0,31; *
3 .2 ', nC* r1nfrH,P.0,7); *
371?10* 7rni ="ril ARA,,?: *
327 ,, 711.32:"P ?;
rl 3 2Q n* C Y" 0 `1 ii (r..6.,r.14,7,090,12); .,, 329nnk 7(n1'="FtnIf"; le
33n0o* 7111.=" ?: *
311* mF:111,..(f..GP6.0,(.14,7,0,0,121; *
3 1 2r* 71n1'="r4npc,TH; *
33310 * 7E1 l'="P ?:
*
31/Inc)* CYkipt[(0.0#5.5,(.14,770.n,121;
*
4
3100* 7E01'="KFNTi'r' t :
31An(-)* 7111 ="Y ft:
*
317n1 * cyuniL(n.0,`).0.(.14,7,1.102);
*
31PrIn* 7r01!="vrSsic?:
*
33000* 7 111.=?(?TppT ':
*
3 ,:nro* cyup 1( (n.0 /' .s, r . 44,7,0,1,12 );

3/lino* 7C/1*="N,cAHI-0, ;
311200* 7[11 "ITRA, ";
*
7--
3/I1Pr* cYmPlif0.0,".0,(.14P770.0r121;
*
31!410* 7 r11 , ="5?CAPn";

311s10* 7[11!="ITNA ,':

3116CNO* CYMPIt(('.GP3.511,14, "14(1012);
4
7
347n0* 7101 , =" TrNNE?; *
3/igIn0* 7f112="SE ?: *
3hon0* (mpiL(0.0 3 ,0,1. 14, 7 70 .n , 1 2 ); k
39nn()* NUmP-p(H+0.A.h.c,n,10,A,r.n,9); 4
s1 1 0* rkT 11 mPrP(H40. , 6. ( p 1 . 1 APF ,1 .np 2) ;
3 52nD* t4wKAp7P(1+0.14 5,,-,r.fa,0,, n 4 n., 7 ) :
3c 3n nir klUFARr.P(-1+0.11 5.1Pn.1 tilKor.n19):
k
3 511 P0* ?`1[1kAPrP(-14-0 4 #4 . C'JP P .141M10 o nP9): *
35s00* mWARrP(H40. 11,11 ,r# 1 . 1 A , Ni01 . 0,7 ) :

35600* klUmPPP(H+0. 4 p3, L ,0, 1 4 , 5 ,0 . 1,7 );

3c700* Pot10,APPR(H+0. 11 p3.10('. 111, T 0 n. 077 );
3SA00* PL0Tr0.0,0.r,3);
39p0* PLE1Tr0.0,5. 5 ,2);

3A000* rftliTr4.5,1.2);
3A10D* r'LpTr4.',,0*01,2);
*
4
3A210* n(nTro,p,0.0,?); 4 3.3x0** 0InTrn.0,(.9c, ,3):
r ao
0
n* nLriTfil*sm7.V,2);

6 s 1 * PI nT( 11.5,61 . 0 ,1): *
3AA00* Pi ilTrO,Opf.. (4017);
',37r, 0* nt_nT(0.n,6*L10,3); *
3AP(1 0* T'InT(4.rA*61,7)T
*
*
3A900* ninTr4o5?5. 90 3);
371 1 0* PI n1*(0.0,5.90,2); *
37110* PLnTr0.0,5*/11,1).;
*
377 (1 0* PillT(44.5*5 4 1 , 2);
3 7 1^0* PI0Tr4.'1,4."7 1): k
3740(! l_ * PnTr0,0,4.90,7);
3 7 C , rInTrno004440,3):
A
*
37Ar'n* PInT(4.5 ? 4 , 110, 2): A'
1770D* PinT(A, ,, .3. 00 ,1);
3 7Pn 0 * r'EnTro,n ,3 *P 0,2 ): * 374np * n1_07(0,0,3. 10, 3); *
3P0^0* Pi0Tr4,5,3* ti n , 2); *
3A10* OinTra,c1#2.9n,1): r, 4
3 P 2 n0* N-1T(0.0 , 2 Qn,2); 38310* RI nTrlb,(1 ,.r, 0 11 );

Pan o * % ****** * ** ***********************A.**************
* * ******************A****
3
3Ps11*TmOw HF ANn[c5 l', EFEJ- n RY THE rALrOmP THIRrF DTHFNSIrNAL PLOT ppnCFnHkr
pp
cnn,pF DUT TTN m AnPAN rriP AND wE RmIlD A fOtTA LnCnp
A1TOM OP" SD THATFAkHrp
H
A
o
7t'C4,, ?HTAft TS Pm0pir pr Nly T/TrIr0,[kEITI' THA y ro.N ,Iplke. c H TFTFn

nT
3pa0c -010 TmcmEs Tr'' THE I AST STATFW- NT nF THE LAST SfrTTON,
*
3Rt11 1 *ITEIFP - AL, F "t, r$ nATA MAPS PprIPmcFD. r,MF Fp pEpspErTivr vrrohr; ANGLES *
lnnre*Ilrcs THAN 0 1 rr(rrFs AND ANOTHER FnP VI WIN(; ANGIEs rJ,FATEp THAN
4
4
39i1r*9oo nrnPrrS.
3Q200 * 1 * * * * * *** * ******************************** * * * * ***************************
3011 0* ^N01''101:= 70 .0:
*
*-
-504n0* rktr.IP[11!= 11 1 ?0;
305n rl* ANrArr211=70.C2
*
4.PS: ML7431;fTIR:N
*
39 1~0Olk Aldr,1 715]:=20.0:
*
30000* 7r01 . = " STATF ',
*
41100* 7[111., ="lrCATTft; k
40100* 7[21!=ftnN IAT?: *
4 1 2 1 0* 7[1).="p AP ?: MAP
40110* sYNAR II (2.0,f ,,( (- * .14,7,0,1,24);
*
411100* nfrTr?.,0,D.3.1 ,0J, 5,14 5. 0,1 );
4r1;n0 * DFrIf2,0,1 0.3.1 , 1, 0,0 ,0P1);
4n6r* ',FrTr1.0,2*0p1ir,101.0.0,1);
4
1417-4 "FrTr2.0.3..1. 1 0. 0 .0 0 . 01 3 ); *
0x11 * RErTe3.C,2. 0 .1. ( 0, 0 . 0 . 0 P 1 );
AngnO* 71n1.="FIA ":

41110* cYHPII (2.1.1.2S,(.07.7,1.0,6);
*
411104 7tn1,=?aiA "; *
41210* CYmPIL(1.1, 2 .2 5 PC.0 7 . 7,(1 . 0,6 );
4 1 1n* 7E01 ="rti ?; * /111(Nn* c"fWil (2.1.2.2S,(.07.70.75);
*
1410* 7(01 ="mTS ":
*
41An0h CYvPq(1.1..2.2C,C.07.7,0,(1,6); *
4i7n* 7fnl.=" WE" ":
*
AiFnr* cYmPilL(.2.10.75,,,(?7,7,0.r,6); ,
i1cn07 7(n1 =uNe "; *
112no07 cY0F1 ? 1(3.10.2syr.07 7,n.n,6); *
4 7100* 7T01 ="TFN ur *
4n2n0* cYFAFIL(/1.1, 3 .2 r, (.O7,7,0.n,61; 7 21ro* 71(11 , ="se

AP6n0* cYPRIL0.1, 6 .2,C.( 7 .700.n ,6 );
425no* rArTIP(1.0); *
4 7A^0* nLnTr10.n,(1.n,?:;): 1,*******-******************v
4a7rN0 * FOP J:=0 STEP 1 !KIT; i nn Bc- GTNT? % HFRE TS WWFPF ACTUat *
42ACIP* TT. 14,1 TIFF 0 P- 19 77:=n STrP 1 ukiTyl 0 Dr, PFrOto PLOTTTtNr Lrnp .
42nrn* 7(^1.="STA7r "; % IS TNT)AtTzFP ,
4 1000* 71111="IrcATTI,: ,.**************************
4 11r0* 7[21*="pP nAT"; *
43prk0* 7(11:="A MAP "; *
11110 0* cYmP1L(0.0,F.Cpr 1407,0.(N.74);
*
41400* PErTr2.0(3.,1.crh.9,45.0,1); -,
410* PFrT(2.0.1.0.3.(p1.0.0.0 11; *
41?, (1* PrcTr1.01.2.0.1.(0.0,0.0 , 3);
4170o* PECTr2.0.3.00.F,1.0.0.0P1); *
4 1 pn0* PErT(3.0,2.0,3.cp1,0,0.0,11; *
41900* 7101:=" Sr "
ci
'
*
4no* cYK4PIL(2.1.1.A,r,07.1,0.n.61.: .
40100* 7r01,=? TFN "; ?
4/J2N)*mPlifi.1,2.29,c,o7,z,p.0,6); .
4h3n0* 7(03i=" NC "; 7
4/14n0* cYmPHL(2.1,2.25,C.07,7,0.n,61; 7
4/I5no* 7 101 , =" krN "; k 44(00* cymP11(3.1.2.2*(.07,7,0.n,6); *
4/17n07 7101 =? MTS ?; *
44pno* cYNARIL(2.1,3.2S,c.07.7,0.n.6); *
h4000 * 7rn1 =? GA ": *
4 9000* cY0" 1 1(1.1 , 3.29,r.07, 7, 0.n, 6 ); 45100* 71n].=" Alt' ";
tIc7 ,-, 0* cYp,AR,L(A.10.2,r.0 7 ,7,0.np 6 ); 451(10* 7[0]!=? FiA u: *
451:n0* cY ?AP II (3.1, 4 .25pr .07.7,0.n,6); *
4R50p* 0p-1(10.0,001,21):
456n,* P- Nn, *
4c7n0* 7(nl!="H;.o, Pn":
4c9n0 * 7[ 1 1:=4"(1jFnT ";
c, 4 qn0* sTHPIL(1.3, 1 n.0,f.1 4 ,7 , 0.0,17);
46r00* 7[01?=?CpmPlru: *
4(100* 7r11.=" cTATru: *
4A2n0* 7[21:=" r(1,4Pr1": 7
4A3n0* 7(11.=?PTSTno":
4111n0* 7(111.=" ni_nTs" *
4 t(1 0* sTmPIL(909,909,i.+4,7,o.0*10)): *
4, An*,*************************************************************** ****** *** 4(701*voilw wr PrAD Ti`'TI-F TwO VApTAPLF PEADTNC'S *
A6 ,:knr*%*************************************************** * *** ** *** * * **********

471 ^0 , 0,AP ll (1.3.o 3.r.itotIFAOpn.Q.47): *
1.1pA;, r* cYkAR iL(1 .3,Ft .lrf .14,Ut /0,0.0,42): qg
475r0* 71-01 =?prksrv?: *
47600* 7 111'="CTTvr ": *
47700* 71219="VTOku: * L
47p00* 7[11:="e, ANC1": o-
470n0* 7[1!="F FPn"": k 4
hOnnn* 71r0;=" HrIPII": *
Anion* 71611 =?nro TS ":
4R2ro* cYmPIL(1.301 .opc.14 , 7 , 0*n*42): , *
011nC)* m11mprp(4o9.C,9Qc.rp0.14,AN(;IW),0.004);
4gan0* 7(01 =" PFqPrn: *
4 gSr0* 711)*="Fc I.; *
4sAno* cYWmIL(Q09.0,99c.n,n.14,7,nin,12); *
4 q7^0* nInT(n.n*0.0,21): * 4Rpno********************************************************************o****
bsonn*VTITF THAT TN THE FnlinwTmG SrcTinN THERE Tc A CONOTTTLJN WI-4 7CP nF. *
4pnn0**TF04, (0!-s wHYPH (F fltri SETS Or PAPAmFRTFRc TO SFNn TO 11-IF rAirnmp *
40InC*ITHprrn ppnrFnPRF. nmr Ts FOP AtYrLF Dr EEPSPEriTVF IESS THAN 0 *
4r)PnC*tnr.PrFS PN1 TT I r FC rO
S
R ARRAY ni, TA THE OwONAL ARRAY LAHrlrP "OAT ? T? *
bo3nC7THF cFcnnip Tc rN, ANNFS nr PERSPIrTTO. r, RFATFp THAN 90 nFrprES ANn
40or2OTT HrFs THF "HncTnE nnwN ARRAY"'*-"IAT2". *
149500**************************************************** * *** * ******* ******** *
4104, * Tc. G r*TP 2 THF/0 in Tn FpnmT; %********4***************** *
417r, n* THpF'n(.1..0.,trTPrPTW11,DAT,2r,1 0 ); THFRr TS 1.14 FRF THE t
4ogrl* rinT(11.n,1,r,23); %THREE 0ItqkSI001AL t
40QrC* rn T1 HArk; 74AR: Om ,,
1
FPATF0
r114 rPrIT. TURFIrl(c.r.S.nrANnIF(PFPTIo n ],pAT2,2n:10c
,(
*
.
"lrl , DI nT(T.O.rpn ^9231; 7************************** t
5n7nr* PArK FNF: ,
"'PI O* PI nT(10.0,04,r,21); * 5 01 10* PInTc(n.r,O.n.ncc); , 5(115* nn T' sprAn; *
5 r/10 0* nATF9n: *
5n5rn, rnn;
rss( , ,,, rr 7 5- " PAI 1:YYYN'YYYYYYXYyYXyYY)(yXYYYXYXYXYXYXYXYXyxyxyyyyyy t)"6rn* rn Tr PprCfrnz; * 5r7rp4 PFcT"T;):whTTF(CF,PFP);
507010 rOp r:=0 STFr I INTT1 5 nn SPAnErRESTAR7.1,[rONSTAP2 1 ;
9P7P2* rnts ,,TAP2!
5r?"')* rpnCrFH?!KpIrr(rfcTADTppr); ?
5opro********* * ***********************4.********************************** * *** -,
51 000*T, * * * * FnuTTNF PAP1 * *_* * *
511000'********************************+********************************** * *** ,
1200* nFnT" inon* FTIF nuT 1.70r pFITF (1,in); *
iro* APO "--1 PY itr:11; * c,
c16r0* PEA! ARRAY Vr0:5,-r.1,Jr0:251,Mr0t2=]*Tr0;2c1; *
5 1 7 0 0* PEAL Hp0,rACT,Alr,RFT;
51RnO* 0 FAI. FTP,DFL.FIF;',nF12,FTP1pril 3:
51900* TNTF^,FP w, IA: *
5 , 000* lAoF_ pFp[An,(,nrK,kFr.o; *
52100* PFAI x; *
522"0* rOPmAT Pwl(FA.2); *
5', Imn* rnpmAT rwe'r"rpp(F..RAR Is NInHFp THAN 10.0 ImCHFs*,prtKIFpH); *
521s0* rnpmAT Fm3(6A1R): * 573F0* rnpmAT Fv4r"2OUTTNF PAR1"); ,
5"Ano*,********************************t********************************** * ****
s:"IsrC*grInI PnicrimF ?ppri" OrVrLnPEO Pv lAYIrl PAT cPinFp rup *
5 2 ?, 0*,I1SF "7 Y T1F HrAL1 EnlICATTnN ANn wELF- ARE PFnInN Iv nATA PPOrrrSONG *
52700O<YSTEm jIllY, 107 THE PtIPPOSr nF THIS PnuTTNF IS Tr pPrplicr ,
9"P"O*1- A pAo GpApq r/F FrtA nVFP b TWELE?J KAFINTH TTmr PERInP7 *
52900.0TT VTII rEnilEsT pc TNEHT TWELVE PEAT , vALHFC THAT WILL, p[r[rrT THE ,
5 1 000*%HFTn4T or FArk [Ar. THESE vALIIF ? HCT NnT FYCFED 10J, OR TATS M
5 11 004V1 PrICnAP HILI PEfICF Tr TAKF yHrk' AC TN THFY AXIS v'nUILi REOPP1Tm THE Y *
51200* ANn PFNprR THI (rApH UsEtrss. IhTIIT TS TAKEN FRO A UTSv nATA FILE
51100**wH0 ,4c IN, TFpkAl kfiiut- IS "Al 7? ANn wHntIC ryTFPNAL in Ts tqPInTrA?. *
51bro * 5ryws pfl uuTINE Ic T HE cFc0Nn supcErTTnm riF A EnUR pOuTTNE PI nT pAcKArj. * 51S00,4n1.vfl_npFp AT 1Hr rFilp(TA ImSTITLI:F riF TtrHmuLnny UNDT- F THE crlAnOL
51O,nn*TNFTIPMATTONJ AN') crIMPIITFR Ct'IrNrI THIS PnuTTAT 60c r/LcIr:Nrn nm A *
c17"0*1.nUPP"OGHc P5700 Aron uTILT7FS THP
.
BASIC Von AnvANcFn *
'ilpnALc.,n_ PLOT PArugrr nrvFLnPFD HY THE CALIFDPNTA CnMPUTLR ppnnorTS *
51900*rnkAPAmy For niTpuT nF THIS pnwrINE IS TN THE FORM .-+F A p15w FILE
54000,0 I AW7 LEn ftrAlcntF? t , HICH cnNTATAs TkcTPUrTTOYS FnR A CALrnHF pinTTFF *
Iinc) * %rAlCrt oFvvi_OrEo FY TLIF cAlTrnpNIA rnmPUTFR PPnnUcTs rLmPAN, y). THIS k
5A2004JFTLF MOcT RF ookprn TO TAPE ANn THrm THE TAPE MUST Br mOoNTEn nN THE *
50100*%rAlrlmP PLTITTFP TO ppOnurF THE PrSTPF0 PLOTS. *
5 44o0************************************************************************* A r PInT?10r.r,11(,(1); *
5/1A.r)0*1.***************4*************************************************** 0 ****
54700*9Tm T4E FrILLOPTmc eFCTInN IARrls Apr OFvFinPED NIP PL , 1 InFNTTrT- *
54PrOrATIIN. *
5 119n0*/+************************************************************* ****** ** * *
5/J9c0* wPIT'(17rf.r"4); *
50 ,1 0* 7(01:="HF Po"; * 551n0* 7111;="OjErT "; *
52n0* cYmPli(0.0.1r.opr,?8,7.n.opla); *
51^ 1* 7 [ni!="POR CP"; * ,

t1* 7f11;="AnH El"; *
55 5 (10 * 7 12 1 *="nT: Pr"; *
59A00* 7111 ="P7On r": *
5c7n0* 7[fil:="PAP 1 4 n": * 5tipo0 * 7(51!="F4-R1/Ir?: *
5 0 00* 7141!="F usAr,"; *
56nr10* 7f71!:?P p,. .
5 0, 10o* cYvRIL(C.00g.5,(.14,71,0.008); 4.
5 0, 1r/0* 7101:="FrillUr": +
5Pron* 7111!=?Fn PY ft: *
5Psn0* 7r21!=ntnyANr"; *
5'10,00* 7E3]:="Fn ANn"; * cP7010 * 7[fl1l=" PASIr"; +
5ppro* 71c1.= 9, Al ;Mt,: *
5A9rN0* 7CA1?=" PI IT "; clqnno* 7171.=?pcjilon; *
501n0* 7 1 8 1:="Fc "; * 502(.0* mPlt(C.(..,7.5'(.(17,7,0.01,4); *
501('D* 7[01'="CrEY""; , 5r r0* 7111?="(pl lo?; *
500* 7 E21'="6A PT "; *
5 0 .00/ 7 [11.="cAltr "; *
-7,(4 (r'C,4- 7t1il="rpM0U+"; *
5 0 PnC* 711'="FP PPn": *
5n9rr* 711 ="FITTS "; *
k
6rIn0, c'OARlicr.() ,7.^,pr.n7,7,0,r,A2);
6r1"0* 7101!="pr A P?; *
6r-'2 ^ ('* 7(1].="lirRntr ,. ; en3r, 0* 7[2].="Hc R`7"; ,
Fni)^ ,* 7F11:="rn AT ": * *
6 05Pr)* 7141e="TwE C1";

6rie* 7(s1::" TM1ST.":
*
6n700* 7F6J.=" rF 1-";
,
6nRi0* 7171t=?rwNntn";
*
6n9pq * 7[;21417."r-Y ppp p
61rr0* mPIL(0.0,.5,C. 0 7 , 7 ,0 .r,94); 611n0* rtrT(12.n,1.0,21); *
612p0************************************** **********************************
611rr.;0mnw A CAIANInrP tyTc TS CrmcTPOrTrO Akin THE DATA FO? rPP WFTOHT
61/Jr0,TS FmTFPrO. %
61c,no** * * *,, * ** * ****** i****************************************** *** * *********.,
61c10* 7(pl="CrNITA?: *
6 120* 7(11'=". CrU",":
t
61;10* 7[7] =" ": i .,
61eiri* . ,o,i1:4 IL ci, . 0?o,5
pp
,,r,,n7,7,in.n.18);
61;;0* 7[n] =,,sTFP.r?; * *
6150* 7C11 ="nio. ";
61 ,,70* 7[23 7., I/ ; *
ir
1U)B: l'k(1 .?" 1Fr' S (.7'7".r?'18); *
.,
61?1 C1 * 7111..ftcnoN. ft;
61610* cympiti(2.0.0.5.(.n7,7,0.o.18).; *
61620* 7101!=?ApnRi.ft; *
61610i, e,YmPIL(3.0.(.5,(.n7,7,0.1,18):
k
/1 160* 7Fr]!="Sp0 Cr";
,
*
f160* 7[11T:"P.cnilm?1
(--14c* 7(21!=". pp:
*
61670* cY0111(4.0P0.5#(.r7,7,(1.11.18); ,
610* 7rOlt="nTHrF. , "; *
616o0* 7111 ="CrOklp ";
*
61700* 7[21 =" ?; I *
61710* mR , 11(5.0,(.5*(,n7 , 7 , 0.08);
6 1 770* 7101!=,, ti.p.?:
61710* 7 111 ="TFST ";
*
6171,0* cYmFvIL(6.0,0.5tr.r7,7,0.00,18); *
617A2* 7fl];="V.O. n " :
61764* 7(11'="LrOn Tft; *
61746* 71"21!="FcT ":
*
617A5* cYmP11(7.000.5,r.n7,7,0.(1,18); * 61750* 7(01!=" HrT ,T: *
617A0* 7[111="nP Onr ;
*
6175* 7 (2)!=" 61770* cYmPIL(P.0.00.5Pr.r7""on,18); *
617Pr* 7101;:ft owl";
*
61785* 7111:.- .;
*
617 0 0* cY0,1t[(9.0,n.5,(.n7,7,n*nilfi);
*
61 Ann* 7101,="PAP sm": * 61810* 7[1] =?Flip ,.; * 61P20* cymPA(10.1,n.c,r.07,7,0.n0A); *
61830* 7f01:=?c;.r. r"; *
61RoD* 7f1]UIFIRF"; *
61nc0* CYMP li (ii .0P1).5,C.07.7,09(1,1A): *
61 0 f.0* 7I01'="PPt-ACT"
*
61P70* 7111 =f I rXAN ,,),
61PPO* cV4tRIt(12.1on,9*(.(17,7,00en,1 ,4 );
" P on* 7101'="rrLvtrft;
*
619r0* cYKAP , Ii (1l.nPni5,r.07,7,001,1R): *
61010* 7101 =" ti4YR,A"; it
61970* 7111.."1. .. .
*
61 0 10* cymPtl(1A.nPr.pr.07,7,0.0,1q); .
EIQA0* 7[01 ="STC.Cr";
*
61Qc0* 711]'="LI TF";
*
6100* 7171!="T pp.. p
p
61070* cYmwfIc1c.non.,),(,07.7,0.0.14)! ,
610Pn* 7[01 =" cl- FP.";

61QQD* 7[11 1=', ?; *
6 2000* 712];=" pp:

6010.* cYmPIL(1(,0,r*Spr.07.7,0.0.1R);
*
62070* 7(01 ="IlkFFRT":
*
62n10* 7111.:?. ?;
*
670A 0* (Wm (17.0Pri5 , r.0 7 P7 , 0. n, Pi): *
67r(1?* 7f n1/="0011,. ?: *
620A4* 7(11.="TrST "' *
62nA6* cYyPIL(1P*O'n.'",,.()7,7,D.nolq); *
620ilF* 7101e="Plonr ?; *
f"Prc0 ,- cY I0 1-` It (10.0,^.9*r.o7.7,0.rI ,1q):
*
6^nc?* 7foillturTHFP "; *
elr,,, q- (YmnIL(2r, .0 n , n.r),1 .7.7 1.0,1c1)! *
621m2, Frp , :=0 co"Fo i ivTTI 20 pn RPIIk *
62104* rfpFAD:
671n6* rvAnfA17,// , Trki) rr,nnm1; *
621PE* TF TrK1 M ICJ THEM WpTT7(17nF,Fv7) ; *
622n0* TF TrK1 rlt? In.f THIN' GD Tn HALT? *
623P0* tiPTTr(l 7rF .//, Trt 1); 4
624r?r)* rNn; *
625r0* Pn Ti KFrn; *
62?, 0* nrinN! wpTfr(linr 4 .o, FnF FmrrOITFPrn">); *
626r1* P-0 Tn HPIT: *
62(rE*z************************************************* * ************* *********
6")Jar * PFDF TS wHFRr III pPTmARY 1011P Pr THIS RPOqRAm Ts TN,T;lrn. viTTHP.' *
6l400*TT ALI r7 rHr ptrS APE PRnnUrFn,A SkAALL TRTAkIGLE IS rEmTFRFT AT *
61n00*TTHF Tnp rt- FAcH FAP,ANn Alt THE TRTAMGLEs ARr cONNFcTEn Tr rAKF TRFNnS *
63100*3uIrHL v;STRIF. if
632n0*,'************************************************* * ***** ** ** ** * **********
fllro* KFc,n, *
610* rop w:=0 STFO 1 IKT11 20 nn PFno,T * 11(1
635r0* -(0!=K+r,s; *
616(, 0* Y:=2!7 . %************************ 6170o* PAp(ept.ppl4n,Tr1,1.04jrkipy416,;y< THFRr IS WHFRF THE *
61RnO* rrr;T %AcTOAL !RAPC APE *
61Qn0* nLnT(n.0,1*P.3);1 %FIRM)! LE- 0 *
6AnncI * T %***********************-.-
6/11JM0* 7101'="CrP1/Ir":
64b10* 7 (1 1 :="Fc PRp"; *
64420* 7[21 ="VTDFP ": *
6ACrn?*********************************************************** * * **********
6116fIlo**TN TWIT s
ca
PLnrw 0- rPAw A V AXTs A%in LAPFL IL, AFTFP ThAT *
6/17(00THF v riPiTI" IS rron 14 TMCHFS TO THE RIGHT Akip TAHI L 07 vALUFS *
6Pp00*,TS C ,nTpurTri Tt' CHART FrIPM.
enonp************************************************ * * * * *********************
6cnr * AxTS(0.00.1447 1P410.0,90.0,n.0,1.n); *
6 51r0* rinT(22.0,0.^,71): *
6s2^0* 7[01'="TA81i' "; *
611n0* 7711:="fir /AI"; *
65400* 7r2]..."1rS , ": *
qi 6'n* cYHP'IL(o40,r o,c47P3,7,0 n,18); *
60:6P0* 71*(112=?pATA r"; *
69700* 7[11.="LIMPNT*1; *
6571 n* 7[212=?------"; *
65770+ 7(11.,..?.....--**; *
t CP (1 0 * cYmPIT(0.0-07.CPr.14ATPOen,181;
*
c5400* wHFP7(HpnrrArT): *
6A000* 71012=" VAlr"; *
6 4 1n0* 7[11t=t, liscP ?; k
66110* 7 121!=" ": *
t 6 200* cT,001[(H+c.1.1.,r.14,7,n.0,161); *
661(0* wHFRF(ALF,,IFT,',): *
(?,eino* RLnTr0.0,8.0 3); *
6ASn0* r'l(TrALP,HF11,3); *
66600* RLnTrH,6.0,31; *
67(0* P1rTrH40.042); *
67100* 7f01.=?CnNiTP ,t":
67110* 7f11,="crpTTmft: *
67120* 7F21!="N Cntlro,,; 4r
67130* 7 [1]I=ftc. ft; *
67100* cYmPli(r.006.5.r.14.70.0.0,18); .4
6 7310* 7 C 0 1 . = " CTE P T I "; *
67370* 7111'="T7ATIn"; *
67110* 701!=?K cnOm : *
67110* 7111:="s. "; *
675ro* sYmPALc0 Or6.(,Pr.14,70,1.0,18); M.
r) 67;10* 7 (,!= ' ?4P-P T " ;
67570* 7[112="1I TTY "; *
67510* 7t2]:="rrlINS.":
675/10* 71112=? "; *
6 75c0* cYmPIL(0.0,c.5,(.14,7,0.0,181; *
67610* 7r01t="ARnPTT,q; *
6 7 67C* 7[11:="rm cil'i":
6 7 610* 7[21:="M1s. ": *
67gro* ,*AF11[((?.0,5.C,(04,7,0.n*18); *
67910* 71r1.=,'crcTAIft: 4
6707 0 ,, 71111=" sF"/VT"); *
6701c* 7[21 ="CFS Cr": *
6701,0* 7r11.="1INS. "; *
6P100.0 c0, R0I(0.0, 4 .5,(.14 , 70, 0.C,18);
6 ,1 110* 7101:="CITHFR ": *
6 P120* 7(11'="CnOkls.": *
6 '1 1 1 0* 7171:=" ?; *
6 0 1br* 7[112=ft ?: * 1 t/lr?* cTooPIL(r.Opil.otr.14,7,(?.0,18);
f.7 ,1 11C, *
6P170*
6R'OC4,
6P3/]*
6P5ro*
6p51*
6P570* 64r.r,,*
t-1 P10*
6i1 P704-
69120*
(7.9110*
69120*
69110*
6q4no*
60b12*
69h70*
606h0+
69610*
6Q6?0*
6P610*
6Q720*
6971 0*
t972C*
69710*
697/0*
69750*
6n7.4 0*
60770*
697PC*
69790*
69R00*
60F10*
69g20*
69P10*
69R/J0* eopo*
60 , 0*
6 9 P70*
;;B:
69900*
69910+
6P920*
69930*
69010*
699;0*
6990, 0*
60970* (19P0*
69990*
r0900*
7001 0*
70070*
7 ,1 00*
70040*
70050*
7n , 0*
71070*
71opo*
7n0po*
p1 ln0* 110*
70120*
70130* 7n160* nL0T(0.000. 0 O3?):
7 1 150* PUITr2. 0 ,0. 0 ,21): 721 70* PLoT(1.n,0.0.21):
7n1P0* 7111":"TP,HI.F.
711Q0* 7(11!="nr VAL";
7021* 7[71:="urS .":
ZI21 * SYmRAL(r.0 ,8 .0 f.
fr'77,.* 7(01!=tTATA rft;
7o?10*
77240* 712]!="..... - ..?;
702c0* 71111=?-r-- - r ,I ;
7r\20,0* cYmpw (0.0.7.0,c
70770* WHF-Pr(H,D,FArT);
7n2p04, 7[nl!=" vALOr":
70200* 7[11.=" Hsrn ";
773o7* 7[71:7." ?:
70310* 7[11:=" 99 ;
7(1370* cYkAR111(F 1 4n.l.n,c
7[ (1] W.) ":
7(11!...7"PrEsSH 9, ;
7[914="Pi .":
"rmPA(C, ,0 ,3 .5. ( . 14,7 on.n ,18) ; 7(r))!="v.n. p":
7[111="111 0 0 7 ";
71- 21;=', FT ?;
cYrk1P111c0.o,3./1,r .14,7,2?9,18);
7101;='Pri 0170;
7(11?="Pr T":
SYNARIIL(r.Vs 2 .5 , r
7101:="Vnpl T":
7r11;="ECT ":
7[?1:=" ?;
SYMPA(0.0 ,2 .0 0( . 14, 7 ,0 . 008) ;
7101:="PtP SP";
7(11!:"FAR .";
7fn1t="0.c. 2 ,t;
7111;="PITORF":
FYmPAL(2.0 ,1 . 00 (. 14,
UmP7R(H*0. 4 pic, c ,n, 1 PolimPrp(p+0. 4, 6.r , r, 1
dOmPrp0-40.0 ,5.,0,1
10 1imPrp(14 +0. 6 .5.(, 0 . 1
NumprP(H+0.4 , 0 . 1
mumPrp(H+0./1 ,4.r.0.1
"UmPrP(P+0. 4 ,3. ,0 , 1
+0 UmB7R(H40. 11 +3.(pr.1
mO
7
vPrP(H4-0.?. ,, c1 . 1
"mmRR044 0.q , ?.r.n. 1
plumprp(H40.4 ,1. r , 0 . 1
mUOIrP(H+0.11 ,1. 1,0 . 1
pLnTr0.0,0.0 ,3);
N nT(0.0,8. 5 ,7);
Pinir4.1,. 5 .2);
P4riTr403,u.( ) ,2)1
PLnTr0,0,0. 0 ,?);
PrTr0.0,7. 90 ,1);
P n(4.3,7.2 0, 2)i
P 01(4.3,6. 0 ,1)?
0 LnTf0.0,6. 0 ?,2):
r401rO.r,6. 60
,1):
0Lraf4.1.06. 110 ,2):
0[11Tr4.1,9. 9 0,1)!
0 1,r1Tr0. 0 ,5, 9 ?0?):
n[nTr0.0,5. 4 n,l)'
0 LPT(4.1 ? 1. 4 o,2):
P40Tr4.3,40CO31):
rtnT(0 0,4 0 ") ,2);
PLInT10,0,14. 40 ,3);
01117(4.1,4. 4 ^,n):
PI nTIP,3,3. c o,1);
PLnT(0.003. 0 n,7):
PInTr0.0,3. 40, 3):
P(nT(4,3,1. 99 ,3):
01,0TrO.C,2. 09 ,2);
?I0Tr 0 ,0 , '. 0 11;
r1,0Tr4,1.?. 11), 7).;
P1nT(4.1.1. 90 ,31;
01.07 1. ).0,1.grio2):
0 10Tr0.0,1, 4? 01):
PU1 7 ( 4,1 , 1. 4?,7 );
Pt nIr4 4 -4,0. Q0, 3):
. 1 4,7, 0 . 2 ,18) ;
.14,7,0,0,18);
.14 ,7 ,0.0,1 8) ;
.i 4, 7,0. 2 ,181:
2P , 71
7,0.0,181;
II,Tr01,0.0.2);
4oT1 1 110 p 0 , 2 );
II, 1 (21,0.0,2y;
4,1t31,0.0 ? 70
4,11 111,0.011);
1I 5 1,0,0 ? 2);
4, If 61,0.0,21;
4,1(71p0.0 20
/1, TIP1,0.N);
4 , T 1q1,0.0#
r1,11101,0.n ,, )
11.1(111,n.n , "-')
001,18);
7C1340* wHrP - (AlripkFT,7):
70160* PLnT(0,C,P. 0 ,3);
7350. PlrT(A[ P,Hr 1 ti);
7n30* PtrTeri,b.0,3);
7017(. Pln1fH.0.0, 2 );
70390* 7[0]!="PPEAST";
7n390* 7(11.= FXAM ":
70,00* cYw4RIL(0.'),6.5.C.14 , 7 ,0 . 0, 1 8) ;
78141 0* 7(01 :"PFLVTr":
7'1 170* cYmp (0.0p6.0,( .14,7,1).noB); 7ni3o* 7r01.="1ppoili";
7r1!1io* 7[11:="YcTs
7n1Jc,0* c.YmPIL(0.0 , . 5A(. 111, 7 ,(s . 0,18) ;
7nW)* 7P11;="c,TCKIr":
71b70* 7111 , :" rEL1 ";
V)^

4PC* 7 (.21:="ft, E1/1 "i (400* 7r 3.]*.r" S
7f, r? r* c, YlkAR CP.C 5.0 , (.1 407 ?1 . 0 1 11 );
7110* 7(111!="STEPTI":
70520* 7(11 ="77ATT":
70530* 7[p1t=" ?;
71540* 7(11!=" ,t;
7050* cAMPIL(0.c./.1 .5 , (.1 4, 7 , 0.o , 1 8 );
7n9A0 * 7(ril=?IKFFPT":
70570* 7(11:="11 TTY ";
70580* 7121 ="
71c9^*
70,c.n0* 7(01.="ppiqN";
7n610* 7[1].=?Nry Tr?;
7062r4 7[21!:"cT ":
710* cY01, 1f(n.0 ,1 .5 , c. 14 P7 , n.n..1 8 );
706,b0 * 7101!="PiOnn ":
7r650* 7[11 ="TFsT ?;
7r660 4.- 7r21 4 ="
trNA70+ cYmR11(c.0. 3 .n.c. 140, 7 , 0. (1,18 );
7 0F, 72* 71. 01'="[ITHFP "; 70,c74* cymp
706P 0*
Z 06 0 0 * "ImPrP( 1-44 0. 40L . ( * m . 14, T (111,0,0,2); 70700* mUmRrP(14 +0 4, 5."'. 1, .lhpTrIbi , n ,(1,,,) ;
70710* P?UmPrP(1-1 4.0. 4 5.(. 0 , 1 /10 C 151,0 . 0, '" ) ;
707 , 0* moNAR 7 R(14+0. 11 4 L yt' ,14, T1 16 1 , n. n ps"); 70710* mOmP7P(P+c.ii,4,r,n,l/IsTr 1 71 , n, 0, /);
707t10* vOmPr14(1-40. 4 5.3 , 0. 1 a , Tr 1 R 1, n. 0 .07 ) :
7070* PolimprP(H+0. 4 ,3.(#0.1/IPTC 1 01 ,0 . 0,7 );
707 5 5* tAlimPrPCI-i+0. 4 2.` 0 111, 1j 201,1 . 0,,) ;
7070,0* PEnT(0,0,0. 0 ,3);
(r) T40* PLnT(0.0,F.5.2): fN4,
70700* Pirlf4.3,0.0,2);
7rI800* pinTrO.C,O.(.2);
70810* rinTr0,o,T.9 0 ,1),
700 20* nLnTr4.3,(. 00 ,2); 70830* PLnT(4.1,(+. 9 m,1);
770900* 0InTr0.0,6. 0 n,2):
10R50* PLnTen r,b. 4 n,1);
70860* 0 InT(4.3,6. 40,2 ):
7r'70* pLpTr4,1.5. 90 ,1);
7(pA0* PLnTr0.0,5. 90, 9):
70890* rIrTrO.C,5. 110 ,3);
7000 0* PLnTr4.3,5."#2):
7nolO* NnIr4.1,4. 0 (1 ,1);
70020* DinT(0,0,4.9 0 ,2);
700 1 0* rLnT(0.0_04. 4 n,1);
700b0* r'LnT(4.3.4. 4 n,21 7
7095 0* PLOTr4.31.3. 9 o ,1 1:
7. 00A0* PLnIro.(1,3. 00 ,7);
(0 0 70* PLn 1 (0.01.3 4^,1 );
70 0 )1 0* vLI-IT(4.3,3. 40 , 7 );
70900* PLpTra,3,2. 90 ,3):
710 0 0* PLPT(0,0#2. 0 , 2 ); 71010* oLpTr0.0,?. 40 ,1);
71020* oLnTrb,3,,,tiop2);
71030* PinT(4,3,1 00 , 1 );
710PO* rt_nrro.0p1.9 ,1 ,2);
71 nco* rinT(0,00. 60 , 1 );
7 1 rA0* P(n7r4.3.1. 40 , 2 )! 71070, PI n1'1'4,3,0.00,1 ):
ziron* POIT(0.0,0.'10 ,2);
fip 0 0* PLnTfln.0,0,n,2 1 1;
7111, 0* Pi_nT(n.r,n ^ ,oc c );
7/IhnO* rnn;
7'icr, (14 r.;0 Tn PPnCrFnl;
70600* PEcTT3:vRTTP(C,PF3);
70Arl* rOP F:=0 STF' 1 0 7. 11 5 nn SPACF(RFSTART,1)CrOmSTAR3 1 ;
1ti6n?* rONSTAP3: *
747r0* PROCrED3:'in;PT-rf (v. rSTApT,Rrs); _
7bpro * ** * ***** * ***************************************************************
74.900*5t * * * * E -10TTMF PAR? * *.* 4 *
75000*************************************************************************
75100* Eir,TN *
7300* FT1F PUT L7nr Prt.nTF (1.1n); w
75hn0* Appny 7fn:151; *
750* PFAt ARRAY v'r0:117,JF0:131,MT0;11].Tr0:11]; *
7500* PEAL FTR.OFL,FTF-,OE12,FTP3'nFt3: ,r
7 57 0 0* PFAI N A P,FACT*Alr,pFT;
75F00* TNTFr.Fp v,jilt *
7900* 'Apr! REFFAr,r;nr,KEnr;
*
*
*
Z66(' ljusr RY 144E' HrAll FDHCATTnN AND wELEA9F PFn nN DATA PPO0FFCCING *%P 0T PnUTTAJF "rltr2"
OF Fl. Fv nAyTEL CsIDEP rLR
fA7n 4, %cYSTFm juLY, 1P7. - THF TF THIS Pnti INF Ts Tn ppriplicr
7100nAp rpAPHS OF'n PNAlyT7E THRFE 0TFFEPENT TIME TNTFPOLS rPP
76000* 6 mni.r vAPTR[F pFTwEFN THE FT(41T PFGTON Tv STATES. TT OLL PEpUFST
77nrO*41NpUT TN THE Ffl tIk OF 24 PEAL vAtItLS THAT WILL PE PROrL40TrNCL TO
771n0*,Tn TuF TnjcPrAs vOR THE enRpFspnWONs ITMF PFpInD. ThE PF
772n0 * r HF oAtors Or fl-r- THOEF TIME PFRTCOS FnR EACH STATE ,, UST NnT FYCFFn
773000,0 AS Jr THr cqrrpAq ILl NnT TAKF THFSF, TF IT Pin, THE Y AyTS 77p00Ppr(7,0Am FTF!cr TO TAKE THEM AC TN THEY AXIS woul REOPTr.JN THE Y
77s00*%ANr PFNnER Tur frApH USEtFcS. ImPuT TS TAKEN FRnM A 6TSK nATA FTtF
776o0*ToHn"s TNTEPt:AL vAILIF IS "Alp. AMn wHno , S FyTEPNAL In ? "PinTnA",
77700 + %THTS prpTTNt Ic TpE SHHSFrTTnm rF A Frl .uP POOTNF PAcvAni
77prO*%nf.vELOprn AT THI onDGTA TAISTITu/F nr Tt-A7HNOL00,y OWN; THE SrHOOL
77900,.%TNFO7mATTw4 ANn rnmPipTFR SCIrMrE. THIS onlITTlyF WAS -E.IrtqFr nm A
7P0nn*v7UppnuGHs p57cn prn irTTLT7FS THF BASIC Amp AnvANCF0
7P100*iALGO! Ptrq PACKtrF nF VFLPprD pm THr CALTrOPNTA CnMpUTLp rpODITTS
7p2ro.orrHpANy. THr niTpOT OF THIS RnUTINF IS IN THE FTIPm r, t A nTsw FILE
7R11*% WIFLEF ftqlcrIF 7 9. tipTCH cnNTATNs TNSTPUrTTONS FrR A LALCOmP ptrTTFR /ID 7P*T( n vELL , rEp ry I pF CA,TF - nRNTA riImplITFp PPOPUCTS rCimpANm), THIS
7A5000,,TTIF MUST PE FUtrFr TO TAPE AND THEN THE TAFF kiUST ElF AqflANTFn nN THE
7s6nO*TrAiCnmp pinTTFP Tn rprinUrr THE DESIRED RtnTs.
7P7n0*%************4-**0****************************************************** ,,-
7ppno* ninTe(50.0,11.n,r1;
7ppn0*,*********4.******4*******************************************************
700n0 0,fl'N_THr FrI_LOwIN( cF CTTnN IARFLC Apr nivEinpFn Flip PLhl IlFmTTF- Tm
7 0 1000rAT'nN.
702nn*%*********************************************************************** 4
7020* WRTTr(L7rF,Fwe) );
793n0* 7[01;="HE'v4 Pr";
79t00* 7I1i!="njErT U. 700* cypoRilL(0.0, 1 (1.0,c,2R.z00.0,17);
70700* 7101!=" RAP ,-";
Z9ROD* 7[11"p6p14 n?; * (9tP0* 7r21!="tnTs ";
FrrnO* '11 k1 R 1 4.(n.00 9 .5 , (.1 4, 7 , 0 , n018);
*
*
*
82c(10* 7r71!=?PnuTTm";
F2r0* 71- F4 1?="F ";
F27n0* cYmFIA,(0.0, 7 .5,r.07 , 7 , 0.0,54);
e2Fr0* 7[01:="cnpYPT":
F29n0* 7[11:="OHT Tr";
P1000* 7r21e="60', R N( ";
F1100* 7(3):=T"CALTF.";
E3200* 71/0,="cnronPr";
t3.1P0* 7T51.-"FF PFn":
83hro* 7TA1t="nlicT ";
F15(10* 7, YHRIIL(n.DP7.0 ? r.h7 , 7 , 0.0,42);
P3f, P0* 7tn1!="nt A P";
P1700* 7[11:="UPRnUr"; PlFncl* 7r21="Hc R57";
piono* 7f1]!="pr AT ": F/Irson* 7[41!="TPE (; A";
f414 10* 7I1t=?
Fa2r0* 7(A1,=" Fq Tr";
7A00* PFAI Y;
7 4, 1n0* FORMAT Fml(FP.7):
7 Ic, 110* FORMAT Fm2("RUUTTmE PAR?,.);
?,2c,0* rflpMAT FN/3(11A);
A20* FORMAT Fm4("PEPTrn l=",F 11 .2.1, Y2.0'nFRTPP 2=",E4.20(2,"ERInn 3: 61 0F4.9);
76300* FORMAT Fv5("Fpp(1 .. or vAlUFS_GPFATER THAN 10.0..nLFAE Five);
7611nO*Y******************************************************************* * ****
*
-or
4-
*
*
*
*
*
,.
PIRDO* 7 rDll="rPOnUr";
F19r0* 7[11!="FD PY ";
P2nnn* 7[9]!="AnvANr";
e21n0* 7f31!="Fn Arr";
P2200* 7[4]1=? PASTE";
P7300* 7(53:=" ALo'n!";
e2 4 no* 7(A)!:" pl_nT ft!
F* (1 "; 1^0 ,, 7t71.="CHNPLnn; *
plInno? 7(P1T="cY r : *
Fij c,no* cyopil(n,n.6,5.(,P7,7,0.0.94); k FIJAI'04%****4.*******j************************** *+* * ****************************,,
PiJ70.o.PFPF WF W-10- Twr Y nPTGINI nvrp 1' ThIrHrS AKIP prAn rAni- RrPTnns *
PoPnr*4nATA TNTr TH crrpfsprINDTtor; ApPAv. TT S?rIlqn RF NnlrL TWAT rArH ARkAy *
pannoornyTATHs pATA riP All FIGHT STATES ROT ONLY FOR *OmE,6 TImf PrpTOD. *
PrOnc*"RPAY "To' c7", TAPs oATA rno PFPIrD nYF;APPAY "j" CONTATI, K nATA Fop *
PrIln:pRpTrID To ANn tPPAse "M" riNTAT,'S nATA FOP Pr' pInD Tt fi rE , * 6ron0*'/****4-*******************************************************************
Pc3n0* olinTrIP.0,n.n,231; *
PriA00* rOR 4 :=0 STEP 1 IkTl i 7 On Rr6TN, *
Ekcno* prprAn: *
P56004, pFAP(Al7.iNl.Irk1) rrnnO;
89700* PFAP(AL7,Fm1.J( 1 1) tnOnmi; ,
851:100* PEAncAl7,H 4 100N.1) (r,nriNl; *
PCPICC* WRITr(17nFoF kg1 , 1 r/4 1 ,0 IrK1PWKW
FIScnO* IF TrK1+j[K]+Nrk1 GTP 10,0 THFm wRTTr(LinF,FH5) ; *
F6000* IF jrK1+11w1+tr1.1 (DTI 10.n THE" , ,.. o Tn HALT; *
13(inn* rmp; *
P6200 ,- or To Kfrt; *
E61n0. nrinh lw In HALT: * e(shno*,*********************************************************************** ,
s6cnn*,HFpF 0 cFT PF TIF I nPp TpAT pPDP0rFS THr ACTUAL bARc, NnTr wnw THr
Pnn*9[DApc, APE sTAricrr nm TOP oFr nmr ANnTHFRisFrOmD PARAMr1FRI AtNn HOW ,
F6700*THF qATcHING crlrFc UTEFFP FOR rArp RAR(SrvFrTw RARAmrTFR), PFIPT(T *
PAPr'00-rNr TS HATrHrO (FrM liPwAPn FRnm t FT Tn PTc,HT;pEpInD 1it0 lc MOT HAT(HFD-
P(sp00*IAHO pFprrn THR1- r IS HATE wFO HPVPPn rRnM PTGHT To iFfl, THTs WAY *
F7nnC* . ALL apps APF rTFTTNCT ANn EASY Tn TOrATIFY. .
P71r.,-***4- ********** 44 *************** 4- ************ *** * ********************** *
672nr* VE?, . * erino* rnp .(.7_0 sTFp 1 tk!Tjf,s 7 nn REGAN', I**********************

t4 711 n0* PAq(wil.0,0.noitl.1,1.uPTIK1 , 7, )!%( APAr. "I" PPrInnCFD *
87r104, PAR(4".Trw1+1.p.c.npirKip1,npjfKi.1,0))TK %PtAn ?J" PprinlICFn ,
p7An0* PAP(d0Jfv1+IfK14-1.0 , n.Opm(K1.1.O.M(K1, 1,4 );%< --0- %PAn "P" PPrIntICEn *
87700* rNn;T %*********************,,
/1714r04-********************************4.***************************************
8740 C*fluni., ': ACH RAP Tc ronPFPLy IABFLFD RTTW FArH STATE NAMr. LAPELS ARE , tapnnr*JnricITIoNFD PrtOt EACH PAR.
8P1r00*********************************************** * * * * * * * * * * ** *** * * ********
PP2n0* 7(n1.="tlAnAP": *
12 83n0* 7(11!="A ,,.:: *
Ffliiro* cYmPIII (n.0 , 0.5 , r.n7 ,7 .0 0.n#12);
FFc00. 71n):="FICRIn"; .
8F2 600* 7111o="A .,. 7 k 88700* cympilL(1,0.0,pr,r7,7,n.n,12); *
PpROO* 7101 =,(rnPrr"; *
FFI9n0* 7(11!="A r;
porno* cyHRAI (2.0?,.5,r.n7,7,0,n,12)3 *
1r0.4 7(01!="I.FmTnr"; *
FQ2n0+ 71111="" ?; * 89300* `,YHPlq(3.u.o.`,,r.n7,7,0,n,12); *
P0/100* 7[01:="PTSSTc"; *
FIQC00* 711]:="cTpRT "; *
89,, nC* cYmR1[(4.0,0.,(.n7,7,n.0.121; *
" 80700* 7[0];="h.C4PI'; *
8QPnO* 711]:=?1 TNA ?; . 890ro* cympli1(5.0pc.c.,,r.r7,7,0.n,12);
9non0* 7[n1!="s (ARP";
90in0* 7ill'="11NA ft; *
9 0700* cYmPIL(6.0,c,r1pr.r7,7,0.(1,12); *
9nin0* 7C01.="TFNHFt"; *
nAnO* 7E1 1
n
. - "E
n
r r. * _5n0* sYm IL(r,0.o,5,r,r7,7,0,,12); * kin6no************************************************************************ ,
90700 * ,HERF HE purIn At Axis Amo [APF1 TT:mnvE THE y nRTGTN 12 TmrHrs;AND *
9 0 pr0*I.PUTLI A TARtr or vAinFs TM CHAPT FORM, *
9n000*****.***********#************************************************** * ****
9 1 0nr* PFAPeAL7 i.rm3,EnF JA;m7n STEP 1 ONTT[ 1 no 7rJA1); * ()lino* AxTc(0,n,l.n.7.7h,Q,n,9n.n0.0,1.0);
912nn* PinT(12.n,n.n,21); *
911 ,1 0* 7[01!..="Ttkiti ": * 911Jr0* 7[1],=?riF vA(t.;
91cnr* 7r21!=?( Fs ,,; *
9 16nn* cYmpA(r.e,P.opf.9PP7,(1.molA); *
917n0* 7rn1T="sTATF ": .
91FP0* 7111-="------"; * 91 pre* cYmnI,L(P,o. 7 .5,r,14 , 7 , 0. 0 ,12); 92000* wHFRr(n,n,FAnT); *
921n04 7(n1!="PrpTrr"; 4
92200+ 7111.=" TNCPP": *
971r0* 7[21!="Act ";
9 7Pnr* cYvPml (p4b.11 (.'pr.1hp7 n.n,I8);
900* wHFrv(A1P0PFT ,2 );
92600* 7 [- 07!" A "; 97700* cympli(1.9,7.0,r.14,7 ,0 . 0 ,A)
92F,or4-7(r.1!--:" ";
920r04 cYpP 1 1(7.7 ,7 .( 6( . 1 /1 ' 7 ' n n " )
91000* 7r01!=" ( " 931r0* cYPRI1l(3.675.7.(pn.1b , 7 ,0 .n , A) ,
t1 M: PERT4. 1/;;; -4 ; ;
931300* PLnTr2.6.7.1. 1 ):
91c0 * rt,r1T(2.6,G. 0 .2);
91600* pu0f(3 0 ,7. 4 n,1);
91700* rt0T(1. ,,p0. 1 2 ) ;
91p00* r10T(ALP,HFT.3);
93100* 0LnTrH,P.0, 3 );
0/1000* PI FIT' H,0.0, 2 );
9/1100* 71011="AlAnA 10 ";
94200* 7( 1 ="P ft:
9a100* cYMR 1 1(0.0 ,6 .5 , (. 14,7,0 . 0,12) ;
94400* 7101:="FIPPTr?";
94900* 7(11 ="r
94600* c 'mP 1 1 (0.0P.CP(.14 , 7 , 0. 0, 1 2 );
0/1700* 7[0]'="CFr1P(T";
9/1900* 7111!="P
9/InnO*
950 0 0* 7(01.="Kr- NTor";
951n0* 7f1lt="Kv ":
9c200* cY14PIL(0.0 , 5.0p(. 14, 7 ,0 . 00 2 ) ;
9 5 1nr* 7101 ="vTssic?;
25400* 7111.="STPPI ";
g.isno* cYkAPIL(0.0, 4 .5 , (.1 4, 7 , 0. 0,12 );
9900* 7(01;="K.CARn";
95700* 7[1]!= ,, LTnA ":
9c900* cympIL(0.0.4.cpc.14 ,7, 0.n. 12 );
9000* 7101'="S.CrtPn"
96n0r* 7[11!=?[T,?1, ?;
961011 * cYmP (0.00.5 , 0. 14,-,, O.n.i 2 );
914200* 7[01 0 7-"TFNNIF 141
9h100* 7r11!="cr
V i., (1 0* cYloPlIC0.00.(1 ,( . 14,7,0 .n ,12 ); PoOmPrP(H*1.1'1 5 , . 5, 0, 14, Jrni. 0 0, C. 2 );
9AA00* mtmPrp(!-* 1 . 1 75.F.n ,0 . 14, Jr 1 1 ,0 . r,2 );
0A7n0* mlimPrPO4 +1.1 1 5,', c 0, 14, Jr 2), O. (` ,2);
0, RnO* folimPrP(H+1.1 1 5 ,r- .n. 0 . 14 .Jr 13,0 .C. 2) ;
9?900* millopt7 P(H+1.125 0. 14, Jr41. 0 .r. 2 );
97 000* mlimPrp(p+1.1n5pt ,0, 0 , 1 4, Jr 5 i.o.c ,2) ;
97100* mUmP7p04 4.1.175, 1 .,0.1 11, JrFs] , 0 ,0 .2);
97200* m1lvRrP(H+1. 11 5 , 3.000. 14, Jr 7 i# 0 .C. 2) ;
97100* mumPrP01+0./Jp6.' ,0 . 1 A , T1 0 1 ,0 . 0, P);
97400* mUkAP7R(H40. 4 ,6.(, 0 ,14PT[ 1 1, 0 . 0,2) ;
9700* milmA 7 P(P+0. /J,5. , n.1 4, T( 2 1 ,0 . 0,2 *i;
97600* ml1mprP( 4 4.0. 4 .5.(p 0 . 1 A , Tr 1 1 ,0 . 0,2) ;
97700* mlimPrR(P40.4,4.'-'0,1A,Tr 1.0.0,
97900* mUmPrp(P+0. 11 ,44.r,n.1b , T(C1 ,0 . 0,2) ;
97000* JkAR 747 (+0. 4 1, 3.' ,0 . 14, T( A1,0 . 0,21 ;
9 ,2 000* mOloRrP(H+0. 4 .3.( ,0,16017 1 ,0 . 0,2) ;
9 9 100* toomP 7 P0.42.C,F. r . 0 . 1 h , uto1 ,0 . 0,2 );
90200* yomRrp(H+2.0,6.(,0,14 ,001 1,0. 0,2 ) ,
99100* KlUmPrp(H42.v,5.'pn.14, mr 2 1 ,0,,0,2.s;
914/100* rqUmprP0, 4e.r.5.(1. 0 .14 , H[ 1 1 ,0 . 0,21 ;
ggsro* PiUmP 7 P0.+2. 0 .4.'- ' 0 . 1 b , m( 4 1 ,0,0,2) ;
9Ax00* P4 UmP 7 P(1 +2.0,4.(.0.14 , 4[1,0,0 , 2);
99700* r!limPrP(H+2.0.3. c, P.1 11, mC 1 $10 . 0,21 ;
999 0 0* Pdumprp(p42.0,3.r1. 0 .14 , m1 7 1 ,0 . 0,2 );
9P000* ('LnT(0.0,0.0,3);
99000* pL0T , n.0,F.', .2);
9 0 100* PinT(4.5 ? 9. 9 ,2);
99200* ri0T(4.="0.0.2);
911 0 0* n101(0.0,0. 0 .2);
996 0 0* PLIITr0.0,7. 90 03):
90900* PinTf4.5.7. 90 ,2);
&?R8: PERTgO:g:;;43/
90p00* PLnTr0,0,6./10 , 1 );
9 00 00* PinTrP.S.6. 40 ,2):
1010 0 0* rinir4.5.5.c0,3);
100104, r[0Tr0.0,5. 90 ,2);
1002 0 0* NnTrO,0,5. 40 , 1 );
101100* 0101- (4.5, ,D, 40 ,2),;
100400* nL0Tril.5,4. 9 n, 1 1;
100cr0* PinTr0,(1,4.90,7);
100A0n* nLnTr0.0,4.40,1);
1n07r0 P(nT(4,,0.40,?):
IN- arc)* RinT(A,5,1.0(1,3); *
irnpnn* PLnTen,r.3. 90 .07):
101000- PinTrntr,3.11?,1): *
10110n* rinTrh.*3.Arp2); *
101,n0* rtriT(1,*2.9rp1); *
101inn* rinTrn,c.2.Q0,2): t
1 0 1 /40r* rLnTr10.n*D n..2fl; *
10 1 5nCk 0 InTs().c,0.nAgccl:
1C15P0* F-Nn; 4,
lr17n0* rn TI PPnCFFr'A; *
101Pnn* nfcT,Tflet,pITr(C(,pF4); *
101R01* FOR c: =r STf?' 1 IrTII 5 On SPACE(RFSTART , i)frONSTAR4 1 ;
101P12* r0rSTAR4. *
1 0 19 0 0* oRnrrFPA!NPTIffPFSTAPI,RF;); k
10 9 0r*********** 4 *********** * ****** * ****** ** * * ** **** * **********************k 1V1rIn* * * * 0 PrPTINF PTF * * * * 107700*************************************************************************
102100* PFr-TN
1024o0* riir nuT L7PF PfriTF (1,1(11; *
10200* AppAv HFAW!71; *
1027P0* APpAv 71(, :h1:
107;?k0* ARRAY 77 ? 00P,0011,PPR7[0:131; *
1029n0* rOpmAT Fm1(" 2 0uTTF 'TF");
10 1 Dr0* rOpNAT ik,19(T21; *
4 03100* rrpM4T Fm3("EIP=". 1 0(7,"DFL="pFA. 1 0( 2 , "rIP2=",F(, , 1, Y2 ,n rFLP="*F6. 1) ; ,,
101 2r0* EORmAT rkiLl("rNTrE RFPCENTAGFI*); _ k
irllnp, rOpmAT Fm5( "Fn -nr HFAnTV; FOR THIS vALHE");
1034n0* FnpNAT FH6(Fc.?);
inlnO, FORMAT Pkp7(7(AA)); . _ *
103 4 D1, rnpwI T FH5("T(n hANY VALIIFS*.L .P?T TS 12;");
1037rc* IARF_ RFADKJ,r'PrIN,wFrin; *
101P00* oFAI AppAY virr:lril, an:161],mr0.011*TrOt11]; *
irlor, r* PFAl FTP,DFL,FTI-^,DFr2,FTp1,11.13: 10400n* 'EA[ yo(ppF 0 0-nl I !
1 .11A.11 04.?)(n1 pnirTINIF upTre, 0FVEInpEn RY iril5nn * viSF PY THE HEAL.1 EnlICATTnN AND
10/1f, n0*YsTrIA JI!LY , 107L. THE PlipPnsF
10/1700*IPEprrNiAr;F c- PAPI- s(pIr GRAPHS) THAT ivriprOvApyIN c pAGNITur P rS r THE pr_pcFNTAro- s
1 011 0 0 0*OHTTNE WILL GPirN UP TO TWEIVE 1 0 n000
- AND fk TALE of - k , P[uFc FOP ALL VAPIRLES
10S1(''0*wHnne INTERk:AL VAIUF TS "ALK" Arr% ir52rr * THTS pntITTHF Is Ti..JF rnuRTp SupSErTION
105300*FvFinPFn AT THr ninoaTA INsTITrF
leSa00 * TNrnDtoATT ,0m_ 1(1 55rr*,tpUpPluGHc'pe, TOD rNO IITILT Arn rnmPOFR srlFhlrF- TH
)o5 0 n*IbL0ur,_ PtrT PACKACF DrvFLnprp pY
1070o*,.romPAmy. THr n(TrUT nr THIS RD(!TINF
10Spr0,0 LARrLFD ,, cAlcnr- wHIcH enNTATNe
10 900*%rALs" nrvELDro:n rY TwE CAI IPIR kl I ,'
100n*YrTLF" MUST RF rUFFEn TO TAPE AND
101 0 0*,rALCINT PLnTTFP TP ppODUrF THE
1plon*I.************************************************************************

DANIEL PAY
!.,ELF - ARE. PFnIDN
of THTS PDHTTAT
kTLL.FASTLY
TPd'EN
vARIRLFS
USED
wpn?s ExTEPNAL
nF
iblIS.F 7BAs1C w?
THE CALIFORNIA
TS TN
TNcTIRVrTTONS
rnmPOIFR
THEN THE
prsYPro PrnTs.
nF TECrilNIL0r,Y
CRTDFR Fnk *
iv DATA pr7DrFFssING *
TS Tr RkrInliCF *
TELULs1PATF THE *
AS VAPIBIE, THIs *
wITH RRnPER IDENTIFTrATION ,
INPUT TS ER0 1.4 A nTsi< FILE. *
In TS ?PFAP,413", *
A FrHP POWTTNF PLOT pACHArj. * NOrf7( IHF SrHrOL
* H TF..w 5 eqSIGNFn nN A
*
DVANC D
cnmpuTEp ppnporTs *
THE FnIRN nF A p15w FILE
FnE A CALCOHF pLOTTFK
PRIThlirlS ri.imPAVV)? THIS *
TAPE !MIST Hr MUUNTEO ON THE. *
*
lo62r, no******** * ******,.********************************************************
104,3r0* PLnl(5o.o,11.0,c); - * ic?,1100,o************************************************************************
10i- r,vrN THE FypcT s r e TynN or THIS pnyTymE AEAcrnp nF 0 , 5 Ic lErLPprn *
in67n0 * 74- TT ', N THE P. NOTE Hpw THF cYprIr IS pPODHCED-R tY" tkN F=4T tL ,
1066oro.cO THAT THE rIRriF ppnourrn MST-AFTER IT WILL OF *
106800**160 PoTNTS nrTFF fi PY THE STN AMn COSINE rumcTinNt.,Tur scAtrA . in6onn * ,:rulvT,TynN5 Hils.T Fr usro ALnmG wTTw THE ',PTA ruNCTInN in 0pnn1Icr THE *
107000*9r-RAP'4. AFTFm TFr ctpCLE TS 9HTLT THE FACTOR IS RETHrNFn In i.n, *
1071r0*%t**********************************************************************
107120* rPTIF(L7nF.F"1); *
107700* FArT0R(0.5); *
107300* FOR .e:77.0 STEP 1 !NTT.' 350 nn prGYN *
107E00 * w[K1!=s1N(K/cP.2707273)+1;
1074, Jrk 1 I =cncN/c2.7727273)+1 t : *
107600* FNn; *
107700* Ct?k EAN0,10 r,3tr.1,FIP,DFt); *
107pnn* sCAIPA(J,10,rp3f'C,I,FTP2 DFL9): ,
107900* I INEA(Jpirt, 160 ,1tr,O , rTrapkFL",FTE7,mt - 1? ); *
10P000* WRTTr(L7nF*Fr3,FTRIXFL,FTP,A0FL2'+; *
1rs1n0* FACTIP(1.0'1 ; . ..;, 10442(0***********************************************************************w
IrsTIrno.HFrF pLnT TrrrTIFTcATTnN TS CREATED AND PERCrNTA0 vp.LtIF Apr. READ *
InF5PO4,VICT:JF "PIF. rITS/' INHFN IT TS pnTATrn TO THE rUP F7cT rtoo.
i 0 P/100*9TN "DTF T iOT A ''PAP" DE FYTPFmF) Y SMALL WIDTb r EtTr S TA TLIHsInN * *
inp(.rnorTHF PNF CDPPrSvrNrING THE RFprFt:TAGF). A LAHF IS TNFt FI.ArFn nN
Irp7rriATor ,, F EltcH LAP cnin prITATFP Tn IMF SAN ANGLE FOR EASY IDENTTFICATTLN,
qrrprP*INOTF ALsr Trr FrrT TuAT All tAREIS Amp V4LHFS ARE REAL INTO ARRAYS *
.4
*
10110C* CFAL H,D,FACT,A[F*PET; *
10/1 200* TNTFr1FP r; . *
irpornornp IsAGF n'Ipp(r THE VALPF TAHtE cm"TpuCTInN, NnTF 'GAIN THAT THE
leoprr*I.rArTpo vtc, PrTOftrn Tn 0.9 Sr . THAT ALI "BARS" wnULD FIT THE pIRCIr. ,
In?7PP* 71r1:=?prv,, Fogg:
,
10Q 1 Pn, 7f11!="niFPT ?; *
10 0 Ann* t?YmBIl(n.C,1n,n.C.7P.7,0,n,17); , loo,e.no. 7fol =? pEprr?; *
irp7nn* 7111*="NTA(IF "; ,.
lrg sl^ r- 7171'="CrA, PAP"; 1P9ann* 7F11 , ="Tc(IN n": . linnoo * 7rAJ!="IrT "; *
11111nn* cYmPII(C.(P Q .5p/.., pp7p(.P , 1A);
i1P7Pp* rArTnP(0.5); *
11n1P0* PFAnm: PrAn(Al7.FkA15,N) FGrIONI]; i1n/10* TT Al?12 THFA pTTF(17DF,EmR) ; ,
11I(O* TF A+ 1 2 THrk Gn Tn HALT; ?
lin6nc. unIno=n; * _
11117re. rnp 14':=0 STEP 1 lioTTI N-1 no FirGiN *
ilnprn* rE AnrAl 7.f hi6,pF1): *
iloarn* rEP7rK]:=PFP: *
11 1 000* pF/inrni:=?---..... ,, ; _ *
illirn* ornn(AL7,Fm7onF Y:=1 STEP 1 UNTri 2 DI HEABTW1); *
1117110, rno v:=0 STEP / IroTII 1 NI /7floY):=HEA ? Y+11; *
1 1NB: Mi3Or(Act)1.rf:ZgOAB(AUsAcilk)9), *
itic,ro. HnIn!=Hnin4PrP; *
1116r0, rmr; *
111711 0* rm Tn KF-nl; .
ilipno. rnpAl Gn TO HA1T; *
Illgrg*********************************4.****** * ******* * * *** * ******************.
1 PPP * g 7 N TuF LAST cFrT1PN nF - THIS PnIITTNir THE FACTr1R IS RFTLJPAFn Tn 1,0 *
1121('04( ylI ryn THE rpTCTK 1c ponvFn 6 c TNCHrS Ti . THE RIGHT, AFJFP THIS TO. *
1172nOilryTApIF fir vAtlIFC TS PPOnUrrn, mOTF wnw A FACTOR nF 0 '4 IS usrn sn *
1 171nC.rHAT THE TAPiT ArPrApS TTIF SAmE cT7F AS THE nPAPH. ALsr NOTE THAT *
qi/APO*,.cirtrz Ali lAnFL ImFOomATTphi HAS oEF ,0 sToPEn TN ARRAye TT IS opssipit
1125nr, *T0 PIOntlrE Tpf TAPtF BY mrANIc IF A InnP. *
ilprn * ,**t**************************************************************** * ****
1127P0* 11"F, ! * lippro. rArT,R(1.CO: *
11290P* PInT,6.5,0.C.21): *
illono* FACTIP(n.4); *
1131 r0* 7[P]"="TAF, IF "; k
1 1 121.' 0* 7r11q="nr vAl"; *
11 1 3r0* 7[21q="OrS "; *
111unO* cYmB II (0.u*P.nAc.RP7POsnA"); *
1115110. 7Fn1.="FirINTH "; *
111 0* 7111r...ft H , , * 113711('* CY011((n.00(.CA(.14A7A0.I,12); *
111PnO* wHFPECH,n,VArT1; .
1139110i 7[111.r." vAlOr"; .
il/Innn* 7[1]?=" HsEn "; *
1141nnw cYmPlil (H+0. 4 .r.r.1 11 , 7 , 090,12); 11b2nn* HHFRr(ALp,PET*2); *
11/11p0. PLHTen.n01.0,3): *
1r4n0* PInTrALp y kFT,3)!
i h5rr* pipT(H.P.OP3); *
1 ilf, n0* PLOT(H,n.o.2); *
11 1, 7110* FOR v:=(1.0 sTrn (.5 PAITIt rN.11xn,5 nn Hr(ITN . 11/)P00. FOp Y:=In sTfr 1 In'TTI 1 nn 7r)(1:?77rW/0.00; .
Ilhorla* cYMP"1.(0.0?-.y..1, ,f1 .1t1.07on.n , 12);,
1150110* Poi1kAPrP(H+(. 14 .6.'-le,0.14 , Prp7rK/ 0 .51 , n.pp 2 );
iisir(1* r- Nr;
11;2rn* rIpT(O.C,O.C.3);
115111r* rt_nTrn.0,8.,,2); *
11')1JP0* PinTr4.5,P.5.2); *
1 15n0 ,. PLPTrA.5,0.n.2);
1196n* nt_nTrO.Opu.0.2); * 11S7nO* IIPT(0.n,7.Ro,1)!
11 Clan(* P1nTrA.9,7.Q0, 0 );
11QO0* nlnT(4..6.90,1); ,..-
1 1 A 00* PtnT(0.0rh. Q0,2 ).
111n0* nLnTrn.C,6.00,11;
dr
11A 2r' ^ * NnTrA,5,.40,n)! , 11A3n0* FInTrA,5,5.Rp,3)! *
1lAan0* PinTrrt.C,5.90,2): *
licr* FILnT(n.r05.a0,1): *
11 6(, ('1* PPIT(4.9,5,40,2)! *
11A7nr* rILFIT(h.9,0 90,3); *
1 1"'0* PInTrO*0.4.900);
*
liAgnC* PLnTrn.0,4.40,3): *
IltnnO* n[nTrit.501.40,7): *
iliinr. 11I11T(A.S,3*P0,11: *
1 1(2r0* NI-Trn.P,3.9P,7); *
1173* PLnTro.r.,3.ho,3): *
117/.10* FILnTr4.5,3. 110 ,2);
117500* PLrTrrt.,2 9c,3);
0 0* PLnTr0.0,7:90,2); *
117700* PLI1T(0.0,2.110,3): ,
117 , D* PinT(11.5,2.4n,?);
1179n0* nLnT(a.5,1.90,31: ilpnnn* pLnTr0.0,1.90,2):
1 1 A1* PinTrOs0l1.4(71,3): *
11 4 2004 nLrIT(11.5.1.40,2); *
11p3n0* PLnTr4,5.0.9(7),3): *
1 1Plin0* PLPT(0.0,0.90,2); *
11P 5 00* rLnrc(04,n,n.n,9cc1; *
11 , r0* rNn; *
1lpar,.0* PEwToD(PFSTAD1);
11R9n0* wPTIr(PFSIAPT,c41n);
ligrv10*************************************************************************
I Qlr0,0THTS CONcLUrIrS II-TS pACKA0- , WRITTEN RY nANIEL pAy r, RTVFP FrIP THE *
1122C0*EALTH,VnurATInl',P.ND kFLFARE RFGYnN Tv D A TA ppncrSsIk , 6 sysirm uNDEp *
11rw, 0**THr zcHorCrIr Tr - npmaTtnm AN1r) rOtoPOTFR SCTFNrF AT THr ri.. r1 Rr,I A INSTITUTE*
1110r0*9riF T 7 CHNPLnCY- I ,!1IY*1975*
11100.************************************************************************
1 qtrlo* witty:
11 0, * rhin; *
1197f, 0* FNn. *
10*1.0
1?*3.0
1;6:?:
700*3.5
300*2.6
Iino*5.4
5(,_04.3.2
6r\O*0.5
700*0.7
RnO*3.0
00*0PTRIF HrAnTwIG A
inno*vilPip'F HEADIkIG F
1100*1.2
i 2 00* 3 4 9 13no*6.4
1/00*6.3
1500*7.1
16nO*0*9
17rO*1.1
1pno*1.5
1900*RFGTOvAL nATe NETlicIRK
2000*SFRvIrsES PRI11, T1)ri
2MO*0.0
2014*0 4,0
', P 1 F3*0.0
?fl?P*0.0
20?6*0.0
2030*0.0
?n34*0.0
7f)18*0.0
TP *8 1 " 0.* !4 .1
73nO*Oc.?
7 600*0 0 .B
, 5 (1 *07.7
2600*Oc.h
77(n*01.6
2FOO*0 2 .1
79nD*Oo.c
-1(-)0*On.c.)
11()0*0.3
370,0*0.6
3304.04.3
3unO*Oc.5
15no*Ol e s
3600*02,6
37 0 0*07.5
3R0.0*0.6
39o0*OA.5
ttNIO*0Q.8
4100*0.1
420*4.1
43(10*3.7
tlanO*1. 2
6 500*2,3
A6nO*5.1
/1700*0.3
/1 800*0.5
4900*O.P
50004, 3,4
51rO*0. 6 52no*c.5
g84*1:
5.9(*2.2
;g6:2' 4 3
5sno*3.1
9on0,0.1
ArnO*2.2
61 00*1.1.
62rO*0.2
6300*3.1
6prt''.*2.7
6c.ro*1.1
6600*2.riP TT
6700*03
APD*31.1
6Q00*IFSTI
7POO*31 3
7 100*IF- ST?
77r`O*31. 3
73no*1FST3
MAPPING PROGRAM
MAPSY
The program MAPSY is used to produce shaded and outline type maps.
The program accesses two separate files in creating the maps, one file
contains the data necessary to construct the map, the second file contains
the data necessary for shading the map.
For a particular run, the only file which needs to be supplied is
the file used for shading, which, under normal operating procedure, will
be created by a supporting system, so that the user only needs to be
concerned with supplying the program, MAPSY, with a set of interactive
commands.
RUNNING MAPSY
Following is a list of the questions which the program will ask.
Included along with this is commentary on the types of responses possible
and considerations which should be made when making them.
WHAT STATE OR REGION?
The responses to this are:
US, ALA, GA, FLA, KY, SC, NC, TENN, MISS
Only the state abbreviations listed above are correct. If a bad response
is typed in, the program will immediately recognize this and re-ask the
question.
IS THE MAP TO BE SHADED?
There are three types of maps which can be produced using MAPSY,
shaded maps, outline maps, and shaded-outline maps. If either a shaded
map or a shaded-outline map is desired, then 'YES' should be typed in,
otherwise 'NO' should be typed in. Any other response will cause the
program to resubmit the question.
IS THE MAP TO BE OUTLINED?
Everything noted in the previous question also applies here.
WHAT SHADE OUTLINE (DARKEST=9, LIGHTEST=O)?
This question is only asked if the response to the outline question
was yes. The possible responses to this are the digits 0 through 9,
which correspond to intensities in colot, from lighest, which is blank,
to darkest, which corresponds to the darkest printable overprint character
combination, AVOX. If the response is not within the restricted set, then
a message noting the error will occur and the question will be resubmitted.
LABELLING DESIRED?
If any of the various forms of labelling are desired for the map
to be produced then the response 'YES' should be typed. If neither YES
or NO is typed then the question is resubmitted.
LABEL COUNTY-NAMES?
The county-name labelling consists of a list of the counties, alpha-
betically by name. This list, in conjunction with either the LABEL-AXIS
or LABEL COUNTY-ID option makes it possible to identify the counties that
are included in the map by name. This option is also necessary if a COUNTY-
NAMES COUNTY-VALUE table is desired.
LABEL AXIS?
This produces an axis which is printed with the map. Any place on
the map can be identified by name through use of the coordinate-axis.
LABEL COUNTY-ID?
This produces a label for each county, which is written on the map
at the center of that county. The label consists of the county number as
defined by the county-name list (see above). Using this option, the
location of each county in the map can be seen. There is one disadvantage
to this labelling option. Since many counties occupy relatively small
areas on the map and since this is especially so when there are a large
number of counties, this labelling tends to clutter the map. Therefore,
it is suggested that in any actual reports, that shaded maps with only the
axis and table labelling be used, corresponding to these in the appendix
or what-have-you there could be similar maps with the added features of
outline-type (recommended at darkest shade) and the labelling of COUNTY-ID,
along with the other labelling options desired.
LABEL COUNTY-VALUES?
This question only occurs if the option for making a county-name
list has been set. County-value labelling causes the value of each county
as defined in the supplied data file to be printed next to the county
name. The responses are 'YES' and 'NO'.
INTERMEDIATE FILE DESIRED?
This option creates an intermediate representation of the map printed.
This intermediate map in no way affects the actual map production or the
final printed map. The intermediate map is available as an aid in debugging
a particular map-file only, and is only necessary until debugging of a
newly created map-file is finished. The advantages of this intermediate
file is that it is a direct representation of the map-file. The map-file
is created using paper scaled at 10 lines per inch. Since printers print
at 8 lines per inch normally, every fifth line is deleted in the actual map,
but the intermediate map is not scaled to 8 lines per inch. The intermediate
map, when run in combination with the test files included in this system,
also gives accurate information in determining if all segments of a particular
county are correct and if the boundaries are accurate.
SAMPLE DENSITY MAP SHOWING VARYING PERFORMANCE AMONG
STATES ON SELECTED VARIABLE
(Dummy Data Used)
mos
1001 uoopoollmoi In3omoolon0s
I 50030000D01DPOR
P0W000DOD09030000 mosiw000nonpopoopolonolow
100000c(0000000000000:19n010011
I $13DDO0N1000000000000090000D$ colosoonoopoir.000nopooDocoolonool

000003B0000cC0000000000001UnI_ III
0 0(30011110101101
0
0101 1 001110011411111114101111111111110013110?.1
111111
I I
= I I
1" I I .I
I= = NI
1, = t- r 10., 01110111101.1 I "iii::iiii I
INNNtiNv*IIN111011001011111181101010110

I 11.1 Iwixxxitxxxxl
I 1 1111111 II I
w No*****wil I it I
8001(xwirwuri(x01
I I I
I
I I
w wxwAwww***1
I I
11.
I
111 l'ilkwAixxxv*Ii1

1***AwivioxiwI 1= I IIIII(AXXWXVXXXII
I I I
1
witxxxxotimoi I I lit'swixxxvxwil I = 1 I 1**101g*oxxwoixs I a I
l
ivolixixolimg g= I I XX*C1XXXXVI(111
1 t = 0....11 wwlvtlosmixo I I ON lixwowiluwww,x1 I 11 INiwiwkw,ix/ixill
(pulflotiowlimili I Kxxxxxxxxxmixm I
INVIIIiiimwwwxo, I t 0
10,x0ANI.,.11110111111111
INNwolvoo(0...1 I I - 0
Iow , v , 11.9=?11 511111111111-1--p 11411111116011001111. 11 -- 0
II
_
!
1 .. 1 1
111 I
I I
! III II A
1
I
1
1
I
I
1
I
M I
I 1
I
I 1
I
I 1
I I
I I
I 0
1;;;611
SAMPLE DENSITY MAP SHOWING VARYING PERFORMANCE AMONG
SOUTH CAROLINA COUNTIES ON SELECTED VARIABLE
(Dummy Data Used)
----
000000-=----
" -000000 DI

"'.. 0000090 In

0000000 00000 700
fr0000
01-___*w----rt0Onn DODO ! "'
Dnolo
n ono ?D
monOnD
00000
00000O1 --- kxli---rr000n0 000:1000 oUoDOU
---000000i===Witxxxif00000 00000
...0 On ? monOxxxxxxxxtOP

00000U--
00000U- - 0000010=w1glooixix)4?0n0xxxxxxxxx 000
000001..0, * xtm1r0?00xxxxxxxxix 000 OOD DO0x )ivwx w)x)(x,?*------ pcc=== 0 0000)4X xXXXxXXx- -
0300 D D ?=__ =__= xxxxillui ixo*,0?
:: ,


0000000 xxxwts xvxx0[1300n XXXXXXx t-- VXXWXylOn XXXXx4X _-_
XXxXXxOrn xXxxxXX DI =__
xx,0000Dri. 901xxxx 0010,xxio....xt=
090000rC 030 ? icw ---- 0O000101000klixiwA . ..
0000001 000100====07, 00090txx*IxxAvx --- ....
90000
On
-010^010=010nOnOnigsx*w(m....,,,
00000000n00xwxxxikw*
0 0000nonxxxxtxxx
c
.,..
00000--,xx?xit So n on ___,_xxg
xxxx __ :______
... XXXXXX

XxXxXxX AtXX
-.= ---- XxXXxxXx t xXXXxl

XXXXxxXxXXXX - =t xXX
=====XXxXXXXXXXXxx XXX
====XXXxXXXxXxXXXX XXX
=tXxXXXXXXXXxxXXXXXxx===XxX
==XXXXVX111,04xXxXXXXXxXxXxX
XXXxXXXXXxxXxXXxXXxxxXXXX
XXXXX?V--XXXXXXXXxxxxx
xX xXXXxxXX
XXX,
XA
SAMPLE OUTLINE MAP SHOWING COUNTY-LEVEL NUMERICAL
DATA IN SOUTH CAROLINA
(Dummy Data Used)
XXXXXXXX XXXXXXXXXXXXXXXXXX
XX X X a7 X X X
XXX XX ch X -AR X LL_ X 31 XX X

XXX X -='-* x --"=X X? XX
XX X XX X XXX XX X X
X X XXX (X X 42 X X X
12 x ? x X X xxxxxxxxxx xxxxxxxxxxxxxxxxxxx
x XX x x X X X x X X 58 XXXX X X XXX X XX X 88 XX 92 21 X 81 XX
XX X X XX X x? XXX x X? X X 26 X X 7 2 XX XXXXXXXXXX XXX X X X x
x XX --- XX XXX x XXX x XXXXXX X x XX X XXXX X XXXX X XXX X A
x 85 x 93 x x 62
XX
X XX X X X XX A
X X X X X 84 X ? X X XX L-1 XX X XXXXXXX XX 32 X x XX X ? x XXX X 23 X XX AX x X XXXXXX X XXXXX x XX XX _
XX X 41 k
AX 4 5 v X XX XX X X X 44 X XX X XX
- ?
X X
XX XXXX ? X X A XX X ? A x X XX X 61 X X X x x
X
x
x XXi v 65 3 XXXXXX XX 57 ^ ? X 24 XX XX XX 46
XX XX XX X XXXX XX X
XXXXX
X X ? X
XX X X X X X XX X XXX X x X 64 x x X XXX x X x X x xxxxxxxx 15 xxxxx XX ? xx XX X x XX X X x ? X 83 X 51 X XX ____ 75
x
_XX X X X X X X
X XX XXXX XX A
XX XX
X
XXX _8_1
x XXX 61 x
XX XXXX XX XX
X AX _X x
X X 33 X XX 55 XX ? X X
x
X
X X ? A 22
XxX X XXXX XX X X 14
X X XXXX
XXX 18X X X XXXXX X X ? X X x
xx x xxxx XXXX X X 19XX
X 67 XX X XXX X -A
X ? XX XX
x
48 X 99 X XX XX
X X ? X X
X X 96 X X XX X X
XXX ? x x x A.
x xxxxxxxx xx la x
x x x xxx x
xxx x x x xx
x 27 X XXX X
XX ? X .16. xxx X x x
X X
X XX X
X
X XX XXX
XX11 XX
-XX X
MAIN SECTION, MAPSY
INITIALIZATION.
PERFORM OPEN-FILES SECTION. 4$ INITIALIZES FILES AND ESTABLISHES THE TYPE
OF MAP DESIRED
OPEN-FILES-RTN. 4$ OPENS REMOTE FILES
QUESTION-1. 4$ WILL THE MAP BE A REGIONAL OR STATE MAP?
QUESTION-2. 4$ WILL THE MAP BE SHADED AND/OR OUTLINED?
QUESTION-3. 4$ TYPE OF LABELING DESIRED?
QUESTION-4. 4$ INTERMEDIATE FILE?
END QUESTIONS. 4$ USE MAP CHOICE TO ACCESS PROPER FILES. OPEN
THE REMAINDER OF FILES
PERFORM READ-COUNTY-VALUES. 4$ READS IN VALID COUNTY NUMBERS AND THEIR ASSOCIATED
VALUES.
READ-RTN. 4$ READS IN THE COUNTY NUMBER AND THE VALUE TO BE
REPRESENTED.
COUNTY-INDEX-I-ERROR. 4$ EXECUTED ONLY FOR AN INVALID COUNTY NUMBER
PRINTS ERROR MESSAGE, THEN PROGRAM RESUMES.
READ-COUNTY-EXIT. 4$ PRINTS TOTAL NUMBER OF COUNTIES READ IN AND
STORES THE VALUE.
READ-EXIT. 4$ RETURN.
PERFORM GET-COUNTY-SHADES. 4$ ASSIGNS SHADING TO COUNTIES
HOUSE-KEEPING. 4$ USES FIRST COUNTY-VALUE FOR MINIMUM IN NEXT
PROCEDURE
MIN-MAX-RTN. 4$ DETERMINES INCREMENTS FOR SHADING
STORE-SHADE-RANGES. 4$ DETERMINES ACTUAL RANGES FOR SHADING
GET-COUNTY-SHADE. 4$ INTIALIZES FOR SHADE-SEARCH
SHADE-SEARCH. 4$ STORES PROPER SHADE VALUE FOR EACH COUNTY
COUNTY-SHADE-EXIT. 4$ RETURN
PHASE I. READS MAP?FILE?DATA PRODUCES INTERMEDIATE FILE FOR OUTLINE OR
SHADED MAP.
PERFORM GET?VALUES?FOR?SEGMENT (SECTION). 416 OBTAINS A LEFTHAND POINT
(J?VALUE), A RIGHTHAND POINT (K?VALUE),
AND A COUNTY VALUE
GET?VALUES?PTN. CONTROLLING ROUTINE FOR DATA AQU.
PERFORM NEW?VALUE OBTAINS THE NEXT VALUE
PERFORM NEW?VALUE?RTN. 416 PICKS OFF NEXT VALUE IN RECORD
PERFORM NEW?RECORD. 416 READS NEW RECORD AND DETERMINES
IF RECORD IS FOR LINE UNDER CONSTRUCTION
PERFORM END?OF?FILE. 416 TEMPORARY END OF FILE
PERFORMED ONLY IF END OF MAP DATA
9999
PERFORM NEW?VALUE?EXIT. 41d RETURN
PERFORM NEW?VALUE
PERFORM NEW?VALUE?RTN
PERFORM NEW?RECORD
PERFORM END?OF?FILE
PERFORM NEW?VALUE?EXIT
NO?COUNTY?ID. 416 NOT A COUNTY NUMBER FOR THIS SEGMENT. VALUE BECOME
K?VALUE
GET?VALUES?EXIT. 416 DEBUGGING & RE?INITIALIZATION OF COUNTY?VALUE
AND COUNTY SHADE.
IF EOF OF MAP GO TO PHASE?II. FINISHED WITH INPUT OF MAP, HAYBE MORE TO FOLLOW
(STAY TUNED)
PERFORM BUILD?SEGMENT?OF?MAP. ROUTINE WHICH FIRST CHECK VALIDITY OF DATA AND
THERE AFTER CONTROLS A SEGMENT CREATION
BUILD?SEGMENT?RTN. BUILDS A SEGMENT: EITHER SHADE TYPE, OUTLINE, OR
BOUNDRY
IF SHADE?TYPE
PERFORM SHADE?RTN. CONTROL FOR BUILDING SHADED SEGMENT OF MAP.
PERFORM J-K-MODIFICATION. MODIFIES LEFT HANDPOINT (J-VALUE)
AND RIGHTHAND POINT (K-VALUE) FOR INTERNAL
PROGRAMATIC USE.
PERFORM FILL-SEGMENT. IF POSSIBLE WRITES SEGMENT.
PERFORM FILL-SEGMENT-RTN. CHECK FOR RIGHTHAND
POINT, SET LEFTHAND POINT, AND DEBUGGING
PERFORM FILL-SEGMENT-LOOP. FILLS SEGMENT WITH
A CHARACTER 1 BY 1
PERFORM FILL-SEGMENT-EXIT. RETURN
IF OUTLINE-TYPE
PERFORM OUTLINE-RTN. AT FOR BUILDING OUTLINE POINT
BOUNDRY-RTN. MODIFIES LEFT AND RH POINT, RESETS BOUNDRY TYPE VARIABLE
FILL-BOUNDRY-LOOP. CREATE OUTLINE BOUNDRY OR DUBS SHADE (PREVIOUS
LINE) IF NOT OUTLINE TYPE
BOUNDRY-EXIT. RESETS COUNTY VALUE AND COUNTY SHADE
BUILD-SEGMENT-EXIT
IF LINE COMPLETED
PERFORM WRITE-LINE
SECTION
WRITE-LINE-RTN. CHECKS FOR A TEMPORARY EO FILE CHANGES
TO EOF SAVES COPY OF LINE AND THEN WRITES
MAP LINE TO DISK IF REQUESTED, WRITES THE
INTERMEDIATE FILE
WRITE-RTN-EXIT. RETURN
PHASE-II
PERFORM REWIND-MAP-FILE
SECTION
REWIND -RTN. CLEARS FINAL LINE (FINAL -MAPREC) AND MASK
(CLEAR-SCRATCH-LINE)
PERFORM WRITE-MAP-FILE REWINDS MAPFILE
SECTION
INITIAL-RTN. CLEARS FILE-STATUS, LINE COUNTER, AND
CURRENT LINE
MAP-HEADINGS. WRITE HEADING FOR MAP
WRITE-MAP-RTN. CONTROL RTN FOR LABEL AND MAP PRODUCTION
PERFORM GET-MAP-LINE. READS FROM TEMPFILE AND CONTAINS
LOGIC FOR COMPRESSING LINES
IF OUTLINE-TYPE
PERFORM MERGE-LINES PULLS IN BOUNDRY OR
BOUNDRY SEGMENT FOR LINE BEING OMITED
IF LABELS
PERFORM PROCESS-LABELS
PERFORM GET-LABEL-DATA. DIRECTS INFO TO PROPER
AREA FOR LATTER USE.
PERFORM PROCESS-LABEL. FIGURES LABEL SIZE
PERFORM FILL-IN-LABEL. LOOP FOR FILLING IN
LABEL
PERFORM PROCESS-LABEL-EXIT, RETURN
END-DATA. SETS FILE STATUS (OF LABELS-IN) TO EOF
LABELING-EXIT. RETURN
PERFORM WRITE-MAP-LINE. PRODUCES ONE LINE OF THE FINISHING
PRODUCT
PERFORM BUILD-LINE-LOOP. WRITES A LINE OF
THE MAP OR WRITES OVER FOR PROPER
SHADES
PERFORM LAST-ITERATION. WRITE THE LINE THE
FINAL TIME
CONTINUE-LABELS. CONTINUITY FOR WRITING LABELS WHICH EXTEND
BELOW MAP.
IF LABELS
PERFORM PROCESS-LABELS
PERFORM GET-LABEL-DATA
PERFORM PROCESS-LABEL
PERFORM FILL-IN-LABEL
PERFORM PROCESS-LABEL-EXIT
END-DATA
LABELING-EXIT
WRITE-MAP-EXIT. RETURN
IF SHADE-TYPE
PERFORM WRITE-LEGEND
SECTION
WRITE-LEGEND-RTN. CLEARS POINTER AND WORK AREA
FREQUENCY COUNTER. SUMS COUNTY VALUES BY CATEGORY
LEGEND-TITLE. WRITES "LEGEND"
FULL-LEGEND. CONTROL RTN FOR SHADING USED IN MAP
FILLING. RTN FOR ACTUALLY WRITING IN SHADE
NEXT-ITERATION. WRITES LEGEND SHADE FOUR TIMES
COUNT-SHADES. COUNTS THE NUMBER OF DIFFERENT SHADES USED.
SHADE-LOWER LIMITS. CREATES "MINIMUM" LINE IN LEGEND
LOWLIM-WRITE. WRITE IT
SHADE-UPPERLIMITS. CREATES "MAXIMUM" LINE IN LEGEND
UPLIM-WRITE. WRITE IT
WRITE-FREQUENCY. CREATE & WRITES "FREQUENCY" IN LEGEND
PHASE III WIND-UP
PERFORM CLOSE-FILES
SECTION
CLOSE-FILES-RTN
CLOSE-FILES-EXIT
STOP-RUN
m6.55,94 e
---
S",?,47C6'..5
mess .946 - 0(er
/s TINS 41 sr42.7-6-
44' Re vm, eed,?"
iI
wir6 i'VE55/f d ? -I
ye w,9 4) ",-/-/i7
MESS/0d -,01,47-
F.
a
.. 11G.11//ehi,51;/77L?.
IvievE pies5;94e-/
,fs4w 112 /07-- le
I/71.55,9 4e- CeerF
5M -ES
/0/9P177,03/1"
/WV Te. #11S-514' de-1
MeSS/166.-dc47-
*?
Al4i, 7 E
TTY -In
=Vs"
P-TT Pe <---
P7692-TYPe-t
/1/Z.5.3 At G E -oel <?
114mer ,s1/ADE
Ben07,94, DA/ WV= 9
.zia#re..57 = 0"
anfire. mess,w-I /
461D ifEN -P1
E,
ifr1eSSRGE. - 04.17-4-
"IS rwe_ *IP TO
Be -Ski/IDED"
Ife6./R/r6 oessn6E-1 /i91) ellf-ril
<7.7-1+Y
- 1,7
--, = " YES ? *11 0-TYPe 2-
ffies.sime.-our
"Is 771E Pi of P To 1+W
8oun4 RIES a /r//,?eou
/ay.& me.ssRde - t enD Rein -I' I?
TTY - I
.,"9"
ourLP7e -.5179;1.0e
0
oanzinE--Vb4.06
kr--
,92e-ss 9 6 e - our k-
I 'Lfieetifio a es4,549"
AT irE 1,,,- ssg 6,-.6 -1 /
8E140 Rem - /i7
C,If/Te. trie'S<PgE -1
4)6/7,0 ,ce r7) -Z/7
mgss 6.
`214364 9)(/S /'
LABE LS
me559 E -CUT
'286Et /74/716S"
4/4)/72 ri.55,906 -/
1W c.n) -in
I IVO:: -cF-1_413E4.5 4,-
TAPE-cf---ifeE4S-r
-CI 17 (.1 E -
/ 2176E.L_ deL//:71-15
zas"
RF91-) k'Fin --/r7
-orr
64.5
eu5+1,1
/1E SS /1 6E - air 4-
"/#C?- 4,a! , 7"
vilzu ES"
I
4hciire
TVI1E-ort-6Q8E -zs-
rYPE-49F-cfieEz
+Z
/77,1P-TY PE <?
117#P-Type +
Qtif Rot?
-
/711.5.519ce - otfr ,(---
SPRcES
Mess/9
siew ethonr Avl
ZWTE /fin 1)1,97-6.
Fire? ?
/ a t Irz. m&cs 4tee -I
Rei9D Rem -II
4,97;9-Rie
0,9r,,, E (m9,0
open:
IRPUT OAP-D/97 -17
t7Pur camry -re
ourpur mi9PF/ie
actrettr pi n44--/W
49/;z7-1?-FaVvi;i7"<--
sP,9Ge_S
/77S55,946-Dar
stcWee_C-
MESsATGE-em.e7-t?
"117071/D Ce7/02rt rione
wk/7-5 /r7B5-5/3-d 6 -/
fi7is..544E - our ??
ReC(MBEe aF Cou,27"/ES
"
/747,78E/c-earie--eceenraT
/leRire. MESS/ME ?I
fi1E5,5 44 6 -O !?[
,,Counry-inDE,r
/7,- es..SgGE. - Olcr
-vouae
ficem5s,Q-Ozt7-
ee6o77-y-Y/RUE
/GafirE giE.15-6246- I
/710)167/e?ef-
COZci2 77ES <-
eo60,2T-E,Q
D
KEP)/121
/V//7AVE <---
/ItY9zt./E(e(vo7ril)
/774V-ailre. <(--
/7v/Azae(eort4ri")
(77/17 -T17/9X1
(71/1111(gceurit- ?,
/10912/eyeocilro
- cle
eoanry
40/mew-or-
C ounries
F77/11 - Lzee
/11/111.44(66 040.2 r0
CD0,17-1E- Caunry 11
.510.01 - mef =
(m9x-ov - In#7-01ag)
rpm - ,shwoes
iv; 04 X -11 I 1
MO-Y/11(M *-1,7g- YNAZ
COCei9r5/<? /
r- catenry-o9We ?--
noPzae(coemrf/)
,51/WDE I
enD
simpe-ppME (Er - IL) 'E-
SN/9D 6 -14A2 x rnotx
+ min -okilL





zwz:ox-if(-- Ewe -x-
.1r ?-

10X --.54A0eS


(
STORg -
sk/Ade-
,/?/)ce.s
mess e de -Oar E--
"SHRD E eeenej
eounri, ="
4mizie rr-oar.--u .17-y
//..1 07E Infss61-6E -1
,7 r-
(
1 FO-I, need- olL
Jfl ) OcO
ME35/9C 6 - Ozer <-
'4' t/17.C././E ef,f0e) "
rxm9e'-Our <?
/7fa)-1642.1(le- lfr7
/4V,f'/T.f 2s-5-.5/-d6
L.
e 6,
VAiil/e
K-4/i9L 1
/4
200 0
11"-i/h2.z 4'6 4t-
eEed-t./,,xt(e-/i7
k PEFoewl: /7E 111-41, l?
/lea) -,e(e0R0
Fize
I/7E0-MA 6-eXIT
eoceorf--/o?- 0
/MeV -
VgA-ue -m
( PhD

- S TR.Tri.5 F
0
ez/m84e -OaTE? /Mu-
/ME-4a
filEss4, -047-<--
",?ehtomG Ivy, .4/4e
/2e4)--zing -
DO = ziee -fip
HIE
F - STAriti 9-
17/76 170
0
bf
AMP
rDFed -1//?za - (PIDEAP-1)



?F
ViP




Cam ry-/
'ex rl
ogoi -Fo
ItlfSSeGE
L i'
/7111,48E/Z-Gvere J-01kcIE.
td. 41-5-5/71( - I L
MES5 GE.- c,I.:er E-
"tio4nre-rp a
6ambe4-delre-GA0277-1A

0)40 -17-V-M4/5 o
O
c+4,,vry-40.44/e
4onw6(eco, rr)
eDeel2.77-ShINDE ,t-
switeig.(cex terY)
(BOUnDg - <130ann f p Rrt?
<<CIA 9 06-71"
qt.-twee-TY/Pe
PER FOktsi
Sh9IDE-RM
PE QF0201
--
earl/02f. -R-/-4
< ite'Li 4,-/D = Botoaff -riP6 4- I
ct)
-Searle/7r-
? -'4,-ouete
< = /000
I
.
- Oh1/6
= 0
<= k - E
< /000
ml-oti = J-!/H a- moo
pre-awe = K-P/I1(1? -A VG'
AN-1/1114/Er,f8s(na-mue)
erle-eglI/E -ThIss(okofiere)
/ig-ocarokr-olizie
OUT1/11E -Sh9106.
?tine -au r(Alt-ovue)
Our.on ? - /IWO&
07.t.. AWE (-Mk- 01.11/E
111 X-1/19.1 ue
J
-
f7700/ /GUM/
07..7=09g/et- T-1/11.1116
e- k-1.1.9,4&C
01-T-111111/ 6 r- t -moo
fif,r-oyiat---Ass(mr-tm two
oft-091-Ire k-gooliii woo
me-petorr-nssoyt-ofiz/6)
PER FORM
- map he/ e
rim
PE R F 0 Rol
Flki.- SE Ginenr

PERpokm:
FiLt-sEcinEkIT-c1 -1)
F1Ll.-SgaMEIIT-1D0P
FILL - SE f)ar

CervITY -.51,,t1DE E-
Ceezt virS,
PitriP-Foir7,2427:e--
ME s.S/?C E - a.0)
Mess#G E -z (3) (----
/17K-114a / E.
/frizs-S 46 E -2 C.-5-) --
ColinT f'- 2= o

4 oo9
J-V1911/g- ia,o0
,k-i/oweE Ic-,11/1--/Doe
77-1 /4'e .'&49S(m 3.-OR lie)
Mk-gfAVE 18S(41it-{/111C/E)
F
- 7-(41,7=e.944/6)
4? 01D -11/,EMIJ-1/,g4
_
FILE -STRII4S<- 3
F / .4 r ;41-14.17 c?
h7,
bl E-/W /16. -
/7 0
EiZD
1 FI11141.144PRECf-SP,9ESI elMR-.Se4),Ared-i-Ote-0 , i
?vim r
se/y.1p.~ FINI/1-17W4E
1- -
/C10-5E. /7742PF/1 E. 7 -
/?Pen /0/Purmh1PRIE
Imo
me r,26
S 7-19TE -19/4,1(%*P2//7.2EX
FMAL P2/113,9ee <?
57-47-g-ytTLE.
*9/0-77rie 4..FC1c4-
/Mline.
F 6
F n , :)12 r.L
1
era tit,
FILE -STATI(.5 0
vee - eT4' *- 0
euever-zi,,
Foxin-m,910,51c F-
S PR &SS
/ wRir-E. Pzeo-ingPeig
_ khiy7 -6 F/m9i-oWee 6 FRom main
fr'7 0
-NEA0x4
/Idr17.- F/1 -itie,g'rIG
e )7D
Ceqgetir-.217e
#-
P6kFok'M
gET-rilif P-,L1n E.
Fi2F-o,2m :
PRoeess -z.V8Ez .5
gET-L4814 - cvlri9
pRotESs -i.981.4.
FILL -M-1/98EL
pkocES_S -.MBILIAlr
Eno -49 TA
4413E".11/74 -brir
PERFo Rrn
ORITE-111/1P-Z In E.
ri 41. -MI1PA,6 e-
o P4 d ES
PERF0)3.m7
PROC ess -1/48E Z S
Ge T -41913E1 - DiOTA
FT,oct Ess - L/98 6 I_
Fal -ii-.z.Paet
PljeleESS -2/18E4 - ce Pr
Eeo- 0,43 7.1
Lipeter,7e -e XI r
-
_7
/WHITE FINU -Mprm id I
IRE19,0 rviyir/Z e
Fl! 6 -.5r,inws <- 3 L
_
o F
mnP
117h1P-101 E-
PMP-111/2117-
1fr2e-erR .4--.
hine- CT)? i- 1
PgEsEnT-,1fr,E --=
.8 x lig e-eri, + , ..s"
/7 Ex r-v/76 ..-
.
, ,y A . (wee-el-RI-0 4....s" al 4P
0 F
1
r
1 .//7E-OF- frY1, ,i1P (INDEX -I) 4-- 1../ e -//, (rnoex -r)
TYPE
- I -
D
TYPE
-
.07,607?.5
4RREI -e/0.1,e
E-fileVir
PhYht -Sr/977(S 4-- 0
c unri,-/ e-Pt8EZ -
eoursii,-/la
TYPE --"ifseL44.9BeL-TYPe..
.sroceS
ZPBE-Z-201,7r/t, PATS -SIBT
TYPE
- -
19-X /
.1,45'E(
-etglIIT/ES
14.3EL I
09,z 14-4REN
1178EZ
-eoun rr-
.e#&
Mae
YPE
- -
D/774
/74/)778E-R -14124,,E et-
ilogalE(eazil/r")
Type
- )3-
'1.974
J.V 8FL-v/g/za <--
z/Pesz-eazi//rf'
DIM4 ,574 7ils tc- I
fEffoeill
Eri 018EL-DIRT/P
PERFORM
FforisS-2,96ez
FILI-/ e-.1 ,78E1-
AfeeiSS-l418i1-407-
e
Li'ir-ffe-spffirs . .f-- I
no
4.411U-
4,974
IC/70RE-D/11
-L/7F
(Loaf& sroRT)*-
07,58P-2m7 g-emcr(LOSEL-
47 L4RT) t -IA8 tr.L -LOA? (LABEL-PTO)

LABEL-N-Vet-ioe,E.4-
Pritt i ?
1.111 EL -stoirr 1-
11M11-START 01
eno
[ LOBEL - Pnq 4-- 1
LOBEL-srMT E-
ZO8E4-Leeoram
1
L/9.8 Ez- Avo/sli =
LOBE L -4e0 er1/4i
1o8 EL -,sTogr
PID

11.1-1!)";
5f)
COariteR
< DEX-11
SHVE ---.4002trn
(1.11I06)( <?
S &MCC
CrnOt.e-r)
I1105K-.L.4- /10 E
-1+ 1
o 6.3
linoex itIO?X-r +1
1
FILL-2440.01,7*- .5 /WES
FLU-UAW/1T sMee5
.51b1- -LOG,I/M (1)
0
VIDEX-14-
Plo
J
ZrIDEX-I < /0
zEe Ern:, -Shl,W) E
(CaunTE,1),rnoEX-4
? IS/45W 6
-
laipTe OMAIL-1,00,etc
r Fi nilL-MRPRet<?
Sphe ES
InpEA'-E4-1.71DEX-r+1
loconve4-ecrinTEe+1
FRoxy .(eseirD
-z.
tokirE Fron-m4IppEe
raex-r- o
COunre.k'*--

SHRDS S-0 F-LEGEIID
SPA7GES
FREI p-1/nt F SP/ME-5
S/rnDE <?
eactore4 FD
X' IT 77017E--
111DEX <?



SIMDE f- 511.42DE8
I--




z smi9DE

(S1441,0
I7f1M77O17)


SIM DE <- SHRDE -
r
C'01.1,77E,e0-(1V,ITIPei-i
//10SX-1I 0- I
FRECNF4Cif(ShWde)
<-- FIcEq4E 1,1C'e
(SHPIDO?
Act '4 eh' -
/40X 4 200

/.
, -
.511,9,0 E > 0
FI/71Z -/P,51,RiefGeSPAFCE
2770X e-
F
r
CIO/6' - PTA'
:" '4'4 -P14 4- I
1
70-#71
e rt
3
Div Ex -r
zgoEx-H- v?
.rnDex-z?-rnDex-T+1

ego 1.. x,ick o Shi,f40e-ehal/oXZWEA:10 --, -
f,:l
?
o
rnt.)x-1:?-- I Procx-r ,- 1
eci. % TA \
Ti/DEx-1 -4-Ini)Ex-114- 1
ej Ncl /3-0E
c.
141% R

\\I ?FiLg- -F/2C-

T


eoanr f'-u4z a t ,--
ge/Ata 6 (Cowry)
r t we x -1E I
OCC
?FiLE5-
..;t5
4/
t, n
13 t, v, , c., -r , i section v. ,. 4 see von
n eft co co cr v...
cli
-.,
0 14Te
)
A.
C W t)
\
flT
? 011#X
1
- .5/JADE -
.Rf&
?-GET
counTr - k
..seen -0 1/4,
De
cp rp
Eno
in i n ni. 'En -non Ractrine
NOISE t
FlIE: MAPSY / 14[W

10*InENTIFICATIFIN DTVISIPN.
20*PPOGPAM-In. NAPPP,G-SYSTEM -FOR-PEN.
10*AMHOP, P CARL INC. .
40*INSTALLATION. GA TECH,
50*DATF-WRITTEN/ JUIN' 1 - 1001975. 60*DATE-COMPTLF1).
70*
80*
90*
1n0*
110*ENVIRnNMENT 0TVISTON,.
120*CnNEIGURATION SFCTIoN,
130*SOUPCF COmPUTFP. E-5500.
140*OPJECT-COMPUTFP, F-5500,
150*INPuT.POUTPUT sErTinN,
160*FILE-CONTROL.
170* SELECT MAP-DtTA ASSIGN TO OTSse 18Q* ACCESS MODE IS SFQUENT,AL. 100* SELECT COUNTY-IN ASSIGN In nig< ACCESS MODE IS
200* SELECT mAPFTIF ASSIGN Tn 10 *.200 nTsw
210* ACCESS mrrr Is SEQUENTIAL.
220* SELECT FINALVAR ASSIGN TO PRINTER,
230* SELECT REM-1t ASSIGN Tn RFmnIr.
240* SELECT RE- m - OlT ASSIGN rn REMOTE .
250*I.o-rnNTRnL.
760*
770*
280*
290*
300*
310*DATA nIvIsinN, 320*FiLF SECTION.
330*
340*
350*Fr) RED'-IN
360* RECORD 80 CHARACTERS.
370*
380*01 TTY-IN sI7E IS 80,
3 0 0*
400*
410*Fn REM-OUT.
420*
430*01 MESSAGE-1 AL
440* 01 NESSAbF-FEPMAT.
450* 05 MESSACF-OUT PTC X(40),
460* C
470* 0
05 NUmpEp-
.5 qANK-EU
Z7Z9
T P
cluT Pi
TC X
480* 01 DATA- nRmAT PFOFFINFS MESsAGE-FORNAT.
(36).

400* 05 mESSACF-II OCCURS lr TIMES ,
500* 07 mEFSAGF-2 PTC 9(6). 510* 07 FILLER PIC X(?).
570*
530*
540*ED "AP-DATA
550* RECORDING MOTE TS STANnAPn
560* BLOCK CONTATF 30 RECORDS
570* RECORD cONTAIlks 8n CHARACTERS
580* VALUE OF TO TS INPUT-MAP.
590*
600*01 MAP - IN,
610* 01 NEw - LINE - Fr PTc 9(8)
620* 01 DATA- N OCCURS 9 TIMES pIc 9(8)
630*
640*01 INTERNAL-LAPEIING.
650* 01 NEW-LINE Plr 9(8) SYNC RIGHT.
660* 0 1 LABEL - TYPE Ric 0 (8) SYNC RIGHT.
670* 01 LAPEL - LOCtTION PIC 0 (8) SYNC RIGHT.
680* 01 LAPEL - LENGTH PIC V(8) SYNC RIGHT.
690* 01 VALUE - APEt PIC v(16) SYNC RIGHT.
700* 01 LAPEL - COUPTY-Nn pIc 0 (8) SYNC RIGHT,
710* 01 FILLER PIC v(7 ). 11
720*Fn COUNTY-IN
730* RECORDING porr IS STANDARD
740* FiLnCK CONTAirF 30 RECORDS
750* RECORD CONTAPS 80 CHARACTERS
760* VALUE OF TO TS DATA - INPUT,
770*
780*01 COUNTY-INN.
790* Q 1 COUNIY-INIFx-I PIC 9(8) 800* 0 COuNIY-VAILt plc 9(8)
810* 01 PLANK - PART nCrURS p TTL4FS PIC 9(8)
*

*
*
SE
SYNc
SYNc
SYNC
SYNC
SYNC
11 00 6/27/16
LENTIAL,
PI0HT. RnHy.
RIGHT, I
RcHT,
RIGHT.
n7:2
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
P70*
P30*
840.Fn mAPFILV
P50* RFCORnING Mori IS STANDARn
P60* BLPCK CONTATI, S 4 RECORDS
870* F? CARD CONTAINS 120 CHAPArTFRs,
PPO*
F90*01 mAP-OUT,
900* 0, LTNE-Oul rrcupS 12n TTMES
910*01 MAP-INPUT.
920* 0 1 LINE-IN CrCURS 120 TIMES
930*
940*
950*FD FINALMAP
960* RFCORPING NorE IS STANDARO
970* RECORD CONTAIE4S 1,0 CHARArTERs,
9P0*
18g8: " FP AWgri74. 1 (LT OCCURS 120 TImEs
1010*01 sEmI-MAP1,
1020* 0 1 SEMI-LINE rcCURS 120 TINTS
1030**
1040**
1050**
p
1060**
1070*PORKING-STORAGE ,FCTInN,
1R;8:Tr Pg Fi ( x . y FTcr: 9(m11) ) comp rOmP1 .'
1100*77 IN 0 EX-TI FTC o(11) COMP-1
1110*77 MAP-INDEX FTC 0(11) COMP-1
1120* 88 STATE-MAP VATUF IS 1 THRU P.
1110* 88 REGION - MAP VAiUE Is 9,
I1A8:;; 'X'2.4TFT FTC 9(11) COmP-1 FTC 0(11) COMP -1
1! 0*
COUNTER FTC 0(11) COMP-1 1170*77 LINE -GTR FTC P(11) COMP-1
11P0*77 CURRENT-LINE FTC 0(11) COMP-1
1190* 77 CHAR-PTR FTC 9(11) rOMP-1
1200*77 mCHAR"RTR FTC 0(1