Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SRSBUTL

Package: Surgery

Routine: SRSBUTL


Information

SRSBUTL ;B'HAM ISC/MAM - BLOCK OUT TIME ON OR SCHEDULE UTILITY; [ 08/14/09 11:36 AM ]

Source Information

Source file <SRSBUTL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Surgery 2 S^SRSBOUT  GRAPH^SRSDIS1  
VA FileMan 1 (,C)^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Surgery 5 SRSAVL  SRSBDEL  SRSBOUT  SRSDIS1  SRSDISP  

Entry Points

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
  • ICR #6788
    • Status: Pending
    • Usage: Private
    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

    External References

    Name Field # of Occurrence
    ^%DTC DIS1+2
    C^%DTC BLOCKED+2, CK0CK5CK4CHKDCURRENT+3
    S^SRSBOUT UPDATE+2
    GRAPH^SRSDIS1 CURRENT+3

    Global Variables Directly Accessed

    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

    Label References

    Name Line Occurrences
    CHECK UPDATE+6
    CHKD CHK+3, CK1CK2CK3CK4
    CK0 CK0CK3
    CK1 CK1
    CK2 CK2
    CK4 CK4
    CK5 CK4
    PATRN UPDATE+7, DELCHK+7
    PTRNALG BLOCKED+13, SET+3, DELCHK+6, PATRN+1
    SET UPDATE+6
    UPDATE DIS1+13, DIS1+14, DIS1+15

    Naked Globals

    Name Field # of Occurrence
    ^(1 SET+4*, PATRN+2*

    Local Variables

    Legend:

    >> 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( ENDCHKD+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*, CK1CK2CK0CK3CK5CK4
    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!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All