'  2' 'ư>  %,2HELPCONTINUEEXITHALTSTEP 1STOPSTOP ,,OFF(((((((((({\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\tx1200\tx2400\tx4440\tx5280\tx6000\plain\f2\fs20 * SOUTHSIDE HOSPITAL * \par * SIMULATE PAT PATIENTS THROUGH PRE-ADMISSION TESTING * \par * SIMULATION RBP 05.1 - 30 PAT PTS, 20 REF AMB PTS * \par * GENERATE PAT PATIENTS EVERY 15 MINUTES; REF AMB PATIENTS EVERY 20 MINUTES * \par *5 RMS WITH 2 RN'S, 1 LAB TECH, 1 EKG TECH & 1 PA; 1 ROOM FOR LAB TECH (REF AMB)* \par * UPDATED AGAIN WITH "NURSE INTERVIEW ONLY (NIO)" - PRELIM. PAPERWORK DONE * \par \par 10 rmult 37\tab \tab \tab ;INITIALIZE RANDOM NUMBER SEED\tab \tab \tab \tab \par 50 ROOM STORAGE 5\tab \tab \tab ;CREATE CAPACITY OF 5 PATIENT ROOMS \par 55 RNU STORAGE 2\tab \tab \tab ;CREATE CAPACITY OF 2 RNS \par 56 RNTM FUNCTION RN1,D11 \par .04,10/.12,15/.42,20/.60,25/.81,30/.90,35/.94,40/.95,45/.98,50/.99,55/1.0,60 \par 58 EKGTM FUNCTION RN1,D12 \par .055,3/.345,4/.582,5/.727,6/.855,7/.873,8/.891,9/.927,10/.945,11/.964,15/.982,18/1.0,20 \par 60 LABTM FUNCTION RN1,D12 \par .093,2/.433,3/.546,4/.825,5/.845,6/.866,7/.876,8/.887,9/.948,10/.969,11/.99,12/1.0,17 \par 62 PATM FUNCTION RN1,D5 \par .143,10/.357,13/.643,18/.964,23/1.0,28 \par *************************************************************************** \par 68 GENERATE 15,5,,30\tab \tab ;GENERATE PAT PTS EVERY 10-20 MINUTES; LIMIT OF 30 \par 70 ABC QUEUE RM\tab \tab \tab ;WAIT FOR ROOM \par 80 ENTER ROOM\tab \tab \tab ;ENTER 1 OF 5 PATIENT ROOMS \par 90 DEPART RM\tab \tab \tab ;DEPART THE WAITING ROOM \par 92 QUEUE RNUR\tab \tab \tab ;WAIT FOR RN (SHOULD BE ZERO WAIT FOR RN) \par 95 ENTER RNU\tab \tab \tab ;1 OF 2 RN'S INTERVIEW PATIENTS \par 97 DEPART RNUR\tab \tab \tab ;NO LONGER WAITING IN ROOM FOR RN \par 100 ADVANCE FN$RNTM\tab \tab \tab ;SPEND RANDOMLY DETERMINED TIME WITH RN \par 110 LEAVE RNU\tab \tab \tab ;RN LEAVES ROOM \par 115 TRANSFER 0.97,TERM,LB\tab \tab ;TRANSFER 97% OF PTS TO LAB TECH (29); 3% TO EXIT \par 120 LB QUEUE LAB\tab \tab \tab ;WAIT FOR LAB TECH \par 125 SEIZE LABTECH\tab \tab \tab ;LAB TECH IN ROOM \par 130 DEPART LAB\tab \tab \tab ;NO LONGER WAITING IN ROOM FOR LAB TECH \par 135 ADVANCE FN$LABTM\tab \tab ;SPEND RANDOMLY DETERMINED TIME WITH LAB TECH \par 140 RELEASE LABTECH\tab \tab \tab ;LAB TECH EXITS ROOM \par 142 TRANSFER .567,TERM,EK\tab \tab ;TRANSFER 56.7% OF LAB PTS TO EKG TECH (16.5); 43.3% TO EXIT \par 145 EK QUEUE EKG\tab \tab \tab ;WAIT FOR EKG TECH IN ROOM \par 150 SEIZE EKGTECH\tab \tab \tab ;EKG TECH IN ROOM \par 155 DEPART EKG\tab \tab \tab ;NO LONGER WAITING FOR EKG TECH \par 160 ADVANCE FN$EKGTM\tab \tab ;SPEND RANDOMLY DETERMINED TIME WITH EKG TECH \par 165 RELEASE EKGTECH\tab \tab \tab ;EKG TECH EXITS ROOM \par 166 TRANSFER .509,TERM,AP\tab \tab ;TRANSFER 50.9% OF PTS TO PA (8.4); 49.1% TO EXIT \par 170 AP QUEUE PA\tab \tab \tab ;WAIT FOR PA IN ROOM \par 175 SEIZE PHYSASST\tab \tab \tab ;PA ENTERS ROOM \par 180 DEPART PA\tab \tab \tab ;NO LONGER WAITING FOR PA \par 185 ADVANCE FN$PATM\tab \tab \tab ;SPEND RANDOMLY DETERMINED TIME WITH PA \par 190 RELEASE PHYSASST\tab \tab ;PA EXITS ROOM \par 200 TRANSFER ,TERM\tab \tab \tab ;TRANSFER ALL PATIENTS TO EXIT \par 201 GENERATE 20,5,,20\tab \tab ;GENERATE REF AMB PTS EVERY 15-25 MINUTES FOR LAB TECH \par 203 QUEUE LABRM\tab \tab \tab ;WAIT FOR LAB ROOM \par 205 SEIZE LABRM\tab \tab \tab ;OBTAIN LAB ROOM \par 207 DEPART LABRM\tab \tab \tab ;LEAVE QUEUE \par 212 QUEUE LAB \tab \tab \tab ;WAIT FOR LAB TECH IN ROOM \par 213 SEIZE LABTECH\tab \tab \tab ;LAB TECH IN ROOM \par 214 DEPART LAB\tab \tab \tab ;NO LONGER WAITING IN ROOM FOR LAB TECH \par 215 ADVANCE FN$LABTM\tab \tab ;SPEND RANDOMLY DETERMINED TIME WITH LAB TECH \par 216 RELEASE LABTECH\tab \tab \tab ;LAB TECH FINISHED WITH PATIENT \par 217 RELEASE LABRM\tab \tab \tab ;PATIENT LEAVES LAB ROOM \par 220 TRANSFER ,TM\tab \tab \tab ;TRANSFER PATIENTS TO TERMINATE \par 300 TERM LEAVE ROOM\tab \tab \tab ;PATIENT LEAVES ROOM WITH RN \par 310 TM TERMINATE 1\tab \tab \tab ;PATIENT LEAVES PAT AREA \par 390 START 50 \par }