source: EWD/archive/C0CEX.m@ 1405

Last change on this file since 1405 was 1265, checked in by George Lilly, 13 years ago

old version of EWD fileman file and sample applications

File size: 598 bytes
RevLine 
[719]1C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
2 ;;1.0;C0C;;Mar 1, 2010 ;
3SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
4 ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
5 N ZR
[722]6 I $G(ZAPP)="" Q ;
7 I $G(ZPAGE)="" Q ;
8 I $G(ZROUTINE)="" Q ;
[719]9 S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
10 S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
11 Q
12 ;
13KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
14 ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
[722]15 I $G(ZAPP)="" Q ;
16 I $G(ZPAGE)="" Q ;
[719]17 K ^zewd("routineMap",ZAPP,ZPAGE)
18 Q
Note: See TracBrowser for help on using the repository browser.