SDAMU ;ALB/MJK - AM Utilities ; 12/1/91
Source file <SDAMU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SWITCH() | ; -- date of ci switch over
|
|
NOW() | ; -- return current date and time (NOW)
|
|
BARC(TTYPE,ON,OFF) | ; -- barcode on/off
|
|
CURRENT | ; -- computed field (2.98,100)
|
|
CLINIC(SDCL) | ; -- generic screen for hos. loc. entries
; input: SDCL := ifn of HOSPITAL LOCATION file ; returned := [ 0 | do not use entry ; 1 | use entry ] |
|
DIV(SDCL,VAUTD,SDNAME,SDLEN) | ; -- find division for clinic
; input: SDCL := clinic ifn ; VAUTD := array defined by VAUTOMA ; SDLEN := length of name to pass back [optional] ; output: SDNAME := name of division ; return: := division ifn |
|
RT(SDRTOPT) | ; -- rt call for newing and return to LM
|