Last change
on this file since 642 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
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.