'|-----------------------------------------------|
'|------------CountSys.BAS  ---------------------|
'|---------Working on System Quizes--------------|
'|---- Copyright 1997 by Richard R. Lindquist ---|
'|-----------------------------------------------|
'|--------This is Current Ver 1.0 Build 42-------|
'|-----S F I DONE--------------------------------|
'
'DxGI Array
DIM Dx$(101)

GI% = 0
 GYN% = 0
GU% = 0
 CV% = 0
 CNS% = 0
Breast% = 0
Endo% = 0
HEM% = 0
Resp% = 0
Bone% = 0

OPEN "WEBGEN.DAT" FOR INPUT AS #1


10 DO UNTIL EOF(1)


'uid$ = ""
'ss$ = ""
'url$ = ""
'organ$ = ""
'ic$ = ""
'sd$ = ""
'process$ = ""
'tcode$ = ""
'mcode$ = ""
'gorm$ = ""
'iby$ = ""
'ibyh$ = ""
'longd$ = ""
Read1$ = "Y"
LINE INPUT #1, rec$
rec$ = LTRIM$(rec$)
rec$ = RTRIM$(rec$)


caserec$ = rec$

IF LEFT$(caserec$, 1) <> "z" THEN caserec$ = "zzz"
'DO
SELECT CASE LEFT$(caserec$, 3)
CASE IS = "zx1"
'        PRINT "1"; rec$
x = LEN(rec$)
x = x - 3
uid$ = MID$(rec$, 4, x)
PRINT "Working on uid# "; uid$
'        uid$ = RIGHT$(rec$, 4)
'uid$ = rec$


GOTO 10         'Need to read in all fields before wrinting file

CASE IS = "zx2"
'PRINT "2"; rec$
x = LEN(rec$)
x = x - 3
ss$ = MID$(rec$, 4, x)
ss$ = LTRIM$(ss$)
ss$ = RTRIM$(ss$)

IF ss$ = "GI" THEN GI% = GI% + 1
IF ss$ = "GYN" THEN GYN% = GYN% + 1
IF ss$ = "GU" THEN GU% = GU% + 1
IF ss$ = "CV" THEN CV% = CV% + 1
IF ss$ = "CNS" THEN CNS% = CNS% + 1
IF ss$ = "Breast" THEN Breast% = Breast% + 1
IF ss$ = "Endo" THEN Endo% = Endo% + 1
IF ss$ = "HEM" THEN HEM% = HEM% + 1
IF ss$ = "Resp" THEN Resp% = Resp% + 1
IF ss$ = "Bone" THEN Bone% = Bone% + 1

'ss$ = rec$
GOTO 10

CASE IS = "zx3"
'PRINT "3"; rec$
x = LEN(rec$)
x = x - 3
url$ = MID$(rec$, 4, x)
'url$ = RIGHT$(rec$, 4)
'url$ = rec$
GOTO 10

CASE IS = "zx4"
'PRINT "4"; rec$
x = LEN(rec$)
x = x - 3
organ$ = MID$(rec$, 4, x)
'Organ$ = RIGHT$(rec$, 4)
'Organ$ = rec$
GOTO 10

CASE IS = "zx5"
'PRINT "5"; rec$
x = LEN(rec$)
x = x - 3
ic$ = MID$(rec$, 4, x)
'IC$ = RIGHT$(rec$, 4)
'IC$ = rec$
GOTO 10

CASE IS = "zx6"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
sd$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10

CASE IS = "zx7"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
process$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10


CASE IS = "zx8"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
tcode$ = MID$(rec$, 4, x)
'CLS
'PRINT "before: "; tcode$
tcode$ = RTRIM$(tcode$)
tcode$ = LTRIM$(tcode$)

tcode$ = MID$(tcode$, 2, 3)



GOTO 10

CASE IS = "zx9"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
mcode$ = MID$(rec$, 4, x)
'PRINT "before: "; mcode$
mcode$ = RTRIM$(mcode$)
mcode$ = LTRIM$(mcode$)

