SROUTL0 ;BIR/DLR,ADM - UTILITY ROUTINE ; [ 06/20/01 2:33 PM ]
Source file <SROUTL0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NODATA() | ;;utility to write no data
|
|
| DIV(CASE) | ;define the division of this case
; CASE - File 130 ien ; returns 0 - non-divisional match; 1 - divisonal match |
|
| ORDIV(OR,SRINST) | ;define the division of this OR
; OR - .01 of Operating Room in file 131.7 ; returns 0 - non-divisional match; 1 - divisonal match |
|
| NONORDIV(CASE,NONOR) | ;define nonor divisional locations (File #130,119 input transform)
; CASE - File 130 ien ; NONOR - File 44 ien ; returns 0 - non-divisional match; 1 - divisonal match |
|
| MANDIV(SRINST,CASE) | ;a boolean divisional call for managerial reports
|
|
| INST() | ;extrinsic call used by the management reports to determine division
; Returns: ; inst#^inst name - for one division ; "ALL DIVISIONS" - all divisions ; "^" - no division |
|
| SITE(CASE) | ; returns pointer to file 133 indicating where case was performed
; CASE - ien in File 130 |
|
| WARD(SRW,SRINST,DGPMOS) | ;a boolean divisional call for active ward location
; SRW - IEN in File 42 ; SRINST - user division ; DGPMOS - date to check for active ward ; returns 0 - non-divisional match; 1 - divisional match |
|
| HL(SRLOC,SRINST) | ; define division of this hospital location
; SRLOC - File 44 IEN ; SRINST - user division ; returns 0 - non-divisional match; 1 - divisional match |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^SRO(133 - [#133] | LIST^DIC |
