Changeset 708

Timestamp:

Feb 19, 2010, 1:11:42 PM (15 years ago)

Author:

Christopher Edwards

Message:

Fix GETVISTA call

File:

• ccr/trunk/p/C0CVIT2.m (modified) (1 diff)

ccr/trunk/p/C0CVIT2.m

@@ -34 +34 @@
  ; 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