mcode$ = MID$(mcode$, 2, 5)

'PRINT tcode$
'PRINT mcode$
'INPUT o$
GOTO 10

CASE IS = "zx0"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
gorm$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10

CASE IS = "zy1"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
iby$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
IF LEN(rec$) < 4 THEN iby$ = " "
GOTO 10

CASE IS = "zy2"
'PRINT "6"; rec$
x = LEN(rec$)
x = x - 3
ibyh$ = MID$(rec$, 4, x)
'SD$ = RIGHT$(rec$, 4)
'sd$ = rec$
GOTO 10


'LOOP UNTIL rec$ = "zzz"

CASE IS = "zzz"     ' zzz is sentinal for Long Image Description
DIM LongD$(125)     ' set up string array for all the lines in Long D
LongD$(0) = rec$
PRINT LongD$(0)
u = 0
DO UNTIL rec$ = "|" 'keep reading Long D lines until end of field |
	LINE INPUT #1, rec$
	IF LEN(rec$) > 1 THEN    ' Do not process blank lines or | line
	u = u + 1
	LongD$(u) = rec$
 '       PRINT u, LongD$(u)       ' screen out to see progress
	END IF
LOOP

'INPUT k$
END SELECT

'
' All Vars Set
' Ready to Write *.htm file
'
'
'  Clean out leading & trailing blanks
'
uid$ = RTRIM$(uid$)
uid$ = LTRIM$(uid$)
url$ = RTRIM$(url$)
organ$ = RTRIM$(organ$)
sd$ = RTRIM$(sd$)
ss$ = RTRIM$(ss$)
ic$ = RTRIM$(ic$)
url$ = LTRIM$(url$)
organ$ = LTRIM$(organ$)
sd$ = LTRIM$(sd$)
ss$ = LTRIM$(ss$)
ic$ = LTRIM$(ic$)
tcode$ = LTRIM$(tcode$)
mcode$ = LTRIM$(mcode$)
gorm$ = LTRIM$(gorm$)
iby$ = LTRIM$(iby$)
ibyh$ = LTRIM$(ibyh$)
tcode$ = RTRIM$(tcode$)
mcode$ = RTRIM$(mcode$)
gorm$ = RTRIM$(gorm$)
iby$ = RTRIM$(iby$)
ibyh$ = RTRIM$(ibyh$)
'
' Sreen Out for debugging
'
'PRINT "Uid="; uid$
'PRINT "Url="; url$
'PRINT "Organ="; organ$
'PRINT "SD="; sd$
'PRINT "Ss="; ss$
'PRINT "ic="; ic$
'PRINT "Process = "; process$
'PRINT "Tcode= "; tcode$
'PRINT "Mcode= "; mcode$
'PRINT "GorM = "; gorm$
'PRINT "By = "; iby$
'PRINT "Hosp= "; ibyh$
'PRINT "LongD="; longd$

'
' Name the generated html page by uid
ss$ = LTRIM$(ss$)
ss$ = RTRIM$(ss$)
Lss% = LEN(ss$)
IF Lss% < 1 THEN ss$ = "Junk"
'
'
'
LOOP

PRINT "GI"; GI%
PRINT "GYN"; GYN%
PRINT "GU"; GU%
PRINT "CV"; CV%
PRINT "CNS"; CNS%
PRINT "Breast"; Breast%
PRINT "Endo"; Endo%
PRINT "HEM"; HEM%
PRINT "Resp"; Resp%
PRINT "Bone"; Bone%
INPUT o$
CLOSE #1

PRINT "GI"; GI%
PRINT "GYN"; GYN%
PRINT "GU"; GU%
PRINT "CV"; CV%
PRINT "CNS"; CNS%
PRINT "Breast"; Breast%
PRINT "Endo"; Endo%
PRINT "HEM"; HEM%
PRINT "Resp"; Resp%
PRINT "Bone"; Bone%

END