|
Last change
on this file since 1286 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
544 bytes
|
| Line | |
|---|
| 1 | SDAMEVT1 ;ALB/MJK - Appt Event Driver Utilities ; 12/1/91
|
|---|
| 2 | ;;5.3;Scheduling;**15,63,132**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | DIV(DIV) ; -- division name
|
|---|
| 5 | ; input: DIV := ifn of med ctr div
|
|---|
| 6 | ;
|
|---|
| 7 | Q $S('$P($G(^DG(43,1,"GL")),U,2):"",$D(^DG(40.8,+DIV,0)):" ("_$P(^(0),U)_")",1:"")
|
|---|
| 8 | ;
|
|---|
| 9 | OENUL(SDCAP,SDHDL) ; -- null befores or afters
|
|---|
| 10 | N SDOE,SDORG
|
|---|
| 11 | S SDORG=0
|
|---|
| 12 | F S SDORG=$O(^TMP("SDEVT",$J,SDHDL,SDORG)) Q:'SDORG D
|
|---|
| 13 | .S SDOE=0
|
|---|
| 14 | .F S SDOE=$O(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE)) Q:'SDOE D
|
|---|
| 15 | ..I $D(^TMP("SDEVT",$J,SDHDL,SDORG,"SDOE",SDOE,0,SDCAP)) S ^(SDCAP)=""
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
