|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
677 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
