Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
677 bytes
|
Line | |
---|
1 | KMPDECH ; OAK/RAK - CM Tools Echo ;4/6/06 08:40
|
---|
2 | ;;2.0;CAPACITY MANAGEMENT TOOLS;**5**;Mar 22, 2002
|
---|
3 | ;
|
---|
4 | ECHO ;-entry point
|
---|
5 | ;
|
---|
6 | N DATA,I,ID,SITE,SITENM,TEXT,TRANSTO,XMDUZ,XMSUB,XMTEXT,XMY
|
---|
7 | ;
|
---|
8 | ; get id from subject
|
---|
9 | S ID=$P($G(XQSUB),"~",2)
|
---|
10 | ; scheduled downtime start and stop times
|
---|
11 | S DATA=$P($G(^KMPD(8973,1,5)),U,1,2)
|
---|
12 | ; site info
|
---|
13 | S SITE=$$SITE^VASITE Q:SITE=""
|
---|
14 | S SITENM=$P(SITE,U,2)
|
---|
15 | S XMDUZ="ECHO BACK FROM "_SITENM
|
---|
16 | S XMSUB="CP ECHO~"_ID_"~"_$P(SITE,U,2)_" ("_$P(SITE,U,3)_")~"
|
---|
17 | D TRANSTO^KMPDUTL7(1,5,.TRANSTO) Q:'$D(TRANSTO)
|
---|
18 | S I=""
|
---|
19 | F S I=$O(TRANSTO(I)) Q:I="" S XMY(I)=""
|
---|
20 | S TEXT(1)="START="_$P(DATA,U)
|
---|
21 | S TEXT(2)="STOP="_$P(DATA,U,2)
|
---|
22 | S XMTEXT="TEXT("
|
---|
23 | D ^XMD
|
---|
24 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.