home *** CD-ROM | disk | FTP | other *** search
- Const
- WIND01 : Array[3..15] Of Str80 = (
- 'Enter String : Enter Date :',
- '',
- 'Enter Time : Enter Phone :',
- '',
- 'Enter Word : Enter Integer :',
- '',
- 'Enter Byte : Enter Real :',
- '',
- 'Enter Sex : Enter YesNo :',
- '',
- 'Enter Social Security Number :',
- '',
- 'Select Normal Color : Reverse Color :'
- );
-
- TISS : Array[2..15] of Str80 = (
- '[ ] Arrest (cardiac and/or respiratory within past 48 hours).',
- '[ ] Intubation performed in ICU.',
- '[ ] Controlled ventilation (with/without PEEP).',
- '[ ] Controlled ventilation with intermittent or continuous muscle relaxant.',
- '[ ] IMV or assisted respirations (with /without PEEP).',
- '[ ] Spontaneous PEEP or CPAP.',
- '[ ] Supplemental oxygen via mask or nasal prongs.',
- '[ ] Spontaneous respirations via endotracheal tube or tracheostomy.',
- '[ ] Incentive spirometry/IPPB/inhalation therapy.',
- '[ ] Tracheostomy (within 48 hours).',
- '[ ] Tracheostomy care.',
- '[ ] Chest tube(s).',
- '[ ] Chest physical therapy (percussion, drainage).',
- '[ ] Tracheal suctioning of non-intubated patient.'
- );