Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: KMPDECH

KMPDECH.m

Go to the documentation of this file.
KMPDECH ; OAK/RAK - CM Tools Echo ;4/6/06  08:40
 ;;3.0;KMPD;;Jan 22, 2009;Build 42
 ;
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