SRSBUTL ;B'HAM ISC/MAM - BLOCK OUT TIME ON OR SCHEDULE UTILITY; [ 08/14/09 11:36 AM ]
Source file <SRSBUTL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SRS - [#131.7] | BLOCKED+3, BLOCKED+5, BLOCKED+15, CHKD+1, UPDATE+1, UPDATE+2, SET+4*, DELCHK+7, PATRN+2*, PATRN+3 , PATRN+4*, CURRENT+1, CURRENT+2, CURRENT+3 |
| ^SRS("R" | BLOCKED+7, BLOCKED+9, BLOCKED+10, BLOCKED+11, DIS1+5, DIS1+6, DIS1+7, DIS1+8, UPDATE+4, DELCHK+2 , DELCHK+3, DELCHK+4 |
| ^TMP($J | BLOCKED+15*, CHKD+3, CHKD+5, CHKD+7, CHKD+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | BLOCKED+1, CURRENT+3 |
| SRB | DIS1+9*, DIS1+17!, UPDATE+1*, UPDATE+6, UPDATE+7 |
| SRB1 | BLOCKED+12*, BLOCKED+16!, CHK+2*, CHK+3, END+1!, UPDATE+7*, SET+2*, SET+4, SET+5!, DELCHK+5* , DELCHK+7*, DELCHK+8!, PATRN+2, PATRN+3, PATRN+5!, PTRNALG+2*, PTRNALG+3 |
| SRB2 | BLOCKED+12*, BLOCKED+16!, CHK+2*, CHK+3, END+1!, UPDATE+7*, SET+2*, SET+4, SET+5!, DELCHK+5* , DELCHK+7*, DELCHK+8!, PATRN+2, PATRN+3, PATRN+5!, PTRNALG+2*, PTRNALG+3 |
| SRBARRY | DIS1+18! |
| SRBARRY( | UPDATE+5*, CHECK+1, CHECK+2 |
| >> SRBCHK( | END, CHKD+2*, CHKD+9* |
| >> SRBCKH | DELCHK+7 |
| SRBCNT | BLOCKED+1*, BLOCKED+4*, BLOCKED+16!, DIS1+16!, CURRENT+3*, CURRENT+4! |
| SRBCNTR | DIS1+4*, DIS1+8*, DIS1+11, DIS1+17! |
| SRBCTR1 | DIS1+10*, DIS1+13, DIS1+14, DIS1+15, DIS1+17! |
| SRBCTR2 | DIS1+11*, DIS1+12, DIS1+17!, UPDATE+3 |
| SRBCTR3 | DIS1+9*, DIS1+17!, UPDATE+1*, UPDATE+2, UPDATE+3* |
| SRBDAY | BLOCKED+1*, BLOCKED+7, BLOCKED+9, BLOCKED+10, BLOCKED+11, BLOCKED+16!, DIS1+2*, DIS1+5, DIS1+6, DIS1+7 , DIS1+8, DIS1+17!, UPDATE+4, DELCHK~, DELCHK+2, DELCHK+3, DELCHK+4, DELCHK+8! |
| SRBDT | BLOCKED+1*, BLOCKED+2*, BLOCKED+3*, BLOCKED+5, BLOCKED+15, BLOCKED+16!, CHK+1*, CK0*, CK5*, CK4* , END*, END+1!, CHKD*, CHKD+1, CHKD+2, CHKD+3, CHKD+5, CHKD+7, CHKD+8, CHKD+9 , DIS1+1*, DIS1+2, DIS1+16!, UPDATE+1, UPDATE+2, UPDATE+5, CHECK+1, CHECK+2, DELCHK+1*, DELCHK+7 , DELCHK+8!, PATRN+2, PATRN+3, PATRN+4, CURRENT+3*, CURRENT+4! |
| SRBDY | DIS1+2*, DIS1+15, DIS1+17! |
| SRBEN1 | CHK+3*, END+1!, CHKD+9 |
| SRBEN2 | CHK+3*, END+1!, CHKD+9 |
| SRBET | BLOCKED+10*, BLOCKED+12, BLOCKED+15, BLOCKED+16!, END+1!, CHKD+6*, CHKD+8*, CHKD+9, DIS1+7*, DIS1+8 , DIS1+17!, DELCHK+4*, DELCHK+5, DELCHK+7, DELCHK+8! |
| SRBET1 | DIS1+17!, UPDATE+3*, UPDATE+5, UPDATE+7, SET+2, CHECK+4 |
| SRBETM | DIS1+18! |
| SRBETM( | DIS1+8*, UPDATE+3 |
| >> SRBFLG | CHK+3*, END*, UPDATE+3*, UPDATE+7, SET+1, CHECK+4* |
| SRBI | BLOCKED+16!, SET+2*, SET+5!, DELCHK+8!, PATRN+3*, PTRNALG+3* |
| SRBN | BLOCKED+8*, BLOCKED+9*, BLOCKED+10, BLOCKED+11, BLOCKED+14, BLOCKED+15, BLOCKED+16!, DIS1+6*, DIS1+7, DIS1+8 , DIS1+18! |
| SRBNMB | END+1!, CHKD+4*, CHKD+5*, CHKD+7, CHKD+8 |
| SRBNUM | BLOCKED+14*, BLOCKED+15, BLOCKED+16!, CHK+1*, CK1, CK2, CK0, CK3, CK5, CK4 , END+1!, DELCHK+1*, DELCHK+3, DELCHK+4, DELCHK+8! |
| SRBNUMB | DIS1+12*, DIS1+13, DIS1+14, DIS1+15, DIS1+18!, UPDATE+3, UPDATE+4 |
| SRBOR | BLOCKED+1*, BLOCKED+3, BLOCKED+5, BLOCKED+7, BLOCKED+9, BLOCKED+10, BLOCKED+11, BLOCKED+15, CHK+1*, CHKD+1 , DIS1+1*, DIS1+5, DIS1+6, DIS1+7, DIS1+8, DIS1+16!, UPDATE+1, UPDATE+2, UPDATE+4, DELCHK+1* , DELCHK+2, DELCHK+3, DELCHK+4, DELCHK+7, DELCHK+8!, PATRN+2, PATRN+3, PATRN+4, CURRENT+1*, CURRENT+2 , CURRENT+3, CURRENT+4! |
| SRBPRG | DIS1+16! |
| SRBS | BLOCKED+15, BLOCKED+16!, DIS1+18!, SET+4, DELCHK+7, DELCHK+8!, PATRN+2, PTRNALG+3* |
| SRBS1 | DIS1+18!, CHECK+2*, CHECK+4 |
| SRBS1( | DIS1+8*, DIS1+12 |
| SRBS2 | DIS1+18!, CHECK+2*, CHECK+4 |
| SRBSER | DIS1+7*, DIS1+8, DIS1+18! |
| SRBSER1 | DIS1+3*, DIS1+8, DIS1+16! |
| SRBSER2 | CHECK+1*, CHECK+2, CHECK+3, CHECK+5! |
| SRBSERV | BLOCKED+11*, BLOCKED+15, BLOCKED+16!, DIS1+18!, UPDATE+4*, UPDATE+5, CHECK+3, DELCHK+4*, DELCHK+8!, PTRNALG+3 |
| SRBST | BLOCKED+6*, BLOCKED+7*, BLOCKED+9, BLOCKED+10, BLOCKED+11, BLOCKED+12, BLOCKED+15, BLOCKED+16!, END+1!, CHKD+6* , CHKD+7*, CHKD+8, CHKD+9, DIS1+5*, DIS1+6, DIS1+7, DIS1+8, DIS1+18!, DELCHK+1*, DELCHK+2* , DELCHK+3, DELCHK+4, DELCHK+5, DELCHK+7, DELCHK+8! |
| SRBST1 | DIS1+18!, UPDATE+3*, UPDATE+4, UPDATE+5, UPDATE+7, SET+2, CHECK+4 |
| SRBSTM | DIS1+18! |
| SRBSTM( | DIS1+8*, UPDATE+3 |
| SRBTE | DELCHK+8! |
| SRBTIME | CHK+1*, CHK+2, END+1! |
| SRBTS | DELCHK+8! |
| SRBX0 | PATRN+2*, PATRN+3, PATRN+5! |
| SRBX1 | SET+4*, SET+5!, PATRN+3*, PATRN+4, PATRN+5! |
| >> SROR | DIS1+1, SET+4 |
| >> SRSDATE | CHK+1, DIS1+1, SET+4, DELCHK+1 |
| >> SRSDAY | BLOCKED+1 |
| >> SRSNUM | CHK+1, UPDATE+3*, DELCHK+1 |
| >> SRSOR | BLOCKED+1, CHK+1, DELCHK+1 |
| >> SRSTIME | CHK+1 |
| X | BLOCKED+2, BLOCKED+16!, CHK+3*, CK1*, CK2*, CK0, CK3*, CK5, CK4*, CHKD , CHKD+1*, DIS1+2, DELCHK+8!, CURRENT+3, CURRENT+4! |
| X0 | DELCHK+8! |
| X1 | BLOCKED+2*, BLOCKED+16!, CK0*, CK5*, CK4*, CHKD*, DIS1+2*, DELCHK+8!, CURRENT+3*, CURRENT+4! |
| X2 | BLOCKED+2*, BLOCKED+16!, CK0*, CK5*, CK4*, CHKD*, DIS1+2*, CURRENT+3* |
| X3 | DIS1+2*, DIS1+14, DIS1+17! |
| X5 | CK0*, CK4*, END+1! |
