SRSBUTL ;B'HAM ISC/MAM - BLOCK OUT TIME ON OR SCHEDULE UTILITY; [ 08/14/09 11:36 AM ]
Source file <SRSBUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLOCKED | ; find blocked OPERATING ROOMS
|
|
| CHK | ;; CHECK FOR EXISTING BLOCKS
|
|
| CK1 | ||
| CK2 | ||
| CK0 | ||
| CK3 | ||
| CK5 | ||
| CK4 | ||
| END | ||
| CHKD | ||
| DIS1 | ;CHECK AND SET NEW SERVICE BLOCK
|
|
| UPDATE | ;CHECK AND SET SERVICE BLOCK
|
|
| SET | ;SET SERVICE BLOCK GRAPH
|
|
| CHECK | ;CHECK FOR TIME COLLISION
|
|
| DELCHK(SRBDAY) | ; CHECK FOR OVERLAPING BLOCK FOR THE DELETED DAY
|
|
| PATRN | ; set pattern in OPERATING ROOM file
|
|
| PTRNALG | ; set pattern in OPERATING ROOM file
; algorithm for setting start and end of pattern |
|
| CURRENT | ; ENSURE SERVICE BLOCK GRAPH IS UP TO DATE
|
