Last change
on this file since 1076 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.