diff --git a/src/_webapi.m b/src/_webapi.m index dd875cf..57658f5 100644 --- a/src/_webapi.m +++ b/src/_webapi.m @@ -1,5 +1,4 @@ %webapi ; OSE/SMH - Infrastructure web services hooks;Feb 07, 2019@11:03 - ;;1.0;MUMPS ADVANCED SHELL;;Sep 01, 2012;Build 6 ; R(RESULT,ARGS) ; [Public] GET /r/{routine} Mumps Routine S RESULT("mime")="text/plain; charset=utf-8" diff --git a/src/_webjson.m b/src/_webjson.m index 1d9cdb1..cc2bbae 100644 --- a/src/_webjson.m +++ b/src/_webjson.m @@ -1,5 +1,4 @@ %webjson ;SLC/KCM -- Decode/Encode JSON;Feb 07, 2019@10:51 - ;;1.0;VIRTUAL PATIENT RECORD;**2,3**;Sep 01, 2011;Build 50 ; ; Note: Since the routines use closed array references, VVROOT and VVERR ; are used to reduce risk of naming conflicts on the closed array. diff --git a/src/_webjsonDecode.m b/src/_webjsonDecode.m index b458721..d9195e0 100644 --- a/src/_webjsonDecode.m +++ b/src/_webjsonDecode.m @@ -1,5 +1,4 @@ %webjsonDecode ;SLC/KCM -- Decode JSON;Feb 07, 2019@10:54 - ;;1.0;VIRTUAL PATIENT RECORD;**2,3**;Sep 01, 2011;Build 50 ; DECODE(VVJSON,VVROOT,VVERR) ; Set JSON object into closed array ref VVROOT ; diff --git a/src/_webjsonDecodeTest.m b/src/_webjsonDecodeTest.m index 43065d7..b3208d2 100644 --- a/src/_webjsonDecodeTest.m +++ b/src/_webjsonDecodeTest.m @@ -1,5 +1,4 @@ %webjsonDecodeTest ;SLC/KCM -- Unit tests for JSON decoding;Feb 07, 2019@10:55 - ;;1.0;JSON DATA STORE;;Sep 01, 2012 ; d EN^%ut($t(+0),3) quit diff --git a/src/_webjsonEncode.m b/src/_webjsonEncode.m index 5bedab8..d5b922c 100644 --- a/src/_webjsonEncode.m +++ b/src/_webjsonEncode.m @@ -1,5 +1,4 @@ %webjsonEncode ;SLC/KCM -- Encode JSON;Feb 07, 2019@11:01 - ;;1.0;VIRTUAL PATIENT RECORD;**2,3**;Sep 01, 2011;Build 50 ; ENCODE(VVROOT,VVJSON,VVERR) ; VVROOT (M structure) --> VVJSON (array of strings) ; diff --git a/src/_webjsonEncodeTest.m b/src/_webjsonEncodeTest.m index 5aac103..887e079 100644 --- a/src/_webjsonEncodeTest.m +++ b/src/_webjsonEncodeTest.m @@ -1,5 +1,4 @@ %webjsonEncodeTest ;SLC/KCM -- Unit tests for JSON encoding;Feb 07, 2019@11:02 - ;;1.0;JSON DATA STORE;;Sep 01, 2012 ; D EN^%ut($T(+0),3) quit diff --git a/src/_webjsonTestData1.m b/src/_webjsonTestData1.m index 4e48199..dcda532 100644 --- a/src/_webjsonTestData1.m +++ b/src/_webjsonTestData1.m @@ -1,5 +1,4 @@ VPRJUJ01 ;SLC/KCM -- Sample data for JSON decoding;Feb 07, 2019@10:56 - ;;1.0;JSON DATA STORE;;Sep 01, 2012 ; ; ; Portions of this code are public domain, but it was extensively modified diff --git a/src/_webjsonTestData2.m b/src/_webjsonTestData2.m index 5fd5548..b7962e9 100644 --- a/src/_webjsonTestData2.m +++ b/src/_webjsonTestData2.m @@ -1,5 +1,4 @@ VPRJUJ02 ;SLC/KCM -- Sample data for JSON encoding;Feb 07, 2019@10:58 - ;;1.0;JSON DATA STORE;;Sep 01, 2012 ; ; ; Portions of this code are public domain, but it was extensively modified diff --git a/src/_webreq.m b/src/_webreq.m index b5c9d49..310db0c 100644 --- a/src/_webreq.m +++ b/src/_webreq.m @@ -1,5 +1,4 @@ %webreq ;SLC/KCM -- Listen for HTTP requests;Feb 07, 2019@11:04 - ;;1.0;JSON DATA STORE;;Sep 01, 2012;Build 6 ; ; Listener Process --------------------------------------- ; diff --git a/src/_webrsp.m b/src/_webrsp.m index 47a558c..15a3cdb 100644 --- a/src/_webrsp.m +++ b/src/_webrsp.m @@ -1,5 +1,4 @@ %webrsp ;SLC/KCM -- Handle HTTP Response;2/20/19 9:19am - ;;1.0;JSON DATA STORE;;Sep 01, 2012 ; ; -- prepare and send RESPONSE ; diff --git a/src/_webutils.m b/src/_webutils.m index 5c49662..0277dfd 100644 --- a/src/_webutils.m +++ b/src/_webutils.m @@ -1,5 +1,4 @@ %webutils ;SLC/KCM -- Utilities for HTTP communications ;Feb 07, 2019@11:07 - ;;1.0;JSON DATA STORE;;Sep 01, 2012 ; UP(X) Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") LOW(X) Q $TR(X,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")