Автоматизированное робоче місце оператора автоматизованого переговорного пункти і інформаційної системы

РЕФЕРАТ.

Текст ПЗ 113 з., 14 табл., 16 рис., 20 джерела, 5 прил.

АВТОМАТИЧНІ КАБІНИ, РУЧНІ КАБІНИ, АВТОМАТИЗОВАНИЙ ПЕРЕГОВОРНИЙ ПУНКТ, АВТОМАТИЗОВАНЕ РОБОЧЕ МІСЦЕ АВТОМАТИЧНОГО ПЕРЕГОВОРНОГО ПУНКТУ І ІНФОРМАЦІЙНОЇ СИСТЕМИ, ФОРМИ ОФОРМЛЕННЯ РУЧНИХ ЗАКАЗОВ.

Міжміський телефонний зв’язок — одне з найбільш оперативних видів зв’язку. Вона має важливого значення керівництво діяльністю підприємств, закладів із боку державних, суспільних соціальних і господарських організацій.

Міжміський телефонний зв’язок повинна працювати чітко, безперебійно. Працівники міжміського телефонному зв’язку з урахуванням свідомого, ринкового відносини «до праці і суворої виробничої дисципліни повинні культурно і уважно обслуговувати державних установ й українські підприємства, громадські організації та населення Украины.

Автоматизовані системи управління міськими відділеннями зв’язку є неодмінною атрибутикою сучасних переговорних пунктів загального користування. АПД ГОЭС представляє нове покоління АСУ цього з сімейства випущеної нами продукції, яка зарекомендувала себе ніж у трьохстах містах СНД, Балтії і поза рубежом.

У АПД ГОЭС реалізовані останні досягнення у цій галузі. АПД ГОЭС є комплексним виробом, сконцентрировавшим у собі всього спектра послуг наданий сьогодні на ГОЭС.

Існуючий нині рівень автоматизації достатній до виконання основних функцій надаваних послуг електрозв’язку населенню області, проте інформація, оброблювана відділом автоматизованих системам управління (АСУ) не забезпечує одержання прибутку за надані послуг у обсязі. Існуюча система надання з електрозв’язку населенню області призводить до прямим втрат коштів за наявної системи платежів. Чинна система розрахунків послуг міжміського електрозв’язку має істотними недоліками, основними у тому числі являются:

тривалий час оповіщення абонента про розміри та терміни сплати услуги;

наявність серйозних организационно#технических проблем контролю неплатежів і виконання санкцій через несплату (відключення телефона);

великий обсяг ручної праці (попри застосування ЕОМ), котрий знижує рівень оперативності підготовки даних, і який приводить помилки у систему розрахунків за услуги.

ЗАВДАННЯ НЕ ПРОЕКТ 2.

РЕФЕРАТ 3.

ЗАПРОВАДЖЕННЯ 7.

1. ХАРАКТЕРИСТИКА ОБ'ЄКТИ ПРОЕКТУВАННЯ.

1.1. Застосовувані технічні засоби.

1.2. Чинна методика обслуговування автоматичних кабін.

1.3. Чинна методика оформлення ручних замовлень.

2. ВИБІР І ОБГРУНТУВАННЯ СТРУКТУРЫ ПРОЕКТОВАНОЇ СИСТЕМИ.

2.1. Загальні відомості.

2.2. Обгрунтування вибору технічних засобів.

2.3. Програмне забезпечення АРМ АПД і ІВ.

3. ОСНОВНІ РІШЕННЯ ПО РЕАЛІЗАЦІЇ КОМПОНЕНТІВ СИСТЕМИ.

3.1. Загальні засади.

3.2. Принципи обслуговування автоматичних каналів.

3.3. Взаємодія системи DTM з АПП-РК.

3.4. Взаємодія оператора з АПП-РК.

3.5. Взаємодія системи DTM з інформаційної системою.

4. МЕТОДИКА РОБОТИ СПОЖИВАЧА З СИСТЕМОЮ.

4.1. Загальні відомості.

4.2. Методика роботи з автоматичними кабінами.

4.3. Методика роботи з ручними замовленнями.

4.4. Методика роботи з інформаційної системою.

5. ЭКОНОМИКО-ОРГАНИЗАЦИОННАЯ ЧАСТИНА.

5.1. Сутність мережного планування та управління.

5.2. Побудова мережевих графіків і - оцінка часу виконання.

5.3. Економічний розрахунок.

6. ОХОРОНА ПРАЦІ.

6.1. Значення охорони праці.

6.2. Організаційно-технічні заходи.

6.3. Заходи з виробничої санітарії і гігієну праці.

6.4. Заходи забезпечення пожежної безпеки.

ВИСНОВОК 79.

СПИСОК ВИКОРИСТАНИХ ИСТОЧНИКОВ 80.

Додаток 1: Специфікація компонентів системи 82.

Додаток 2: Текст програми АРМ АПД АК 83.

Додаток 3: Текст програми монітора АПП-РК 90.

Додаток 4: Текст програми АРМ АПД РК 98.

Додаток 5: Текст програми стартера монітора 112.

У процесі проведених досліджень колективом програмістів СП «ПРОНАН ltd» і субпідрядними організаціями: Центром інформаційних технологій Комітету з науці, і технологіям України та приватним підприємством «ГЕО» (р. Москва) було розроблено концепцію безпаперовій технології обробки інформації з розрахунках послуг електрозв’язку. Розроблено організаційні заходи щодо зміни системи платежів з урахуванням організації высокоавтоматизированных міських відділень електрозв’язку і районних вузлів электросвязи.

У процесі виконання роботи проведено обстеження основних підрозділів Запорізького центру технічної експлуатації міжміських телеграфно#телефонных зв’язків (ЦТЭ МТТС), безпосередньо з наданням послуг електрозв’язку для населення й підприємствам області. Структура ЦТЭ МТТС приведено на рис. 1.

Структура ЦТЭ МТТС.

рис. 1.

З розробленої й схваленої технічним радою замовника концепції розроблено основні попередні технічні пропозиції, позволяющие:

провести реорганізацію існуючих переговорних пунктів у высокоавтоматизированные відділення електрозв’язку міст і навіть районів області з скороченням витрат і розширення сфери послуг электросвязи;

розробити схеми побудови мережі обчислювальних коштів у базі микрокомпьютеров;

розробити систему обробки інформації та схему автоматизації виробничого і управлінського персоналу, що забезпечує достатній рівень якості надаваних послуг електрозв’язку яка має нині аналогів в Украине;

розробити зважену та схвалити технічним радою замовника безпаперову технологію розрахунків із населенням обласного центру послуг электросвязи.

Попередні спроби розробників СП «ПРОНАН ltd» автоматизувати роботу міських відділень електрозв’язку (ГОЭС) пройшли успішно. Одне з найбільш використовуваних коштів малої автоматизації АПП-РК (автоматизований переговорний пункт із ручною коммутацией).

Автоматизовані системи контролю та управління веденням міжміських телефонних розмов є неодмінною атрибутикою сучасних переговорних пунктів загального користування. АПП-РК представляє нове покоління пристроїв цього з сімейства випущених нами виробів: АПП-80, АПП-16, АПП-16/32, добре зарекомендували себе ніж у трьохстах містах СНД, Балтії і поза рубежом.

У АПП-РК реалізовані останні досягнення у цій галузі - інтелектуальна систему управління, електронні комутатори каналів, комп’ютерні канали зв’язку. АПП-РК є комплексним виробом, сконцентрировавшим у собі всього спектра устаткування, використовуваного сьогодні на переговорних пунктах надання послуг за ведення міжміських та Міжнародних переговорів. Будучи закінченим автономним виробом, АПП-РК до того ж час має канал зв’язки Польщі з автоматизованими системами вищого рівня, що дозволяє вбудовувати його як низової ланки систем АСУ.

1. ХАРАКТЕРИСТИКА ОБ'ЄКТИ ПРОЕКТИРОВАНИЯ.

1.1. Застосовувані технічні средства.

Відділення електрозв’язку оснащені двома типами кабін: ручними і автоматичними. Кабіни під'єднані до АПП-РК. Будучи закінченим автономним виробом, АПП-РК до того ж час має канал зв’язки й з автоматизованими системами вищого рівня, що дозволяє вбудовувати його як низової ланки систем АСУ.

Робота з автоматичними кабінами на ГОЭС використовуються АПП-РК як яке закінчила виріб. АПП-РК є мікропроцесорний пристрій з урахуванням МПУ-80. МПУ-80 повністю сумісна зі стандартним CPM машиною.

Основні функції при автоматичної зв’язку: подключение/отключение кабін з пульта оператора; фіксація початку розмови, його тривалості, і навіть коду зони, набираемого абонентом; реєстрація грошового задатку абонента, тарифікація часу розмови і обчислення залишку від задатку після закінчення розмови; завчасне повідомлення клієнта про закінчення оплаченого часу короткочасною подачею звукового сигналу; повідомлення клієнта про помилково набраному їм коді міста подачею безперервного звукового сигналу; автоматичне відключення абонента при вичерпанні задатку; печатку сповіщення після закінчення кожного розмови, печатку щоденника роботи оператора.

Основні функції при ручний комутації абонентів: включение/отключение кабін з пульта оператора; реєстрація вхідного вызывного сигналу по конкретної кабіні з дублюванням її оператора; захоплення та утримання лінії що викликає абонента із видачею на його адресу тонального сигналу; контроль якості зв’язку оператором у кожній із вибраних кабин.

Додаткові функції: індикація на передній панелі стану кабін переговорного пункту; підрахунок упродовж зміни кількості прийнятих від клієнтів грошей; формування зведеної таблиці доходів за всі кабін і прийнятим телеграмам; видача статистичної інформації з кабін; тарифікація телеграм (АПД як касовий апарат) і видача квитанцій на друкарка; оперативна зміна поточних тарифів з пульта АПП.

До складу АПП-РК входить: блок управління; принтер «Електроніка МС6313 »; телефонний трубка.

Основні технічні дані АПП-РК.

Тип котрий обслуговується кінцевого устрою телефонний апарат чи МТА.

Максимальне кількість обслуговуваних телефонних каналів 32.

Харчування 220 В +/- 10%, 50Гц.

Споживана потужність, трохи більше 40 Вт.

Вага блоку управління, трохи більше 12 кг.

З допомогою клавіатури оператор управляє роботою АПД, і навіть може вимагати виконання сервісних функцій. Уся інформація, необхідна до роботи оператора і обслуговування клієнтів, виводиться на принтер. Блок управління, яке у собі управляючу микро-ЭВМ (МПУ-80М) і комутаторів телефонних каналів (АК-8, РК-4), забезпечує контроль, управління економіки й формування результатів по наданих розмовам. До нього ж підключаються устрою ввода/вывода (клавіатура, принтер), і навіть індикаторні панелі (АК і РК) і що обслуговуються оконечные устрою (телефонні апарати, МТА). З допомогою телефонної панелі оператор може перевірити якість зв’язку в кабінах із ручною комутацією абонентов.

Блок управління полягає из:

керуючої микро-ЭВМ МПУ-80М,.

клавішній панели,.

плат комутаторів (чотирьох штук),.

індикаторних панелей (за однією кожну плату коммутатора),.

телефонної панели,.

блоку питания,.

кросс-платы.

Загальна кількість плат комутаторів неспроможна перевищувати чотирьох. Конкретне кількість плат АК і РК визначається замовником системи з потреб переговорного пункта.

Конструктивно блок управління виконаний у металевому корпусі з умонтованим касетою для установки модулів МПУ-80М і комутаторів. Усередині блоку АПП-РК розташовується блок харчування, вихідні напруги якого надходять на кросс-плату і далі на встановлювані її у модулі. Модулі блоку управління можуть розташовуватися у блоці в довільному порядку. До кросс-плате підключаються також індикаторні панелі і клавиатура.

Нижче коротко перераховані основні функції модулів блоку управления.

МПУ-80М — є управляючу микро-ЭВМ; управляє системи у цілому у відповідність до записаній программой.

Технічні дані МПУ-80М.

Тип мікропроцесора КР580ВМ80А.

Тактова частота 2,15мГц.

Обсяг ОЗУ на платі 4 Кбайт.

Максимально адресуемый обсяг ППЗУ (64+4) Кбайт.

Обсяг ППЗУ на платі до 32 Кбайт.

Максимально адресуемый обсяг ОЗУ (64+32) Кбайт.

##Інтерфейс послідовного вводу-виводу СТИК С2 чи ИРПС.

Швидкість передачі по інтерфейсу СТИК С2 і ИРПС 75, 150, 300, 600, 1200, 2400, 4800, 9600 бит/с.

Інтерфейс паралельного вводу-виводу 48 ліній ввода-вывода.

Система переривань пріоритетна восьмиуровневая.

Системна магістраль інтерфейс И-41.

Резидентное математичне забезпечення програма — монитор

Основні функції: управління модулями АК-8, РК-4; збирати інформацію про стан телефонних каналів, підключених до цих модулями; організація інтерфейсу з оператором (відпрацювання команд, впроваджуються з клавішній панелі; введення нових тарифів тощо. буд.); організація інтерфейсу з на принтері (печатку команд оператора, результатів їх виконання різноманітної інший информации).

АК-8 — модуль комутаторів телефонних каналів для автоматичної міжміського. Призначений для збору інформації про стан підключених щодо нього телефонних ліній (наявність переполюсовки, становище трубки) і навіть для комутації цих ліній з телефонними аппаратами.

РК-4 — модуль комутаторів телефонних каналів для ручний міжміського. Основні функції: комутація телефонних ліній і валовий збір інформацію про їхньому фінансовому стані. Можливе також підключення оператора контролю якості зв’язку, і навіть захоплення та утримання лінії що викликає абонента.

КЛАВИШНАЯ ПАНЕЛЬ — варта введення інформацією АПД (команди оператора, введення тарифів тощо. д.).

ТЕЛЕФОННАЯ ПАНЕЛЬ — є телефонний номеронабиратель з пам’яттю на 22 номера.

ПАНЕЛЬ П8 — варта індикації зайнятості кабін, підключених до модулями АК-8, і навіть становища телефонної трубки у тих кабинах.

ПАНЕЛЬ П4 — варта індикації зайнятості кабін, підключених до модулями РК-4, наявності у лінії тонального сигналу виклику, і навіть управління модулем РК-4 (захоплення та утримання лінії що викликає абонента, підключення оператора до лінії контролю якості связи).

БЛОК ХАРЧУВАННЯ — перетворює вхідний напруга мережі 220V в набір постійних напруг: +5V, +12V, -12V, забезпечуючи цим електроживлення всієї системы.

КРОСС-ПЛАТА — є ланцюгом між усіма переліченими вище модулями. З іншого боку, містить генератор тональних сигналів, використовуваних модулями АК-8 і РК-4.

Взаємодія блоку управління з зовнішніми устройствами.

З метою створення зручності в експлуатації весь обміну інформацією між блоком управління зовнішніми пристроями здійснено у вигляді стандартних интерфейсов:

блок управління і принтер — «Centronics «(ИРПР-М);

блок управління і АСУ — C2 чи ИРПС;

блок управління і АТС — через двухпроводную линию;

блок управління і оконечные устрою — через двухпроводную линию.

Програмне забезпечення АПП-РК міститься у ППЗУ микро-ЭВМ МПУ-80М. Його можна умовно розділити на дві части:

управляющее;

диагностическое.

Котра Управляє програмне забезпечення виконує функцій управління, контролю та сервісу переговорного пункту з цілому. Діагностичне програмне забезпечення призначено щодо профілактичних робіт на переговорному пункті, і навіть у пошуку і усуненні несправностей під час эксплуатации.

Програмне забезпечення адаптується постачальником АПД під АТС замовника. За бажання замовника може бути доповнене функціями та можливостей, які входять у вышеперечисленный стандартний набор.

1.2. Чинна методика обслуговування автоматичних кабин.

Управління автоматичними кабінами проводиться за допомогою блоку АПП-РК (автоматично переговорний пункт із ручною комутацією) з підключеним щодо нього на принтері. При внесенні клієнтом задатку оператор включає кабіну, вказуючи розмір задатку. Після закінчення розмови клієнт звертається до оператора, який відключає кабіну. Після відключення кабіни принтер друкує розмір залишку, кількість розмов та його тривалість, суму кажуть. Залишок повертається клиенту.

Уся звітність для роботи автоматичних кабін складає підставі роздруківки роботи автоматичних кабін, котра видається принтером.

1.3. Чинна методика оформлення ручних заказов.

При оформленні ручного замовлення заповнюється документ МТФ#4, є документом суворої звітності. Документи надходять відділення електрозв’язку як пачок по 100 примірників у кожної. Кожен документ має власний унікальний номер.

При заповненні форми МТФ#4 вказується викликаний населений пункт, телефон викликаний, список послуг (довідка, запросити до телефона тощо.), час прийому замовлення, номер оператора, прийняв замовлення, кількість заказываемых минут.

Після заповнення зазначених вище відомостей замовлення передається до станції. Причому у формі вказується час передачі замовлення і номер оператора станції, прийняв заказ.

При поєднанні до форми заноситься час виконання замовлення, номер оператора, виконав заказ.

Після закінчення розмови оператор станції передає оператору відділення електрозв’язку кількість хвилин розмови і свій номер. Залишок суми задатку повертається клиенту.

Що стосується неукладеного розмови у вигляді МТФ#4 робиться позначка причину зняття замовлення і номер оператора, що сфотографував замовлення, у своїй гроші повертаються клиенту.

По відпрацьованим формам МТФ#4 ведеться статистика про нових тата й несформованих розмовах різноманітні регіонам: області, Україні та СНД отдельно.

Останнім часом відділення зв’язку оснащені касовими апаратами класу «Онега». Цей касовий апарат дозволяє друкувати квитанцію із зазначенням поточної дати, номери відділення зв’язку й суми проведеної оплати, і навіть знімати свідчення у сумам, оформлених від останнього зняття цих показаний.

Касовий апарат дає можливість окреслити на вид оплати окремий унікальний номер (від 1 до 9) і вестиме оформлення квитанцій на окремі види оплат з підсумовуванням витрат на пальне окремо за кожним видом. При зняття інформацією кінці зміни роздруковуються суми на окремі види оплат, і навіть загальна зведення за всі прийнятим сумам. Касовий апарат дає змогу отримувати зведення за оплатою для окремого виду оплати із зазначенням в построчном вигляді всіх прийнятих сум. Що стосується оформлення повернення грошей клієнту по каким#либо причин, дана сума вводиться зі знаком «-», в зведеннях відображається з певним символом порятунку і до спільної сумі не додається, а вычитается.

Зняті показання з касового апарату служать для звітності відділенням зв’язку. Зведення з прийому оплат по квитанціям послуг, надані в кредит знімаються у кожної зміни і зшиваються разом із корінцями квитанцій для звітності з МГТС. Наприкінці зміни оператором виробляється також звіряння корінців квитанцій зі зведенням щодо правильності стягнення плати. Зведення з прийому телеграм також роздруковується наприкінці зміни і зшивається з заповненими бланками телеграм з попереднім звіренням сум по зведенню. Аналогічну операцію виробляється під час роботи з автоматичними і ручними кабинами.

2. ВИБІР І ОБГРУНТУВАННЯ СТРУКТУРЫ ПРОЕКТОВАНОЇ СИСТЕМЫ.

2.1. Загальні сведения.

АПД ГОЭС є апаратно-програмний комплекс, що включає у собі технічні і програмні засоби, дозволяють автоматизувати ряд дій персоналу міського відділення електрозв’язку чи районного вузла связи.

2.2. Обгрунтування вибору технічних средств.

Після дослідження об'єктів проектування, можна зробити висновок, що зручною від використання на ГОЭС (РУЭС) є така структура системы.

На кожному ГОЭС ставиться центральний комп’ютер, якого підключається необхідний даного ГОЭС набір технічних засобів: АПД, телеграфний адаптер, інформаційна система коштує тощо. На кожному відділенні електрозв’язку буде матись своя БД, куди входять у собі всі необхідні до роботи ГОЭС довідники і НСИ. І тут матиме місце надмірність інформації, т.к. кожному відділенні електрозв’язку буде дублюватися БД масиву квитанцій міста, картотеки квартирних вулиць, тарифів тощо. Та заодно досягається незалежність функціонування ГОЭС з інших ГОЭС, у зв’язку з що з’являється зокрема можливість використання АПД ГОЭС (РУЭС) як незалежної локальної системи, із можливістю зв’язування коїться з іншими машинами шляхом обміну в специфичном вигляді через машинні носії, а саме дискети, переносної винчестер.

Для розроблюваної системи висувається вимога у тому, що експлуатація программно#технического комплексу у частини рішення прикладних завдань має пред’являти особливі вимоги до кваліфікації користувачів й можуть бути яка орієнтована кінцевого користувача незалежно від цього, є він керівником чи виконавцем (оператором).

Виконання функцій комплексу програм системи має бути реалізовано із застосуванням сучасних засобів організації взаємодії з користувачем, включая:

звичні операторів назви об'єктів і действий;

вибір операцій у вигляді меню і функціональної клавиатуры;

вибір об'єктів і безкомпромісність дій з виведених на екран їх перечней;

висновок пояснюючих повідомлень будь-якою етапі работы;

технологічно близька до природному перехід від однієї операції в іншу під час вирішення задач.

Оскільки кожному ГОЭС формуватиметься своя технічна база, але з допомогою одному й тому ж системи, ми може матимуть можливість оперативно змінювати склад технічних засобів без зміни програмній частині і з мінімальними витратами модифікацію старої технічної бази, т.к. основу кожного ГОЭС стоятиме мінімальний набір технічних засобів, як показано нижче, а подальше його зміна відбуватиметься простим підключенням додаткових технічних засобів без зміни базовых.

АПП-РК добре зарекомендував себе як стійко працююче оконечное будова та це є достатня обгрунтування вибору її використання як контролера автоматичних і ручних кабін. У АПД ГОЭС АПП-РК використовують у ролі низового вузла АСУ.

Інформаційна станція є спеціалізований інтелектуальний термінал, який підключений на каналі ИРПС до локального серверу АПД ГОЭС. ІВ зібрано з урахуванням ПК «ПРИОР-001» є серійно выпускаемым виробом СП «ПРОНАН ltd». ПК «ПРИОР-001» є 8-разрядную одноплатную микро-ЭВМ і є аналогом вельми поширеного комп’ютера «Spectrum 48+» фірми «Sinclair».

Комп’ютер «ПРИОР®-001» виконано на сучасної елементної базі - інтегральних мікросхемах малої і середній ступеня інтеграції. Архітектура комп’ютера виходить з высокопроизводительном микропроцессоре Z80A фірми SGS-THOMPSON.

Спрощена блок — схема інформаційної станції представлена на рис. 2.1.

Схема інформаційної станции.

рис. 2.1.

2.3. Програмне забезпечення АРМ АПД і ИС.

З метою полегшення розробки програмного забезпечення використали єдиний підхід, що призвело до універсальності розробленого системного й ужиткового ПО під час використання їх у двох різних системах.

Програмне забезпечення АРМ АПД і АРМ ІВ підрозділяється на дві части.

1) Системне ПО, що забезпечує роботу відновлення всього комплексу з повним дотриманням наступних условий:

функціонування ОС в многопользовательском режимі з мінімальними витратами ресурсів последней;

робота у реальному чи псевдореальном масштабі времени;

забезпечення можливості роботи у локальної та глобальної мережах із використанням як виділених, і коммутируемых каналів связи;

використання коштів формування бази даних, яка має мінімальним часом доступу до даних і які забезпечують збереження й їх целостность;

