source: WorldVistAEHR/trunk/r/CAPACITY_MANAGEMENT_TOOLS-KMPD-KMPL/KMPDECH.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 677 bytes
Line 
1KMPDECH ; OAK/RAK - CM Tools Echo ;4/6/06 08:40
2 ;;2.0;CAPACITY MANAGEMENT TOOLS;**5**;Mar 22, 2002
3 ;
4ECHO ;-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.