source:
EWD/archive/C0CEX.m@
1405
| Last change on this file since 1405 was 1265, checked in by , 13 years ago | |
|---|---|
| File size: 598 bytes | |
| Rev | Line | |
|---|---|---|
| [719] | 1 | C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10 |
| 2 | ;;1.0;C0C;;Mar 1, 2010 ; | |
| 3 | SETZEWD(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 | ; | |
| 13 | KILLZEWD(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.
