Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
544 bytes
|
Rev | Line | |
---|
[628] | 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.