DIRR COMFORMAT COMBACKUP COMPIP COM: SETUP COM: AUTO COMSYSGEN COM STAT COM)DILIST DMS COMK&')*+,-./01CENTER (HEADGEN COMCOPYDATACOM#BRUN COMy !"#$%HEDSTRS DMS REL?@ABCDGHHEDSTRS 0DLMOD COMEFDFILE 89:;<=>LMNOPQRSTDFILE 9UVWXPTLIST nYZTALK RELTALK COM&MENU !Seratronics, Inc. Dialyzer Reprocessing System &The following items can be selected by (pressing the corresponding function key. MENU to return to the Menu F1 Patient Summary F2 Dialyzer Summary F3 New Patient/Dialyzer Entry F4 Dialyzer List F5 Patient List F6 Start Frame TOPDN=CVI(I$):IF TOPDN=0 THEN 4000 14333 TOPTP=TOPDN:W$="DELETING DIALYZER FILES. PLEASE WAIT.":GOSUB 21000 14335 FOR N=1 TO TOPDN 14337 GET #3,N 14340 IF CVI(I$)=NPDSEL AND CVI(KD$) < KSDAT THEN GOSUB 14350 14345 NEXT N 14347 IF MVD=1 THEN 14330 14348 GOTO 14355 14350 GET #3,TOPTP:IF CVI(I$)=NPDSEL AND CVI(KD$) 0 THEN 14425 14422 LSET QD$=MKI$(KDATE):LSET S$=MKI$(8):GOSUB 1900:LSET R$=MKI$(REU) 14423 PRINT"DIALYZER IS NOW INACTIVE":GOSUB 14450:GOTO 14430 14425 LSET QD$=MKI$(0):LSET S$=MKI$(0):PRINT "DIALYZER IS NOW ACTIVE" 14430 PUT #3,N:PRINT "Press any key to continue":GOSUB 990:GOTO 14200 14450 PRINT"The current reuse no. on file is ";REU 14460 INPUT"If ok, press [RETURN], otherwise enter it now ";RUNO$ 14470 IF VAL(RUNO$)<1 OR VAL(RUNO$)>99 THEN RETURN 14480 REU=VAL(RUNO$):LSET R$=MKI$(REU):RETURN 14500 GOSUB 250 14505 PRINT" THIS IS TO REMOVE ALL RECORDS OF THIS PATIENT !" 14510 GOSUB 290:PRINT:PRINT"To removnc. Dialyzer Reprocessing System &The following items can be selected by (pressing the corresponding function key. MENU to return to the Menu F1 Patient Summary F2 Dialyzer Summary F3 New Patient/Dialyzer Entry F4 Dialyzer List F5 Patient List F6 Start Frame TOPDN=CVI(I$):IF TOPDN=0 THEN 4000 14333 TOPTP=TOPDN:W$="DELETING DIALYZER FILES. PLEASE WAIT.":GOSUB 21000 14335 FOR N=1 TO TOPDN 14337 GET #3,N 14340 IF CVI(I$)=NPDSEL AND CVI(KD$) < KSDAT THEN GOSUB 14350 14345 NEXT N 14347 IF MVD=1 THEN 14330 14!PATIENT SUMMARY (Total number of kidneys processed since Average number of reuses Patient Dialyzer Avg. ''Dialyzer results (uses for each kidney) Type Reuses -( * = active ) TOPDN=CVI(I$):IF TOPDN=0 THEN 4000 14333 TOPTP=TOPDN:W$="DELETING DIALYZER FILES. PLEASE WAIT.":GOSUB 21000 14335 FOR N=1 TO TOPDN 14337 GET #3,N 14340 IF CVI(I$)=NPDSEL AND CVI(KD$) < KSDAT THEN GOSUB 14350 14345 NEXT N 14347 IF MVD=1 THEN 14330 14!PATIENT SUMMARY (Total number of kidneys processed F TBN>0 THEN PRINT TBN:GOTO 14848 14847 PRINT CVI(T0$) 14848 PRINT"REUSE NO. will be ";:IF REUN>0 THEN PRINT REUN:GOTO 14850 14849 PRINT REU 14850 PRINT:PRINT"To save these values, press [Y], otherwise [RETURN]" 14860 GOSUB 990:IF A$<>"Y" AND A$<>"y" THEN 14200 14865 IF KNN>0 THEN LSET KF$=MKS$(KNN) 14870 IF TBN>0 THEN LSET T0$=MKI$(TBN) 14875 IF REUN>0 THEN LSET R$=MKI$(REUN) 14880 PUT #3,DFN:GOTO 14200 15000 REM 15005 NUM=DRNO:NC=2:GOSUB 575:RES$="]"+RIGHT$(BAR$,8)+NUM$+"&" 15007 IF MID$(RES$,2,8)=POOP$ THEN LPAT=0 15010 GOSUB 16000:RETURN 15100 RES$="}"+RIGHT$(BAR$,8):IF DFOK=0 THEN 15107 15102 NUM=INT(CVS(KF$)*10):NC=3:GOSUB 575:RES$=RES$+NUM$ 15105 NUM=CVI(T0$):GOSUB 575:RES$=RES$+NUM$+"&":GOTO 15110 15107 GET#2,DTP:NUM=INT(10*CVS(DLKUFN$)):NC=3:GOSUB 575:RES$=RES$+NUM$ 15108 NUM=CVI(DLTBVN$):GOSUB 575:RES$=RES$+NUM$+"&":GOTO 15110 15110 GOSUB 16000:RETURN 15200 REM 15202 RES$=">" 15205 NUM=HOURS:NC=2:GOSUB 575:RES$=RES$+NUM$+":" 15210 NUM=MINS:GOSUB 575:RES$=RES$+NUM$ 15215 NUM=Msince Average number of reuses Patient Dialyzer Avg. ''Dialyzer results (uses for each kidney) Type Reuses -( * = active ) TOPDN=CVI(I$):IF TOPDN=0 THEN 4000 14333 TOPTP=TOPDN:W$="DELETING DIALYZER FILES. PLEASE WAIT.":GOSUB 21000 14335 FOR N=1 TO TOPDN 14337 GET #3,N 14340 IF CVI(I$)=NPDSEL AND CVI(KD$) < KSDAT THEN GOSUB 14350 14345 NEXT N 14347 IF MVD=1 THEN 14330 14 DIALYZER SUMMARY Dialyzer summary as of Dialyzer type  Patient No. Kidneys reprocessed since No. of kidneys active -Overall reuse average for this dialyzer type !Patient Dialyzers Avg. &'Dialyzer results (uses for each kidney) Used Reuses (*=active) AY=1:MONTH=MONTH+1:IF MONTH=13 THEN MONTH=1:GOTO 17009 17008 GOTO 17010 17009 YEAR=YEAR+1:IF YEAR>99 THEN YEAR=0:RETURN 17010 IF NTD=0 THEN RX=R:CX=C:GOSUB 900:R=RX:C=CX 17015 RETURN 18000 REM 18005 ISF$=IC$:FC$=IC$ 18007 IF IC$="$" THEN 18200 18010 OC$=IC$:GOSUB 850 18015 N=0 18020 GOSUB 800:IF RCVD=0 THEN N=N+1:IF N=1000 THEN RETURN 18025 IF RCVD=0 THEN 18020 18030 ISF$=ISF$+IC$:IF IC$="&" THEN 18100 18035 GOTO 18010 18100 IF FC$="<" THEN GOSUB 15200:RETURN 18105 IF FC$="[" THEN SN=VAL(MID$(ISF$,2,1)):MN=VAL(MID$(ISF$,3,1)):GOTO 7000 18115 IF FC$="{" THEN GOTB=1:BAR$=MID$(ISF$,2,8):GOTO 7165 18120 IF FC$="(" THEN BAR$=MID$(ISF$,2,8):GOSUB 22000:GOSUB 600:GOTO 15300 18130 RETURN:REM OOPS ! 18200 REM 18205 PRINT CHR$(27);CHR$(45);CHR$(17); 18210 OC$="$":GOSUB 850 18220 GOSUB 800:IF RCVD=1 THEN 18250 18225 IF INKEY$=CHR$(27) THEN 18275 18230 GOTO 18220 18250 IF IC$="&" THEN 18275 18252 IF ASC(IC$)=5 THEN 18300 18255 IF (INP(253)AND 4)<>4 THEN 18255 18257 OUT 252,A:GOSUB 870 18260 GOTO 18220 18275 PRINT CHR$(19);CHR$(27);CHR$(44); 18280 RETURN 18300 GOSUB 870 18310 GOSUB 800:IF RCVD=0 THEN 18310 18320 GOSUB 870 18330 MINS=MINS+(ASC(IC$)-48) 18340 GOTO 18220 19000 REM 19020 P$="MONTH ? ":GOSUB 19200:ON RFN GOTO 19030,19150,19150 19030 SMONTH=K:IF SMONTH<1 OR SMONTH>12 THEN 19020 19050 P$="DAY ? ":GOSUB 19200:ON RFN GOTO 19060,19150,19150 19060 SDAY=K:IF SDAY<1 OR SDAY>31 THEN 19050 19075 P$="YEAR ? ":GOSUB 19200:ON RFN GOTO 19080,19150,19150 19080 SYEAR=K:IF SYEAR<83 OR SDIRR COMFORMAT COMBACKUP COMPIP COM: SETUP COM: AUTO COMSYSGEN COM STAT COM)DILIST DMS COMK&')*+,-./01CENTER (HEADGEN COMCOPYDATACOM#BRUN COMy !"#$%HEDSTRS |2345DMS REL?@ABCDGHHEDSTRS 0DLMOD COMEFDFILE 89:;<=>LMNOPQRSTDFILE 9UVWXPTLIST nYZTALK RELTALK COMNEW PATIENT/DIALYZER ENTRY 'New patient/dialyzer entry frame as of Patient (ID) name Social Security No. No. patients on file )Entry Start Reuse Dialyzer Dialyzer +$Dialyzer Nominal Nominal Active? &No. Date No. Type Name -"Code TBV KUF /no,why COPYDATACOM#BRUN COMy !"#$%HEDSTRS |2345DMS REL?@ABCDGHHEDSTRS 0DLMOD COMEFDFILE 89:;<=>LMNOPQRSTDFILE 9UVWXPTLIST nYZTALK RELTALK COMNEW PATIENT/DIALYZER ENTRY 'New patient/dialyzer entry frame as of Patient (ID) name AnV !9 !"AnVhA!"Aʠ*"Rg~X R/A!bRj! "A!5"A7V !A *R! j͍X*ARʡ*R!j͍hAA!Mj! "A!5"A7VRhRц;*B|8)ҽ*B#"B*B|go*B|go|g}o|*B"B!"A!"AS!߲*A !B !"A!D"AS!߲*A &B!} !"A!"AS !A !"A!C"AS *A !"A!?"AS *B ͵R*A|go|g}o|ʩ7:R*A|go|g}o|Έ͈hAhRA!Mj!"R ! ˢ!QRV~X*R|!"A!1"AS*R"A!"AͩXR!Aj*R"A!"AͩXR!ALRj*R"AͩXR!ALRjR!Rj !R ;!#&!#&!\+!A#"R!A"R!"A!$"AS!߲*R !"AnV !֫ !"AnV!"A*"RR!bRj!"A!+"AS ! !T S !R !"A!%"AS!"AnV !ū !"AnV! "A*"RuR!bRj!"A!%"A7V !R *R!j͍! *!# +!X R!̀ R!̀ R!̀ *RRu!"R Social Security No. No. patients on file )Entry Start Reuse Dialyzer Dialyzer +$Dialyzer Nominal Nominal Active? &No. Date No. Type Name -"Code TBV KUF /no,why COPYDATACOM#BRUN COMy !"#$%HEDSTRS |2345DMS REL?@ABCDGHHEDSTRS 0DLMOD COMEFDFILE 89:;<=>LMNOPQRSTDFILE 9UVWXPTLIST nYZTALK RELTALK COM" DIALYZER LIST #Dialyzer Manufacturer Dialyzer +Nominal KUF Nominal TBV $Type No. Model No. Dialyzer list as of D 6O#9fo>-Y@4䁲D 6@@m ۲!l@ͤvf͠͠!0B@ $CYU]n;""ͤ@-@Ͳ`ͦ-͡b#hͣlͻl!,E@E[D"OV>g7E[D"OV>g7O#9forE ` |ohFsm>-Z>,ՙeEY3@\* *wiI@`@-ɘCVSJL Bm0LǠ" Ra8E@D if EY,jE@D[lEDZU@Y,Gn@m+nh@,ڒ !@,۬+ h@,ڪ ۠"bͬ@ͭ" "-n"֠  @4f E@@;"@@mf٠VmnkYlD["R h!`,ڀ""ͻ QVuTғL{E- B "Lmnmff nլO}YϋVP!ZbZ !ZUOVPZ@;x]bv@SZU]bzV@&|ML[ B 04h#D;_B8C,b * 'ū-jɘLPA 0fԠafa @-LZk8 lb}UϊX3ܢ͹@αV>RլO}QܢͼαV>RլO}QϋV*"1j`X}ISpJރ@aqV`!f fh8` AXlCYPE@8| WAٴ SUOVɘ@@Vf@`&&m!/fؐvL 70|s N)0&mocٴl #@YHB &cR!Z1.m`78DSJL CY2f=`;o>9pv@ZoL8!~٠4f`Ax͸ ڦɘ3i@<fpm* n!!OBXEXEXEX"dR 4c`&h&,[BX \&.t{?ρq2)iͯtͰA 0c"!! .*@L:1 L*LXɘ@-@Ͳ`  f @f 0c!\ Ct"c*ȀA"! U!1m d@&md@fpqfհSՄ3iJBY3Vm. چͽL# Lf(a"hͩͣ"pͩ!ͪ"xͫa!ͬ!"ͤ"S&ms (3kHE9(U#@$#@YT eB9p fB9@U$#$#@ 69p pB]b|͹._fbfۀmf $Type No. Model No. Dialyzer list as of D 6O#9fo>-Y@4䁲D 6@@m ۲!l@ͤvf͠͠!0B@ $CYU]n;""ͤ@-@Ͳ`ͦ-͡b#hͣlͻl!,E@E[D"OV>g7E[D"OV>g7O#9forE ` |ohFsm>-Z>,ՙeEY3@\* *wiI@`@-ɘCVSJL Bm0LǠ" Ra8E@D if EY,jE@D[lEDZU@Y,Gn@m+nh@,ڒ !@,۬+ h@,ڪ ۠"bͬ@ͭ" "-n"֠  @4f E@@;"@@mf٠VmnkYlD["R h!`,ڀ# PATIENT LIST #Patient (ID) Name Soc. Sec. No. )$Patient (ID) Name Soc. Sec. No. Patient list as of DIRR COMFORMAT COMBACKUP COMPIP COM: SETUP COM: AUTO COMSYSGEN COM STAT COM)DILIST DMS COMK&')*+,-./01CENTER (HEADGEN COMCOPYDATACOM#BRUN COMy !"#$%HEDSTRS q234567?@AHEDSTRS HEDSTRS 0DLMOD COMEFDFILE 89:;<=>LMNOPQRSTDFILE 9UVWXPTLIST nYZTALK RELTALK COM# START FRAME  Machine No. # Station No. Patient (ID) name 5Dialyzer type Social Securiy No. 5Dialyzer code 5 Reuse No. Kidney identification code Last kidney ID entered