Bu sayfadaki yazılar
Sayfanın metni
Sayfa 28
Doktorların hastalarını kaydedeceği bir program. Sadece doktorların değil ufak bir iki değişiklik ile istenilen her türlü bilgiyi kayıt eden bir program. Programın ana menüsü şu şekilde oluşuyor:
1) Hasta kayıt 2) Sıralı okuma 3) İsim ile arama
4) Çıkış.
Hasta kaydında, hastanın adı, soyadı, yaşı, şikâyetleri tespit edilen bulgular, teşhis ve tedavi bilgileri soruluyor ve bunlar kayıt ediliyor. Bu şekilde istenilen sayıda hasta kaydı yapılıyor. Bunun için 325'inci satırda (I)'nın değerini artırabilirsiniz. Sıralı okumada kaydedilen hastalar tek tek ekrana geliyor. İsimle aramada; müracaat eden hastanın ismi yazılıyor, returna basınca kayıt bulunuyor ve ekrana getiriliyor. Böylece doktorlar artık kayıt defteri tutup bu kaydı bulmak için zaman kaybetmiyorlar. Başarılar...
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 29
00130 INPUT “<RVSON)#TESHİSCASPACE > 1 <RVSO .GSLPRİNT 08133 INPUT "<RVSON)#TEDAVICASPACE <RVSO 00136 1PRİNT 00138 PRINT TABC3)CIRRINT "KAYIDA DEVAM E DECEKMİSİNİZ? <EZH)" 00140 GET THEN 102 00141 IF THEN 145 00143 IF AND THEN 140 00145 CLOSE 8 60146 GOTO 5 00200 GOSUB 550 88202 OPEN 2.8.2."HASTA.S.R" 00205 NT “<CLR)>"1GOSUB 708 090208 PRİNT <2SPACE)O M 88210 PRİNT SOYADI 1 <RVSOFF > BO212 PRİNT "<RVSONDSYASI YERİ *)BSLPRINT 00214 PRİNT "<RVSON)#MURACAATLESPACE ) 1 <RV SOFF) 80216 PRİNT "<RVSON) CRV SOFF) PRİNT “<RVSON) #BULGULARC2SPACE > 1 <RV SOFF> 00218 PRİNT > 1 <RV SOFF) 80218 PRİNT *<RVSON)#TESHİSC4SPACE <RVSO FF) 08220 PRİNT "<RVSON)#TEDAV CASRACE > 1 CRVSO FF> BORA2 PRİNT İCİN AR ALIK CUBUGUNA BASINCERIGHT)>" 68223 PRİNT MENU İCİN RETURNA BASINLERİGKT)" GET THEN 224 00226 IF THEN 205 00228 IF YE-CHRSC13) THEN 832 00230 IF AND YEOCKRSCİ3) TH EN 224 60232 CLOSE 81GOTO 5 00300 GOSUB 53280 BIPOKE 53281.11PRINT 68302 S M<2SR ACE)İ L R A M >*APRİNT 00365 PRINT "HASTA ADINI YAZ IN 00310 OPEN 2.8.2."HASTA.S.R" 88312 "<CLR)>" 00314 1-1 00316 FOR I-2 TO 5008 00318 00320 IF THEN 358 00322 PRİNT A YI ANI YOR 08325 IF 14500 THEN SAYI sı 00327 NEXT I 00350 GOSUB 708 88352 SOYADI 1 <RVSOFF > 00355 YERİ *)BSLPRINT 00357 PRİNT > 1 <RV 00359 PRİNT > 1 <RV e
")DSEPRIİNT "<RVSON) 1 <RV SOFF) PRINT 1 <RVSOFF > > 1 <RVSO FF> “)GSLPRINT FRİNT “<RVSON>#TEDAVI <4ASPACE Yi <RVSO FF> EPRİNT PRINT "<RVSON) <RVSOFF )<245RACE)<RV OLSUN "<RVSON)C<2SPACE YANA DO NMEK ICİN RETURNA BASIN" GET V&11F V&e"" THEN 375 IF THEN 388L11F (13) THEN 375 CLOSE 816G0TO 5 PRINT "<CLR)"1POKE 53280.11:POKE 81.1:PRINT PRİNT 1 PRINT "<RVSON><7SPACE)G E C MI S<3 SPACE)O L S U PRINT *<26SPRACE)<RVSONDDR ALI HATAY <2SPACE)* PRİNT "<25SPACE )<RVSON>BEVLİYE UZMA NI * FOR TO CLOSE "<CLR)"LEND FOR Isi TO 58 PRINT 1 PRINT 1PRINT PRİNT PRINT H A S T A N Iİ N<2SRA CEK A YO I<ESPACEYYOKTUR" NEKT I