home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3util.zip / DSCREEN.EXE / lha / PATINFO.PRG < prev    next >
Text File  |  1985-08-02  |  2KB  |  46 lines

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