наявність ефективного мови програмування і актори гарні інструментальні кошти на розробки прикладного програмного обеспечения;

можливість переносимості різні технічні платформы.

2) Прикладне програмне забезпечення задовольнять наступним требованиям:

має дружній інтерфейс з непрофесійним пользователем;

забезпечує адаптацію системи до постійно змінюваних умов эксплуатации;

має можливість швидкого розширення й зміни кола реалізованих функций;

максимально зручно реалізує зв’язок всіх функцій з централізованої базою данных;

забезпечує санкціонований доступом до інформації бази данных;

веде докладний протокол роботи користувачів системи та оборудования;

дозволяє оперативно і централізовано перерозподіляти ресурси системи адміністратору бази данных;

забезпечує наступність роботи з технічних засобах різної конфигурации.

Інструментальним засобом, що задовольняє вищенаведеним вимогам, і які забезпечують хороше співвідношення стоимость/производительность, є ОС ДТ-МАКС (DT-MAX) версії 6.0, що й застосовано у даному комплексе.

3. ОСНОВНІ РІШЕННЯ ПО РЕАЛІЗАЦІЇ КОМПОНЕНТІВ СИСТЕМЫ.

3.1. Загальні положения.

Розроблюване автоматизоване робоче місце оператора автоматичних кабін й інформаційної системи призначено до роботи на міських відділення електрозв’язку (ГОЭС) у складі автоматизованої системи управління АПД ГОЭС. АРМ АПД реалізовані за принципом віконного інтерфейсу з допомогою бібліотеки ДТМ-ПРО («DTM PRO»).

Реалізована в АРМ АПД концепція роботи забезпечує щонайсприятливіші умови з надання послуг телефонному зв’язку, і навіть зводить до мінімуму видатки його встановлення і эксплуатацию.

Користувальницький інтерфейс розробленої системи побудований в такий спосіб, що оператор, працював у системі, не зустрічає каких#либо специфічних особливостей під час роботи з кожного завданням, незалежно від цього якої підсистемі це завдання относится.

Функціонально виділена завдання оформляється як окремої програми, яка за запуску, оперуючи з загальносистемними перемінними і специфічними (спеціальними) даними даної системи, вирішує поставлене й повертається у точку виклику цієї программы.

Під час написання всіх програм широко використовується інтегрована середовище розробника, куди входять у собі пакет «UniForm » .

Цей пакет складається з процедур і державних функцій, дозволяють легко оперувати списками за її виведення на екран, організовувати спеціальні вікна висновку інформації різноманітних на екран. Крім цього, пакет містить редактор форм, дозволяє легко уявити вид виведеної на екран інформації, як статичного виду, і інформації, змінюваного своєю практикою. Це дозволяє організовувати різноманітних рядки # поля, в позиції яких виробляється введення та виведення мінливих інформації. Кожній такий рядку, крім позиції, задається унікальне ім'я, порядковий номер, визначальний послідовність у якому здійснюватися переміщення рядкам своєю практикою з цією формою виведення. Крім цього, кожному за поля виведення задається функцію контролю введення символів, що дозволяє поставити набір допустимих символів для введення. Цей пакет має широким набором типів використовуваних символів. Приміром, якщо зазначений тип поля «російські великі літери », незалежно від цього, що не режимі введення перебуває клавіатура, запроваджувані символи будуть змінюватися на чільні російські літери. Цей пакет дозволять встановлювати активні і пасивні кольору кожному за поля, і навіть імена процедур, які викликатися доі після звернення до цього полю вывода.

Крім описаних вище характеристик, даний пакет має низку можливостей, у яких не будемо загострювати внимание.

Програмне забезпечення АРМ АПД і ИС:

системне ПО;

прикладне ПО.

Системне ПО є операційну систему ДТМ (DTM) версії 6.0, що забезпечує функціонування розробленого прикладного ПО, і мовою якої дане прикладне ПО реализовано.

Під час розробки прикладного ПО використані такі інструментальні средства:

редактор проектов;

редактор форм;

пакет програм «DTM PRO», який реалізує кошти організації екранного інтерфейсу з пользователем.

Прикладне ПО є набір окремих програмних модулів, що реалізують всі функції АРМ АПД і ІВ. Для об'єднання цих модулів у єдиний програмний комплекс (проект) використовується редактор проектів, що є засіб для побудови ієрархічних меню, у кожному кінцевому пункті яких може викликатися певний програмний модуль. Система меню побудована в такий спосіб, що завдання, призначення яких дозволяє об'єднати в групи, перебувають у одному меню. Застосування такий підхід дозволяє будувати інтуїтивно і логічно зрозуміле дерево меню. Редактор проектів дає підстави використовувати «швидкі клавіші» для виклику будь-якого програмного модуля (пункту меню) із будь-якої меню проекту, ніж підвищується зручність користування системою, особливо в великих рівнях вкладеності меню.

Редактор форм дозволяє створювати різноманітні екранні форми, містять поля введення та виведення інформації різних типів, виконувати різні операції над формами (висновок екрана форми, висновок значень полів форми, опитування полів формы).

Пакет «DTM PRO» дозволяє організовувати сучасний і зручний екранний інтерфейс з користувачем, використовуючи уніфіковані кошти побудови різних списків, меню, діалогів. Використовуючи велику розмаїтість вхідних параметрів функцій даного пакета (розміри, кольору та т.п.), программист-разработчик може легко будувати необхідний діалог із пользователем.

3.2. Принципи обслуговування автоматичних каналов.

Для відстежування набору номери одночасно у 32 працюючих каналах і обслуговування периферійних пристроїв в АПП-РК реалізований псевдо-многозадачный режим який базується на теорії автоматів. Це дозволило б повністю використовувати ресурси мікропроцесора. Оброблювач переривань від зовнішніх пристроїв виставляє прапори різних подій, а автомати їх анализируют.

У АПП-РК реалізовані два одночасно працюючих автомата. Перший автомат реагує на події пов’язані зі змінами станів на лінії автоматичного каналу (підняття, укладка трубки; набір номери; датчики початку розмови). Другий автомат призначений на формування інформації для наступної передачі в канал в зв’язку зі локальним сервером АПД ГОЭС.

Процес відстежування подій що відбуваються на автоматичної лінії зв’язку прив’язаний до реального часу й вимагає негайної реакцію події. Серед АПД ГОЭС можливості автоматичними каналами збільшилися (проти можливостями АПП-РК як автономного устрою) і тому довелося зняти від нього функції тарифікації розмов, тобто. складні математичні операції, пов’язані з пятибайтовой арифметикою. Ці функції було покладено DTM.

3.3. Взаємодія системи DTM з АПП-РК.

АПП-РК спілкується з сервером на каналі ИРПС через мультипортовую плату типу ASTBOARD. Обмін інформацією відбувається зі швидкістю 2400 бод. Цією швидкості цілком достатньо даного обсягу переданої інформації та забезпечення надійності. Канал типу ИРПС допускає стійку передачу інформації з цією швидкість на відстань до 1 км.

Кожна команда що у чи що йде від АПП-РК закінчується символом «* ». Усі команди великі латинські літери. в табл. 3.1.

Таблиця 3.1.

Опис команд.

Команда Назначение.

E* Розв’язати передачу інформації. Цю команду слід передавати після вмикання або скидання АПП-РК, інакше АПП-РК утримуватиме усю інформацію у внутрішньому буфері (буфер не безрозмірний, близько 20 квитанций).

D* Заборонити передачу інформації. Після цієї команди АПП-РК утримуватиме усю інформацію у внутрішньому буфері (буфер не безрозмірний, близько 20 квитанцій) до надходження команди «Е*».

P.S* Список вільних кабін. АПП-РК повертає список вільних кабін (див. Передану информацию).

V* Стан кабин.

F* Поєднане команда станів і списку кабин.

Bn_s* Включити кабіну з номером n у сумі p. s. Якщо кабіна ручна то p. s — час у хвилинах. Ручну кабіну можна включити без завдання времени.

On* Відключити кабину.

L[строка тарифів]* Передати тарифи для АПП-РК. Формат рядки тарифів дивіться ниже.

P[строка установок]* Передати установки для АПП-РК. Формат рядки установок дивіться ниже.

Рядки тарифів є набір символів, у якому укладено пятибайтные значення тарифів. Перший байт рядки тарифів — розмір решти рядки. Другий байт рядки — номер сторінки тарифів (0 — міжміські, 1 — міжнародні). Далі по 5 байт йдуть тарифи відповідно по 0, 1, 2. зонам (їх то, можливо до 20 прим.).

Формат рядки установок приведено у табл. 3.2.

Таблиця 3.2.

Формат рядки установок.

Кількість байт Назначение.

2 ЧАС ВІДСУТНОСТІ МАНІПУЛЯЦІЙ У ПЕРІОДАХ TUPDOWN.

2 ЧАС ОЧІКУВАННЯ У РУЧНИЙ КАБІНІ З ПОКЛАДЕНОЇ ТРУБКОЮ У ПЕРІОДАХ TUPDOWN.

2 ПАУЗА ПІСЛЯ ПІДНЯТТЯ ТРУБКИ У ТИКАХ.

2 ПАУЗА ПІСЛЯ ПЕРШОЇ ЦИФРИ У ТИКАХ.

2 ЧАС ПІСЛЯ НАБОРУ ВСІХ ЦИФР ДО ВІДПОВІДІ АБОН. У TUPDOWN.

1 ЧАС БЕЗПЛАТНОГО РОЗМОВИ У ПЕРІОДАХ TUPDOWN.

1 КОД, ВИЗНАЧАЛЬНИЙ ТИП НАБОРА.

1 ПРАПОР МІЖНАРОДНОЇ СВЯЗИ.

1 ОЗНАКА ТАРИФІКАЦІЇ: 0FFh-ПОСЕКУНДНАЯ, 0-ПОМИНУТНАЯ, 1-ПОМИНУТНАЯ З ПЕРЕХОДОМ НА ПОСЕКУНДНУЮ.

2 ДИСКРЕТ ОКРУГЛЕННЯ ПРИ СЕК ТАРИФІКАЦІЇ (КОП, РУБ).

1 ПРАПОР ЧТЕНИЯ ПЕРЕМЫЧЕК.

2 ДВА БАЙТА ЗІ ЗНАЧЕННЯМ 0FFH.

1 тик — ¼ секунди, 1 період TUPDOWN — 1/80 секунды.

На події які у кабінах АПП-РК реагує передачею сообщений.

Формат повідомлення початок розмови: «ВВВ NC HH.MM.SS TARIF FD PHONE». Розшифровка полів повідомлення приведено в табл. 3.3.

Таблиця 3.3.

Розшифровка полів повідомлення «BBB».

Поле повідомлення Назначение.

PHONE Код+Телефон.

FD Номер цифри, з якого починається код зоны.

TARIF Тариф.

HH.MM.SS Час початку розмови (фіктивне, не беріть поганого в голову.).

NC Номер кабины.

Приклад повідомлення: «BBB 01 01.10.07 8000.00 00 951 234 567*».

Формат повідомлення про кінець розмови: «EEE NC MM. SS COSTF REST ZONE». Розшифровка полів повідомлення приведено в табл. 3.4.

Таблиця 3.4.

Розшифровка полів повідомлення «EEE».

Поле повідомлення Назначение.

ZONE Номер тарифної зоны.

#REST Остаток.

COST Вартість разговора.

MM.SS Тривалість разговора.

NC Номер кабины.

Формат повідомлення на команду списку вільних кабін: «SSS NC1 NC2T2 NCnTn*». Розшифровка полів повідомлення приведено в табл. 3.5.

Таблиця 3.5.

Розшифровка полів повідомлення «SSS».

Поле повідомлення Назначение.

Ti Тип кабіни (A — ред. P — ручн.).

NCi Номер кабины.

3.4. Взаємодія оператора з АПП-РК.

У АПД ГОЭС один оператор може виконувати безліч завдань: прийом кредитів, телеграм, обслуговування АК і РК тощо. Розмови в кабінах відбуваються в часу незалежно від цього, що робить оператор і реакція на повідомлення які надходять від АПП-РК має відбуватися відразу. І тому між процесом оператора і АПП-РК запускається тіньової процес який постійно підтримує зв’язку з АПП-РК. Передача інформації між процесами відбувається після глобальні перемінні. Тіньовий процес реалізований у модулях iapbckg і ipabckgsub. Крім зв’язки України із АПП-РК тіньової процес займається инициализацией АПП-РК, завантаженням системних установок, завантаженням тарифів, відстеженням аварійних ситуацій, формуванням записів в реєстрі, формуванням повідомлень для процесу оператори, формуванням журналу роботи АПП-РК. Опис глобальних змінних які у АРМ АПД наведено в табл. 3.6.

Таблиця 3.6.

Опис глобальних переменных.

Назва глобальної перемінної Вузол Назначение.

^appcab (і) стан i-отй кабины.

^appcab (i, j) сума і кількість розмов із j-той зоні в i-той кабине.

^appstat («CMD ») передача команди від процесу оператора у тіньовий процесс.

^appstat («STATUS ») стан тіньового процесса.

^appstat («TARIF », «AUTO8 », j) тарифи для СНД щодо j-той зоне.

^appstat («TARIF », «AUTO108 », j) тарифи для СНД щодо j-той зоне.

^appstat («SETUP ») системні установки на АПП-РК.

^appticket (i, n) квитанції по i-той кабіні для n-го разговора.

3.5. Взаємодія системи DTM з інформаційної системой.

Ідея інформаційної системи є нововведенням у сфері послуг наданих ЦТЭ МТТС споживачам. Найчастіше рядовий користувач не знає автоматичних кодів міст СНД і далекого зарубіжжя. Використання автоматичної телефонному зв’язку вимагає знання кодів. Споживач вимушений звертатися до оператора АПД за даної інформацією, ніж забирає в оператора робочий час. ІВ дає споживачеві досить швидко отримати потрібну йому информацию.

Крім кодів напрямів автоматичної телефонному зв’язку ІВ дає інформацію користувачам послуги МТТС, які має оплатити, що особливо необхідно під час переходу на безпаперову технологию.

Серед додаткової інформації котру видають ІВ є: тарифи послуги телефонного зв’язку і інформацію про підписних виданнях. Крім інформації ІВ використовують як рекламне табло з досить багатим набором функцій MULTIMEDIA.

ІВ спілкується з сервером на каналі ИРПС через мультипортовую плату типу ASTBOARD. Обмін інформацією відбувається зі швидкістю 9600 бод. Цією швидкості цілком достатньо даного обсягу переданої інформації та забезпечення надійності. Канал типу ИРПС допускає стійку передачу інформації з цією швидкість на відстань до 1 км.

4. МЕТОДИКА РОБОТИ СПОЖИВАЧА З СИСТЕМОЙ.

4.1. Загальні сведения.

Фундаментальна обізнаність із користувачем організована діалоговому режимі із системи меню для запуску програми, яка виконує потрібну функцію. Вибір пункту меню здійснюється переміщенням покажчика за пунктами і натисканням «ENTER» на потрібному чи натисканням «швидкої клавіші», у якому здійснюється виклик з будь-якого меню, незалежно від цього, що не меню перебуває оператор.

Під час розробки всього інтерфейсу віддали перевагу використанню чорно-білої гами квітів, оскільки використання чорно-білих моніторів дозволяє значно зменшити навантаження на зір оператора. З іншого боку, все програми розроблялися із застосуванням умови мінімуму виведення інформації на екран. Це пов’язано з тим, що всі програми будуть експлуатуватися на терміналах, швидкість виведення інформації яких немає дуже велика.

4.2. Методика роботи з автоматичними кабинами.

АРМ АПД запускається із системи АПД ГОЭС у вигляді вибору пункту меню УПРАВЛІННЯ АПП-РКУПРАВЛЕНИЕ АВТОМАТИЧНИМИ КАБІНАМИ, чи натисканням відповідної клавіші швидкого запуску. Поруч із АПД може працювати лише одне оператор. Після запуску АРМ АПД оператор побачить список кабін (рис. 4.1).

Форма екрана під час роботи з АК.

Рис. 4.1.

У верхню частину рамки показаний номер поточного оператора. У нижньої - список можливих клавіш та його назначение.

Зайняті кабіна позначені яскравим виділенням. Для кожної кабіни відображається задаток, залишок, тариф поточного розмови, тривалість поточного розмови, код міста Київ і телефон і соціальне становище кабіни.

Для включення кабіни необхідно натиснути клавішу F3 потім запровадити номер кабіни і задаток, який клієнт вносить до каси перед разговором.

Для вимикання кабіни необхідно натиснути клавішу F4 потім запровадити номер кабіни, після чого слід повернути клієнту залишок зображений на екрані по потрібної кабине.

Для перегляду протоколу розмов необхідно натиснути клавішу F6 і введення номер кабіни. Приблизна форма протокол зображено на рис. 4.2.

Протокол роботи кабины.

Рис. 4.2.

На прохання клієнта після вимикання кабіни можна роздрукувати квитанцію що відбулися розмов. Треба лише натиснути клавішу F5 потім запровадити номер кабіни. Приблизна форма квитанції зображено на рис. 4.3.

Форма квитанції кажуть в автоматичної кабине.

Рис. 4.3.

Для переходу до оздоблення ручного замовлення потрібно натиснути клавішу F8. Для виходу з АРМ АПД потрібно натиснути клавішу ESC.

У разі збою АПП-РК чи пропадания зв’язки України із ним АРМ АПД виводить повідомлення показане на рис. 4.4.

Аварійне сообщение.

Рис. 4.4.

У разі даного повідомлення необхідно задній панелі АПП-РК натиснути кнопку скидання і далі на клавіатурі термінала натиснути .

4.3. Методика роботи з ручними заказами.

При виклик модуля оформлення ручного розмови на екрані з’явиться список замовлень, зображений на рис. 4.5.

Список ручних заказов.

Рис. 4.5.

У частині рамки показаний список можливих клавіш та його призначення. У творчому списку відображається номер замовлення, номер оператора прийняв замовлення, назва країни, назва обласного центру, назва регіону, назва назви населеного пункту, певний час чи дату прийняття замовлення залежно від типу замовлення (поточний чи повідомлення), час очікування абонентом разговора.

Для отримання докладнішою інформації з замовлення потрібно натиснути клавішу F4. Вигляд докладну інформацію за поточного замовлення показаний на рис. 4.6, по повідомлення на рис. 4.7.

Форма оформлення поточного заказа.

Рис. 4.6.

Форма оформлення уведомления.

Рис. 4.7.

Для оформлення замовлення необхідно натиснути клавішу F2 потім вибрати тип замовлення (повідомлення чи поточний) і заповнити прототип форми МТФ-4 (див рис. 4.6., рис. 4.7).

Беручи замовлення, телефоністка переговорного пункту заповнює за словами абонента прототип форми МТФ-4 (див рис. 4.6, рис. 4.7), роздрукувати квитанцію ухвалення задатку видає її абоненту.

На квитанції має стояти календарний штемпель підприємства зв’язку.

Якщо прийом замовлень на розмови з цим містом регулюється, телефоністка переговорного пункту, приймаючи замовлення від абонента, повинна запитати телефоністки замовний служби, який час можна взяти замовлення. Отримавши відповідь, телефоністка переговорного пункту повинна узгодити період із абонентом.

Сума вносимой абонентом і щодо оплати заказываемый розмова визначається автоматично на основании:

тарифа;

вартості хвилини діалогу з викликуваним пунктом;

гаданої абонентом тривалості разговора;

вказаних у замовленні услуг.

Після прийняття у клієнта задатку оператор передає телефоном замовлення телефоністці замовного комутатори в коммутаторный зал і оформляє передачу на терміналі (клавіша ENTER). Пре оформленні передачі необхідно провести номер телефоністки прийняла заказ.

Якщо тривалість розмови за розрахунок готівкою і виконані платні відповідають зазначених у замовленні, телефоністка міжміського комутатори після закінчення розмови повідомляє оператору переговорного пункту тривалість що відбувся розмови і виконані послуги. Оператор вводить тривалість що відбувся розмови машину.

Якщо телефоністка міжміського комутатори повідомляє, що організувати неможливо надати розмова (немає викликаний особи, по викликуваному телефону не не відповіли й ін.), оператор негайно повідомляє відомості абонента, чекає на розмови. Якщо останній не називає іншої особи і згоден очікувати, оператор повідомляє звідси телефоністці міжміського коммутатора.

Якщо абонент відмовляється очікувати й знімає замовлення, оператор, як зняти замовлення, повинна запропонувати абоненту кілька послуг задля забезпечення разговора.

Якщо тривалість розмови виявиться менш оплаченої різниця видається абоненту оператором.

Якщо розмова не відбувся з вини станції чи абонент не хоче перенести його за інший час, то розмова знімається з сумою видається абоненту оператором. Причина зняття фіксується в машині. Машина повідомляє оператору суму залишку. Причини залишку перераховані в табл. 4.7.

Таблиця 4.7.

Причини снятия.

Код причини Опис причины.

ЗМС Відмова у момент соединения.

НВЛ Ні викликаний лица.

NoНО Номер не ответил.

ПВ Ушкодження связи.

ПС Погана связь.

ТІ Телефон испорчен.

ЗІ Сеанс окончен.

РМ Зв’язок під радіомовленням чи ДГТС.

ВК Зв’язок зайнята розмовами вищої категорії чи з терміновому тарифу.

ОДС Відмова до соединения.

ЗНЯ Абонент не явился.

При розрахунку квитанція, видана абоненту прийому замовлення, відбирається і знищується; на вимогу абонента йому видається квитанція вартість що відбувся разговора.

4.4. Методика роботи з інформаційної системой.

Оператор інформаційної системи зобов’язаний після ухвалення зміни включити інформаційну систему. Зазвичай роботу виконує оператор АПД. Перед запуском інформаційної системи оператор повинен перевірити або за необхідності внести в конфігурацію ІВ. При під час до пункту меню УПРАВЛІННЯ ІНФОРМАЦІЙНОЇ СИСТЕМОЙ/КОНФИГУРАЦИЯ ІНФОРМАЦІЙНОЇ СИСТЕМИ на екрані з’явиться список пристроїв зарезервованих для ІС та їхній стан (рис. 4.8). Унизу підписано можливі клавіші й їх назначение.

Форма екран при конфігурації інформаційної системы.

Рис. 4.8.

При редагуванні настройок або запровадженні нової станції на екран виводиться форма, показана на рис. 4.9.

Форма екрана при редагуванні настройок інформаційної станции.

Рис. 4.9.

Номер устрою відповідає номера канал, якого підключена ІВ. Якщо виставлено прапор монітора АПД, то інформаційна станція виконує функції табло розрахунків із АПД. Прапор «АКТИВНО» свідчить, що пристрій буде запущено під час запуску інформаційної системы.

5. ЭКОНОМИКО-ОРГАНИЗАЦИОННАЯ ЧАСТЬ.

5.1. Сутність мережного планування і управления.

5.1.1. Призначення й області использования.

Розвиток сучасної техніки усе зростаючій складністю. Ускладнюються конструкції створюваних машин і агрегатів, збільшується кількість різних пов’язаних ланок в механізованих та автоматизованих комплексах. Метою дослідження та проектування дедалі більше стає комплексне розв’язання питань впровадження нової техніки, створення не окремих машин, а цілих систем.

Під час створення складних об'єктів нової техніки виникає у координації різних науково-дослідних, дослідно-конструкторських, технологічних, виробничих, будівельних, монтажних, налагоджувальних та інших праць. Вони беруть участь у порядку кооперування багато підприємств різних галузей промисловості: проектні, дослідно-конструкторські, науково-дослідні й інші організації, діяльність яких задля забезпечення максимальній ефективності які розробок мусить бути тісно ув’язана у єдиний координаційний план, який передбачає закінчення відновлення всього комплексу робіт у задані терміни при мінімальних чи лімітованих издержках.

