PCjs Machines

Home of the original IBM PC emulator for browsers.


PC-SIG Diskette Library (Disk #932)

[PCjs Machine "ibm5170"]

Waiting for machine "ibm5170" to load....


LABCOAT, a laboratory data and cost analysis program, can help you to
manage a clinical lab. Calculate item depreciation and evaluate
extensive-test cost data for your equipment. Routine lab statistics
and Q.C. charting are included.

LABCOAT handles data entry and calculations for lipoprotein data. You
can calculate numerical data, mean and standard deviation, and range.
Also included is an evaluation program for prospective lab assistants,
based on such criteria as job knowledge, judgment decisions, patient
awareness, organizational skills, and more.


Disk No:  932                                                           
Disk Title: Labcoat - Data and Cost Analysis                            
PC-SIG Version: S1.5                                                    
Program Title: Labcoat (American version)                               
Author Version: 3.6                                                     
Author Registration: None.                                              
Special Requirements: CGA.                                              
LABCOAT, a laboratory data and cost analysis program, helps you manage a
clinical lab.  You can calculate item depreciation and evaluate         
extensive-test cost data for your equipment.  Routine lab statistics and
Q.C. charting are included.                                             
It handles data entry and calculations for lipoprotein data.  You can   
calculate numerical data, mean and standard deviation, and range.  Also 
included is an evaluation program for lab assistants, based on criteria 
such as job knowledge, judgment decisions, patient awareness,           
organization, and such.                                                 
1030D East Duane Avenue                                                 
Sunnyvale  Ca. 94086                                                    
(408) 730-9291                                                          
(c) Copyright 1989 PC-SIG, Inc.                                         


║                    <<<<  Disk #932 LABCOAT  >>>>                        ║
║ To print the documentation, type:                                       ║
║             COPY README-1.DOC PRN (press Enter)                         ║
║             COPY README-2.DOC PRN (press Enter)                         ║
║             COPY RELEASE.DOC PRN (press Enter)                          ║
║             COPY REG.DOC PRN (press Enter)                              ║
║                                                                         ║
║ To run the program, type: LABCOAT (press enter)                         ║
(c) Copyright 1990, PC-SIG Inc.


PC-SIG #932          README-1.DOC               Copyright 1990

                      LABCOAT - Version 3.6 - 07/90


            LABCOAT.PAS , EVALUATE.PAS & LIPID.PAS, written
         in "User Friendly Pascal" (Together, about 140 K),
         were compiled to provide a CHEAP and FUN Clinical Lab
         helper for those with enough funds to have a PC, but not
         enough to have the Omnipotent MegaBlodgett Clinical 
         Laboratory Complete Management Information System.

            Included programs are README-1, and README-2 written to
         QCHART.EXE, LABCOAT.000 & LIPID.000 which  are the executable 
         files ( just boot DOS, insert this  disk, and enter LABCOAT); 
         and LABCOAT.PAS, LIPID.PAS &  EVALUATE.PAS, the Turbo Pascal
         source code for three of the  programs.  The Source files
         are archived to the file SOURCE.EXE.  Once that file is moved         
         to an empty formatted disk, it can be self-extracted by simply
         typing SOURCE and hitting the Enter Key.   
           Users wishing to install the programs to their hard disk
         may do so - just make sure that all the file extensions 
         marked ".COM", ".000" & ".EXE" are on the same directory.

            All coding was done on an IBM PC, using DOS 2.1/3.2 with
         print routines tested on an Epson FX-85 and Okidata 182 (IBM).
         There is a lot of calling for Text and Background Colors in
         these programs - if you don't have a color card and monitor,
         you will not be able to say, "It's poorly written, but their 
         color's really nice".  People with color graphics cards and
         mono monitors can contact me for adjusted versions.  People
         from Canada, where S.I. units are used for Lipid Values may
         also contact me for that version ($3.00 Canadian).

           There are some printer and keyboard controls inserted at 
         various spots.  We toggle on the CAPS LOCK for example.  The
         print control calls are really for IBM or Epson character set
         compatable printers. These calls are mainly for borders and
         emphasized text and form feeds.  

           Fuzzy Logic is a close relative of the writers, and actually,
         may have made some contributions to these programs.  To help
         you appreciate him, We provided the source code and suggest
         you review it.  Further tips on this will follow.

           If you want to change something, just get out Turbo 3.0 and
         change it.  Good luck.  Please do not re-release an altered
         form of Labcoat under the same name, though - it's copyrighted.
         For use in your own lab, do as you please.
                 DOUG STANDING / GEN. MAX von BIRDFACE (R.I.P.)
                     943 ASTER CT, SUNNYVALE, CA  94086

           To check on the assumptions in calculations for the output 
        on pages 1 - 4 of the testcost module, check the source code.
        You can view and print the source in a number of ways:

           1. Load the file LABCOAT.PAS into your wordprocessor and 
        either view it or print it out complete with page breaks, 
        which is what we usually do.  Use condensed or "quality"
        mode printer commands ( >= 12cpi ).  REMEMBER: You must
        de-archive the source files onto another floppy first, before
        viewing or printing them.  Use PKXARC for this.

           2. Go to DOS, load the disk in "A:", turn your printer on 
        and type "copy a:LABCOAT.PAS LPT1", then hit return.  You may
        need to use the DOS program MODE.COM first.  The format is,
        "mode lpt1:"

           3. Load Turbo Pascal, if you have it ( and you Will need it
        if you're going to alter this program ), then load the file
        LABCOAT.PAS and use the editor to browse.

             ( The same steps work for LIPID.PAS & EVALUATE.PAS )
       ( Printing all the Pascal Source is going to use 65 - 70 Pages )
          At page 2 of LABCOAT.PAS, we've listed all the variables
        with {cryptic explanations as to use}.  Check those in both
        real and integer sections.  Next, at about pg 7-8 of the source, 
        we've set out the major group of calculations using those 
        variables.  If you go on to the code segment marked "Print
        Routine for GETIT", you can see a few more calculations and
        also follow the use of all the calculations as they're applied 
        to the 3 output pages that Procedure GETIT prints for you.
                Really, all the accounting math in GETIT is very 
        simple stuff, as are the formulas in the procedure for the
        Depreciation routine.  The Moving Average calculations are a 
        little more "elegant", and the Quicksort in the Stats program 
        is probably the most difficult to follow.  Basically, it only
        exists to serve the Median Procedure.  You can refer to 
        Herbert Schildt's Advanced Turbo Pascal, Osborne McGraw-Hill,
        for the whole story on Quicksorts, etc.  We just grabbed the
        idea, dressed it up and plugged it in.
            The assumptions for the Lipid Profile Program are outlined
        in the source code.  Basically, the program takes input of a
        patient's demographics and Cholesterol, Trig, HDL values and
        then calculates other values and flags them for age and sex
        related normals.  The beginning values ( breakpoints ) for
        both Moderate and High Cardiovascular Disease ( CVD ) Risk
        levels are printed out to the right of the patient results
        and any abnormal flags ( asterisks ).  The CVD risk break-
        points are always calculated based on the age group and sex
        of the patient.  

                                PAGE 2 OF 3

             Lipoprotein Phenotyping is also presented, in simple form,
        when some breakpoint elevations are passed.  I think that it was
        after writing this program that I decided it would be really
        dishonorable to not include the source files on the disk.
        At this point (1989) the meaning of lipoprotein levels is still
        a controversial subject.  What's "normal" here may not be in
        your setting.  Furthermore, the Lipid Research Council's 
        Abel-Kendall reference method for Cholesterol measurement may
        not be totally comparable to other standardization techniques.
        Simply adopting the reference ranges without having the same
        reference methodology and standarization may be misleading.
        So what you get is the skeleton.  I put in what looked like
        the current LRC reference ranges - you do what you want. 
        Canadian (S.I.) versions of this routine are available - write.
                           FATAL RUNTIME ERRORS

            You can enjoy "runtime" errors with program crashes if 
        you do some of the following:
                1. Try to enter numbers larger than 32767 into the
        Statistics routine.  The procedures to get the minimum and
        maximum values use the Pascal TRUNC and ROUND functions,
        which won't allow for entries over MAXINT (32767).
                2. Try using empty carriage returns to pass up 
        requests for numerical input.  If division by zero occurs
        anywhere in the calculations, you may crash. We attempted to
        initialize all critical variables or to error trap those 
        entries, but some get missed.  The other alternative is that
        the system will insert whatever garbage is floating around the
        memory when you use empty returns.  Birdface's suggestion is:
        Put A Number In.
                3. You fail to turn on the printer when requested and
        then also fail to respond to the "WRITE FAULT -" prompt by
        switching the printer on and pressing the "R" key for RETRY.
                4. Attempting to enter letters when numeric data is
        asked for.  For example, try answering the question, "Please
        Enter Age:  ", by typing and entering "Forty One". You may crash.

            Just try to remember, Birdface was only a poor little Parrot,
        and he wrote all the error traps.  He also invented the names for
        most of the variables in the code - they are not my fault - I don't
        know how he chose MAXHEADROOM or SICKO  -  I only followed orders.


                I would welcome collaboration and will give 
        credit for significant input.  Labcoat and its related .COM
        and .EXE files is copyright 6/90, and alterations of the 
        source, without direct written communication with Doug Standing, 
        should be used on your work site only, and not sent out for 
        distribution, or sold for profit.  Period.



        PC-SIG # 932                 README-2.DOC       Copyright 1990

           This is Version 3.6 of Labcoat.  The upgrade includes
         a new linked program to the Statistics module, called QChart.exe.
         A Turbo com file called Exec, mostly thanks to T.U.G. & Bela 
         Lubkin, makes the DOS call necessary to run Qchart out of Labcoat.
         The updated files are starred below.
         The update includes recompilation with Turbo Pascal's
         TINST option 4 to make the executable files more compatible 
         with strange graphics card / monitor combinations.  Some users
         have color graphics cards with mono monitors, and this version
         attempts to meet their needs also. For those who still have 
         problems, I am usually happy to try customizations, if they will
         contact me directly.  IN FACT, I HAVE A MONO ONLY VERSION.

        Included files are (** = changed in present version):

       **       LABCOAT.COM -           The compiled main program,
                                menu driven, with subroutines for
                                Capital Depreciation, Moving Averages,
                                Statistics/Charting, Test Cost Analysis 
                                and print-out of the variables needed in
                                the Test Cost Analysis.  The present 
                                update corrects a procedure in the 
                                Standard Deviation calculation to conform 
                                to the "N-1" rule, and warns of subroutines
                                that expect a printer.

       **       LABCOAT.000 -           Overlay code for compiled program.

                LIPID.COM   -           Compiled Cardiovascular Risk and
                                lipoprotein profiler, called from main menu
                                of LABCOAT.  This portion is available in
                                S.I. Units for Canadians & Others.  Requests
                                for that version can be sent to the author,
                                along with $3.00 to cover shipping and 
                                preparation.  Lipid is set up to call Labcoat
                                upon exit.

                LIPID.000   -           Overlay code for compiled program.

                EVALUATE.COM-           Employee computerized evaluation
                                program which is called from main menu of
                                LABCOAT.COM and will call Labcoat upon exit.

                BIRDFACE.COM-           Color Graphics routine, called from
                                LABCOAT.COM menu.  Calls Labcoat upon exit.
                                The routine requires CGA.

files (contd)

                SOURCE.EXE  -  The Archived form of the source code
                               for programs LABCOAT, LIPID, EVALUATE, EXEC,
                               AND BIRDFACE.PAS.  Archiving was necessary to
                               supply everything on one disk.  The user can
                               can de-archive the files by transfering the
                               file SOURCE.EXE to another empty floppy disk.
                               The user then types SOURCE, hits Enter, and
			       the source code self-extracts.				                               

   **       README-1.DOC    -           ASCI discussion of programs at length.
   **       README-2.DOC    -           Update notes & further instructions.
   **       RELEASE.DOC     -           Program/File descriptions for SIGs.
   **       REG.DOC         -           Registration Form - User Input   

       **        QCHART.EXE -           A new addition to print out control
                               charts (Levy-Jennings) & do statistical jobs.
                               Qchart must be run from the Labcoat main menu.
                               It is set up to run Labcoat upon exit.
                               A PRINTER IS ABSOLUTELY REQUIRED. 

       **        EXEC.COM   -           Modified from Public Domain via the
                               Turbo Users Group & Bela Lubkin.  When called
                               by Labcoat, it instructs DOS to execute Qchart. 

        Best Regards,

        943 ASTER CT
        SUNNYVALE, CA 94086

    * Sorry to say, Birdface kicked the bucket 2/89.  His position was
      filled by Hermann Scooter, D.Y.H., former software consultant
      to DON'T BYTE! Magazine, and an acknowledged genius at the task
      of cracking DOS Shells.



                943 ASTER CT.
                SUNNYVALE, CA  94086

Note:           Registration Fees are not requested unless you get
                something else from me that costs money or, in 
                some cases, a lot of time.  Registration is 
                mainly useful for guaranteeing at least one 
                notification of updates or bug fixes & providing
                you a form for making suggestions or comments.
                Registration also provides me with accurate 
                information about distribution.



CITY:___________________________  STATE:_________________________

ZIP: ___________________________

LABCOAT PURCHASED FROM WHAT SUPPLIER?_____________________________


YOUR COMPUTER TYPE:_______________________________________________

GRAPHICS ADAPTOR:_________________________________________________

HARD-DISK? ( Y / N )      PRINTER:________________________________      








        Please Note:  YOU are responsible for determining and verifying
                      the accuracy or validity of the calculations in 
                      these programs.  If you find errors, can suggest
                      improvements or wish to contribute additions to
                      the program, please write.  I still use this thing,
                      and can probably benefit too.




        LABCOAT.000     Overlay File
        LIPID.000       Overlay File
        SOURCE.EXE      Compressed Turbo Pascal Source Code (self-extracts)
        BIRDFACE.COM    Graphic Art Subprogram
        EVALUATE.COM    Lab/Clinic Employee Evaluation Subprogram
        EXEC.COM        DOS exec. Routine To Call Qchart From Labcoat
        LABCOAT.COM     Main Program With Menus Calling All Other
                        .COM & .EXE SubPrograms
        LIPID.COM       Lipoprotein Phenotype Calculator
        RELEASE.DOC     This ASCI Letter to SIGs & users.
        README-1.DOC    General Descriptions of Utility of Programs
        README-2.DOC    Updates To Topics & File Discussions for 1990 
        REG.DOC         Registration/Communication Form
        QCHART.EXE      Levy-Jennings Chart to Printer and 
                        Statistical Data Handler - A SubProgram 
                        of LABCOAT - Printer Absolutely Required


        1.      Extensive Laboratory Test-Cost Analysis - for 
                manual methods or automated/semi-automated
                methods.  Four page printouts (optional) for
                cost breakdowns and break-even descriptions.

        2.      A Lipoprotein Calculator & phenotyping reporter
                that outputs reports to screen &/or printer.

        3.      Excellent Moving Average Routine - with user input
                of number of periods and screen &/or printer output.

        4.      Equipment Depreciation Routine - with 3 options for
                depreciation type and printed report. (Printer Reqd.)

        5.      Employee Evaluation Routine - Easy input - screen 
                &/or printed reports - weighted scoring - originally
                designed for Lab / Medical Assistant evaluations.

        6.      Lab Statistics Program - Formatted Data Input &
                Output, with Mean, Median, CV%, Std. Dev., High
                Value/Low Value to screen &/or Printer.  For
                production of monthly Levy-Jennings Control 
                charts, a subroutine is available (Printer Reqd).

        7.      A Color-Graphics Art Routine for idle periods.

        8.      Archived Source Code - for every .COM file on disk.
                Just move to an empty disk, type SOURCE, hit Return.

REQUIREMENTS:   256K Memory - Color Graphics - Printer for Reports

REGISTRATION:   No Set Fee - Users registering with me may make comments
                and suggestions or arrange for limited customizing, 
                mono versions, S.I. versions and free notification of 
                updates/bug fixes (see REG.DOC).  I'm cheap.

                LABCOAT was written as a Clinical Laboratory Helper, 
        combining routine statistics, computation of moving averages, an
        employee evaluation program that's fun, a comprehensive test
        cost analysis and break-even analyser, an instrument depreciation
        routine, a very complete program to assess cardiovascular risk
        status via blood lipid values, and, finally, a little moving art.

                The program is not just intended for Laboratory managers;
        a lot of it is broadly applicable to many business and scientific 
        applications.  And, to the point, the entire source code is right
        on the disk, and anyone using it can boot Turbo Pascal and change
        the program and pass it on, I don't care - as long as the stuff
        remains useful or gets improved.  I'm encouraging any users
        to alter the source as they see fit, for their worksite. The
        program name and rights to distribution are mine.  

                The code, as mentioned, was written in Turbo Pascal 3.0 .
        I wrote on an IBM PC using PC DOS 2.1, testing report printing on
        Okidata 182 (IBM) and Epson FX-85 (Epson).  The programs are heavy
        on color and should be run that way, but, other than the short
        Art routine, a color-graphics card is not required.  However, some
        users with color graphics cards & mono monitors are going to have
        trouble with the color calls - I can and will provide them with
        customized versions, if they contact me directly.

                I suppose 256K RAM is best for headroom, and 1 5 1/4" floppy
        drive is enough.  There is now a routine called Exec.com that uses DOS 
        calls.  It was written basically by Borland, & shouldn't be troublesome
        but, if so, only limits the use of Qchart. I do toggle on Caps Lock and 
        Num Lock though.
                Thus, my guess is that MS DOS and other IBM DOS compatable 
        operating systems will boot the programs.
                Aside from interactive screen displays, the programs do
        produce a fair amount of printed material; 11+ pages of various
        reports can be generated.  For that reason I must say that the
        user should have a printer, preferably dot-matrix, to really get
        the maximum output.  The output was set up using the Epson and
        Okidata printers, with a few printer codes called: emphasized
        pitch, form feed and a line character for report borders.  What
        a daisy wheel printer would do with that I don't know.  If the 
        user has a Turbo Compiler, the calls can easily be removed from
        the source code (they're flagged), and re-compilation can be done.

                        Why don't You look at it and tell me what You think?
                If you want to realease it, that's fine.
        Boot DOS, insert disk, type LABCOAT, and hit Return.


                                      DOUGLAS STANDING
                                      943 ASTER CT
                                      SUNNYVALE, CA 94086

Directory of PC-SIG Library Disk #0932

 Volume in drive A has no label
 Directory of A:\

1VERSION 3_6         4   6-12-90   3:00p
BIRDFACE COM     12959  12-06-88  11:31a
EVALUATE COM     22564   7-10-90   4:22p
EXEC     COM     11996   2-16-89   9:31p
LABCOAT  000     14080   7-10-90   3:58p
LABCOAT  COM     31449   7-10-90   3:58p
LIPID    000     46336   7-10-90   4:09p
LIPID    COM     18531   7-10-90   4:09p
QCHART   EXE     72086   7-06-90   9:14p
README-1 DOC      9278   7-10-90   6:25p
README-2 DOC      4831   7-10-90   6:28p
REG      DOC      2150   7-10-90   2:44p
RELEASE  DOC      6136   7-10-90   9:39p
SOURCE   EXE     62389   7-10-90   6:19p
GO       BAT        38  10-19-87   3:56p
FILE0932 TXT      1851   8-10-90   8:53a
GO       TXT       881   1-01-80   1:51a
       17 file(s)     317559 bytes
                       35840 bytes free