|
Last change
on this file since 719 was 719, checked in by George Lilly, 14 years ago |
|
First try and the CCR EWD demo distribution
|
|
File size:
492 bytes
|
| Line | |
|---|
| 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
|
|---|
| 6 | S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
|
|---|
| 7 | S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
|
|---|
| 11 | ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
|
|---|
| 12 | K ^zewd("routineMap",ZAPP,ZPAGE)
|
|---|
| 13 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