Плани робіт зі створення нової техніки повинні встановлювати як загальну тривалість всього процесу, а й тривалість і послідовність всіх назв робіт та його этапов.

При освоєння щодо простих об'єктів цієї мети що й широко застосовують стрічкові чи поетапні графіки. Цими графіках по горизонтальній осі відкладають час, а, по вертикальної перелічують усі роботи, чи етапи процесу (рис. 5.1).

При освоєнні складних об'єктів сучасної техніки планування та управління розробками їх необхідно виконувати з допомогою методів мережного планування та управління (СПУ). Ці методи дозволяють оптимізувати процес створення нової техніки, як за часом (забезпечувати мінімальну тривалість циклу), і за вартістю (забезпечувати мінімум затрат).

СПУ грунтується на графічному зображенні певного комплексу робіт, що відбиває їх логічний послідовність, взаємозв'язок і тривалість, із наступною оптимізацією розробленого графіка з допомогою методів прикладної математики обчислювальної техніки і його використання для поточного керівництва цими работами.

Стрічковий график.

Рис 5.1.

До основних областей застосування мережного планування та управління ставляться комплексні наукових досліджень, проектування підготовка виробництва складних об'єктів нової техніки, споруди інженерних та інші складних об'єктів, включаючи будівництво промислових (зокрема, машинобудівних) підприємств і цехов.

5.1.2. Основні поняття та визначенням.

Модель всього процесу створення цього об'єкта змальовується як орієнтованого графа, званого мережним графіком чи навіть мережею. Мережні моделі може мати детерміновану, стохастичную і змішану структуру.

У детермінованих моделях всі роботи проекту, їх взаємозв'язки й підвищити вимоги до очікуваним результатам робіт визначено. Якщо роботи включені із певною ймовірністю, структура мережевий моделі матиме випадковий. У змішаних моделях частина кузовних робіт входить у мережу детерміновано, а частина — із певною ймовірністю. Поняття детерминированности застосовується як до структури мережі, і до оцінок тривалості планованим робіт. Детермінованими прийнято зазвичай називати мережі, які мають і детермінованою структурою, і детермінованими оцінками тривалості робіт. Мережні графіки з детермінованою структурою, але з ймовірнісними оцінками називають вероятностными.

Елемент мережного графика.

Рис 5.2.

виготовлення дослідного зразка машини, а подією — момент роботи, у разі момент готовності зразка, після якого має розпочатися наступну роботу — його випробування і доведення. Отже, мережевий графік висловлює логічний послідовність і зв’язок подій, а кожна така подія є проміжним чи остаточним результатом одній або кількох виконаних работ.

На рис. 5.2 зображений фрагмент мережного графіка. Подія є такі гуртком із зазначенням у його послідовного номери, а роботи — стрілкою. Номер події у шпичаки стрілки кінцевого події j може бути більше номери початкового події і (від якого починається дана робота). Довжина стрілки графічно не висловлює тривалості виконання роботи, вона позначається числом днів чи тижнів і наноситься над стрілкою. Якщо переходу від однієї події до іншого непотрібен витрачати час, але в графіці необхідно зобразити взаємну зв’язок цих подій, їх з'єднують пунктирною стрілкою. Така називається фіктивної чи условной.

На рис. 5.3. зображений мережевий графік для дуже нескладного комплексу робіт з проектування і виготовлення стенда.

Повний шлях у мережному графіці - це будь-яка безперервна послідовність взаємозалежних подій та виконання робіт, провідна від події вихідного (початкового події всього мережного графіка) I до завершального (останньою подією мережного графіка) З. Крім повних шляхів L (I — З) слід различать:

шлях від вихідного події до даного проміжного події L (I — i);

шлях, котрий поєднує дане проміжне подія з завершальним, L (і - C);

шлях між двома подіями, з яких жодного одне перестав бути, ні вихідним, ні завершающим.

Мережний графік для комплексу робіт з проектування і виготовлення стенда.

Рис 5.3.

Серед цих шляхів особливе значення має тут критичний шлях — послідовність робіт від вихідного до завершального події, потребує найбільшого часу для свого виконання tmax [L (IЗ)]. Отже, тривалість робіт, лежачих на критичному шляху, визначає загальний цикл завершення відновлення всього комплексу робіт, планованих з допомогою мережного графика.

5.2. Побудова мережевих графіків і - оцінка часу виконання работ.

5.2.1. Стадії СПУ.

Мережне планування і управління проводиться у наступному з приблизною черговості. Розробки вихідного плана:

розчленовування комплексу робіт деякі етапи чи групи робіт, закрепляемое за відповідальними исполнителями;

виявлення і опис кожним відповідальним виконавцем всіх подій та виконання робіт, необхідні виконання поставленої проти нього кінцевої мети; побудова («зшивання ») первинної мережі, приватних та вільної сетей;

визначення часу виконання кожної роботи у мережі з урахуванням системи оценок;

розрахунки параметрів мережного графика;

аналіз мережного графіка й багато його оптимизация.

Розчленування комплексу робіт зі створення системи проводиться керівником головний організації, або технічним керівником проекту. Застосовуються два способу розчленовування комплексу робіт: шляхом розробки укрупненої сіті або побудовою схеми рівнів керівництва — ієрархічної структуры.

У першому випадку система підрозділяється на великі елементи, відповідні окремим машинам, агрегатам чи етапах робіт, навіщо будується укрупнений мережевий графік. Потім кожна машина, агрегат, етап діляться на вузли, подэтапы тощо. і кожний їхній них також складається мережевий график.

У другий випадок створювана система ділиться на складові елементи з побудови її ієрархічної структури (рис. 5.4). Проектування графіків кожному рівні вищого керівництва доручається керівникам, а нижчому — відповідальним исполнителям.

У щодо нескладному разі, наприклад, у разі планування підготовки виробництва будь-якого нового вироби, відповідними рівнями можуть быть:

1-ї (вищий) рівень — управління всієї технічної підготовкою производства;

2-ї рівень — конструкторська, технологічна, матеріальна подготовка;

3-й рівень — стадії конструкторської, технологічної та матеріальної підготовки производства;

4-й рівень — окремі комплекси робіт з кожної стадії підготовки производства.

Схема ієрархічна структури керівництва створенням нової техники.

Рис 5.4.

Створення ж складного вироби чи комплексу вимагатиме значно більшої кількості рівнів руководства.

Первинні мережі, споруджувані лише на рівні відповідальних виконавців, детализируются настільки, щоб було відбито вся сукупність робіт і всі взаємозв'язку подій та виконання робіт. Така деталізація перестав бути необхідної при «зшиванні «приватних мереж, кожна з яких об'єднує первинні мережі, складені під час цієї організації чи даному підприємстві. Первинні мережі, є елементами такий приватної мережі, можна ній укріплені. Окремі шляху, які з цілої низки взаємопов'язаних робіт і подій первинної мережі, може бути показані у вигляді одного роботи. Наприклад, вся первинна мережу для проектування і виготовлення стенда (див. рис. 5.3) то, можливо представленій у вигляді праці: «Проектування та вироблення стенда «з цими двома подіями «прийнято рішення з приводу створення стенда «і «Стенд готовий і налагоджений » .

Від первинних мереж у приватному мережі завжди повинні зберігатися звані граничні події, тобто. події, належать двом чи більшій кількості первинних мереж, і граничні роботи, тобто. роботи, які мають попереднє чи наступне подія є граничным.

Аналогічно будується і зведена мережу, тобто. мережу, що об'єднує сув’язь робіт, у якому зайнятий ряд організацій та підприємств. У одній зведеної мережі первинні і часткові мережі ще більше укрупнюються, проте у ній обов’язково показати граничні події приватних сетей.

Як у приватних, і у вільних мережах бажано докладніше показувати події та роботи, які стосуються критичного пути.

5.2.2. Опис і послідовність виконання подій та виконання робіт у первинному мережному графе.

Насамперед, необхідно виявити, якими подіями характеризуватиметься даний комплекс робіт, доручену що відповідає виконавцю. Кожне подія має характеризувати викінченості попередніх дій, наприклад, «Завершено випробування досвідчених зразків «чи «Проведено навчання обслуговуючого персоналу «і т.д.

Усі події та роботи, що входять до комплекс робіт, рекомендується звести в таблицю гаразд їх послідовність. Щоб уникнути неправильної оцінки на подальшому загальної тривалості розробки проекту необхідно старанно перевірити цей перелік. Наприклад, для мережі з 14-ти подій, які входять у процес створення АПД ГОЭС, перелік може бути прийнятий наступним (табл. 5.1).

5.2.3. Зшивання сети.

Кожен відповідальний виконавець, використовуючи складений їм перелік подій та виконання робіт, «зшиває «свою первинну мережу. Побудова мережі можна починати як від завершального події, поступово наближаючись до вихідному, і навпаки — від вихідного події до завершального; у лівій кінці її треба розташовувати вихідної (нульовий) подія, а правом — яким завершує (див. рис. 5.3).

Під час перевірки створеної мережі з її необхідно исключать:

" тупикові події «, тобто. від яких немає починається жодна робота (природно, крім завершального события);

події, якою передує жодна робота (крім вихідного события);

замкнуті контури (напрям стрілок, які відбивають послідовність виконуваних робіт, утворює замкнутий кольцо);

однакові коди для паралельних робіт між двома событиями.

Після упорядкування та перевірки первинних мережевих графіків, розроблюваних кожним відповідальним виконавцем для своєї групи робіт, переходять до сшиванию приватних і вільного мережевих графіків, тобто. до об'єднання всіх первинних мережевих графіків у загальну зведену мережу, яким завершує подія який відповідає кінцевої мети разработки.

Таблиця 5.1.

Перелік подій, які входять у процес створення АПД ГОЭС.

Порядковий номер події Подія Коди робіт Работа.

0 Рішення з приводу створення АПД ГОЭС прийнято 0,1 Розробка архітектури системы.

1 Архітектура АПД ГОЭС розроблена 1,2 Розробка бібліотеки функцій до роботи з пользователем.

1,3 Розробка бібліотеки функцій обслуговування роботи оператора АПД ГОЭС.

1,8 Розробка стикування АПП-РК з IBM PC і програм связи.

1,4 Розробка програм стикування з ЄС ЭВМ.

2 Бібліотека DTM-PRO створена 2,6 Створення екранних форм до ухвалення оплат.

2,5 Створення програми проектних решений.

2,7 Створення інтерфейсу оператора АК і РК.

3 Системна бібліотека створена 3,6 Створення процедур прийняття оплат.

4 Комплекс програм в зв’язку зі ЄС ЕОМ створено 4,10 Одержання БД необхідні нормально функціонувати системы.

5 Бібліотека DPPRJ58 створена 5,11 Створення системи меню та питаннями захисту АПД ГОЭС.

6 Комплекс прийому оплат створено 6,9 Розробка програм перегляду реєстрів ГОЭС.

7 Комплекс програм настройки системи створено 7,10 Впровадження комплексу у систему.

8 АПП-РК підключено до IBM PC 8,7 Створення програм настройки системи працювати з АПП-РК.

8,6 Створення програми оператора АК і РК.

продовження табл. 5.1.

Порядковий номер події Подія Коди робіт Работа.

9 Комплекс програм перегляду реєстрів створено 9,10 Состыковка комплексу коїться з іншими программами.

10 Комплес програм адміністрування створено 10,11 Об'єднання створених програм, у єдину систему.

11 Усі створені комплекси об'єднують у єдину систему 11,12 Тестування системи за умов работы.

11,13 Написання документації по створеної системе.

12 Тестування системи закінчено 12,14 Впровадження системи в производство.

13 Написання документації закінчено 13,14 Навчання персоналу з готової документации.

14 АПД ГОЭС створено, і впроваджений.

Практика застосування СПУ показує, що за наявності у системі до 300 подій всі розрахунки через мережу можуть бути проведені вручну або за допомогою счетно-клавишных машин. Більша число подій зумовлює необхідність застосування ЕОМ та збільшення використання спеціальних программ.

5.2.4. Визначення часу виконання кожної роботи з основі системи оценок.

Для планування тривалості робіт необхідно користуватися відповідними нормативами і узагальненими досвідченими даними. За умов їх відсутності використовують три оцінки часу, надані відповідальними виконавцями з кожної роботі: мінімальне, максимальне, найбільш ймовірне час — чи дві: мінімальне і забезпечити максимальне час. Ці оцінки зазвичай виражаються у днях чи неделях.

Якщо від відповідального виконавця роботи зажадати тільки один оцінку часу tн.в., виникає небезпека, що вони можуть виявитися нереальною, але це порушить весь графік роботи за проектом, особливо, якщо дана робота буде лімітувати термін розробки в целом.

Мінімальна час tmin — мінімально можливе час виконання даної роботи. Можливість виконання роботи би за таке час невелика. Максимальне час tmax — це максимальне час виконання даної роботи за крайньої невдалому збігу обставин, наприклад, принагідно руйнації яке відчуває вироби, виявлення неправильності шляху, обраного на дослідження, тощо. Нарешті, найбільш ймовірне час tн.в. — можливе час виконання даної роботи за умови, що ні виникне якихось особливих і несподіваних трудностей.

Найімовірніша оцінка часу tн.в. може бути прийнято ролі величини очікуваного часу виконання кожної роботи tож, позаяк у вона найчастіше найбільш ймовірне час оцінюється відповідальним виконавцем по-різному: тільки в випадках — ближчі один до мінімального, за іншими — саме до середнього, тобто., зазвичай, нічого очікувати збігатися з очікуваним. Тож визначення очікуваного часу виконання кожної роботи отримані оцінки піддають статистичної обробці, допустивши, що ймовірності тривалості виконання будь-який роботи розподіляються відповідно до законом бета розподілу. Тогда:

Середнє квадратическое відхилення приймається рівним 1/6 розмаху, т. е.

Квадрат ?tож називається дисперсией і є мірою розкиду очікуваного времени:

Дослідження радянських математиків показали, що з помилкою, який перевищує 1%, може здійснюватися і з двом оцінкам часу tmin і tmax. Запропоновані ними рівняння мають наступний вид:

Рішення двох рівнянь кожної роботи дає необхідні значення очікуваного часу й його дисперсию, потрібну з оцінки ймовірності звершення подій у поставлене срок.

Знайдені значення tож заносять в таблицю і мережі над роботою проставляють оцінки часу (див. рис. 5.3).

Застосовуваний в обох випадках (при двох чи трьох оцінках) метод усереднення тривалості робіт, отриманих виходячи з ймовірнісних оцінок, дозволяє імовірнісного мережу розглядати, як детерминированную.

5.3. Економічний расчет.

Автоматизований переговорний пункт міського відділення електрозв’язку є апаратно-програмний комплекс, що включає у собі технічні і програмні засоби, дозволяють автоматизувати ряд дій персоналу міського відділення електрозв’язку чи районного вузла зв’язку в частности:

управління автоматичними кабінами міжміського телефонної связи;

управління прийомом і обслуговуванням розмов при комутації ручних міжміських разговоров;

прийом і що передача телеграфних сообщений;

" перенесення у плечі «користувача інформування про кодах міст далекого і близького зарубіжжя, міст і навіть районів України задля автоматичної телефонному зв’язку, послуги електрозв’язку, наданих кредит, про переліку підписних видань, про можливість подачі різноманітних объявлений;

виконання послуг за рекламі з допомогою інформаційної системи, входить до складу АПД ГОЭС (РУЭС).

автоматизація процесів передачі телефаксов;

автоматизація процесу набуття оплат послуг поштової і електричної связи;

автоматизоване формування різних реєстрів і щоденника роботи АПД ГОЭС (РУЭС) з накопиченням інформації з різним периодам;

завантаження і розвантаження інформацію про послугах, які у кредит, розрахованих централизованно;

ведення довідника співробітників АПД ГОЭС (РУЭС) із забезпеченням парольної захисту та рівня доступу до системи різних категорій операторов;

настроювання параметрів на конкретні умови застосування АПД ГОЭС (РУЭС).

5.3.1. Визначення витрат за розробку программы.

Основна зарплата на 1 людини протягом місяця 80.00 $.

Основна зарплата 5 чоловік за 2 місяців 800.00 $.

Додаткова зарплата 800.00 $*13%= 104.00 $.

Сума відрахувань від зарплати 904.00*52%= 470.08 $.

Матеріали й устаткування 500.00 $.

Накладні витрати 800.00*300%=2 «400.00 $.

Прибуток (2 «400.00+ 500.00+ 470.08+ 904.00)*25% = 4 «274.08*0.25%=1 «068.52 $.

Податок на додаткової вартості 5 «342.60*20%=1 «068.52 $.

Розрахунок витрат приведено у табл. 5.2.

Таблиця 5.2.

Розрахунок затрат.

Витрати Сума, $ Питома вага до ПІДСУМКУ, %.

Основна зарплата 800.00 12.48.

Додаткова зарплата 104.00. 1.62.

Сума відрахувань від зарплати 470.08. 7.33.

Матеріали й устаткування 500.00 7.80.

Накладні витрати 2 «400.00 37.43.

Прибуток 1 «068.52 16.67.

ПДВ 1 «068.52 16.67.

РАЗОМ ($) 6 «411.12 10 «000.00.

РАЗОМ (крб.) 6 «411.12 $*200 «000=1 «282 «224 «000.00 крб.

Розрахунок експлуатаційних витрат до впровадження АПД ГОЭС приведено у табл. 5.3.

Таблиця 5.3.

Витрати до впровадження АПД ГОЭС при кол-ві квитанцій 150 000 прим. в месяц.

Расчитываемый параметр У Расчет.

Розмір квитанції, м2 0.021.

Площа расходуемой паперу на м2 на місяць. 3150 0.021*150 000.

Ціна 1 м² папери, крб. 30 158.

Витрати папір місяць, крб. 94 «997 «700 3150*30 158.

Вартість розноски 1 квитанції, крб. 5000.

Витрати разноске квитанцій на місяць, крб. 750 «000 «000 5000*150 000.

Швидкість друку принтера щонайменше квит/мин 50.

Потужність принтера кВт 0.6.

Вартість 1кВт*ч, крб. 5500.

Витрати електроенергію, споживану на принтері на місяць, крб. 165 «000 (0.6*5500)* ((150 000/50)/60).

Вартість принтера, крб. 140 «000 «000.

Амортизаційні витрати (11% вартості принтера в год*1/12) на місяць. 1 «283 «333 140 000 000*0.11/12.

Разом на місяць, крб. 846 «446 «033.

Разом на рік (12 місяців), крб. 10 «157 «352 «396.

Идовнед=10 «157 «352 «396 крб.

Розрахунок вартості КТС одне відділення зв’язку приведено у табл. 5.4.

Таблиця 5.4.

Розрахунок вартості КТС одне відділення зв’язку.

Найменування У, прим. Ціна за прим., $ Сума, $.

Робоча станція IBM PC/AT386 1 700 700.

Термінал КРОН-180 2 200 400.

Принтер Panasonic KX-130 2 100 200.

АПП-РК 1 500 500.

Інформаційна станція 1 200 200.

Разом 2 «000.

Разом в крб 400 «000 «000.

Розрахунок витрат після запровадження АПД ГОЭС в табл. 5.4.

Таблиця 5.5.

Витрати після запровадження АПД ГОЭС.

Расчитываемый параметр У Расчет.

Кількість відділень зв’язку, прим 26.

Потужність КТС відділення зв’язку, кВт*ч 0.3.

Час роботи відділення зв’язку на місяць (14 годин * 365.25 дня), год 5 «114.

Вартість 1кВт*ч, крб 5 «500.

Вартість електрики попри всі відділення зв’язку, крб 219 «390 «600 26*0.3*420*5500.

Амортизаційні Витрати все відділення зв’язку (11% вартості обладнання рік), крб 1 «144 «000 «000 400 000 000*0.11*26.

Поточний ремонт (3% вартості обладнання рік), крб 312 «000 «000 400 000 000*0.3*26.

Інші витрати (3% вартості обладнання рік), крб 312 «000 «000 400 000 000*0.3*26.

Загальні витрати на рік, крб 1 «987 «390 «600.

Розрахунок капітальних вкладень приведено у табл. 5.6.

Таблиця 5.6.

Капітальні вкладення на АПД ГОЭС.

Найменування вартість крб.

Вартість КТС на 26 відділень связи (КТС на відділеннях зв’язку задіяні лише до роботи з цією системою) 10 «400 «000 «000.

Вартість розробки ПО 1 «282 «224 «000.

Разом 11 «682 «224 «000.

Визначення економічної эффективности.

Еге =Идовнед — Ипосле — Sрп/(n*Тс)= 10 «157 «352 «396−1 «987 «390 «600−256 «444 «800 = 7 «913 «516 «996.

ТОК = К/Э =11 «682 «224 «000/7 «913 «516 «996= 1.48.

Річна від впровадження АПД ГОЭС дозволяє окупити видатки розробку комплексу у перебігу 1.5 року. Отже вже півтора року і комплекс почне приносити прибуток близько 8 млрд. в год.

6. ОХОРОНА ТРУДА.

6.1. Значення охорони труда.

Охорона праці - це система правових, соціально-економічних, організаційно-технічних, санітарно-гігієнічних і лікувально-профілактичних заходів і коштів, вкладених у збереження здоров’я та перемоги працездатності людини під час труда.

Державна політика у сфері охорони праці виходить з принципах:

пріоритету життя і здоров’я робітників стосовно результатам виробничої підприємств, повну відповідальність власника за створення безпечних і нешкідливих умов труда;

комплексного вирішення завдань охорони праці в основі національних програм з цих питань з урахуванням інших напрямів економічної та політики, досягнень у царині науку й техніки і охорони навколишнього среды;

соціального захисту працівників, повного відшкодування збитків особам, потерпілим від нещасних випадків з виробництва і фахових заболеваний;

встановлення єдиних нормативів з охорони праці всім підприємств, незалежно від форм власності і деяких видів своєї діяльності, використання економічних методів управління охороною праці, проводити політику пільгового оподаткування, що сприяє створенню безпечних і нешкідливих умов праці, участі у фінансуванні заходів із питанням охорони труда;

забезпечення координації діяльності державні органи, установ, громадських організацій і об'єднань громадян, вирішальних проблеми охорони здоров’я, гігієни та безпеки праці, і навіть співробітництва Києва та провести консультації між власниками та працівниками, поміж усіма соціальними групами після ухвалення рішень щодо охорони праці на місцевому і державному уровнях;

міжнародного співробітництва у сфері охорони праці, використання світового досвіду роботи для поліпшення умов та підвищення безпеки праці. /1/.

Повністю безпечних і нешкідливих виробництв немає. Завдання охорони праці - мінімізувати ймовірність від нещасного випадку або навіть захворювання котрий з одночасним забезпеченням комфортних умов за максимальної продуктивність праці. /7/.

Діяльність користувача видеотерминала залежить від основному спостереженні за що з’являються сигналами, ухваленні рішення та використання прийнятих рішень чи вступників команд. Нерідко робота виконується відповідно до жорстким алгоритмом, наприклад, введення інформації, часто що супроводжується проявом монотонии.

За інших випадках робота пов’язані з діалогом, які мають інтенсивну розумову навантаження, у результаті людина знаходиться у постійній готовності до дій, нерідко тримають у умовах дефіциту часу. Така робота часто супроводжується високим нервово-емоційним напругою, прояв якого накладає певні обмеження на режим работы.

