L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`z#??Xò     Ƞ ̠ŠŠҠ *"7 "* *"f "*CURRICULUM PUBLICATION CLEARING HOUSE*" "* *" "*";:12:"46 HORRABIN HALL";:39:"*" "* *"&"*";:7:"DUCATION";:39:"*"B "* *"s "*";:9:"100 NORTH FIRST STREET";:39:"*" "* *" "*";:6:"SPRINGFIELD, ILLINOIS 62777";:39:"*""* ************************************"T "* ILLINOIS STATE BOARD OF EDUCATION *" "* *" "* DEPARTMENT OF ADULT, VOCATIONAL, *" "* *" "*";:9:"AND TECHNICAL E *"J "***************************************"R : " THIS DISK CONTAINS HOSPITAL RECORDS " :: " PRESS TO CONTINUE";:" ";Z$ "EXCLUSIVE DISTRIBUTION RIGHTS RETAINED" % "***"0 }"* *"_ "* *" "* HEALTH EDUCATION *" "* *" "* JACK MEANS - PROJECT COORDINATOR *" "* *"E d"* MICROCOMPUTER SKILLS: CURRICULUM *"t i"* *" n"*DEVELOPMENT AND DISSEMINATION PROJECT*" s"* *" x"*WILMA JEAN ALEXANDER,PROJECT DIRECTOR*.  D$""; :THIS IS THE INDEX PROGRAM FOR THE DISKi IT IS DESIGNED TO ALLOW THE USER TO ( SIMPLIFY THE LOADING AND RUNNING OF- A PROGRAM.8 1982F:P"***************************************" Z"*      NOW BE DISPLAYED FOR YOUR REVIEW.":"IF CORRECTIONS ARE NECESSARY THEY CAN""BE MADE ONCE ALL THE INFORMATION HAS":"BEEN DISPLAYED."4000:PIN$: 6);PI$(2,I);33);"#";PI$(1,I) 6);PI$(3,I):6);PI$(4,I) :14);"SEX";": ";PILNPJ1'PI$(K,L)PI$(K,L1)::8PI$(1,I)IN$JJ213:2080[PI$(J,I)IN$a|J1416:PI$(J,I)"":NPNP1:600:TITLE$:" ALL THE INFORMATION HAS BEEN ENTERED":"TO ADMIT A PATIENT. THIS INFORMATION"K"WILL ::"ENTER ";DT$(J)::TPR$:?4D$"":K1ND(J):D$D$"-":M>" ";D$:gHIN$:IN$(IN$,ND(J))MJ1(IN$"0"IN$"999999")İ4150:2080R\JJ1:JNP1ī2190f(PI$(1,J))(PI$(1,I))IJ:2160k2140pJ0NPI1zK116 F CHARACTERS WHICH""CAN BE USED ARE SHOWN WITH DASHES.":"DO NOT PUT COMMAS IN ANY ENTRIES OR ":"SOME INFORMATION WILL BE LOST."4000 INP1J1:TI$ADM$2080:PI$(1,I)IN$:J0:2140 PI DATA INPUT :TI$: PATIENT INDEX"" 7) QUIT".MX7:4100>BS0ī1200hZ2000,2700,3000,3500,5000,6000,7000nt ADMIT A PATIENT :ADM$::" SEVERAL ITEMS OF INFORMATION WILL":"BE REQUESTED FOR EACH PATIENT.":"THE NUMBER OHE ENTIRE PATIENT FILE CAN":"BE ERASED WHEN YOU QUIT THE PROGRAM."Mt4000:TL$::" 1) ADMIT A PATIENT":" 2) ACCESS PATIENT INFORMATION"" 3) DISCHARGE A PATIENT":" 4) CURRENT PATIENT CENSUS":" 5) CURRENT PHYSICIAN INDEX":" 6) DISCHARGEDX IS":"AVAILABLE TO LIST ALL PATIENTS":"CURRENTLY IN THE HOSPITAL BY THEIR":"ATTENDING PHYSICIAN."oV4000`:TITLE$::" EACH TIME A PATIENT IS ADMITTED":"OR DISCHARGED, THE DISK IS UPDATED.":"ONLY 50 PATIENTS ARE ALLOWED."Cj"IF DESIRED T KNOWN, IT":"CAN BE DETERMINED FROM THE CURRENT":"PATIENT CENSUS FOR PATIENTS PRESENTLY":"IN THE HOSPITAL OR FROM THE DISCHARGED"."PATIENT INDEX FOR ALL PATIENTS THAT":"HAVE BEEN DISCHARGED."84000eL:TITLE$::" A CURRENT PHYSICIAN INDEUIRED."R"WHEN A PATIENT IS DISCHARGED MORE":"INFORMATION WILL BE REQUESTED."\4000b" HOSPITAL RECORDS PROGRAM"::" TO ACCESS PATIENT INFORMATION OR":"DISCHARGE A PATIENT, THE PATIENT NUMBER"$"MUST BE KNOWN. IF IT IS NOTI$(1,1):4000e :TITLE$::" THIS PROGRAM MAINTAINS PATIENT":"INFORMATION WITHIN A HOSPITAL.""A PATIENT WILL BE ADMITTED INTO THE":"HOSPITAL BY ENTERING THE PERTINENT":"INFORMATION. THE INFORMATION CAN LATER":"BE OBSERVED OR CHANGED AS REQATFILE" I$;"READ PATFILE"& NP2 J116> &K1NPL 0PI$(J,K)T ::l DI$;"CLOSE PATFILE"v N1000 XI$;"OPEN PATFILE" bI$;"WRITE PATFILE" gNP lJ116 vK1NP PI$(J,K) : I$;"CLOSE PATFILE"  PNDING PHYSICIAN":ND(11)158 oDT$(12)"ROOM #":ND(12)3U pDT$(13)"BED #":ND(13)1{ qDT$(14)"DISCHARGE DATE":ND(14)8 rDT$(15)"PRINCIPAL DIAGNOSIS CODE":ND(15)7 sDT$(16)"PRINCIPAL PROCEDURE CODE":ND(16)7  INPUT DATAFILE I$;"OPEN PY STATE AND ZIP":ND(4)252 hDT$(5)"SEX":ND(5)1U iDT$(6)"DATE OF BIRTH":ND(6)8| jDT$(7)"FAMILY PHYSICIAN":ND(7)15 kDT$(8)"INSURANCE CODE":ND(8)2 lDT$(9)"ADMISSION DATE":ND(9)8 mDT$(10)"FILE LOCATION CODE":ND(10)9 nDT$(11)"ATTERESS 'RETURN'"; PCPI$" CURRENT PHYSICIAN INDEX"g ZMPI$" DISCHARGED PATIENT INDEX"{ _I$"": CTRL D aTL$TI$ dDT$(1)"PATIENT NUMBER":ND(1)6 eDT$(2)"PATIENT NAME":ND(2)25 fDT$(3)"STREET ADDR":ND(3)25 gDT$(4)"CIT  PI$(16,50),DT$(16),ND(16)MTITLE$" HOSPITAL RECORDS PROGRAM"rADM$" ADMIT A PATIENT"(PIN$" PATIENT INFORMATION"2DISC$" DISCHARGE A PATIENT"<CC$" CURRENT PATIENT CENSUS" FTPR$"THEN P          :"*********** CAUTION ************"h%:"THIS IS YOUR LAST CHANCE.":"ALL PATIENTS WILL BE ERASED."%:"ENTER YES,":"THEN PRESS 'RETURN' TO ERASE."::"PRESS 'RETURN' TO QUIT."%Z$:Z$"YES"ī7090%%I$;"RUN ERASE"%20ZZ TOP"$Z$:Z$"1"1200+$JNP1ī12005$$6060$X:TL$::"DO YOU WANT TO ERASE THESE PATIENT":"FILES AND START AGAIN?"$b:"ENTER YES,":"THEN PRESS 'RETURN' TO ERASE."::"PRESS 'RETURN' TO QUIT."$lZ$:Z$"YES"ī7040$v%%:TL$::JJ1:JNP1ĺ:4000:12005#PI$(14,J)""ī6100?#6070R#K0ė:MPI$:u#PI$(2,J);29);"#";(PI$(1,J))#5)DT$(14);": ";PI$(14,J):#KK1:K3ī6150#6070#" PRESS 'RETURN' TO CONTINUE,"$" ENTER 1 AND PRESS 'RETURN' TO S*"2" ENTER 1 AND PRESS 'RETURN' TO STOP"2"<Z$8"FF"P:CPI$:W"ZPI$(11,J):~"d6);PI$(2,L);29);"#";(PI$(1,L))"n" ROOM #";PI$(12,L);" BED #";PI$(13,L):"x"p"z" MASTER PATIENT INDEX """J0"K0#50!LJ:K1:52002!LL1:LNP1İ5160:5085 TO CONTINUE";Z$H12:12:"LOADINΠٍȍ٠ύҮōύɍɍύʮύӍčҮˍύŠ΍ˠōŮˠԮ͠ōϠ̠ō͍ˍȍΠٍӍҮΠҍŠ΍Ԡ̮ҍŮˠԮϠ̠͍ȍӍˍӍӍHE ENTIRE PATIENT FILE CAN":"BE ERASED WHEN YOU QUIT THE PROGRAM."Mt4000:TL$::" 1) ADMIT A PATIENT":" 2) ACCESS PATIENT INFORMATION"" 3) DISCHARGE A PATIENT":" 4) CURRENT PATIENT CENSUS":" 5) CURRENT PHYSICIAN INDEX":" 6) DISCHARGEDX IS":"AVAILABLE TO LIST ALL PATIENTS":"CURRENTLY IN THE HOSPITAL BY THEIR":"ATTENDING PHYSICIAN."oV4000`:TITLE$::" EACH TIME A PATIENT IS ADMITTED":"OR DISCHARGED, THE DISK IS UPDATED.":"ONLY 50 PATIENTS ARE ALLOWED."Cj"IF DESIRED T KNOWN, IT":"CAN BE DETERMINED FROM THE CURRENT":"PATIENT CENSUS FOR PATIENTS PRESENTLY":"IN THE HOSPITAL OR FROM THE DISCHARGED"."PATIENT INDEX FOR ALL PATIENTS THAT":"HAVE BEEN DISCHARGED."84000eL:TITLE$::" A CURRENT PHYSICIAN INDEUIRED."R"WHEN A PATIENT IS DISCHARGED MORE":"INFORMATION WILL BE REQUESTED."\4000b" HOSPITAL RECORDS PROGRAM"::" TO ACCESS PATIENT INFORMATION OR":"DISCHARGE A PATIENT, THE PATIENT NUMBER"$"MUST BE KNOWN. IF IT IS NOTI$(1,1):4000e :TITLE$::" THIS PROGRAM MAINTAINS PATIENT":"INFORMATION WITHIN A HOSPITAL.""A PATIENT WILL BE ADMITTED INTO THE":"HOSPITAL BY ENTERING THE PERTINENT":"INFORMATION. THE INFORMATION CAN LATER":"BE OBSERVED OR CHANGED AS REQATFILE" I$;"READ PATFILE"& NP2 J116> &K1NPL 0PI$(J,K)T ::l DI$;"CLOSE PATFILE"v N1000 XI$;"OPEN PATFILE" bI$;"WRITE PATFILE" gNP lJ116 vK1NP PI$(J,K) : I$;"CLOSE PATFILE"  PNDING PHYSICIAN":ND(11)158 oDT$(12)"ROOM #":ND(12)3U pDT$(13)"BED #":ND(13)1{ qDT$(14)"DISCHARGE DATE":ND(14)8 rDT$(15)"PRINCIPAL DIAGNOSIS CODE":ND(15)7 sDT$(16)"PRINCIPAL PROCEDURE CODE":ND(16)7  INPUT DATAFILE I$;"OPEN PY STATE AND ZIP":ND(4)252 hDT$(5)"SEX":ND(5)1U iDT$(6)"DATE OF BIRTH":ND(6)8| jDT$(7)"FAMILY PHYSICIAN":ND(7)15 kDT$(8)"INSURANCE CODE":ND(8)2 lDT$(9)"ADMISSION DATE":ND(9)8 mDT$(10)"FILE LOCATION CODE":ND(10)9 nDT$(11)"ATTERESS 'RETURN'"; PCPI$" CURRENT PHYSICIAN INDEX"g ZMPI$" DISCHARGED PATIENT INDEX"{ _I$"": CTRL D aTL$TI$ dDT$(1)"PATIENT NUMBER":ND(1)6 eDT$(2)"PATIENT NAME":ND(2)25 fDT$(3)"STREET ADDR":ND(3)25 gDT$(4)"CIT  PI$(16,50),DT$(16),ND(16)MTITLE$" HOSPITAL RECORDS PROGRAM"rADM$" ADMIT A PATIENT"(PIN$" PATIENT INFORMATION"2DISC$" DISCHARGE A PATIENT"<CC$" CURRENT PATIENT CENSUS" FTPR$"THEN P