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

First try and the CCR EWD demo distribution

This commit is contained in:
george 2010-03-01 20:50:47 +00:00
parent b70e929bd5
commit 40328ceeb5
2 changed files with 2971 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2958
p/C0CE0_1_0_0_T1.KID Normal file
View File

File diff suppressed because it is too large Load Diff

13
p/C0CEX.m Normal file
View File

@ -0,0 +1,13 @@
C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
;;1.0;C0C;;Mar 1, 2010 ;
SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
N ZR
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
K ^zewd("routineMap",ZAPP,ZPAGE)
Q