Можна виділити три основні види робіт, у виконання яких використовують дисплеи:

1) введення і редагування даних, які характеризуються високої швидкістю введення інформації, невеликими перервами у роботі, низькою потреби у обмін інформацією та її невеличкої частотою прийняття рішень. Робота не потребує великої розумового напруги, частіше монотонная.

2) Діалогові види робіт — з документами, екраном і клавіатурою, які характеризуються середньої швидкістю введення інформації, часто що супроводжуються перервами різної тривалості, непостійної (неритмічної) потреби у обмін інформацією з ЕОМ, з прийняттям решений.

3) Налагодження програм — робота переважно з екраном і документацією, які характеризуються низькою швидкістю введення інформації, частими перервами на обробку інформації та очікування реакцій у відповідь ЕОМ, великий потреби у обмін інформацією і високої частотою прийняття рішень. У цьому обсяг інтелектуальних зусиль, витрачених в різних стадіях розробок, залежить від індивідуальних особливостей, якості программы.

Залежно від виду користувача у системі «людина-дисплей «можуть переважати сенсорно-перцептивная, моторна або інтелектуальна діяльність (наприклад, у операторів підготовки даних переважає сенсорно-перцептивная і моторна діяльність, тоді як в інженерів-програмістів — интеллектуальная).

Особливістю роботи за дисплеєм є й значну емоційну напругу функцій зорового аналізатора, обумовлене необхідністю розрізнення самосветящихся об'єктів (символів, знаків тощо.) за наявності відблисків на екрані, мигтінням зображення, недостатньою чіткістю об'єктів различения.

Умови праці користувача, котрий з дисплеєм, визначаються умовами висвітлення приміщенні дисплейного залу і робоче місце; параметрами мікроклімату; эргономическими характеристиками основних елементів робочого места.

Відповідно до ст. 22 закону України «Про охорону праці «однією з важливих підрозділів колективного договору би мало бути комплексні заходи щодо досягненню встановлених нормативів безпеки, гігієни праці та виробничого середовища, підвищенню існуючого рівня охорони праці, запобіганню випадків виробничого травматизму, професійних захворювань, і аварий.

6.2. Організаційно-технічні мероприятия.

Це система організаційних заходів і технічних засобів, предотвращающая чи що вчетверо-вп'ятеро зменшує вплив на працюючих небезпечних і шкідливих виробничих факторов.

Небезпечний виробничий чинник — чинник, вплив якого на працював у певних умов призводить до травмі чи іншому раптового різкого погіршення здоровья.

Шкідливий виробничий чинник — чинник, вплив якого на працював у певних умов призводить до захворювання чи зниження працездатності. /8/.

Небезпечні й шкідливі виробничі чинники поділяються за своєю природою дії ми такі групи: фізичні, хімічні, біологічні, психофізіологічні. /9/.

Працюючи дисплея утворюється ряд фізичних чинників, зокрема, як-от гама, рентгенівське, мікрохвильове, радіочастотне, ультрафіолетове, видиме і інфрачервоне випромінювання, рівні яких значно нижчі від гранично допустимих. Поруч із на робочих місць із функціонуючими видеотерминалами створюється електростатичне полі між екраном і оператором. /11/.

Автоматизована програмно-апаратна система розрахунків послуг міжміського електрозв’язку розроблена до роботи з персональними ЕОМ класу IBM PC/AT, що забезпечує високій надійності у процесі експлуатації даної системы.

Система працює у інтерактивному режимі роботи, у якому користувач взаємодіє зі стандартними пристроями виводу-введення-висновку, повністю відповідають вимогам безопасности.

Приміщення за рівнем небезпеки поразки електричним струмом належить до класу приміщень без підвищеної опасности.

Матеріали конструкції устаткування не надають небезпечного і шкідливого на організм людини в усіх режимах роботи, передбаченими умовами експлуатації, і навіть не створюють пожаро і вибухонебезпечні ситуации.

Конструкція обладнання та його окремих частин виключає можливості їх падіння, перекидання і довільного усунення попри всі передбачених умовах эксплуатации.

Для персоналу відділень електрозв’язку небезпечна електричний струм. Безпека експлуатації устаткування забезпечується комплексом заходів безпеки, застосуванням захисних засобів і правильної організації експлуатації діючих электроустановок.

Задля більшої захисту від випадкового торкнутися токоведущим частинам застосовуються такі кошти та средства:

захисні оболочки;

захисні ограждения;

безпечне розташування токоведущих частей;

ізоляція токоведущих частин (робоча, додаткова, посилена, двойная);

ізоляція робочого места;

мале напряжение;

захисне отключение;

попереджувальна сигналізація, блокування, знаки безопасности.

Задля більшої захисту від поразки електричним струмом при дотику до металевим нетоковедущим частинам, які можуть бути під напругою внаслідок ушкодження ізоляції застосовують такі способы:

захисне заземление;

зануление;

вирівнювання потенциалов;

захисне отключение;

ізоляція нетоковедущих частей;

електричне поділ сети;

мале напряжение;

контроль ізоляції та інших. /10/.

На робочих місць операторів встановлено розетки з напругою 220 В.

Усе обладнання надане підтримується у стані і обслуговується фахівцями цеху технічної експлуатації міжміського телефонно-телеграфної зв’язку. У разі несправності устаткування, оператор негайно повідомляє про несправності на даний підрозділ МТТС.

Ізоляція складових частин устаткування, доступних для доторку, повністю забезпечує захист людини від поразки електричним током.

Робоча місце до виконання робіт сидячи організують при легкої роботі, яка потребує вільного пересування працюючого. Пристрій робочого місця та взаємне розташування усіх її елементів (сидінні, керівні органи, кошти відображення інформації та т.д.) відповідають антропометричним, фізіологічним і неординарним психологічним вимогам, і навіть характеру работы.

Эргономическая організація робочого місця, оснащеного дисплеєм, враховує специфіку конкретного робочого місця та особливості виконуваних користувачами завдань із застосуванням видеотерминала ЭВМ.

До основним эргономическим завданням організації робочого місця относятся:

визначення просторових параметрів робочого місця та його елементів, відповідних антропометричним характеристикам контингенту работающих;

оптимальне розміщення елементів робочого місця щодо користувача з урахуванням аналізу його деятельности.

Основними параметрами робочого місця, оснащеного дисплеєм, є 20 позицій (табл. 6.1). Робоча місце зображено на рис. 6.1.

Таблиця 6.1.

Просторові параметри робочого места.

