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

improvements to C0CXPATH and C0CRIMA to make them quieter

This commit is contained in:
george 2010-01-10 04:28:57 +00:00
parent 232bf48292
commit ed77e4e920
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/C0CRIMA.m
View File

@ -455,7 +455,7 @@ RPCGV(RTN,DFN,WHICH) ; RPC GET VARS
I WHICH="ALL" D ; VARIABLES FROM ALL SECTIONS
. F ZZGI="HEADER","PROBLEMS","VITALS","MEDS","ALERTS","RESULTS","IMMUNE" D ;
. . D ZGVWRK(ZZGI) ; DO EACH SECTION
. . W "DID ",ZZGI,!
. . I $G(DEBUG)'="" W "DID ",ZZGI,!
E D ZGVWRK(WHICH) ; ONLY ONE SECTION ASKED FOR
Q
;
@ -470,7 +470,7 @@ ZGVWRK(ZWHICH) ; DO ONE SECTION FOR RPCGV
. . K ZZGA N ZZGA ; TEMP ARRAY FOR SECTION VARS
. . K ZZGN2 N ZZGN2 ; NAME FOR MULTIPLE
. . S ZZGN2=$NA(@ZZGN@(ZGVI))
. . W ZZGN2,!,$O(@ZZGN2@("")),!
. . I $G(DEBUG)'="" W ZZGN2,!,$O(@ZZGN2@("")),!
. . D H2ARY^C0CXPATH("ZZGA",ZZGN2,ZGVI) ; CONVERT HASH TO ARRAY
. . ; D PARY^C0CXPATH("ZZGA")
. . D PUSHA^C0CXPATH("RTN","ZZGA") ; PUSH ARRAY INTO RETURN

7
p/C0CXPATH.m
View File

@ -624,9 +624,12 @@ UNMARK(XSEC) ; REMOVE MARKUP FROM FIRST AND LAST LINE OF XML
D CP("XTMP",XSEC) ; REPLACE PASSED XML
Q
;
PARY(GLO) ;PRINT AN ARRAY
PARY(GLO,ZN) ;PRINT AN ARRAY
; IF ZN=-1 NO LINE NUMBERS
N I
F I=1:1:@GLO@(0) W I_" "_@GLO@(I),!
F I=1:1:@GLO@(0) D ;
. I ZN=-1 W @GLO@(I),!
. E W I_" "_@GLO@(I),!
Q
;
H2ARY(IARYRTN,IHASH,IPRE) ; CONVERT IHASH TO RETURN ARRAY