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

Fix GETVISTA call

This commit is contained in:
cje 2010-02-19 18:11:42 +00:00
parent 8f0eb38f0a
commit d82971422f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0CVIT2.m
View File

@ -33,7 +33,7 @@ EXTRACT(VITXML,DFN,VITOUT) ; EXTRACT VITAL SIGNS INTO XML TEMPLATE
; THAT GET INSERTED INTO THE XML TEMPLATE
; D GET[VISTA/RPMS](DFN,C0CIMM) ; GET VARS
I $$RPMS^C0CUTIL() D GETRPMS(DFN,C0CVIT) ; GET VARS
I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D GETVISTA
I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D GETVISTA(DFN,C0CVIT)
; USE THE FOLLOWING TEMPATE FOR MAPPING RNF2 ARRAYS TO XML TEMPLATE
; D MAP([NAME]XML,C0C[NAME],[NAME]OUT) ;MAP RESULTS FOR PROCEDURES
D MAP(VITXML,C0CVIT,VITOUT) ;MAP RESULTS FOR PROCEDURES