Умовне позначення параметра Параметр Спосіб виміру параметра Ступінь необходи-мости регулирова-ния Значение параметри мм (() Примечание.

1 Висота сидіння Від статі до верхньої площині сидіння Необхідна 400−500 Регульований параметр

2а Висота клавіатури Від статі до нижнього низки клавіатури Бажана 600−750 620−700 Діапазон регулювання Для нерегульованої высоты.

2б І це (від рівня столу) Від базової поверхні до нижнього низки клавіатури -«- Близько 20 За необхідності клавіатуру можна вбудувати в поверхню стола.

3 Кут нахилу клавіатури Від горизонталі Можлива (7−15) Залежить від висоти клавиатуры.

4 Ширина основний клавіатури Визначається оптимальної зоною моторного поля відповідно до ГОСТу 12.2.032−78 -«- Не більш 400 Додаткові блоки і клавіші, нечасто використовувані, можуть бути у зоні легкої досяжності поза основний клавиатуры.

5 Глибина основний клавіатури І це -«- Не більш 200 Те же.

6 Віддаленість клавіатури від краю столу Від переднього краю столу до нижнього Можлива Так само 80−100 При нерухомому кріпленні клавиатуры.

7 Висота екрана Від статі до нижнього краю екрана Бажана 950−1000 970−1050 Діапазон регулювання За відсутності регулировки.

8 Кут нахилу екрана Від вертикалі -«- (0−30 =15() опт Залежить від висоти екрана щодо глаз.

Продовження табл. 6.1.

Услов-ное обозна-чение пара-метра Параметр Спосіб виміру параметра Ступінь необходи-мости регулирова-ния Значение параметри мм (() Примечание.

9 Віддаленість екрана від краю столу Від переднього краю столу до екрана дисплея -«- 500−700 500 Діапазон регулювання За відсутності регулировки.

10 Висота поверхні для записи Від статі -«- 670−860 725 Діапазон регулювання За відсутності регулировки.

11 Площа поверхні для записи Визначається оптимальної зоною моторного поля -«- 600×400 900×600 Прямокутної форми Трикутною формы.

12 Кут нахилу поверхні для записи Від горизонталі Можлива (0−10) Для постійної письмовій роботи Для періодичних записей.

13а 13б Глибина простору для ніг лише на рівні: колін ступнів Від переднього краю столу -«- 0 Так само 400 Так само 600.

14а 14б Висота простору для ніг лише на рівні: колін ступнів Від статі Можлива Так само 600 Так само 100 Для нерегульованої висоти стола.

15а 15б Ширина простору для ніг лише на рівні: колін ступнів Можлива Так само 500 Так само 250 Параметр необхідний за наявності бічних тумб чи аналогічного оборудования.

16 Висота підставки для ніг Від статі до передній частини підставки Бажана 50−130 80 Регульована величина Нерегулируемая.

Продовження табл. 6.1.

Услов-ное обозна-чение пара-метра Параметр Спосіб виміру параметра Ступінь необходи-мости регулирова-ния Значение параметри мм (() Примечание.

17 Кут нахилу підставки для ніг Від горизонталі -«- (0−25) (15) Діапазон регулювання Нерегульована величина.

18 Глибина підставки для ніг Від переднього до заднього краю -«- 400.

19 Ширина підставки для ніг -«- 300.

20 Пюпитр-подставка для документів Від горизонталі -«- 15(-20(.

Робоча місце користувача ЕОМ (позначення на рис 6.1 відповідають відзначеним в табл. 6.1).

Рис 6.1.

Відстань від очей користувача до екрана дисплея становить 500−700мм, кут зору 10−20(, але з понад 40 кримінальних (; кут між верхнім краєм видеотерминала і вищий рівень очей оператора не перевищує 10(. Кращим є розташування екрана перпендикулярно до лінії зору пользователя.

Конструкцією робочого місця забезпечене оптимальне становище працюючого. Руки користувача розташовуються робочому столі в горизонтальному становищі чи злегка похило, кут ліктя має становити 70−90(. Необхідна хороша опора для спини і сідниць. Стегна розташовуються паралельно підлозі. Ноги стоять тривіально на підлозі чи підставці. /13,14,15/.

Задля більшої зручності у разі виконання інтенсивної роботи перевагу надають відокремлюваної клавіатурі. Вбудовані клавіатури більш прийнятні компактних настільних дисплеїв, виділені на періодичного пользования.

Робітники місця, обладнані дисплеями, розташовані в такий спосіб, щоб у зору оператора не потрапляли вікна і освітлювальні прилади. Видеотерминалы розміщуються з точки 90−105(до вікна на відстані щонайменше 2.5−3 м від стіни з віконними проемами.

У центрі зору оператора, котрий з дисплеєм, не потрапляють поверхні окружностей середовища, які мають дзеркальним відбитком. Співвідношення яскравості екрану й найближчих поверхонь відображення вбирається у 5:1. Покриття столу матове з коефіцієнтом відображення 0.25−0.4. /12/.

6.3. Заходи з виробничої санітарії і гігієну труда.

Приміщення, оснащені дисплеями, вміщено у північної чи північно-східній частини будинку. Якщо ж ж приміщення орієнтоване на південь, передбачені сонцезахисні устрою (жалюзі, штори і т.п.).

Обсяг виробничих приміщень одного працюючого становить менше 15 м³, а площа приміщень — щонайменше 4.5м2. Відстань між робочими місцями, обладнаними дисплеями, щонайменше 1 м між рядами.

У приміщеннях, обладнаних видеотерминалами, стіни вирізняються фарбами пастельних тонів з коефіцієнтом відображення 40−60%. Забарвленні поверхонь підпорядкована матова фактура. /12/.

У залах обчислювальної техніки та інших виробничих приміщеннях і під час робіт операторського типу, що з нервово-емоційним напругою, дотримуються оптимальні величини температури повітря 22−24(за його відносної вологості 40−60% і швидкість руху повітря трохи більше 0.1м/с. /16/.

Приміщення обладнано установками кондиціонування повітря. Системи вентиляції й кондиціонування повітря оснащені пристроями для виброгашения і шумопоглощения, забезпечують зниження шуму до допустимих значень для цього виду работ.

Для штучного освітлення помешкань, у яких використовують дисплеї, застосовується система комбінованого висвітлення. Передбачено пристрій робочого і вільного евакуаційного освещения.

Освітленість робочих місць у горизонтальній площині лише на рівні 0.8м від статі - щонайменше 400лк. Вертикальна освітленість у площині екранів дисплеїв — трохи більше 300лк. Коефіцієнт пульсації освітленості - трохи більше 10%. Показник дискомфорту — трохи більше 40. Для обмеження що проглядали від екранів відблисків забезпечене зниження яскравості випромінювачів в кутовий зоні більш 55(від вертикалі трохи більше 200 кд/м2.

Для штучного висвітлення застосовуються люмінесцентні лампи типу ЛБ. Для досить високих приміщень (4м і більше) у разі устрою відображеного висвітлення застосовані металло-галогенные лампи потужності менш 250Вт і високими індексами цветопередачи.

Для загального освітлення використані світильники з люмінесцентними лампами і дзеркальними экранирующими гратами і відбивачами. Не застосовуються у загальне освітлення помешкань з допомогою дисплеїв світильників будь-якого класу светораспределения, крім світильників класу светораспределения Про і з кривою сили світла нижньої півсфері типів Л, Ш, М і З. /17/.

Використана система перемикачів, дозволяють регулювати інтенсивність штучного висвітлення залежність від природного, і навіть які у цей час часу висвітлювати лише необхідних роботи зони приміщення. /12/.

При устрої місцевого висвітлення застосовуються поворачивающиеся, пересувні лампи на гнучкому шланг чи пересувних шарнірах. Світло падає зліва. Рекомендована потужність ламп — щонайменше 50−70Вт. Одне місцеве висвітлення неприпустимо, оскільки пов’язані з неминучою адаптацією зору. Необхідно ознайомитися з чистотою світильників і вікон. Брудна поверхню електричних ламп затримує до 80% світла, а злегка вкрите пилом шибку — до 30% світла (чисте шибку пропускає до 80% світлових лучей).

Робітники місця програмістів обчислювальних машин немає рівні звуку і еквівалентні рівні звуку вище 50ДбА, а приміщеннях телефонних і телеграфних станцій, в залах обробки інформації на обчислювальних машинах — не вище 65ДбА, помешкань розміщувати гучних агрегатів обчислювальних машин — 75ДбА. Нормування параметрів середовища з урахуванням виду праці, враховуючи подібність механізмів дії на організм людини шуму й напруженості праці. За виконання робіт з виробленні концепцій нових програм рівні звуку становить 40ДбА; і під час операторською роботи — 65ДбА. /18/.

Задля підтримки нормованих значень концентрації негативних і позитивних струмів передбачена штучна іонізація. У помешканнях із дисплеями проводиться щоденна волога прибирання й регулярні провітрювання протягом робочого зміни. Видалення пилу з екрана дисплея виробляється не рідше 1 десь у зміну. У періоди зміни, коли робота не виконується, дисплей выключен.

Характер праці за ВДТ призводить до обмеженою рухової активності, сопровождающейся малими м’язовими зусиллями (гіподинамією). У певних видах праці (введення і редагування інформації) є значна, але одноманітна і спрощена навантаження невеликі групи м’язів рук (гіпокінезія). Для усунення шкідливого впливу гіподинамії і гипокинезии вводяться паузи до виконання комплексу вправ, вкладених у збільшення витрат енергії на м’язову роботи й усунення змін, викликаних локальним характером м’язових действий.

Для основних видів робіт, виконуваних за видеотерминалом, вводяться офіційно передбачені перерви. Загальні вимоги до перерывам:

вони встановлені попередження утомления;

короткі часті, а чи не довгі, і редкие;

перерви проводяться поза робочого місця з видеотерминалом.

Різні види робіт вимагають різного підходу до організації перерв. Частота і тривалість (микропаузы чи більше тривалі перерви) перерв залежить від типу, і інтенсивності виконуваної роботи. Для робіт, виконуваних з великою навантаженням, рекомендований 10−15-хвилинний перерву після кожної години роботи, а за інтенсивнішої і монотонної роботі 10−15 вже хвилин за кожні 2 години. Кількість микропауз (тривалістю до 1 хвилини) регулюється индивидуально.

Форми і змістом перерв можуть бути різними: виконання альтернативної допоміжної роботи, яка потребує великого напруги; тривалі перерви прийому їжі, початку регламентованих перерв — гімнастика для очей, під час однієї з перерв рекомендується проведення спільної гимнастики.

Проведення фізичних вправ з дозованої навантаженням протягом робочого дня рекомендується індивідуально, залежно враження втоми. Гімнастика спрямовано корекцію вимушеної пози, поліпшення венозного кровообігу, часткове заповнення дефіциту рухової активності. М’язові зусилля комплексу вправ помірні, темп середній. Після закінчення гімнастики необхідний пасивний відпочинок, тривалістю в 2−3 хвилини перед роботою. Комплекс вправ змінюється 1 разів у неделю.

Спеціальні вправи для очей, які б посиленню кровообігу, збалансуванню тонусу очних м’язів, профілактиці втоми, виконуються на початку регламентованих перерв, протягом 2−3 хвилин, сидячи робочому месте.

У разі надмірного зорового напруги, що супроводжується погіршенням самопочуття, попри хорошу эргономическую організацію праці та дотримання режимних моментів, необхідний індивідуального підходу в обмеження часу роботи, корекція тривалості перерв на відпочинок чи зміна діяльності інший, не що з використання ЭВМ.

6.4. Заходи забезпечення пожежної безопасности.

Забезпечення пожежної безпеки є невід'ємною частиною державної діяльності з охороні життя і здоров’я людей, національного багатства й навколишньої природної Среды.

Власник підприємства, заклади, чи організації обязан:

розробити комплексні заходи щодо забезпечення пожежної безопасности;

відповідно до нормативними актами з пожежної безпеки розробити і затвердити становища, інструкції, інші нормативні акти, які у межах підприємства, заклади і організації, здійснювати постійний контролю над їх выполнением;

забезпечувати виконання протипожежних вимог, норм, правил, і навіть виконання вимог, розпоряджень і постанов органів державного пожежного надзора;

організувати навчання працівників правилам пожежної безпеки і пропаганду заходів для їх обеспечению;

за відсутності в нормативні акти вимог, необхідні забезпечення пожежної безпеки, приймати відповідних заходів, узгоджуючи їх із органами державного пожежного надзора;

утримувати в справному стані кошти протипожежної захисту та зв’язку, пожежну техніку, обладнання та інвентар, недопущення їх використання за назначению;

уявити на вимогу державної пожежної охорони відома і документи про стан пожежної безпеки об'єктів і вироблені ними продукции;

здійснювати заходи для впровадженню автоматичних коштів виявлення й гасіння пожеж та використання цієї мети виробничої автоматики;

своєчасно інформувати пожежну охорону про несправності пожежної техніки, систем протипожежної захисту, водопостачання, і навіть про закриття шляхів та проїздів у своїй территории;

проводити службове розслідування у разі пожеж. /19/.

Усі робітники прийому працювати щорічно на роботі проходять інструктажі з питань пожежної безопасности.

Сховища інформації, приміщення зберігання машинних носіїв інформації розміщуються в підсобних окремих приміщеннях, оснащених негорючими стелажами і шафами. Машинні носії інформації зберігаються у металевих кассетах.

Пол у приміщенні, де використовуються ЕОМ, виготовлений із негорючих матеріалів. Звукопоглощающая облицювання стель і стін цих приміщень також виготовлено з негорючих чи важко горючих материалов.

Для миття деталей використовуються негорючие миючі речовини. Для промивання змінних пристроїв пальними речовинами виділено спеціальні приміщення, оснащені припливно-витяжної вентиляцией.

У разі потреби проведення дрібного ремонту чи технічного обслуговування ЕОМ у робочому приміщенні і з допомогою горючих речовин дозволено мати трохи більше 0.5 л щодо тари, яка розбивається і добре закрывается.

У приміщеннях, у яких містяться ПЕОМ (якщо автоматична система пожежогасіння не обов’язкова), є переносні углекислотные вогнегасники з розрахунку 2 прим на кожні 20 м² площі приміщення з урахуванням гранично допустимої концентрації огнетушащего вещества.

Персональні комп’ютери по закінченні роботи з них вимикаються з сети.

Не менше десь у квартал виробляється чистка від пилу агрегатів, вузлів, кабельних каналов.

Не разрешается:

розміщувати ЕОМ в подвалах;

проводити про ремонт вузлів чи блоків ЕОМ у машинному зале;

зберігати постійно в залах ЕОМ машинні носії інформації, запасні блоки і детали;

залишати без нагляду включену до мережі електронну апаратуру, яку використовують випробування і функцію контролю ЕОМ. /20/.

ЗАКЛЮЧЕНИЕ

.

Через війну зробленого створено програмний продукт здатний забезпечити рівень автоматизації достатній до виконання основних функцій надаваних послуг електрозв’язку населенню області, швидко і коректно обробити інформацію, що забезпечує одержання прибутку за надані послуг у повному объеме.

Створена система розширила спектр послуг електрозв’язку, наданих населенню області, і має суттєві переваги, основними серед яких є: якісно новий метод роботи операторів, істотно які знижуватимуть рівень ручної праці; інформування абонента про розміри та терміни сплати послуги; оперативність і якість підготовки даних, який виключає помилки у системі розрахунків послуг; економія видаткових материалов.

Перша версія системи запущена в дію у серпні 1995 року в двох центральних відділеннях зв’язку. Наприкінці 1995 року система успішно експлуатувалася на 19 відділеннях зв’язку р. Запорожья.

СПИСОК ВИКОРИСТАНИХ ИСТОЧНИКОВ.

1. Керівництво системного менеджера по ДТ-МАКС. Кембридж. ИнтерСистемы, 1994 г.

2. Керівництво програміста по ДТ-МАКС. Кембридж. ИнтерСистемы, 1994 г.

3. Міжміські телефонні правила. Міністерство зв’язку СРСР. «Зв'язок». 1968 г.

4. закон України «Про охорону праці «, Постанова Верховної Ради України від 14.10.92 р. N 2696-XII.

5. Державний реєстр міжгалузевих й галузевих нормативних актів про охорону роботи (Реєстр ДНАОП). За станом на 01.02.95 р. Затверджено наказом Державного комітету України по нагляду за охороною роботи від 06.02.95 р. N 12, Київ, 1995 р.

6. Законодавство України про охорону роботи. Збірник нормативних документів. Том 1,2,3,4. Київ, 1995 р.

7. В. Ф. Кобевник. Охорона праці. Київ. «Выща школа «1990 г.

8. ГОСТ 12.0.002−80 ССБТ Терміни і определения.

9. ГОСТ 12.0.003−74* ССБТ Небезпечні й шкідливі виробничі факторы.

10. ГОСТ 12.1.019−79* ССБТ Электробезопасность. Загальні вимоги, і номенклатура видів защиты.

11. Створення сприятливих умов праці користувачів ЕОМ, які працюють із дисплеями на інформаційно-обчислювальних центрах. Методичні рекомендації. Схвалено Постановою Госкомтруда УРСР 15.10.86 р. N 134.

12. Тимчасові санітарних норм і правил до працівників обчислювальних центрів, утв. Гол. госуд. сан. лікарем СРСР від 2.03.88 р. N 4559−88.

13. ГОСТ 12.2.032−78 ССБТ. Робоча місце і під час робіт сидя.

14. ГОСТ 12.2.049−80 ССБТ. Устаткування виробниче. Загальні эргономические требования.

15. ГОСТ 21 689–76 «Система «Людина-машина. «Крісло людини-оператора. Загальні эргономические вимоги. «.

16. ГОСТ 12.1.005−88 ССБТ. Загальні санітарно-гігієнічні вимоги до повітрю робочої зоны.

17. СНиП 11−4-79. Природний і штучне висвітлення. Норми проектування. Зміни, затверджені Держбудом СРСР від 4.12.1985 р. N 205.

18. ГОСТ 12.1.003−83 ССБТ. Шум. Загальні вимоги безопасности.

19. закон України «Про пожежної безпеки» від 17.12.93.

20. Правила пожежної безпеки України. Затверджені: В.О. головного державного інспектора України із пожежного нагляду 14.06.95. Київ «Укрархбудінформ» 1995.

ДОДАТОК 1.

Специфікація компонентів системы.

Позначення Найменування Примечание.

iap АРМ АПД АК Інтерфейсна секція роботи з оператором автоматичних кабин.

iapbckg Монітор АПП-РК Модуль комунікації з АПП-РК.

iapbckgsub Монітор АПП-РК Набір прцедур для модуля комунікації з АПП-РК.

iaphand АРМ АПД РК Інтерфейсна секція роботи з оператором ручних кабин.

iaphandsub АРМ АПД РК Набір прцедур для интерфейсной секції роботи з оператором ручних кабин.

iaphandinit АРМ АПД РК Модуль ініціалізація довідника послуг для ручних кабин.

iapmon Стартер могитора АПП-РК Модуль ініціалізації і запуска.

ДОДАТОК 2.

Текст програми АРМ АПД АК.

iap.

iap ;IAKoff;04:04 PM 6 Mar 1996.

;Обслуговування АПП-РК.

n %res,%,%NCAB,%OLDTRAPER,%BEEP,%LON,%LOFF.

p.s %BEEP=$c (7)_$c (7)_$c (7)_$c (7)_$c (7)_$c (7)_$c (7)_$c (7).

p.s %=$c (30) p. s %OLDTRAPER=$ztrap.

p.s $ztrap= «ERROR^iap «.

p.s %LON=0,%LOFF=0.

reinit.

і $$INITAPP ()=0 q.

p.s %NCAB=$$INITCAB ().

і %NCAB=0 p. s %res=$$^dp58msg (12,30, «Помилка у визначенні кабін », 1) q.

і %NCAB>16 p. s %NCAB=16.

w /color (7,0) d^dp58box (0,0,24,79,0,$c (177)).

w /color (0,7),/c (0,0),$zzr ($$DAYNAME^dp58sys ()_ «» _$$FULLDATE^dp58sys (), 80).

redraw.

p.s %res=$$LIST^dp58Sel («^appstat („“ CABLIST „“ ,%і) », «%і «, 0,1,78,%NCAB+1, «N », 1, «DOUBLE », «Опреатор: «_%APPSYS («NOM_OPER »)_$c (30)_ «N ЗАДАТОК ЗАЛИШОК ТАРИФ ЧАС КОД+ТЕЛЕФОН СОСТ. «_$c (30)_ «F3-Вкл. F4-Откл. F5-Кв. F6-Прткл. F8-Ручн.заказ. ESC-Выход », «DrawCab^iap||OutCab^iap », «KEYF3,KEYF4,KEYCRASH, KEYF5, KEYF6,KEYF8 »).

і $p (%res,$c (30), 2)= «KEYCRASH «d CRASH q.

і $p (%res,$c (30), 2)= «KEYENTER «.

і $p (%res,$c (30), 2)= «KEYF3 «p.s %LON=$$OPENCAB (%LOFF) p. s %LOFF= ««.

і $p (%res,$c (30), 2)= «KEYF4 «p.s %LOFF=$$CLOSECAB (%LON) p. s %LON= ««.

і $p (%res,$c (30), 2)= «KEYF5 «p.s %LOFF=$$TICKETS (%LOFF).

і $p (%res,$c (30), 2)= «KEYF6 «p.s %LOFF=$$HISTORY (%LOFF).

і $p (%res,$c (30), 2)= «KEYF8 «d ^iaphand.

і $p (%res,$c (30), 2)= «KEYESC «p.s^appstat (1)= «F «q.

g redraw.

DrawCab.

n %s, I, P,%CAB.

і %dpINDEX= «DRAWFREE «w $j («» ,%dpSX) q.

p.s %CAB=^appcab (%i).

p.s %s=$p (%CAB,$c (30), 1).

p.s I=$s (%s=-1:7,%s=0:14,%s=1:0,%s=2:14,%s=3:14,%s=4:0,1:7).

p.s P=$s (%s=-1:0,%s=0:0,%s=1:15,%s=2:7,%s=3:0,%s=4:15,1:7).

w /color (I, P).

w ««.

w $j (^appstat («CABLIST » ,%i), 2)_ ««.

w /color ($p (%dpCOLORS, «, «, 7),$p (%dpCOLORS, «, «, 8)).

w «¦ «.

і %LON=%i w /color (0,15).

w $p ($zzc ($p (%CAB,$c (30), 3), 18), «. », 1).

w /color ($p (%dpCOLORS, «, «, 7),$p (%dpCOLORS, «, «, 8)), «¦ «.

і %LOFF=%i w /color (0,15).

w $p ($zzc ($p (%CAB,$c (30), 4), 18), «. », 1).

w /color ($p (%dpCOLORS, «, «, 7),$p (%dpCOLORS, «, «, 8)).

w «¦ «,$p ($zzc ($p (%CAB,$c (30), 6), 12), «. », 1).

n %time.

p.s %time=$p (%CAB,$c (30), 14).

і %time=-1 p. s %time=$p (%CAB,$c (30), 13).

e d.

. p. s %time=$p ($h, «, «, 2)-%time.

. p. s %s=%time60.

. p. s %time=$zzj (%s, 2)_ «: «_$zzj (%time#60,2).

w «¦ «,$j (%time, 5).

w «¦ «,$j ($p (%CAB,$c (30), 7)_ «- «_$p (%CAB,$c (30), 5), 11).

p.s %s=$p (%CAB,$c (30), 2).

w «¦ «,$s (%s=0: «до » ,%s=1: «А » ,%s=2: «Р »).

p.s %s=$p (%CAB,$c (30), 15)+0.

w $s (%s=0: ". " ,%s=1: ". " ,%s=2: «— «, 1: «/ «).

q.

OutCab.

і (^appstat («STATUS »)= «A ») p. s %dpKEYCODE= «KEYCRASH «.

p.s %str=$$TIME^dp58sys ().

w /c (80-$l (%str), 0),/color (0,7),%str.

і %dpKEYCODE= «KEYNOPRESS «p.s %dpKEYCODE= «KEYREDRAW «.

і %dpKEYCODE= «KEYDOWN «p.s %dpKEYCODE= «KEYEND «.

і %dpKEYCODE= «KEYUP «p.s %dpKEYCODE= «KEYHOME «.

і %dpKEYCODE= «KEYPAGEDOWN «p.s %dpKEYCODE= «KEYEND «.

і %dpKEYCODE= «KEYPAGEUP «p.s %dpKEYCODE= «KEYHOME «.

q.

; —————————————————————————————;

INITCAB ().

n %i,%n.

p.s %і= «» ,%n=0.

initcab1.

p.s %i=$o (^appstat («CABLIST » ,%i)).

і %і= «» q %n.

p.s %n=%n+1.

g initcab1.

; —————————————————————————————;

INITAPP ().

n %res,%ws.

і $$tstjob^iapmon () «= «» g initapp3.

w /color (14,0).

p.s %res=$$^dp58msg (12,30, «Запуск монітора », 0.1).

p.s %res=$$run^iapmon.

і %res=1 p. s %res=$$^dp58msg (12,30, «АПД не підключений «_%_ «до вашої станції. «_%_ «Опишіть в устаноквх на АПД », 0) q 0.

і %res=2 p. s %res=$$^dp58msg (12,30, «Не вірний номер устрою. «_%_ «Опишіть в устаноквх на АПД », 0) q 0.

h 3.

initapp2.

p.s %ws=10.

initapp1.

w /color (14,0).

p.s %res=$$^dp58msg (12,35, «Чекання готовності монітора: «_%ws, 0.1) h 1.

і^appstat («STATUS »)= «A «p.s %res=$$^dp58msg (12,30, «Неполадки ! ! ! «_%_ «Аварія АПП-РК «_%_ «Сбросте АПП-РК «_%_ «і спробуйте вкотре. », 0) q 0.

і^appstat («STATUS »)= «H «p.s %res=$$^dp58msg (12,30, «Неполадки ! ! ! «_%_ «Сбросте АПП-РК «_%_ «і спробуйте вкотре. », 0) q 0.

p.s %ws=%ws-1 і %ws=0 q 0.

і^appstat («CMD ») «= «R «g initapp1.

initapp3.

і (^appstat (1) «= «F ») p. s %res=$$^dp58msg (12,30, «Другий зайвий. », 1) q 0.

p.s^appstat (1)=%APPSYS («NOM_OPER »).

p.s^appstat (1, «NOM_OPER »)=%APPSYS («NOM_OPER »).

p.s^appstat (1, «NOM_GOES »)=%APPSYS («NOM_GOES »).

p.s^appstat (1, «NOM_MESS »)=%APPSYS («NOM_MESS »).

p.s^appstat (1, «NOM_DENN »)=%APPSYS («NOM_DENN »).

p.s^appstat (1, «NOM_SMEN »)=%APPSYS («NOM_SMEN »).

p.s^appstat («USD_KURS »)=%APPSYS («USD_KURS »).

q 1.

; —————————————————————————————;

CRASH.

і $$^dp58msg (8,30, «А У, А Р І Я ! ! ! «_%_ «Натиснімо задній панелі АПП-РК «_%_ «маленьку біленьку кнопочку «_%_ «і далі натиснімо на клавіатурі «, 0) «= «KEYENTER «g CRASH.

p.s^appstat (1)= «F «.

q.

; —————————————————————————————;

OPENCAB (%cab).

n %forma,%res.

і (^appstat («STATUS »)= «A »)!(^appstat («STATUS »)= «H ») p. s %res=$$^dp58msg (12,35, «АВАРІЙНА СИТУАЦІЯ ! «_$c (30)_ «ВКЛЮЧАТИ КАБІНИ НЕ МОЖНА. », 0) q %cab.

і $g (%cab) «= «» p. s %forma («CABNUM »)=$g (^appstat («CABLIST » ,%cab)).

p.s %forma («SUMMA »)=0.

d drscr^uf58(«iap!OPEN »).

і $$get^uf58(«iap!OPEN », «%forma »)= «ESC «q %cab.

p.s %cab=$$phys (%forma («CABNUM »)).

і (^appcab (%cab).2=2) d ^AppOnRk58(%cab, «ON ») q %cab.

d cabon (%cab,%forma («SUMMA »)).

q %cab.

OutOPCN ().

n %res,%cab.

p.s %cab=$$phys ($p (%ufNEWDATA,$c (30), 1)).

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q %ufNEWDATA.

і $g (^appcab (%cab))= «» p. s %res= «Зрадливий номер кабіни ! «g OPCN1.

і^appcab (%cab).1=-1 p. s %res= «Кабіна на ремонті ! «g OPCN1.

і^appcab (%cab).1=1 p. s %res= «Кабіна зайнята ! «g OPCN1.

і^appcab (%cab).1=2 p. s %res= «У кабіні залишок ! «g OPCN1.

q %ufNEWDATA.

OPCN1.

p.s %res=$$^dp58msg (3,35,%res, 0).

d drscr^uf58(«iap!OPEN »).

d redraw^uf58(«iap!OPEN », «%forma »).

q «PROBLEM «.

InOPSM ().

n %cab.

p.s %cab=$$phys ($p (%ufNEWDATA,$c (30), 1)).

і (^appcab (%cab).2=2) q «FIELDOFF «.

q %ufOLDDATA.

; —————————————————————————————;

CLOSECAB (%cab).

n %forma,%res.

і $g (%cab) «= «» p. s %forma («CABNUM »)=$g (^appstat («CABLIST » ,%cab)).

d drscr^uf58(«iap!CLOSE »).

і $$get^uf58(«iap!CLOSE », «%forma »)= «ESC «q %cab.

p.s %cab=$$phys (%forma («CABNUM »)).

і (^appcab (%cab).2=2) d ^AppOnRk58(%cab, «OFF ») q %cab.

d caboff (%cab).

q %cab.

OutCLCN ().

n %res,%cab.

p.s %cab=$$phys ($p (%ufNEWDATA,$c (30), 1)).

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q %ufNEWDATA.

і $g (^appcab (%cab))= «» p. s %res= «Зрадливий номер кабіни ! «g CLCN1.

і^appcab (%cab).1=-1 p. s %res= «Кабіна на ремонті ! «g CLCN1.

і^appcab (%cab).1=0 p. s %res= «Кабіна вільна ! «g CLCN1.

q %ufNEWDATA.

CLCN1.

p.s %res=$$^dp58msg (3,35,%res, 0).

d drscr^uf58(«iap!CLOSE »).

d redraw^uf58(«iap!CLOSE », «%forma »).

q «PROBLEM «.

; —————————————————————————————;

phys (%l).

n %i.

p.s %і= ««.

phys1.

p.s %i=$o (^appstat («CABLIST » ,%i)).

і %і= «» q 0.

і %l=^appstat («CABLIST » ,%і) q %i.

g phys1.

; —————————————————————————————;

cabon (%numcab,%zadat).

k^appticket (%numcab).

n %hl.

p.s %hl= «1 «і %numcab>16 p. s %hl= «2 «.

p.s %cmd= «B «_%numcab_ «» _%zadat.

cabon1.

і^appstat («CMD ») «= «R «g cabon1.

p.s^appstat («CMD »)= «WRQ «_%hl.

і^appstat («CMD »)= «WEN «_%hl g cabon3.

і^appstat («CMD »)= «R «g cabon1.

cabon3.

p.s^appstat («CMD », «COM »)=%cmd.

p.s^appstat («CMD »)= «WAC «_%hl.

q.

; —————————————————————————————;

caboff (%numcab).

n %hl,%kk.

p.s %hl= «1 «і %numcab>16 p. s %hl= «2 «.

і^appstat («STATUS »)= «A «g caboff6.

p.s %cmd= «O «_%numcab.

caboff1.

і^appstat («CMD ») «= «R «g caboff1.

p.s^appstat («CMD »)= «WRQ «_%hl.

і^appstat («CMD »)= «WEN «_%hl g caboff3.

і^appstat («CMD »)= «R «g caboff1.

caboff3.

p.s^appstat («CMD », «COM »)=%cmd.

p.s^appstat («CMD »)= «WAC «_%hl.

caboff4.

r *%kk:0.1 і %kk «=-1 g caboff5.

caboff6.

і (^appcab (%numcab).1 «=0)&(^appcab (%numcab).1 «=2)&(^appcab (%numcab).1 «=1) g caboff4.

caboff5.

q.

; —————————————————————————————;

TICKETS (%cab).

n %forma,%res,%sel,%sid,%id.

і $g (%cab)= «» p. s %cab=0.

p.s %forma («CABNUM »)=$g (^appstat («CABLIST » ,%cab)).

d drscr^uf58(«iap!TICKET »).

і $$get^uf58(«iap!TICKET », «%forma »)= «ESC «q %cab.

p.s %cab=$$phys (%forma («CABNUM »)).

p.s %id= «» f d p. s %id=$o (^appticket (%cab,%id)) s:%id «= «» %sel (%id)=%id q:%id= ««.

і (^appcab (%cab).2=2) q %cab; ПЕЧАТКУ КВИТАНЦІЙ ПО РУЧНИЙ КАБИНЕ.

tickets1.

p.s %res=$$SELECT^dp58Sel («^appticket (%cab,%id) », «%id », «%sel (%sid) », «%sid », 10,12,61,9, «», 0, «SINGLE », «На квитанції по кабіні N «_%cab_$c (30)_ «ПРОД. КОД МІСТО РЕГІОН ТЕЛЕФОН СУМА «_$c (30)_ «-ОТМЕТКАПЕЧАТКУ », «DrawTicket^iap », «KEYF4 »).

і $p (%res,$c (30), 2)= «KEYESC «q %cab.

і $p (%res,$c (30), 2)= «KEYF4 «d TICKPRINT q %cab.

g tickets1.

DrawTicket.

і %dpINDEX= «DRAWFREE «w $j («» ,%dpSX) q.

w $j ($p (^appticket (%cab,%id),$c (30), 3), 5)_ ««.

w $j ($p (^appticket (%cab,%id),$c (30), 4), 3)_ ««.

w $j ($p (^appticket (%cab,%id),$c (30), 5), 12)_ ««.

w $j ($p (^appticket (%cab,%id),$c (30), 8), 14)_ ««.

w $j ($p (^appticket (%cab,%id),$c (30), 6), 10)_ ««.

w $zzc ($p (^appticket (%cab,%id),$c (30), 7), 12,2).

q.

OutTCCN ().

n %res,%cab.

p.s %cab=$$phys ($p (%ufNEWDATA,$c (30), 1)).

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q %ufNEWDATA.

і $g (^appcab (%cab))= «» p. s %res= «Зрадливий номер кабіни ! «g TCCN1.

і^appcab (%cab).1=-1 p. s %res= «Кабіна на ремонті ! «g TCCN1.

і^appcab (%cab).1=1 p. s %res= «Кабіна зайнята ! «g TCCN1.

і $d (^appticket (%cab))=0 p. s %res= «Ні квитанції ! «g TCCN1.

і^appcab (%cab).1=2 p. s %res= «У кабіні залишок ! «g TCCN1.

q %ufNEWDATA.

TCCN1.

p.s %res=$$^dp58msg (3,35,%res, 0).

d drscr^uf58(«iap!TICKET »).

d redraw^uf58(«iap!TICKET », «%forma »).

q «PROBLEM «.

; —————————————————————————————;

TICKPRINT.

n %KVIT,%sid.

p.s %sid=$o (%sel («»)) і %sid= «» q.

tickprn1.

і $g (%sel (%sid))=0 g tickprn3.

p.s %KVIT (%sid)=.

tickprn3.

p.s %sid=$o (%sel (%sid)) і %sid «= «» g tickprn1.

d PrintKvit^AppSysd.

q.

; —————————————————————————————;

HISTORY (%cab) ;IAKoff;10:34 PM 26 Aug 1995;

n %ll,%ee,%id.

і $g (%cab)= «» p. s %cab=0.

p.s %forma («CABNUM »)=$g (^appstat («CABLIST » ,%cab)).

d drscr^uf58(«iap!HISTORY »).

і $$get^uf58(«iap!HISTORY », «%forma »)= «ESC «q %cab.

p.s %cab=$$phys (%forma («CABNUM »)).

p.s %її= «З «_%cab.

і $d (^appjrn (%ee))=0 g ihlp1.

p.s %ll= «^appjrn (%ee,%id) «p.s %id= «» p. s %id=$o (^appjrn (%ee,%id),-1).

p.s %rr=$$LIST^dp58Sel (%ll, «%id », 1,10,76,12, «», 0, «DOUBLE », «Журнал », «DrawHist^iap »).

ihlp1.

q %cab.

OutHSCN ().

n %res,%cab.

p.s %cab=$$phys ($p (%ufNEWDATA,$c (30), 1)).

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q %ufNEWDATA.

і $g (^appcab (%cab))= «» p. s %res= «Зрадливий номер кабіни ! «g HSCN1.

і^appcab (%cab).1=-1 p. s %res= «Кабіна на ремонті ! «g HSCN1.

q %ufNEWDATA.

HSCN1.

p.s %res=$$^dp58msg (3,35,%res, 0).

d drscr^uf58(«iap!HISTORY »).

d redraw^uf58(«iap!HISTORY », «%forma »).

q «PROBLEM «.

DrawHist.

n %rrr,%time,%date.

і %dpINDEX= «DRAWFREE «w $j («» ,%dpSX) q.

p.s %rrr=^appjrn (%ee,%id, «MSG »).

p.s %time=$j ($p (^appjrn (%ee,%id, «TIME »),$c (30), 1), 8).

p.s %date=$j ($p (^appjrn (%ee,%id, «TIME »),$c (30), 2), 5).

і $p (%rrr, «», 1)= «ON «g drwh1.

і $p (%rrr, «», 1)= «OFF «g drwh2.

і $p (%rrr, «», 1)= «BBB «g drwh3.

і $p (%rrr, «», 1)= «EEE «g drwh4.

і $p (%rrr, «», 1)= «AAA «g drwh5.

w $zzr (%rrr, 61)_%time_ «» _%date_ «» q.

drwh1.

w $zzr («Вкл. «_$p (%rrr, «», 2), 61)_%time_ «» _%date_ «» q.

drwh2.

w $zzr («Викл. «_$p (%rrr, «», 2), 61)_%time_ «» _%date_ «» q.

drwh3.

w $zzr («Поч. разг. тариф: «_$p (%rrr, «», 4)_ «тіл: «_$p (%rrr, «», 6), 61)_%time_ «» _%date_ «» q.

drwh4.

w $zzr («Кон. разг. час: «_$p (%rrr, «», 3)_ «сума: «_$p (%rrr, «», 5), 61)_%time_ «» _%date_ ««.

q.

drwh5.

w $zzr («Авар. зав. час: «_$p (%rrr, «», 3)_ «сума: «_$p (%rrr, «», 5), 61)_%time_ «» _%date_ ««.

q.

; —————————————————————————————;

ERROR.

p.s $ztrap=%OLDTRAPER.

p.s^appstat (1)= «F «.

g @$ztrap.

ДОДАТОК 3.

Текст програми монітора АПП-РК.

iapbckg.

iapbckg (%an) ;IAKoff;03:44 PM 6 Mar 1996.

n %cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec,%cod,%idev.

n %cabspis,%to,%hl,%SHARE,%noper,%nsmen.

p.s %SHARE=$$SHARE^AppSyst ().

p.s $zp=$c (30) p. s $ztrap= «errhndr^iapbckgsub «.

p.s^appstat («CMD »)= «WAIT «.

p.s^appstat («STATUS »)= «INIT «.

o %an u %an:(ixxlate=0:speed=2400:parity= «none » :stopbits=1).

d addjrn^iapbckgsub («APPRK », «Запуск Апд монітор », «»).

w «E* «.

k ^appzxcab.

k ^appcab.

f %i=1:1:32 d.

. p. s^appcab (%i)= «-1 «_$zp_ «0 «_$zp_ «00.00 «_$zp_ «00.00 «_$zp_ «» _$zp.

. p. s^appcab (%i)=^appcab (%i)_ «00.00 «_$zp_ «» _$zp_ «0 «_$zp_ «0 «_$zp.

. p. s^appcab (%i)=^appcab (%i)_ «0 «_$zp_ «0 «_$zp_ «0 «_$zp_ «00.00 «_$zp.

. p. s^appcab (%i)=^appcab (%i)_ «-1 «_$zp_ «0 «.

. w «O «_%і_ «* «.

. f %zone=0:1:20 p. s^appcab (%i,%zone)= «0 «_$zp_ «0 «.

. f %zone=128:1:148 p. s^appcab (%i,%zone)= «0 «_$zp_ «0 «.

p.s %ws=0.

freecab; отримати список кабин.

p.s %ws=%ws+1.

і %ws=20 g thlt.

p.s^appstat («STATUS »)= «CAB OFF «.

w «I* «.

p.s^appstat («STATUS »)= «LIST «.

w «P.S* «.

p.s %free=$$gres^iapbckgsub () і %free= «HALT «g thlt.

і %free= «TIME «g thlt.

p.s %i=1.

ncab.

p.s %cmd=$p (%free, «» ,%i+1).

p.s %cc=$e (%cmd, 1,2)+0.

p.s %cod=$e (%cmd, 3,3).

і %cmd= «» g lastcab.

і (%cc>32)!(%cc.

і (%cod «= «A »)&(%cod «= «P ») d addjrn^iapbckgsub («APPRK », «InitError Stat » ,%free) g freecab.

p.s %cabspis (%i)=%cc.

p.s^appcab (%cc).1=0.

p.s^appcab (%cc).2=2 і %cod= «A «p.s^appcab (%cc).2=1.

p.s %i=%i+1.

g ncab.

lastcab.

; —————————————;

; Завантаження системних установок.

p.s^appstat («STATUS »)= «SETUP «.

w «P «_^appstat («SETUP »)_ «* «.

; —————————————;

; Завантаження тарифів по СНГ.

LoadTarif.

p.s^appstat («STATUS »)= «TARIF «.

і $d (^appstat («TARIF », «AUTO8 »))=0 g nosngtarif.

p.s %zone= «» p. s %cmd= ««.

nx1tarif.

p.s %zone=$o (^appstat («TARIF », «AUTO8 » ,%zone)).

і %zone= «» g ldtarif1.

p.s %sec=$p (^appstat («TARIF », «AUTO8 » ,%zone),$c (30),%SHARE+1).

і %sec.

p.s %cmd=%cmd_$$dec2hex^iapbckgsub (%sec) g nx1tarif.

ldtarif1.

w «L «_$c ($l (%cmd))_$c (0)_%cmd_ «* «.

; Завантаження міжнародних тарифов.

nosngtarif.

і $d (^appstat («TARIF », «AUTO810 »))=0 g nofgrtarif.

p.s %zone= «» p. s %cmd= ««.

nx2tarif.

p.s %zone=$o (^appstat («TARIF », «AUTO810 » ,%zone)).

і %zone= «» g ldtarif2.

p.s %sec=$p (^appstat («TARIF », «AUTO810 » ,%zone),$c (30),%SHARE+1).

і %sec.

p.s %cmd=%cmd_$$dec2hex^iapbckgsub (%sec) g nx2tarif.

ldtarif2.

w «L «_$c ($l (%cmd))_$c (255)_%cmd_ «* «.

nofgrtarif.

p.s^appstat («CMD »)= «R «.

p.s %to=0.

mainloop.

і %SHARE «=$$SHARE^AppSyst () p. s %SHARE=$$SHARE^AppSyst () g LoadTarif.

p.s^appstat («STATUS »)= «GET «.

p.s %free=$$gres^iapbckgsub ().

p.s^appstat («STATUS »)= «SEL «.

і %free= «HALT «g thlt.

і %free= «TIME «g inerror.

і $$instat^iapbckgsub ($p (%free, «», 1))= «B «p.s %to=0 g talkbeg.

і $$instat^iapbckgsub ($p (%free, «», 1))= «E «p.s %to=0 g talkend.

і $$instat^iapbckgsub ($p (%free, «», 1))= «L «g life.

d addjrn^iapbckgsub («APPRK », «Unknown command » ,%free).

g mainloop.

life.

p.s %to=%to+1.

p.s^appstat («STATUS »)= «L «.

p.s %i=1.

lf1.

p.s %cmd=$p (%free, «» ,%i+1).

і %cmd= «» g lf3.

p.s %cod=$e (%cmd, 3,4)+0.

і $d (%cabspis (%i))=0 d addjrn^iapbckgsub («APPRK », «Unknown Life » ,%free) g mainloop.

p.s %cc=%cabspis (%i).

p.s^appcab (%cc).15=%cod; номер автомата.

і^appcab (%cc).2=1 g lfa.

; Ручне кабина.

і $e (%cmd, 1,1)= «B «p.s^appcab (%cc).1=1 p. s %to=0 g lf2.

і ($e (%cmd, 1,1))= «F «w «B «_%cc_ «* «d addjrn^iapbckgsub («З «_%cc, «ON »).

; РУЧНІ КАБІНИ ЗАВЖДИ ВКЛЮЧЕНЫ.

і ($e (%cmd, 1,1)= «F »)&(^appcab (%cc).1=0) p. s^appcab (%cc).1=0 g lf2.

і ($e (%cmd, 1,1)= «F »)&(^appcab (%cc).1=1) p. s^appcab (%cc).1=2 g lf2.

d addjrn^iapbckgsub («APPRK », «US Cab «_%cc,%cmd) g lf2.

lfa; Автоматична кабина.

і (^appcab (%cc).1 «=0)!($e (%cmd, 1,1) «= «F ») p. s %to=0.

і (^appcab (%cc).1=0)&($e (%cmd, 1,1)= «B ») p. s^appcab (%cc).1=1 g lf2.

і (^appcab (%cc).1=0)&($e (%cmd, 1,1)= «F ») p. s^appcab (%cc).1=0 g lf2.

і (^appcab (%cc).1=1)&($e (%cmd, 1,1)= «B ») p. s^appcab (%cc).1=1 g lf2.

і (^appcab (%cc).1=1)&($e (%cmd, 1,1)= «F ») p. s^appcab (%cc).1=2 g lf2.

і (^appcab (%cc).1=2)&($e (%cmd, 1,1)= «B ») p. s^appcab (%cc).1=1 g lf2.

і (^appcab (%cc).1=2)&($e (%cmd, 1,1)= «F ») p. s^appcab (%cc).1=2 g lf2.

і (^appcab (%cc).1=3)&($e (%cmd, 1,1)= «B ») p. s^appcab (%cc).1=3 g lf2.

і (^appcab (%cc).1=3)&($e (%cmd, 1,1)= «F ») p. s^appcab (%cc).1=0 g lf2.

і (^appcab (%cc).1=4)&($e (%cmd, 1,1)= «B ») p. s^appcab (%cc).1=1 g lf2.

і (^appcab (%cc).1=4)&($e (%cmd, 1,1)= «F ») p. s^appcab (%cc).1=4 g lf2.

і (^appcab (%cc).1=-1)&($e (%cmd, 1,1)= «B ») p. s^appcab (%cc).1=1 g lf2.

і (^appcab (%cc).1=-1)&($e (%cmd, 1,1)= «F ») p. s^appcab (%cc).1=0 g lf2.

d addjrn^iapbckgsub («APPRK », «USS Cab «_%cc,$p (^appcab (%cc),$zp, 1)_%cmd).

lf2.

p.s %i=%i+1.

g lf1.

lf3.

і %to>50 g timeout.

g mainloop.

talkbeg.

p.s^appstat («STATUS »)= «TB «.

p.s %cc=$j ($p (%free, «», 2), 1,0).

і (%cc>32)!(%cc.

p.s %i=$j ($p (%free, «», 5), 1,0).

p.s^appcab (%cc).6=$p (%free, «», 4).

і $p (^appcab (%cc),$c (30), 2)=2 g tbegrk.

p.s %tsec=$p (%free, «», 6).

p.s^appcab (%cc).5=$e (%tsec, 4,$l (%tsec)) p. s^appcab (%cc).7=$e (%tsec, 1,3).

tbegrk.

p.s^appcab (%cc).1=1.

p.s %tsec=$p ($h, «, «, 2) ;—-системне час у секундах.

p.s^appcab (%cc).14=%tsec; фіксуємо час початку разговора.

d addjrn^iapbckgsub («З «_%cc,%free).

g mainloop.

talkend.

p.s^appstat («STATUS »)= «TE «.

p.s %cc=$j ($p (%free, «», 2), 1,0).

і (%cc>32)!(%cc.

p.s^appcab (%cc).14=-1.

і $p (^appcab (%cc),$c (30), 2)=1 g acabin.

p.s^appcab (%cc).4=$p (%free, «», 3).

p.s^appcab (%cc).1=2.

g mainloop.

acabin.

p.s %zone=$j ($p (%free, «», 6), 1,0).

p.s %summ=$zzoo ($p (%free, «», 4)).

p.s^appcab (%cc).4=$p (^appcab (%cc),$zp, 4)-%summ.

p.s^appcab (%cc).8=^appcab (%cc).8+1.

p.s^appcab (%cc).9=^appcab (%cc).9+1.

p.s^appcab (%cc).10=^appcab (%cc).10+%summ.

p.s^appcab (%cc).11=%summ.

p.s^appcab (%cc).12=^appcab (%cc).12+%summ.

p.s^appcab (%cc).13=$p (%free, «», 3).

і ($p (%free, «», 5)+0)=0 p. s^appcab (%cc).1=0.

d AFTERTE.

p.s^appcab (%cc).14=-1.

d addjrn^iapbckgsub («З «_%cc,%free).

g mainloop.

; ——————————————————.

inerror.

d addjrn^iapbckgsub («APPRK », «Аварія АПП-РК. »).

p.s %i=1.

ie1.

і $d (%cabspis (%i))=0 g ie2.

p.s %cc=%cabspis (%i).

і^appcab (%cc).1=-1 g ie3.

і^appcab (%cc).1=0 g ie3.

і^appcab (%cc).1=2 g ie3.

і^appcab (%cc).14=-1 p. s^appcab (%cc).1=2 g ie3.

p.s %tsec=$p ($h, «, «, 2)-$p (^appcab (%cc),$zp, 14).

p.s %tmin=%tsec60 p. s %sec=$tr ($j (%tsec#60,2), «», 0).

p.s %min=$e (%tmin#60+100,2,3).

p.s %tmin=%min+1.

і $p (^appcab (%cc),$c (30), 2)=1 g ieac.

p.s^appcab (%cc).4=$j (%min, 2)_ «. «_$j (%sec, 2).

p.s^appcab (%cc).1=0.

p.s^appcab (%cc).14=-1.

d htalkend^iapbckgsub (%cc).

p.s %i=%i+1.

g ie1.

ieac.

p.s %zone=3.

p.s %summ=$p (^appcab (%cc),$zp, 4).

і (%tmin*$p (^appcab (%cc),$zp, 6))>$p (^appcab (%cc),$zp, 4) g aie1.

p.s %summ=$zzoo ($p (^appcab (%cc),$zp, 6)*%tmin).

aie1.

p.s^appcab (%cc).4=$p (^appcab (%cc),$zp, 4)-%summ.

p.s^appcab (%cc).8=^appcab (%cc).8+1.

p.s^appcab (%cc).9=^appcab (%cc).9+1.

p.s^appcab (%cc).10=^appcab (%cc).10+%summ.

p.s^appcab (%cc).11=%summ.

p.s^appcab (%cc).12=^appcab (%cc).12+%summ.

p.s^appcab (%cc).13=$j (%min, 2)_ «. «_$j (%sec, 2).

p.s^appcab (%cc).1=2.

і^appcab (%cc).4=0 p. s^appcab (%cc).1=0.

d addjrn^iapbckgsub («З «_%cc, «AAA «_%cc_ «» _$p (^appcab (%cc),$zp, 13)_ «» _%summ_ «» _$p (^appcab (%cc),$zp, 4)_ «UNKNOWN »).

d AFTERTE.

p.s^appcab (%cc).14=-1.

ie3.

p.s %i=%i+1.

g ie1.

ie2.

p.s^appstat («STATUS »)= «A «.

g thlt1.

; —————————————————-;

timeout.

d addjrn^iapbckgsub («APPRK », «Монітор зупинено. », «Timeout »).

p.s^appstat («STATUS »)= «H «.

; —————————————————-;

thlt.

d addjrn^iapbckgsub («APPRK », «Монітор зупинено. », «»).

p.s^appstat («STATUS »)= «H «.

thlt1.

з %an.

k %cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec,%cod,%idev.

q.

; ————————————————— КОНЕЦ

AFTERTE.

p.s %tsec=$p (^appcab (%cc),$c (30), 14).

p.s %tmin=%tsec60 ;—-системне час у минутах.

p.s %sec=$tr ($j (%tsec#60,2), «», 0) ;—-у секунд.

p.s %min=$e (%tmin#60+100,2,3) ;—-у минут.

p.s %hour=%tmin60+23#24+1 ;—-у часов.

p.s %hour=$tr ($j (%hour, 2), «», 0).

; заповнення журналу ====================================.

і %zone=0 p. s^appcab (%cc).5=$p (^appcab (%cc),$zp, 7)_$p (^appcab (%cc),$zp, 5) p. s^appcab (%cc).7= «ГІР «.

і %zone>127 p. s^appcab (%cc).7=$e ($p (^appcab (%cc),$zp, 7), 3,3)_$e ($p (^appcab (%cc),$zp, 5), 1,2) p. s^appcab (%cc).5=$e ($p (^appcab (%cc),$zp, 5), 3,11).

; заповнення квитанцій ==================================.

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)+1)=$zd_$zp_%hour_ «: «_%min_$zp_ «0 «_$zp_ «КОД «_$zp_ «МІСТО «_$zp_ «ТЕЛЕФОН «_$zp_ «0000.00 «.

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).3=^appcab (%cc).13.

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).4=^appcab (%cc).7.

p.s %cmd= ««.

p.s %cod=$p (^appcab (%cc),$c (30), 7).

і %zone>127 g COUNTRY.

p.s %i=$e ($p (^appcab (%cc),$c (30), 5), 1,3).

і $e (%cod, 1,1)= «2 «p.s %i=$e (%cod, 2,3) p. s %cod=^AppSys58(«KOD_OBLS »).

і $d (^app8DCAC (%cod))>0 p. s %cmd=$p (^app8DCAC (%cod),$c (30), 2).

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).8=$e (%cmd, 1,14).

і $d (^app8DCAC (%cod,$e (%i, 1,2)))>0 d.

. p. s %cmd=^app8DCAC (%cod,$e (%i, 1,2)).

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).5=$e (%cmd, 1,12).

g cntick.

COUNTRY.

p.s %i=%cod_$p (^appcab (%cc),$c (30), 5).

p.s %cmd= ««.

cntry1.

і %і= «» g cntry2.

і $g (^appDCAC (%i))= «» p. s %i=$e (%i, 1,$l (%i)-1) g cntry1.

p.s %cmd=$g (^appDCAC (%i)).

cntry2.

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).5=$e ($p (%cmd,$c (30), 2), 1,12).

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).8=$e ($p (%cmd,$c (30), 1), 1,14).

cntick.

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).6=^appcab (%cc).5.

p.s^appticket (%cc,$o (^appticket (%cc, «»),-1)).7=^appcab (%cc).11.

; заповнення реєстру =======================================.

p.s %gs=^appstat (1, «NOM_GOES ») p. s %ms=^appstat (1, «NOM_MESS ») p. s %dn=^appstat (1, «NOM_DENN »).

d inreestr^iapbckgsub (%summ,%zone).

p.s %noper=^appstat (1, «NOM_OPER »).

p.s %nsmen=^appstat (1, «NOM_SMEN »).

і $d (^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «ACAB » ,%cc))=0 p. s^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «ACAB » ,%cc).1=%summ_$zp₁ g after1.

p.s^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «ACAB » ,%cc).1=$p (^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «ACAB » ,%cc),$zp, 1)+%summ.

p.s^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «ACAB » ,%cc).2=$p (^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «ACAB » ,%cc),$zp, 2)+1.

after1.

і $d (^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «AZONE » ,%zone))=0 p. s^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «AZONE » ,%zone).1=%summ_$zp₁ g after2.

p.s^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «AZONE » ,%zone).1=$p (^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «AZONE » ,%zone),$zp, 1)+%summ.

p.s^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «AZONE » ,%zone).2=$p (^ReestrApp (%gs,%ms,%dn,%noper,%nsmen, «AZONE » ,%zone),$zp, 2)+1.

after2.

q.

; IAKoff Save, %n, 05/06/96.

iapbckgsub.

iapbckgsub ;IAKoff;09:47 PM 28 Feb 1996.

q.

instat (%s).

n %res.

і $l (%s)>3 p. s %res= «? «g ins1.

і ($l (%s).

і ($e (%s, 1,1)=$e (%s, 2,2)) p. s %res=$e (%s, 2,2) g ins1.

і ($l (%s).

і ($e (%s, 1,1)=$e (%s, 3,3)) p. s %res=$e (%s, 1,1) g ins1.

і ($e (%s, 2,2)=$e (%s, 3,3)) p. s %res=$e (%s, 2,2) g ins1.

ins2.

і «EBSL «[$e (%s, 1,1) p. s %res=$e (%s, 1,1) g ins1.

і ($l (%s).

і «EBSL «[$e (%s, 2,2) p. s %res=$e (%s, 2,2) g ins1.

і «EBSL «[$e (%s, 3,3) p. s %res=$e (%s, 3,3) g ins1.

p.s %res= «? «.

ins1.

q %res.

; —————————————————-;

gres (); отримати рядок від АПП.

і $$CHECK^dp58ups ()= «P.S «q «TIME «.

n %res,%cc,%cnt.

p.s %res= «» p. s %cnt=0.

nxtchr.

r *%cc:1 і %cc «=-1 g getchr.

і (^appstat («CMD ») «= «R »)&(^appstat («CMD ») «= «WAIT ») g ghlt.

p.s %cnt=%cnt+1.

і %cnt=10 w «V* «.

і %cnt.

p.s %res= «TIME «g gend.

getchr.

і $c (%cc) «= «* «p.s %res=%res_$c (%cc) g nxtchr.

g gend.

ghlt.

і^appstat («CMD »)= «H «p.s %res= «HALT «g gend.

і $e (^appstat («CMD »), 1,3) «= «WRQ «g mbewac.

p.s^appstat («CMD »)= «WEN «_$e (^appstat («CMD »), 4,4) g nxtchr.

mbewac.

і $e (^appstat («CMD »), 1,3) «= «WAC «g oprcmderr.

w^appstat («CMD », «COM »)_ «* «.

p.s %to=0.

d addjrn («OPER », «Прихід » ,^appstat («CMD », «COM »)).

p.s %cc=$e (^appstat («CMD », «COM »), 2,3)+0.

і $e (^appstat («CMD », «COM »), 1,1)= «B «d.

. d addjrn («З «_%cc, «ON «_$p (^appstat («CMD », «COM »), «», 2)).

. і^appcab (%cc).2=1 d.

. p. s^appcab (%cc).3=$p (^appstat («CMD », «COM »), «», 2).

. p. s^appcab (%cc).4=$p (^appstat («CMD », «COM »), «», 2).

. p. s^appcab (%cc).6=0.

. p. s^appcab (%cc).7= ««.

. p. s^appcab (%cc).8=0.

. p. s^appcab (%cc).10=0.

. p. s^appcab (%cc).11=0.

. p. s^appcab (%cc).13=0.

. p. s^appcab (%cc).1=1.

. і^appcab (%cc).2=2 d.

. p. s^appcab (%cc).1=1.

. p. s^appcab (%cc).3=$p (^appstat («CMD », «COM »), «», 2).

. p. s^appcab (%cc).4= ««.

. p. s^appcab (%cc).6=0.

. p. s^appcab (%cc).7= ««.

. p. s^appcab (%cc).8=0.

. p. s^appcab (%cc).10=0.

. p. s^appcab (%cc).11=0.

. p. s^appcab (%cc).13=0.

і $e (^appstat («CMD », «COM »), 1,1)= «O «d.

. d addjrn («З «_%cc, «OFF «_$p (^appcab (%cc),$zp, 4)).

. p. s^appcab (%cc).14=-1.

. і^appcab (%cc).2=1 d.

. p. s^appcab (%cc).1=3.

. p. s^appzxcab (%cc)=^appcab (%cc).

. і^appcab (%cc).2=2 d.

. і^appcab (%cc).1=1 p. s^appcab (%cc).4=0 d^iaphcabbckg (%cc).

. p. s^appcab (%cc).1=0.

. p. s^appcab (%cc).5= «СВОБ «.

p.s^appstat («CMD »)= «R «.

w «V* »; життєвий тик-так.

g nxtchr.

oprcmderr.

d addjrn («OPER », «Unknown command » ,^appstat («CMD »)).

g nxtchr.

gend.

q %res.

; —————————————————;

dec2hex (%dec); Конвертор з десяткового вересня 5 байт для АПП.

n %hex,%kop,%hh,%hl,%lh,%ll,%al.

p.s %hh=%dec16777216.

p.s %hl=(%dec-(%hh*16 777 216))65536.

p.s %lh=(%dec-(%hh*16 777 216)-(%hl*65 536))256.

p.s %ll=(%dec-(%hh*16 777 216)-(%hl*65 536)-(%lh*256))1.

p.s %al=(%dec-(%dec1)*100)1.

p.s %hex=$c (%al,%ll,%lh,%hl,%hh).

q %hex.

; ————————————————-;

errhndr.

n %ei,%iiii.

p.s %ei=$zzerr.

d addjrn («ERROR » ,$zename ($p (%ei, «, «, 1)),$$GetDTQ^AppSys ()).

d init^%errlog.

g inerror^iapbckg.

; ————————————————-;

inreestr (%increment,%z).

n %mess,%denn,%oper,%smen.

p.s %mess=^appstat (1, «NOM_MESS »).

p.s %denn=^appstat (1, «NOM_DENN »).

p.s %oper=^appstat (1, «NOM_OPER »).

p.s %smen=^appstat (1, «NOM_SMEN »).

; ОБЩИЙ.

l +^AppSmena.

p.s^AppSmena (%mess,%denn,%oper,%smen).6=$p (^AppSmena (%mess,%denn,%oper,%smen),$zp, 6)+%increment.

; СУТО ВСЕ ПО АК.

і %z=0 p. s^AppSmena (%mess,%denn,%oper,%smen).30=$p (^AppSmena (%mess,%denn,%oper,%smen),$zp, 30)+%increment g inree1.

і %z.

p.s^AppSmena (%mess,%denn,%oper,%smen).29=$p (^AppSmena (%mess,%denn,%oper,%smen),$zp, 29)+%increment.

inree1.

l -^AppSmena.

q.

; —————————————————-;

addjrn (%ind,%txt,%res).

n %id.

p.s %id=$o (^appjrn (%ind, «»),-1)+1.

p.s^appjrn (%ind,%id, «MSG »)=$g (%txt).

p.s^appjrn (%ind,%id, «RES »)=$g (%res).

p.s^appjrn (%ind,%id, «TIME »)=$$GetDTQ^AppSys.

k^appjrn (%ind,%id-200).

q.

; —————————————————.

ДОДАТОК 4.

Текст програми АРМ АПД РК.

; IAKoff Save, %n, 05/06/96.

iaphand.

iaphand ;IAKoff;12:49 PM 2 Mar 1996.

n %T,%DEMO.

p.s %DEMO= «DEMO VERSION FOR DOORS «.

l +^ReestrIndRK:1.

p.s %T=$TEST.

і %T=0 l -^ReestrIndRK q.

d ^iaphandinit.

d ORDERLIST^iaphandsub.

l -^ReestrIndRK.

q.

; —————————————————————————————;

ADDORDER (%nord).

n %f,%addtime,%zone,%tarif,%tarif1,%notify,%key,%ef,%DDDD,%HHHH.

n %month,%ltarif.

p.s %ltarif=0.

p.s %DDDD=$p ($h, «, «, 1).

p.s %HHHH=$p ($h, «, «, 2).

p.s %f («FAST »)=0 p. s %f («TOTAL »)=0 p. s %f («TIME »)=3.

і $g (%nord)= «» g add.

і $p (^appstat («ORDERS » ,%nord),$c (30), 20) «= «» g VIEWORDER.

d str2frm^uf58(«%f » ,^appstat («ORDERS » ,%nord),$c (30), «iap!HORD »).

p.s %notify=$p (^appstat («ORDERS » ,%nord),$c (30), 18).

p.s %ef=1.

g edd.

add.

p.s %ef=0.

p.s %key=$$^dp58dlg (10,30,15,50, «ОФОРМЛЕННЯ ЗАМОВЛЕННЯ », «ПОТОЧНИЙ «_%_ «ПОВІДОМЛЕННЯ », «», 2, «», «VC ») і $p (%key,%, 2)= «KEYESC «q.

p.s %notify=$p (%key,%, 1)-1.

p.s %nord=$g (^appstat («LASTORDER »))+1.

p.s %month=$g (^appstat («LASTORDER », «MONTH »)).

і ($p ($zdate, «/ «, 1)+0) «=%month p. s %nord=1 p. s %month=($p ($zdate, «/ «, 1)+0).

edd.

d drscr^uf58($s (%notify=0: «iap!HORD » ,%notify=1: «iap!NORD »)).

w /color (7,0),/c (20,3),$j (%nord, 3).

і $$get^uf58($s (%notify=0: «iap!HORD » ,%notify=1: «iap!NORD »), «%f »)= «ESC «q.

p.s %f («X »)=%addtime,%f («Y »)=%tarif,%f («Z »)=%zone,%f («ZZ »)=%notify.

p.s^appstat («ORDERS » ,%nord)=$$frm2str^uf58(«%f » ,%)_%_$h_%_ «» _%_%APPSYS («NOM_OPER »).

p.s $p (^appstat («ORDERS » ,%nord),$c (30), 25)=%ltarif.

і %ef=0 p. s^appstat («LASTORDER »)=%nord p. s^appstat («LASTORDER », «MONTH »)=%month.

q.

; —————————————————————————————;

VIEWORDER.

d str2frm^uf58(«%f » ,^appstat («ORDERS » ,%nord),$c (30), «iap!HORD »).

p.s %notify=$p (^appstat («ORDERS » ,%nord),$c (30), 18).

p.s %tarif1=$p (^appstat («ORDERS » ,%nord),$c (30), 16).

p.s %addtime=$p (^appstat («ORDERS » ,%nord),$c (30), 15).

d drscr^uf58($s (%notify=0: «iap!HORD » ,%notify=1: «iap!NORD » ,%notify=2: «iap!FORD »)).

w /color (7,0),/c (20,3),$j (%nord, 3).

d redraw^uf58($s (%notify=0: «iap!HORD » ,%notify=1: «iap!NORD » ,%notify=2: «iap!FORD »), «%f »).

w /c (57,5),/color (7,0),$zzc (%tarif1,13).

w /color (7,0),/c (38,10),$j (%addtime, 3).

w /color (7,0),/c (26,3), «Оператор МТТС: «_$j ($p (^appstat («ORDERS » ,%nord),$c (30), 24), 3).

vo1.

p.s %key=$$RKey^uf58() і %key= «KEYNOPRESS «g vo1.

q.

; —————————————————————————————;

OutCOUNTRY ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q %ufNEWDATA.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

і $p (%ufNEWDATA,$c (30), 1)= «» q «СНД «_$c (30)_$p (%ufNEWDATA,$c (30), 2).

і $p (%ufNEWDATA,$c (30), 1)= «СНД «q %ufNEWDATA.

n %id,%res.

p.s %id=$p (%ufNEWDATA,$c (30), 1).

і $d (^appACDC (%id))>0 q %ufNEWDATA.

p.s %res=$$LIST^dp58Sel («^appACDC (%id) », «%id », 20,13,40,8, «», 0, «SINGLE », «», «DrawCOUNTRY^iaphand »).

і $p (%res,$c (30), 2)= «KEYESC «q «PROBLEM «.

q %id_$c (30)_ «KEYENTER «.

DrawCOUNTRY.

і %dpINDEX= «DRAWFREE «w $j («» ,%dpSX) q.

w $j (%id,%dpSX) q.

OutSHTAT ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

n %id,%id1,%res.

p.s %id=$p (%ufNEWDATA,$c (30), 1).

p.s %id1=%f («COUNTRY ») і %id1= «СНД «g OutSHT1.

і %id= «» g OutSHT0.

і $d (^appACDC (%id1,%id))>0 q %ufNEWDATA.

OutSHT0.

p.s %res=$$LIST^dp58Sel («^appACDC (%id1,%id) », «%id », 20,13,40,8, «», 0, «SINGLE », «», «DrawCOUNTRY^iaphand »).

g OutSHT2.

OutSHT1.

і %id= «» g OutSHT3.

і $d (^app8ACDC (%id))>0 q %ufNEWDATA.

OutSHT3.

p.s %res=$$LIST^dp58Sel («^app8ACDC (%id) », «%id », 20,13,40,8, «», 0, «SINGLE », «», «DrawCOUNTRY^iaphand »).

OutSHT2.

і $p (%res,$c (30), 2)= «KEYESC «q «PROBLEM «.

q %id_$c (30)_ «KEYENTER «.

InREGION ().

p.s %f («REGION »)= ««.

і %f («COUNTRY ») «= «СНД «q «FIELDOFF «.

q %ufOLDDATA.

OutREGION ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

n %id1,%id,%res.

p.s %id1=%f («SHTAT »).

p.s %id=$p (%ufNEWDATA,$c (30), 1).

і %id= «» q %ufNEWDATA.

і $d (^app8ACDC (%id1,%id))>0 q %ufNEWDATA.

p.s %res=$$LIST^dp58Sel («^app8ACDC (%id1,%id) », «%id », 20,13,40,8, «», 0, «SINGLE », «», «DrawCOUNTRY^iaphand »).

і $p (%res,$c (30), 2)= «KEYESC «q «PROBLEM «.

q %id_$c (30)_ «KEYENTER «.

OutTARGET ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

q %ufNEWDATA.

InCODE ().

і %f («COUNTRY ») «= «СНД «q^appACDC (%f («COUNTRY »),%f («SHTAT »)).

і (^app8ACDC (%f («SHTAT »))=^AppSys58(«KOD_OBLS »))&(%f («REGION »)= «») q 2.

і %f («REGION »)= «» q^app8ACDC (%f («SHTAT »)).

і^app8ACDC (%f («SHTAT »))=^AppSys58(«KOD_OBLS ») q 2_^app8ACDC (%f («SHTAT »),%f («REGION »)).

q^app8ACDC (%f («SHTAT »))_^app8ACDC (%f («SHTAT »),%f («REGION »)).

OutCODE ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

і $l ($p (%ufNEWDATA,$c (30), 1)).

n %code p. s %code=$e ($p (%ufNEWDATA,$c (30), 1), 1,3).

і %f («COUNTRY »)= «СНД «g outcod.

і $g (^appMGTRF (%code))= «» p. s^appMGTRF (%code)=3.

p.s %zone=^appMGTRF (%code).

і $g (^appstat («TARIF », «HAND810 » ,%zone))= «» p. s^appstat («TARIF », «HAND810 » ,%zone)=^appstat («TARIF », «HAND810 », 3).

p.s %tarif1=$$NTARIF (^appstat («TARIF », «HAND810 » ,%zone)).

g outcod1.

outcod.

і $e (%code, 1,1)= «2 «p.s %code=^AppSys58(«KOD_OBLS »).

і $g (^app8MTRF (%code))= «» p. s^app8MTRF (%code)=3.

p.s %zone=^app8MTRF (%code).

і $g (^appstat («TARIF », «HAND8 » ,%zone))= «» p. s^appstat («TARIF », «HAND8 » ,%zone)=^appstat («TARIF », «HAND8 », 3).

p.s %tarif1=$$NTARIF (^appstat («TARIF », «HAND8 » ,%zone)).

outcod1.

w /c (57,5),/color (7,0),$zzc (%tarif1,13).

q %ufNEWDATA.

NTARIF (Str).

p.s %ltarif=$$SHARE^AppSyst (%DDDD,%HHHH).

p.s Str=$p (Str,$c (30),%ltarif+1).

і Str.

q Str.

q %ufNEWDATA.

InPH1().

і %notify p. s %f («PH1 »)= «» q «FIELDOFF «.

q %ufOLDDATA.

OutPH1().

і %notify q $p (%ufNEWDATA,$c (30), 1)_%_ «KEYENTER «.

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

;і $p (%ufNEWDATA,$c (30), 1)= «» q «PROBLEM «.

q %ufNEWDATA.

InDATE ().

;n %dd p. s %dd=$$DATE^dp58sys ().

;і %ufOLDDATA= «» q $p (%dd, «/ «, 1)_$p (%dd, «/ «, 2)_$p (%dd, «/ «, 3).

q %ufOLDDATA.

OutDATE ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

і $e ($p (%ufNEWDATA,$c (30), 1), 5,6)= «» p. s $p (%ufNEWDATA,$c (30), 1)=$p (%ufNEWDATA,$c (30), 1)_ «96 «.

n %d p. s %d=$p (%ufNEWDATA,$c (30), 1).

p.s %DDDD=$$DATE2SYS^dp58sys ($e (%d, 1,2)_ «/ «_$e (%d, 3,4)_ «/ «_$e (%d, 5,6)).

q %ufNEWDATA.

InNTIME ().

;n %dd p. s %dd=$$TIME^dp58sys ().

;і %ufOLDDATA= «» q $p (%dd, «: », 1)_$p (%dd, «: », 2).

q %ufOLDDATA.

OutNTIME ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

n %t p. s %t=$p (%ufNEWDATA,$c (30), 1).

p.s %HHHH=$$TIME2SYS^dp58sys ($e (%t, 1,2)_ «: «_$e (%t, 3,4)).

і %f («COUNTRY »)= «СНД «p.s %tarif1=$$NTARIF (^appstat («TARIF », «HAND8 » ,%zone)).

і %f («COUNTRY ») «= «СНД «p.s %tarif1=$$NTARIF (^appstat («TARIF », «HAND810 » ,%zone)).

w /c (57,5),/color (7,0),$zzc (%tarif1,13).

q %ufNEWDATA.

InADDR ().

q ««.

OutADDR ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

q %ufNEWDATA.

InPH ().

і %notify p. s %f (%ufII)= «» q «FIELDOFF «.

і %f («PH «_($e (%ufII, 3,3)-1))= «» p. s %f (%ufII)= «» q «FIELDOFF «.

q %ufOLDDATA.

OutPH ().

і %notify q «» _%_ «KEYENTER «.

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

q %ufNEWDATA.

OutCALL ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

і (%notify)&($p (%ufNEWDATA,$c (30), 1)= «») q «PROBLEM «.

q %ufNEWDATA.

OutTIME ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

і ($p (%ufNEWDATA,$c (30), 1)= «»)&(%f («PH1 »)= «») g outime2.

і ($p (%ufNEWDATA,$c (30), 1)+0).

і ($p (%ufNEWDATA,$c (30), 1)+0)>255 q «PROBLEM «.

outime2.

p.s %addtime=0.

p.s %addtime=$p (^SpravUsl (61+%notify),%, 4).

і %f («CALL ») «= «» p. s %addtime=%addtime+$p (^SpravUsl (61+%notify, 31),%, 4).

і %notify g outime1.

і %f («PH1 »)= «» p. s %addtime=%addtime+$p (^SpravUsl (61,32),%, 4) g outime1.

і %f («PH5 ») «= «» p. s %addtime=%addtime+$p (^SpravUsl (61,35),%, 4) g outime1.

і %f («PH4 ») «= «» p. s %addtime=%addtime+$p (^SpravUsl (61,34),%, 4) g outime1.

і %f («PH3 ») «= «» p. s %addtime=%addtime+$p (^SpravUsl (61,33),%, 4) g outime1.

outime1.

w /color (7,0),/c (38,10),$j (%addtime, 3).

q %ufNEWDATA.

OutFAST ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

q %ufNEWDATA.

InTOTAL ().

n %summ.

p.s %tarif=%tarif1*$p (^SpravUsl (61+%notify, 10+%f («FAST »)),%, 4).

p.s %summ=%tarif*(%f («TIME »)+%addtime).

w /c (57,5),/color (7,0),$zzc (%tarif, 13).

q $zzoo (%summ).

OutTOTAL ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q $p (%ufNEWDATA,$c (30), 1)_$c (30)_ «KEYUP «.

і $p (%ufNEWDATA,$c (30), 2) «= «KEYENTER «q «PROBLEM «.

q %ufNEWDATA.

AskPrint ().

n %Ret.

askdel.

p.s %Ret=$$^dp58dlg (20,42,23,77, «ПІДТВЕРДИТЕ ПЕЧАТКУ », «Друкувати «_%_ «Не друкувати », «», 2, «7,0,7,0,0,7,7,0 »).

w /color (0,8).

d^dp58box (20,42,23,77,0, «»).

і $p (%Ret,%, 2)= «KEYENTER «q (2-%Ret).

і $p (%Ret,%, 2)= «KEYESC «q 0.

g askdel.

; IAKoff Save, %n, 05/06/96.

iaphandsub.

iaphandsub ;IAKoff;02:41 PM 2 Mar 1996;

q.

SYSH () q %APPSYS («NOM_OPER »)_ «, «_%APPSYS («NOM_SMEN »)_ «, «_%APPSYS («NOM_DENN »)_ «, «_%APPSYS («NOM_MESS »).

ORDERLIST.

n %key,%title,%id.

p.s %title= «Nзк Опр «_$zzr («КРАЇНА », 7)_$zzr («ОБЛАСТЬ », 8)_$zzr («РЕГІОН », 7)_$zzr («НАС.ПУНКТ », 10)_$zzr («УХВАЛЕНО », 9)_$zzr («ПЕРЕДАНИЙ », 9)_$zzr («ЧЕКАЄ «, 6).

ordlist.

p.s %key=$$LIST^dp58Sel («^appstat („“ ORDERS „“ ,%id) », «%id », 2,3,65,8, «», 0, «SINGLE », «Список замовлень «_%_$zzr (%title, 58)_%_ «F2-Принять F4-Ред/Смтр F8-СнятьПрд/Вып/Ост », «DrawORDERS^iaphandsub », «KEYF2,KEYF8,KEYF4 »).

і $p (%key,%, 2)= «KEYESC «q.

і $p (%key,%, 2)= «KEYF2 «d ADDORDER^iaphand () g ordlist.

і %id= «» g ordlist.

і $p (%key,%, 2)= «KEYF4 «d ADDORDER^iaphand (%id) g ordlist.

і ($p (%key,%, 2)= «KEYENTER »)&($p (^appstat («ORDERS » ,%id),%, 23) «= «») d REST (%id) g ordlist.

і ($p (%key,%, 2)= «KEYENTER »)&($p (^appstat («ORDERS » ,%id),%, 20)= «») d SENT (%id) g ordlist.

і $p (%key,%, 2)= «KEYENTER «d EXECUTE (%id) g ordlist.

і $p (%key,%, 2)= «KEYF8 «d ABORT (%id) g ordlist.

g ordlist.

DrawORDERS.

і %dpINDEX= «DRAWFREE «w $j («» ,%dpSX) q.

і %id= «» w $zzr («НЕМАЄ ЗАМОВЛЕНЬ » ,%dpSX) q.

w $zzr (%id, 4).

w $zzr ($e ($p (^appstat («ORDERS » ,%id),%, 21), 1,3), 4).

w $zzr ($e ($p (^appstat («ORDERS » ,%id),%, 3), 1,6), 7).

w $zzr ($e ($p (^appstat («ORDERS » ,%id),%, 11), 1,7), 8).

w $zzr ($e ($p (^appstat («ORDERS » ,%id),%, 10), 1,6), 7).

w $zzr ($e ($p (^appstat («ORDERS » ,%id),%, 12), 1,9), 10).

і $p (^appstat («ORDERS » ,%id),%, 23)= «» g drord3.

w «Залишок: «_$zzc ($p (^appstat («ORDERS » ,%id),%, 23), 17) g drord2.

drord3.

і $p (^appstat («ORDERS » ,%id),%, 18) g drord1.

w $$TIME^dp58sys ($p ($p (^appstat («ORDERS » ,%id),%, 19), «, «, 2))_ ««.

і $p (^appstat («ORDERS » ,%id),%, 20)= «» w «——- «.

e w $$TIME^dp58sys ($p ($p (^appstat («ORDERS » ,%id),%, 20), «, «, 2))_ ««.

w $zzr (($p ($h, «, «, 2)-$p ($p (^appstat («ORDERS » ,%id),%, 19), «, «, 2))60,3)_ «хв «.

g drord2.

drord1.

n %d p. s %d=$p (^appstat («ORDERS » ,%id),$c (30), 5).

w $j ($e (%d, 1,2)_ «/ «_$e (%d, 3,4)_ «/ «_$e (%d, 5,6), 9).

p.s %d=$p (^appstat («ORDERS » ,%id),$c (30), 6) w $j ($e (%d, 1,2)_ «: «_$e (%d, 3,4), 9).

w $j («», 7).

drord2.

q.

SENT (%nord).

n %key,%msg,%notify,%ord,%reestr,%fff.

p.s %ord=^appstat («ORDERS » ,%nord).

p.s %notify=$p (%ord,%, 18).

p.s %msg=%APPSYS («NOM_GOES »)_ «-му птд. зв’язку «_%.

і $p (%ord,%, 4)=1 p. s %msg=%msg_ «ТЕРМІНОВИЙ «_%.

p.s %msg=%msg_$p (%ord,%, 3)_%.

і %notify p. s %msg=%msg_$p (%ord,%, 11)_%.

і %notify p. s %msg=%msg_$p (%ord,%, 10)_%.

і %notify p. s %msg=%msg_$p (%ord,%, 12)_%.

і «%notify p. s %msg=%msg_ «Код: «_$p (%ord,%, 2)_%.

і %notify p. s %msg=%msg_$tr ($p (%ord,%, 7), «» ,%)_%.

і %notify p. s %msg=%msg_ «Дата: «_$p (%ord,%, 5)_%.

e p. s %msg=%msg_ «Тіл: «_$p (%ord,%, 5)_%.

і %notify p. s %msg=%msg_ «Час: «_$p (%ord,%, 6)_%.

і «%notify f %key=6:1:9 і $p (%ord,%,%key) «= «» p. s %msg=%msg_ «чи «_$p (%ord,%,%key)_%.

і $p (%ord,%, 1) «= «» p. s %msg=%msg_ «Запросити «_$p (%ord,%, 1)_%.

p.s %msg=%msg_$p (%ord,%, 13)_ «хвилин «_%.

p.s %key=$$^dp58dlg (3,20,5+$l (%msg,%), 60,%msg, «ПЕРЕДАНИЙ «_%_ «ВІДМОВА », «», 2, «», «»).

і $p (%key,$c (30), 2)= «KEYESC «q.

і $p (%key,$c (30), 1)=2 q.

p.s %fff («NOPER »)= ««.

d drscr^uf58(«iap!HSENT »).

і $$get^uf58(«iap!HSENT », «%fff »)= «ESC «q.

p.s $p (%ord,%, 24)=%fff («NOPER »).

p.s $p (%ord,%, 20)=$p ($h, «, «, 2-$p (%ord,%, 18)).

p.s $p (%ord,%, 28)=$$SYSH.

p.s^appstat («ORDERS » ,%nord)=%ord.

p.s %reestr=$$REESTR^iaphandsub («ПРН » ,%nord,$p (%ord,%, 13),$p (%ord,%, 14),).

d AddOplata^AppSys ($s ($p (%ord,%, 3)= «СНД » :81,1:881),$p (%ord,%, 14),%reestr, «» ,$$KVITAN (%nord,%ord, 0)).

d ADDRRR (%reestr).

і $$AskPrint^iaphand () d PrintKvit^AppSysd.

e d NewKvit^AppSysd.

q.

InTIME ().

і ($p (^appstat («ORDERS » ,%id),%, 13)+0).

і $p (^appstat («ORDERS » ,%id),%, 13) «>3 p. s %fff («TIME »)=3 q «FIELDOFF «.

q $p (^appstat («ORDERS » ,%id),%, 13).

OutTIME ().

і $p (%ufNEWDATA,$c (30), 2)= «KEYESC «q %ufNEWDATA.

і ($p (%ufNEWDATA,$c (30), 1)+0).

і ($p (%ufNEWDATA,$c (30), 1)+0)>$p (^appstat («ORDERS » ,%id),%, 13) q «PROBLEM «.

q %ufNEWDATA.

InTEL ().

n %ntel,%i.

і $p (^appstat («ORDERS » ,%id),%, 18)=1 p. s %fff («TEL »)=0 q «FIELDOFF «.

p.s %ntel=0 f %i=5:1:9 і $p (^appstat («ORDERS » ,%id),%,%i) «= «» p. s %ntel=%ntel+1.

і %ntel=1 p. s %fff («TEL »)=1 q «FIELDOFF «.

q %ntel.

OutTEL ().

n %ntel,%i.

p.s %ntel=0 f %i=5:1:9 і $p (^appstat («ORDERS » ,%id),%,%i) «= «» p. s %ntel=%ntel+1.

і %ntel=0 q %ufNEWDATA.

і ($p (%ufNEWDATA,$c (30), 1)+0).

і ($p (%ufNEWDATA,$c (30), 1)+0)>%ntel q «PROBLEM «.

q %ufNEWDATA.

EXECUTE (%nord).

n %fff,%reestr,%tsumm,%ord,%ntel,%i,%key.

p.s %ntel=0.

і $p (^appstat («ORDERS » ,%nord),%, 18) g exec2.

f %i=5:1:9 і $p (^appstat («ORDERS » ,%id),%,%i) «= «» p. s %ntel=%ntel+1.

exec2.

p.s %ord=^appstat («ORDERS » ,%nord).

p.s %fff («TIME »)=$p (%ord,%, 13).

d drscr^uf58(«iap!HEXEC »).

і $$get^uf58(«iap!HEXEC », «%fff »)= «ESC «q.

p.s %fff («NOPER »)=$p (%ord,%, 24).

d drscr^uf58(«iap!HSTOL »).

і $$get^uf58(«iap!HSTOL », «%fff »)= «ESC «q.

p.s $p (%ord,%, 24)=%fff («NOPER »).

p.s %key=$$^dp58dlg (7,20,11,60, «Підтвердіть виконання », «ВИКОНАТИ «_%_ «СКАСУВАННЯ », «», 2, «», «»).

і $p (%key,$c (30), 2)= «KEYESC «g exec2.

і $p (%key,$c (30), 1)=2 q.

p.s $p (%ord,%, 22)=%fff («TIME »).

і %ntel=0 p. s $p (%ord,%, 27)=%fff («TEL ») g exec1.

p.s %i=0 і %ntel>2 p. s %i=$p (^SpravUsl (61,30+%ntel),%, 4).

p.s $p (%ord,%, 15)=$p (%ord,%, 15)-%i.

p.s %i=0 і %fff («TEL »)>2 p. s %i=$p (^SpravUsl (61,30+%fff («TEL »)),%, 4).

p.s $p (%ord,%, 15)=$p (%ord,%, 15)+%i.

p.s $p (%ord,%, 27)=%fff («TEL »).

exec1.

p.s %tsumm=$zzoo ((%fff («TIME »)+$p (%ord,%, 15))*$p (%ord,%, 16)).

p.s %rest=$p (%ord,%, 14)-%tsumm.

p.s $p (%ord,%, 23)=%rest.

і %rest=0 p. s %key=1 g exec11.

p.s %key=$$^dp58dlg (3,20,7,60, «Невже клієнт з’явився за залишком? », «З'ЯВИВСЯ «_%_ «НЕ З’ЯВИВСЯ », «», 2, «», «»).

і $p (%key,$c (30), 2)= «KEYESC «g exec2.

exec11.

p.s^appstat («ORDERS » ,%nord)=%ord.

p.s %reestr=$$REESTR («ВИП » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%tsumm,).

;d AddOplata^AppSys ($s ($p (%ord,%, 3)= «СНД » :82,1:882),%tsumm,%reestr).

d AddOplata^AppSys ($s ($p (%ord,%, 3)= «СНД » :82,1:882), 0,%reestr).

d ADDRRR (%reestr).

і $p (%key,$c (30), 1)=1 g exec4.

p.s %reestr=$$REESTR («НЕВ » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%rest).

d AddOplata^AppSys ($s ($p (%ord,%, 3)= «СНД » :84,1:884), 0,%reestr, «», «Замовлення «_%nord).

d ADDRRR (%reestr).

g exec3.

exec4.

p.s %reestr=$$REESTR («ОСТ » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%rest).

p.s %i=$s ($p (%ord,%, 3)= «СНД » :85,1:885).

p.s %i=%i+($$SYSH=$p (%ord,%, 28)).

d AddOplata^AppSys (81,$p (%ord,%, 14), «», «» ,$$KVITAN (%nord,%ord, 1), «p »).

d AddOplata^AppSys (%i,-%rest,%reestr).

d ADDRRR (%reestr).

і %rest>0 p. s %key=$$^dp58msg (3,20, «Панянка, «_%_ «поверніть пожалуста клієнту залишок «_%_$zzc (%rest), 0).

k^appstat («ORDERS » ,%nord).

і $$AskPrint^iaphand () d PrintKvit^AppSysd.

e d NewKvit^AppSysd.

exec3.

q.

ABORT (%nord).

n %ord,%notify,%tarif,%key,%id,%tsumm,%rest,%reestr,%ttime,%fff.

p.s %ord=^appstat («ORDERS » ,%nord) p. s %notify=$p (%ord,%, 18).

і $p (%ord,%, 20)= «» p. s %key=$$^dp58msg (3,20, «Дівчина з цими двома веслами, «_%_ «не можна знімати замовлення «_%_ «коли його ще педерали », 0) q.

p.s %tarif=$p (%ord,%, 16).

abr2.

p.s %id= ««.

p.s %key=$$LIST^dp58Sel («^SpravUsl (61+%notify, 51,%id) », «%id », 60,3,10,11, «», 0, «SINGLE », «Причина », «DrawREASON^iaphandsub »).

і $p (%key,%, 2)= «KEYESC «q.

p.s $p (%ord,%, 26)=$p (^SpravUsl (61+%notify, 51,%id),%, 1).

p.s %ttime=$p (^SpravUsl (61+%notify, 50,%id),%, 4).

і $p (%ord,%, 1) «= «» p. s %ttime=%ttime+$p (^SpravUsl (61+%notify, 51,%id),%, 4).

і %notify g abr1.

і $p (%ord,%, 5)= «» p. s %ttime=%ttime+$p (^SpravUsl (61,52,%id),%, 4) g abr1.

і $p (%ord,%, 9) «= «» p. s %ttime=%ttime+$p (^SpravUsl (61,55,%id),%, 4) g abr1.

і $p (%ord,%, 8) «= «» p. s %ttime=%ttime+$p (^SpravUsl (61,54,%id),%, 4) g abr1.

і $p (%ord,%, 7) «= «» p. s %ttime=%ttime+$p (^SpravUsl (61,53,%id),%, 4) g abr1.

abr1.

p.s %fff («NOPER »)=$p (%ord,%, 24).

d drscr^uf58(«iap!HSTOL »).

і $$get^uf58(«iap!HSTOL », «%fff »)= «ESC «g abr2.

p.s $p (%ord,%, 24)=%fff («NOPER »).

p.s %tsumm=$zzoo (%ttime*$p (%ord,%, 16)).

p.s %rest=$p (%ord,%, 14)-%tsumm.

p.s $p (%ord,%, 23)=%rest.

p.s %key=$$^dp58dlg (3,20,7,60, «Невже клієнт з’явився за залишком? », «З'ЯВИВСЯ «_%_ «НЕ З’ЯВИВСЯ », «», 2, «», «»).

і $p (%key,$c (30), 2)= «KEYESC «g abr2.

p.s^appstat («ORDERS » ,%nord)=%ord.

p.s %reestr=$$REESTR («СНТ » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%tsumm,).

d AddOplata^AppSys ($s ($p (%ord,%, 3)= «СНД » :82,1:882), 0,%reestr).

d ADDRRR (%reestr).

і $p (%key,$c (30), 1)=1 g abr4.

p.s %reestr=$$REESTR («НЕВ » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%rest).

d AddOplata^AppSys ($s ($p (%ord,%, 3)= «СНД » :84,1:884), 0,%reestr, «», «Замовлення «_%nord).

d ADDRRR (%reestr).

g abr3.

abr4.

p.s %reestr=$$REESTR («ОСТ » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%rest).

p.s %i=$s ($p (%ord,%, 3)= «СНД » :85,1:885).

p.s %i=%i+($$SYSH=$p (%ord,%, 28)).

d AddOplata^AppSys (81,$p (%ord,%, 14), «», «» ,$$KVITAN (%nord,%ord, 1), «p »).

d AddOplata^AppSys (%i,-%rest,%reestr).

d ADDRRR (%reestr).

і %rest>0 p. s %key=$$^dp58msg (3,20, «Панянка, «_%_ «поверніть пожалуста клієнту залишок «_%_$zzc (%rest), 0).

k^appstat («ORDERS » ,%nord).

і $$AskPrint^iaphand () d PrintKvit^AppSysd.

e d NewKvit^AppSysd.

abr3.

q.

DrawREASON.

і %dpINDEX= «DRAWFREE «w $j («» ,%dpSX) q.

w $zzr ($p (^SpravUsl (61+%notify, 51,%id),%, 1),%dpSX) q.

REST (%nord).

n %ord,%notify,%tarif,%key,%id,%tsumm,%rest,%reestr,%ttime,%i.

p.s %ord=^appstat («ORDERS » ,%nord) p. s %notify=$p (%ord,%, 18).

p.s %key=$$^dp58dlg (3,20,7,60, «Невже клієнт з’явився за залишком? », «З'ЯВИВСЯ «_%_ «НЕ З’ЯВИВСЯ », «», 2, «», «»).

і $p (%key,$c (30), 2)= «KEYESC «q.

і $p (%key,$c (30), 1)=2 q.

p.s %rest=$p (%ord,%, 23).

p.s %reestr=$$REESTR («ВЗВ » ,%nord,$p (%ord,%, 13),$p (%ord,%, 22),%rest).

p.s %i=$s ($p (%ord,%, 3)= «СНД » :85,1:885).

p.s %i=%i+($$SYSH=$p (%ord,%, 28)).

d AddOplata^AppSys (81,$p (%ord,%, 14), «», «» ,$$KVITAN (%nord,%ord, 1), «p »).

d AddOplata^AppSys (%i,-%rest,%reestr).

d ADDRRR (%reestr).

і %rest>0 p. s %key=$$^dp58msg (3,20, «Дівчина з веслом, «_%_ «поверніть пожалуста клієнту залишок «_%_$zzc (%rest), 0).

k^appstat («ORDERS » ,%nord).

і $$AskPrint^iaphand () d PrintKvit^AppSysd.

e d NewKvit^AppSysd.

q.

REESTR (%SUBJECT,%NORD,%FULLTIME,%TOTALTIME,%DEPOSIT,%TOTAL,%REST).

n %r,%z,%t.

p.s %z=^appstat («ORDERS » ,%NORD).

p.s %r.1=8.

p.s %r.2=%APPSYS («NOM_GOES »).

p.s %r.3=%APPSYS («NOM_OPER »).

p.s %r.4=$p ($$GetDTQ^AppSys,%, 1).

p.s %r.5=%NORD.

p.s %r.6=%APPSYS («NOM_KVIT »); НОМЕР КВИТАНЦИИ.

p.s %r.7= «» і %SUBJECT= «ПРН «p.s %r.7=%APPSYS («NOM_OPER »).

p.s %r.8= «» і %SUBJECT= «ПРН «p.s %r.8=$p (%z,%, 19); $h прийняття заказа.

p.s %r.9=$p (%z,%, 24); номер опреатора який взяв замовлення столе.

p.s %r.10= «» і %SUBJECT= «ПРН «p.s %r.10=$p (%z,%, 20); $h передачі заказа.

p.s %r.11= «» і %SUBJECT «= «ПРН «p.s %r.11=%APPSYS («NOM_OPER »).

p.s %r.12= «» і %SUBJECT «= «ПРН «p.s %r.12=$h; виконання заказа.

p.s %r.13=$g (%FULLTIME).

p.s %r.14=$g (%TOTALTIME).

p.s %r.15=$p (%z,%, 17).

p.s %r.16=%SUBJECT.

p.s %r.17=$p (%z,%, 2).

p.s %r.18=$p (%z,%, 16).

p.s %r.19=$p (%z,%, 3).

p.s %r.20= «ЗВИЧАЙНИЙ «і $p (%z,%, 4)=1 p. s %r.20= «ТЕРМІНОВИЙ «.

p.s %r.21=$p (%z,%, 11).

p.s %r.22=$p (%z,%, 15).

p.s %r.23=$g (%DEPOSIT).

p.s %r.24=$g (%TOTAL).

p.s %r.25=$g (%REST).

p.s %r.26= «» і $p (%z,%, 25)=1 p. s %r.26= «ПІЛЬГОВИЙ «.

p.s %r.27=$p (%z,%, 10).

p.s %r.28=$p (%z,%, 12).

p.s %r.29= ««.

і $p (%z,%, 18) d.

. p. s %r.29=$$DATE2SYS^dp58sys ($e ($p (%z,%, 5), 1,2)_ «/ «_$e ($p (%z,%, 5), 3,4)_ «/ «_$e ($p (%z,%, 5), 5,6))_ «, «_$$TIME2SYS^dp58sys ($e ($p (%z,%, 6), 1,2)_ «: «_$e ($p (%z,%, 6), 3,4)).

p.s %t=$p (%z,%, 5)_ «, «_$p (%z,%, 6)_ «, «_$p (%z,%, 7)_ «, «_$p (%z,%, 8)_ «, «_$p (%z,%, 9).

і $p (%z,%, 27) «= «» p. s $p (%t, «, «,$p (%z,%, 27))= «[ «_$p (%t, «, «,$p (%z,%, 27))_ «] «.

p.s %r.30=%t.

і $p (%z,%, 18) p. s %r.30=$p (%z,%, 7).

p.s %r.31=$p (%z,%, 1).

p.s %r.32=$p (%z,%, 24).

p.s %r.33=$p (%z,%, 26).

і $p (%z,%, 27) «= «» p. s %r.33=$p (%z,%, 27)_ «» _$p (%z,%, 26).

p.s %r.34=$p (%z,%, 23).

q %r.

ADDRRR (%RRR).

p.s^ReestrIndRK ($p (%RRR,$c (30), 5),$p (%RRR,$c (30), 16))=%APPSYS («LAST_IND »).

q.

KVITAN (%NORD,%ORD,%RESTF).

n %kv,%d p. s %kv= «Замовлення N «_%NORD.

p.s %kv=%kv_$c (13)_$p (%ORD,%, 11).

p.s %d=$p (%ORD,%, 5).

і $p (%ORD,%, 18).

p.s %kv=%kv_$c (13)_$e (%d, 1,2)_ «/ «_$e (%d, 3,4)_ «/ «_$e (%d, 5,6).

p.s %d=$p (%ORD,%, 6).

і $p (%ORD,%, 18).

p.s %kv=%kv_$c (13)_$e (%d, 1,2)_ «: «_$e (%d, 3,4).

і %RESTF p. s %kv=%kv_$c (13)_$p (%ORD,%, 2)_ «- «_$p (%ORD,%, 4+$p (%ORD,%, 27)).

q %kv.

; IAKoff Save, %n, 05/06/96.

iaphandinit.

iaphandinit ;IAKoff;02:06 PM 12 Feb 1996;

і $g (^SpravUsl (61))= «» p. s^SpravUsl (61)= «РУЧНИЙ ЗАКАЗ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,10))= «» p. s^SpravUsl (61,10)= «ОБЫЧНЫЙ#1#1#1#0#разы «.

і $g (^SpravUsl (61,11))= «» p. s^SpravUsl (61,11)= «СРОЧНЫЙ#1#1#2#0#разы «.

і $g (^SpravUsl (61,31))= «» p. s^SpravUsl (61,31)= «ПРИГЛАШЕНИЕ#0#0#1#0#мин. «.

і $g (^SpravUsl (61,32))= «» p. s^SpravUsl (61,32)= «СПРАВКА#0#0#2#0#мин. «.

і $g (^SpravUsl (61,33))= «» p. s^SpravUsl (61,33)= «ВИКЛИК ПО 3 ТЛФ.#0#0#1#0#мин. «.

і $g (^SpravUsl (61,34))= «» p. s^SpravUsl (61,34)= «ВИКЛИК ПО 4 ТЛФ.#0#0#2#0#мин. «.

і $g (^SpravUsl (61,35))= «» p. s^SpravUsl (61,35)= «ВИКЛИК ПО 5 ТЛФ.#0#0#3#0#мин. «.

і $g (^SpravUsl (61,50))= «» p. s^SpravUsl (61,50)= «СНЯТИЕ ЗАКАЗА#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,1))= «» p. s^SpravUsl (61,50,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (61,50,2))= «» p. s^SpravUsl (61,50,2)= «НВЛ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,3))= «» p. s^SpravUsl (61,50,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,4))= «» p. s^SpravUsl (61,50,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,5))= «» p. s^SpravUsl (61,50,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,6))= «» p. s^SpravUsl (61,50,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,7))= «» p. s^SpravUsl (61,50,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,8))= «» p. s^SpravUsl (61,50,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,9))= «» p. s^SpravUsl (61,50,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,10))= «» p. s^SpravUsl (61,50,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,50,11))= «» p. s^SpravUsl (61,50,11)= «ЗНЯ#666#0#1#0#мин. «.

і $g (^SpravUsl (61,51))= «» p. s^SpravUsl (61,51)= «СНЯТИЕ З ПРИГЛАШЕНИЯ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,1))= «» p. s^SpravUsl (61,51,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (61,51,2))= «» p. s^SpravUsl (61,51,2)= «НВЛ#0#0#1#0#мин. «.

і $g (^SpravUsl (61,51,3))= «» p. s^SpravUsl (61,51,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,4))= «» p. s^SpravUsl (61,51,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,5))= «» p. s^SpravUsl (61,51,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,6))= «» p. s^SpravUsl (61,51,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,7))= «» p. s^SpravUsl (61,51,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,8))= «» p. s^SpravUsl (61,51,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,9))= «» p. s^SpravUsl (61,51,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,10))= «» p. s^SpravUsl (61,51,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,51,11))= «» p. s^SpravUsl (61,51,11)= «ЗНЯ#666#0#1#0#мин. «.

