Scheduling a Hospital Move (netdr19)
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: NETDR19 */
/* TITLE: Scheduling a Hospital Move (netdr19) */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: NETDRAW */
/* PROCS: CPM, NETDRAW */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: Activity Networks by Salah E. Elmaghraby */
/* MISC: */
/* */
/****************************************************************/
DATA MOVE;
INPUT ACTIVITY $ 1-44 ID 45-46 DURATION 48-50
(SUCESS1-SUCESS7) (+1 2.);
DATALINES;
Meet with department heads 01 002 09 11 12 13 14 15 16
Consult with director 02 001 03
Tag furniture to be moved 03 001 09 11 12 13 14 15 16
Appoint move advisory committee 04 008 05
Establish move admission policies 05 010 06 19 21
Revise admission policies 06 010 32 40 41 42 43 44 45
Modify disaster plans for new hospital 07 010 31
Plan prel. public relations activities 08 010 33 46 47 48 49
Meet with city traffic engineer 09 005 19 21
Have prel. meeting with police officials 10 005 17
Consult with department heads 11 015 19 21
Negotiate contract on specialized equip 12 020 19 21
Negotiate prel. contract on ambulance buses 13 016 19 21
Develop preliminary move plan 14 020 19 21
Develop prel. contacts with other hospitals 15 017 19 21
Identify security needs for new/old hospital16 012 19 21
Develop police move assistance plan 17 170 57 58 59
Plan employee orientation at new hospital 18 055 54
Develop final move plan 19 020 20 23 24 29 63
Consult building coordinator and contractor 20 020 62
Establish packing material supply center 21 020 22
Stock packing materials center 22 025 30
Prepare final move tags 23 028 28
Arrange shuttle bus between hospitals 24 054 35 37 38 39 40 41 42
24 054 43 44 45 52
Finalize contacts with outside firms 25 033 35 37 38 39 40 41 42
25 033 43 44 45 52
Publish plans 26 003 27 34
Modify plans 27 028 35 37 38 39 40 41 42
27 028 43 44 45 52
Tag furniture & equipment 28 033 35 37 38 39 40 41 42
28 033 43 44 45 52
Plan security open houses & old hospital 29 038 35 37 38 39 40 41 42
29 038 43 44 45 52
Plan premove activity and equipment 30 040 35 37 38 39 40 41 42
30 040 43 44 45 52
Publish new disaster plan 31 068 55 56
Implement premove admissions policies 32 028 55 56
Hold reception for press Lay Board as hosts 33 001 20 23 24 29 63
Construct cleaning station 34 022 37
Establish parking plans 35 017 36
Implement street & parking plans 36 028 64
Clean equipment on arrival 37 037 64
Clean in new hospital 38 028 55 56
Serve lunches in new hospital 39 018 55 56
Make final arrangements with other hospitals40 030 55 56
Finalize ambulance arrangements 41 030 55 56
Contact army regarding ambulance buses 42 030 55 56
Move equipment, furnishings, and functions 43 056 64
Prepare for patient move 44 035 55 56
Operate shuttle bus 45 028 57 58 59
Prepare & distribute move newsletter 46 085 55 56
Plan open houses 47 060 50
Prepare move fact book for employees 48 052 50
Plan dedication of new hospital 49 075 53
Train guides (fuild volunteers) 50 010 51
Hold open house 51 015 55 56
Provide for security as required 52 015 55 56
Plan dedication 53 010 55 56
Hold employee orientations at new hospital 54 040 55 56
Arrange for public relations to assist press55 001 57 58 59
Prepare for patient move 56 001 58
Implement post-move admissions policies 57 008 64
Provide for security at old hospital 58 012 64
Move remaining equipment 59 010 60
Prepare for sale of surplus material 60 002 61
Dispose of unsellable items 61 002 64
Decide on move day 62 010 25 26
Publish instructions 63 020 30
-----MOVE----- 64 000
;
proc cpm data=move out=sched date='1nov88'd;
act id;
dur duration;
succ sucess1-sucess7;
id activity;
run;
goptions border;
pattern1 v=e c=green;
pattern2 v=e c=red;
title h=1.5 j=l 'Project: Hospital Move';
proc netdraw data=sched graphics;
actnet / act=id succ=(sucess1-sucess7)
id=(activity) dur=duration separatearcs
nodefid nolabel
compress
carcs=blue
ccritarcs=red
noarrowfill;
format activity $char10.;
run;