25 lines
677 B
Mathematica
25 lines
677 B
Mathematica
KMPDECH ; OAK/RAK - CM Tools Echo ;4/6/06 08:40
|
|
;;2.0;CAPACITY MANAGEMENT TOOLS;**5**;Mar 22, 2002
|
|
;
|
|
ECHO ;-entry point
|
|
;
|
|
N DATA,I,ID,SITE,SITENM,TEXT,TRANSTO,XMDUZ,XMSUB,XMTEXT,XMY
|
|
;
|
|
; get id from subject
|
|
S ID=$P($G(XQSUB),"~",2)
|
|
; scheduled downtime start and stop times
|
|
S DATA=$P($G(^KMPD(8973,1,5)),U,1,2)
|
|
; site info
|
|
S SITE=$$SITE^VASITE Q:SITE=""
|
|
S SITENM=$P(SITE,U,2)
|
|
S XMDUZ="ECHO BACK FROM "_SITENM
|
|
S XMSUB="CP ECHO~"_ID_"~"_$P(SITE,U,2)_" ("_$P(SITE,U,3)_")~"
|
|
D TRANSTO^KMPDUTL7(1,5,.TRANSTO) Q:'$D(TRANSTO)
|
|
S I=""
|
|
F S I=$O(TRANSTO(I)) Q:I="" S XMY(I)=""
|
|
S TEXT(1)="START="_$P(DATA,U)
|
|
S TEXT(2)="STOP="_$P(DATA,U,2)
|
|
S XMTEXT="TEXT("
|
|
D ^XMD
|
|
Q
|