і $g (^SpravUsl (61,52))= «» p. s^SpravUsl (61,52)= «СНЯТИЕ ЗІ СПРАВКИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,1))= «» p. s^SpravUsl (61,52,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (61,52,2))= «» p. s^SpravUsl (61,52,2)= «НВЛ#0#0#1#0#мин. «.

і $g (^SpravUsl (61,52,3))= «» p. s^SpravUsl (61,52,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,4))= «» p. s^SpravUsl (61,52,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,5))= «» p. s^SpravUsl (61,52,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,6))= «» p. s^SpravUsl (61,52,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,7))= «» p. s^SpravUsl (61,52,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,8))= «» p. s^SpravUsl (61,52,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,9))= «» p. s^SpravUsl (61,52,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,10))= «» p. s^SpravUsl (61,52,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,52,11))= «» p. s^SpravUsl (61,52,11)= «ЗНЯ#666#0#1#0#мин. «.

і $g (^SpravUsl (61,53))= «» p. s^SpravUsl (61,53)= «СНЯТИЕ З 3-Х ТЕЛЕФОНОВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,1))= «» p. s^SpravUsl (61,53,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (61,53,2))= «» p. s^SpravUsl (61,53,2)= «НВЛ#0#0#1#0#мин. «.

і $g (^SpravUsl (61,53,3))= «» p. s^SpravUsl (61,53,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,4))= «» p. s^SpravUsl (61,53,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,5))= «» p. s^SpravUsl (61,53,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,6))= «» p. s^SpravUsl (61,53,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,7))= «» p. s^SpravUsl (61,53,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,8))= «» p. s^SpravUsl (61,53,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,9))= «» p. s^SpravUsl (61,53,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,10))= «» p. s^SpravUsl (61,53,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,53,11))= «» p. s^SpravUsl (61,53,11)= «ЗНЯ#666#0#1#0#мин. «.

