Changeset 722

Timestamp:

Mar 1, 2010, 11:55:14 PM (15 years ago)

Author:

George Lilly

Message:

updated EWD demo applications

Location:

ccr/trunk/p

Files:

• C0CE0_1_0_0_T3.KID (added)
• C0CEX.m (modified) (2 diffs)
• C0E0_1_0_0_T1.KID (added)

ccr/trunk/p/C0CEX.m

@@ -4 +4 @@
  ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
  N ZR
+ I $G(ZAPP)="" Q  ;
+ I $G(ZPAGE)="" Q  ;
+ I $G(ZROUTINE)="" Q  ;
  S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
  S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
@@ -10 +13 @@
 KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
  ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+ I $G(ZAPP)="" Q  ;
+ I $G(ZPAGE)="" Q  ;
  K ^zewd("routineMap",ZAPP,ZPAGE)
  Q