From e29ea25d847353ff29f32b4989c918d53f89ef73 Mon Sep 17 00:00:00 2001 From: Sam Habiel Date: Mon, 18 Nov 2019 17:55:55 -0500 Subject: [PATCH] ZW -> ZWRITE. --- VistA-REST-services/src/SYNDHPMP.m | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/VistA-REST-services/src/SYNDHPMP.m b/VistA-REST-services/src/SYNDHPMP.m index 05a3b39..e035c0d 100644 --- a/VistA-REST-services/src/SYNDHPMP.m +++ b/VistA-REST-services/src/SYNDHPMP.m @@ -1,4 +1,4 @@ -SYNDHPMP ; AFHIL/FJF - HealthConcourse - terminology mapping ;2019-10-17 11:18 AM +SYNDHPMP ; AFHIL/FJF - HealthConcourse - terminology mapping ;2019-11-19 8:55 AM ;;0.3;VISTA SYNTHETIC DATA LOADER;;Jul 01, 2019;Build 1 ;; ;;Original routine authored by Andrew Thompson & Ferdinand Frankson of Perspecta 2017-2019 @@ -153,9 +153,9 @@ D DECODE^XLFJSON("MAPMV","MAPMVO") ; W !,URLSV,!! - ZW MAPSVO + ZWRITE MAPSVO w !!,URLMV,!! - ZW MAPMVO + ZWRITE MAPMVO ; Q ; @@ -181,9 +181,9 @@ D NTS("MAPMV") D DECODE^XLFJSON("MAPMV","MAPMVO") ; W !,URLSV,!! - ZW MAPSVO + ZWRITE MAPSVO w !!,URLMV,!! - ZW MAPMVO + ZWRITE MAPMVO ; Q T5 ; new server (vista2) tests @@ -230,4 +230,3 @@ D NTS("MAPMV") .S VALUE=+VALUE .S @N=VALUE Q -