і $g (^SpravUsl (61,54))= «» p. s^SpravUsl (61,54)= «СНЯТИЕ З 4-Х ТЕЛЕФОНОВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,1))= «» p. s^SpravUsl (61,54,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (61,54,2))= «» p. s^SpravUsl (61,54,2)= «НВЛ#0#0#1#0#мин. «.

і $g (^SpravUsl (61,54,3))= «» p. s^SpravUsl (61,54,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,4))= «» p. s^SpravUsl (61,54,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,5))= «» p. s^SpravUsl (61,54,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,6))= «» p. s^SpravUsl (61,54,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,7))= «» p. s^SpravUsl (61,54,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,8))= «» p. s^SpravUsl (61,54,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,9))= «» p. s^SpravUsl (61,54,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,10))= «» p. s^SpravUsl (61,54,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,54,11))= «» p. s^SpravUsl (61,54,11)= «ЗНЯ#666#0#1#0#мин. «.

і $g (^SpravUsl (61,55))= «» p. s^SpravUsl (61,55)= «СНЯТИЕ З 5-ТИ ТЕЛЕФОНОВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,1))= «» p. s^SpravUsl (61,55,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (61,55,2))= «» p. s^SpravUsl (61,55,2)= «НВЛ#0#0#1#0#мин. «.

