iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updated EWD demo applications

This commit is contained in:
george 2010-03-02 04:55:14 +00:00
parent d237755e20
commit e89c058537
3 changed files with 5261 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3330
p/C0CE0_1_0_0_T3.KID Normal file
View File

File diff suppressed because it is too large Load Diff

5
p/C0CEX.m
View File

@ -3,11 +3,16 @@ C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
N ZR
I $G(ZAPP)="" Q ;
I $G(ZPAGE)="" Q ;
I $G(ZROUTINE)="" Q ;
S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
Q
;
KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
I $G(ZAPP)="" Q ;
I $G(ZPAGE)="" Q ;
K ^zewd("routineMap",ZAPP,ZPAGE)
Q

1926
p/C0E0_1_0_0_T1.KID Normal file
View File

File diff suppressed because it is too large Load Diff