|
Last change
on this file since 1776 was 1265, checked in by George Lilly, 13 years ago |
|
old version of EWD fileman file and sample applications
|
|
File size:
598 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 | I $G(ZAPP)="" Q ;
|
|---|
| 7 | I $G(ZPAGE)="" Q ;
|
|---|
| 8 | I $G(ZROUTINE)="" Q ;
|
|---|
| 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
|
|---|
| 15 | I $G(ZAPP)="" Q ;
|
|---|
| 16 | I $G(ZPAGE)="" Q ;
|
|---|
| 17 | K ^zewd("routineMap",ZAPP,ZPAGE)
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