і $g (^SpravUsl (61,55,3))= «» p. s^SpravUsl (61,55,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,4))= «» p. s^SpravUsl (61,55,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,5))= «» p. s^SpravUsl (61,55,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,6))= «» p. s^SpravUsl (61,55,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,7))= «» p. s^SpravUsl (61,55,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,8))= «» p. s^SpravUsl (61,55,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,9))= «» p. s^SpravUsl (61,55,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,10))= «» p. s^SpravUsl (61,55,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (61,55,11))= «» p. s^SpravUsl (61,55,11)= «ЗНЯ#666#0#1#0#мин. «.

і $g (^SpravUsl (62))= «» p. s^SpravUsl (62)= «ЗАМОВЛЕННЯ ПО УВЕДОМЛЕНИЮ#0#0#1#0#мин. «.

і $g (^SpravUsl (62,10))= «» p. s^SpravUsl (62,10)= «ОБЫЧНЫЙ#1#1#1#0#разы «.

і $g (^SpravUsl (62,11))= «» p. s^SpravUsl (62,11)= «СРОЧНЫЙ#1#1#2#0#разы «.

і $g (^SpravUsl (62,31))= «» p. s^SpravUsl (62,31)= «ПРИГЛАШЕНИЕ#0#0#1#0#мин. «.

і $g (^SpravUsl (62,32))= «» p. s^SpravUsl (62,32)= «СПРАВКА#0#0#1#0#мин. «.

і $g (^SpravUsl (62,50))= «» p. s^SpravUsl (62,50)= «СНЯТИЕ ЗАКАЗА#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,1))= «» p. s^SpravUsl (62,50,1)= «ОМС#0#0#2#0#мин. «.

і $g (^SpravUsl (62,50,2))= «» p. s^SpravUsl (62,50,2)= «НВЛ#0#0#2#0#мин. «.

і $g (^SpravUsl (62,50,3))= «» p. s^SpravUsl (62,50,3)= «NoНО#0#0#2#0#мин. «.

і $g (^SpravUsl (62,50,4))= «» p. s^SpravUsl (62,50,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,5))= «» p. s^SpravUsl (62,50,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,6))= «» p. s^SpravUsl (62,50,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,7))= «» p. s^SpravUsl (62,50,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,8))= «» p. s^SpravUsl (62,50,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,9))= «» p. s^SpravUsl (62,50,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (62,50,10))= «» p. s^SpravUsl (62,50,10)= «ОДС#0#0#2#0#мин. «.

і $g (^SpravUsl (62,50,11))= «» p. s^SpravUsl (62,50,11)= «ЗНЯ#666#0#2#0#мин. «.

і $g (^SpravUsl (62,51))= «» p. s^SpravUsl (62,51)= «СНЯТИЕ З ПРИГЛАШЕНИЯ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,1))= «» p. s^SpravUsl (62,51,1)= «ОМС#0#0#1#0#мин. «.

і $g (^SpravUsl (62,51,2))= «» p. s^SpravUsl (62,51,2)= «НВЛ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,3))= «» p. s^SpravUsl (62,51,3)= «NoНО#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,4))= «» p. s^SpravUsl (62,51,4)= «ПВ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,5))= «» p. s^SpravUsl (62,51,5)= «ПС#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,6))= «» p. s^SpravUsl (62,51,6)= «ТИ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,7))= «» p. s^SpravUsl (62,51,7)= «СО#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,8))= «» p. s^SpravUsl (62,51,8)= «РВ#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,9))= «» p. s^SpravUsl (62,51,9)= «ВК#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,10))= «» p. s^SpravUsl (62,51,10)= «ОДС#0#0#0#0#мин. «.

і $g (^SpravUsl (62,51,11))= «» p. s^SpravUsl (62,51,11)= «ЗНЯ#666#0#1#0#мин. «.

q.

ДОДАТОК 5.

Текст програми стартера монитора.

; IAKoff Save, %n, 05/06/96.

iapmon.

iapmon ;IAKoff;11:47 PM 23 Jan 1996;

q.

;Обслуговування АПП-РК.

run ().

n %nname,%d.

і $g (^appstat («NODE »)) «=$znode q 1.

p.s %d=$g (^appstat («DEVICE »))+0.

і (%d108) q 2.

і $$tstjob () «= «» g endrun.

p.s^appstat (1)= «F «p.s^appstat (2)= «F «p.s^appstat (3)= «F «.

j^iapbckg (^appstat («DEVICE »)):(name= «APP-MON » :strstk=8000:sysstk=8000).

endrun.

q 0.

; ———————————————————-;

tstjob ().

n %c,%i,%n.

p.s $zp=$c (30).

p.s %c=$zjob («* »)_ «* «p.s %i=1.

m2.

p.s %n=$p (%c, «, «,%i).

і %n= «» g etm.

і $p ($zjob (%n), «| «, 9)= «APP-MON «g etm.

p.s %i=%i+1 g m2.

etm.

q %n.

; ———————————————————-;

stop.

і $$tstjob ()= «» g endstop.

nobckg1.

і (^appstat (1)= «F »)&(^appstat (2)= «F »)&(^appstat (3)= «F ») g stopbckg.

g endstop.

stopbckg.

p.s^appstat («CMD »)= «H «.

; нижче була оШибка !

і^appstat («STATUS ») «= «H «g nobckg1.

endstop.

q.