Shareware Overload/ShartewareOverload.cdr/database/db3util.zip/DSCREEN.EXE/lha/PATINFO.PRG

Text File | 1985-08-02 | 2KB | 46 lines

* The following code was produced by Dscreen
* (c) copywrite 1985 by Jeffrey Newbro
*
ERASE
@ 2,7 SAY Date()
@ 2,62 SAY "ID " GET field1
@ 3,29 SAY "< PATIENT INFORMATION >"
@ 4,1 SAY ">>>>>>>>>>>>>>>>>>>>>>>>>>>>> Personal Information <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
@ 5,1 SAY "Surname" GET field2
@ 5,41 SAY "Firstname" GET field4
@ 5,68 SAY "MI." GET field3
@ 6,1 SAY "Street" GET field5
@ 6,31 SAY "City" GET field6
@ 6,52 SAY "State" GET field7
@ 6,65 SAY "Zip" GET field8
@ 7,16 SAY "Phone" GET field9
@ 7,40 SAY "DOB" GET field10
@ 7,54 SAY "Sex" GET field11
@ 8,16 SAY "Comments" GET field13
@ 9,1 SAY ">>>>>>>>>>>>>>>>>>>>>>>>>>>> Insurance Information <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
@ 10,10 SAY "Primary Carrier" GET field14
@ 10,50 SAY "Primary ID" GET field15
@ 11,9 SAY "Secondary Carrier" GET field16
@ 11,49 SAY "Secondary ID" GET field17
@ 12,9 SAY "Current PA" GET field21
@ 12,33 SAY "Pa.Expir." GET field22
@ 12,53 SAY "Assignment" GET field23
@ 13,12 SAY "Sig.on.file" GET field25
@ 13,36 SAY "Workflag" GET field26
@ 13,56 SAY "Death" GET field24
@ 14,1 SAY ">>>>>>>>>>>>>>>>>>>>>>>>>>>>> Medical Information <<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
@ 15,9 SAY "Doctor" GET field12
@ 15,48 SAY "Diagnosis Code" GET field27
@ 16,20 SAY "Diagnosis1" GET field28
@ 17,20 SAY "Diagnosis2" GET field29
@ 18,20 SAY "Diagnosis3" GET field30
@ 19,1 SAY ">>>>>>>>>>>>>>>>>>>>>>>>>>>>> Internal Information <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
@ 20,18 SAY "Status" GET field18
@ 20,34 SAY "Start" GET field19
@ 20,50 SAY "Disc" GET Field20
@ 21,1 SAY "-------------------------------------------------------------------------------"
@ 22,29 SAY "<S>ave or <Q>uit" GET curmenu
READ
*
* End of code produced by Dscreen