Changeset 1056 for ccr/trunk/p

Timestamp:

Jan 6, 2011, 1:27:14 PM (14 years ago)

Author:

George Lilly

Message:

updates to EWD utilities for vistacom

Location:

ccr/trunk/p

Files:

• C0CEWD.m (added)
• C0CEWD1.m (modified) (1 diff)

ccr/trunk/p/C0CEWD1.m

@@ -57 +57 @@
  q
  ;
+GET1URL0(URL) ;
+ s ok=$$httpGET^%zewdGTM(URL,.gpl)
+ D INDEX^C0CXPATH("gpl","gpl2")
+ W !,"S URL=""",URL,"""",!
+ S G=""
+ F  S G=$O(gpl2(G)) Q:G=""  D  ;
+ . W " S VDX(""",G,""")=""",gpl2(G),"""",!
+ W !
+ Q