Routine: KMPUTLW

KMPUTLW ;SP/JML - Manage REST interfaces for VSM Monitors ;11/1/2023

 ;;4.0;CAPACITY MANAGEMENT;**1,3,4**;3/1/2018;Build 36

 ; Reference to GETENV^%ZOSV in ICR #10097

 ; Reference to $$SITE^VASITE in ICR #10112

POST(KMPJSON,KMPRLOC,KMPFFLAG,KMPMKEY) ;

 N KMPAKEY,KMPFILE,KMPFN,KMPFQDN,KMPPORT,KMPRESP,KMPREQ,KMPRJSON,KMPSCODE,KMPSTAGE,KMPSTAT,KMPETIME,KMPSTIME,KMPSTEXT

 I $G(KMPMKEY)="" S KMPMKEY="VTCM"

 I KMPJSON.Site="" D SITE(KMPJSON)

 S KMPREQ=##class(%Net.HttpRequest).%New()

 S KMPREQ.ContentType="application/json"

 D KMPREQ.SetHeader("Accept","application/json")

 ;   Send SSL

 I $$GETVAL^KMPVCCFG(KMPMKEY,"ENCRYPT",8969,"I")=1 D

 .S KMPREQ.SSLConfiguration="KMPHttpsClient"

 .S KMPREQ.Https=1

 ;   Server/Resource/Port/Key

 S KMPREQ.Location="vsm"_$$PROD^KMPVCCFG()_KMPRLOC

 S KMPFQDN=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL FQDN",8969)

 I KMPFQDN="" D

 .S KMPREQ.Server=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL IP",8969)

 .S KMPREQ.Port=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL PORT",8969)

 I KMPFQDN'="" S KMPREQ.Server=KMPFQDN

 ; only set NATIONAL PORT if other than 80/443

 S KMPPORT=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL PORT",8969)

 I KMPPORT'="" S KMPREQ.Port=KMPPORT

 S KMPAKEY=$$GETVAL^KMPVCCFG(KMPMKEY,"APIKEY",8969)

 I KMPAKEY'="" D KMPREQ.SetHeader("x-api-key",KMPAKEY)

 ;   Add JSON String to EntityBody from Object/File and send

 I $G(KMPFFLAG)=1 D

 .S KMPFN=$$DEFDIR^%ZISH()_$P(KMPRLOC,"/",2)_$J_".txt"

 .S KMPFILE=##class(%File).%New(KMPFN)

 .D KMPFILE.Open("WSN")

 .D KMPJSON.%ToJSON(KMPFILE)

 .D KMPFILE.Close()

 .D KMPFILE.Open("RS")

 .D KMPREQ.EntityBody.CopyFrom(KMPFILE)

 .D KMPFILE.Close()

 .S KMPSTAT=##class(%File).Delete(KMPFN)

 E  D KMPREQ.EntityBody.Write(KMPJSON.%ToJSON())

 I $D(KMPTEST) W !,KMPJSON.%ToJSON(),!

 S KMPSTIME=$P($ZTIMESTAMP,",",2)

 S KMPSTAT=KMPREQ.Post(,$G(KMPTEST))

 S KMPETIME=$P($ZTIMESTAMP,",",2)

 S KMPSCODE=KMPREQ.HttpResponse.StatusCode

 S KMPSTEXT=$S(+$G(KMPSCODE)>0:KMPREQ.HttpResponse.Data.Read(),1:"")

 I $D(KMPTEST) W !,"Http Response Status Code: ",KMPSCODE,!

 K KMPTEST

 Q KMPSCODE_"^"_KMPSTEXT_"^"_(KMPETIME-KMPSTIME)

INFOMSG(KMPVTEXT) ;  Send text POST

 N KMPEMAIL,KMPMSG,KMPI,KMPSERV,KMPSTAT

 S KMPSINF=$$SITEINFO^KMPVCCFG()

 S KMPMSG=##class(%Net.MailMessage).%New()

 S KMPMSG.From="VSM@"_$P(KMPSINF,"^",3)

 S KMPEMAIL=$$GETVAL^KMPVCCFG("VTCM","NATIONAL SUPPORT EMAIL ADDRESS",8969)

 D KMPMSG.To.Insert(KMPEMAIL)

 S KMPMSG.Subject=$G(KMPVTEXT("SUBJECT"))

 S KMPMSG.IsBinary=0

 S KMPMSG.IsHTML=0

 D KMPMSG.TextData.WriteLine("Do Not Reply - Informational Only")

 D KMPMSG.TextData.Write(" "_$c(13))

 S KMPI=0

 F  S KMPI=$o(KMPVTEXT(KMPI)) q:+KMPI=0  D

 .D KMPMSG.TextData.WriteLine("   "_KMPVTEXT(KMPI))

 D KMPMSG.TextData.Write(" "_$c(13))

 D KMPMSG.TextData.WriteLine("Site Name: "_$P(KMPSINF,"^",1))

 D KMPMSG.TextData.WriteLine("Site Number: "_$P(KMPSINF,"^",2))

 D KMPMSG.TextData.WriteLine("Site Domain: "_$P(KMPSINF,"^",3))

 D KMPMSG.TextData.WriteLine("Prod/Test: "_$P(KMPSINF,"^",4))

 D KMPMSG.TextData.WriteLine("Site Code: "_$P(KMPSINF,"^",5))

 S KMPSERV=##class(%Net.SMTP).%New()

 S KMPSERV.smtpserver="smtp.domain.ext"

 S KMPSTAT=KMPSERV.Send(KMPMSG)

CANMSG(MTYPE,KMPMKEY,KMPSITE,KMPD) ; Repeatable, configured informational mail messages

 N KMPPROD,KMPTEXT

 S KMPPROD=$$PROD^KMPVCCFG()

 I MTYPE="JOBLATE" D

 .S KMPTEXT("SUBJECT")="VSM ALERT: "_KMPMKEY_" DAILY JOB NOT RUN: "_$P(KMPSITE,"^",2)

 .S KMPTEXT(1)="Daily "_KMPMKEY_" job behind "_KMPD_" days"

 .S KMPTEXT(2)=$$SITEINFO^KMPVCCFG()

 .D INFOMSG(.KMPTEXT)

 I MTYPE="DELETE" D

 .S KMPTEXT("SUBJECT")="VSM ALERT: Purging "_KMPMKEY_" data for "_$P(KMPSITE,"^",2)

 .S KMPTEXT(1)="Data purged for: "_KMPD

 .S KMPTEXT(2)=$$SITEINFO^KMPVCCFG()

 .D INFOMSG(.KMPTEXT)

 I MTYPE="TRANWARN" D

 .S KMPTEXT("SUBJECT")="VSM ALERT: Data transmissions of "_KMPMKEY_" data late for "_$P(KMPSITE,"^",2)

 .S KMPTEXT(1)=$$SITEINFO^KMPVCCFG()

 .D INFOMSG(.KMPTEXT)

 I MTYPE="FAILTRAN" D

 .S KMPTEXT("SUBJECT")="VSM ALERT: Failed transmission for "_$P(KMPSITE,"^",2)

 .S KMPTEXT(1)="Collection date: "_KMPD

 .S KMPTEXT(2)=$$SITEINFO^KMPVCCFG()

 .D INFOMSG(.KMPTEXT)

 I MTYPE="KILL" D

 .S KMPTEXT("SUBJECT")="VSM ALERT: All data deleted at "_$P(KMPSITE,"^",2)_" for "_KMPMKEY

 .S KMPTEXT(1)="Username: "_$$USERNAME^KMPVCCFG(DUZ)

 .S KMPTEXT(2)=$$SITEINFO^KMPVCCFG()

 .D INFOMSG(.KMPTEXT)

CFGMSG(KMPRQNAM) ;  Send configuration data to update Location Table at National VSM Database

 N KMPCFG,KMPJSON,KMPMARR,KMPMKEY,KMPMON,KMPSCODE

 I $G(KMPRQNAM)="" S KMPRQNAM=$$USERNAME^KMPVCCFG($G(DUZ))

 S KMPJSON=##class(%DynamicObject).%New()

 S KMPJSON.Function="KMP CFG"

 S KMPJSON.Requestor=KMPRQNAM

 D SITE(KMPJSON)

 I "%All%Manager"[$ROLES D CPF(KMPJSON)

 D MON(KMPJSON)

 S KMPSCODE=$$POST(KMPJSON,"/configuration")

RETRY(KMPMON) ;

 N KMPMKEY,KMPVER,ZTDESC,ZTDTH,ZTRTN

 I KMPMON.Function'="Retry" Q "Incorrect Function Type"

 S KMPMKEY=KMPMON.Monitor

 S ZTDTH=$H

 I KMPMKEY="VTCM" S ZTRTN="RETRY^KMPTCMRT",ZTDESC="VTCM RETRY"

 I KMPMKEY="VSTM" S ZTRTN="RETRY^KMPSTMRT",ZTDESC="VSTM RETRY"

 I KMPMKEY="VBEM" S ZTRTN="RETRY^KMPBEMRT",ZTDESC="VBEM RETRY"

 I KMPMKEY="VMCM" S ZTRTN="RETRY^KMPMCMRT",ZTDESC="VMCM RETRY"

 I KMPMKEY="VHLM" S ZTRTN="RETRY^KMPHLMRT",ZTDESC="VHLM RETRY"

 I KMPMKEY="VCSM" S ZTRTN="RETRY^KMPCSMRT",ZTDESC="VCSM RETRY"

 I KMPMKEY="VETM" S ZTRTN="RETRY^KMPETMRT",ZTDESC="VETM RETRY"

 D ^ZTLOAD

 Q "OK"

CTMLOG(KMPJSON) ; Return run history recorded in the VSM CACHE TASK LOG file

 N KMPD,KMPDATA,KMPIEN,KMPMARR

 S KMPMARR=##class(%DynamicArray).%New()

 S KMPIEN=0

 F  S KMPIEN=$O(^KMPV(8969.03,KMPIEN)) Q:+KMPIEN=0  D

 .S KMPDATA=$G(^KMPV(8969.03,KMPIEN,0))

 .S KMPD=##class(%DynamicObject).%New()

 .S KMPD.Date=$$SHORTDAT($P(KMPDATA,"^",1),"HOROLOG"),KMPD.Node=$P(KMPDATA,"^",2)

 .s KMPD.Time=$$TSTAMP($P(KMPDATA,"^",3),"FILEMAN",1)

 .D KMPMARR.%Push(KMPD)

 S KMPJSON.Ctm=KMPMARR

PACKAGES(KMPJSON) ; Get data from PACKAGE file

 N KMPIEN,KMPPACK,KMPPARR,KMPPNAM,KMPPRE

 S KMPPARR=##class(%DynamicArray).%New()

 S KMPPRE=""

 F  S KMPPRE=$O(^DIC(9.4,"C",KMPPRE)) Q:KMPPRE=""  D

 .S KMPIEN=""

 .F  S KMPIEN=$O(^DIC(9.4,"C",KMPPRE,KMPIEN)) Q:KMPIEN=""  D

 ..S KMPPNAM=$P($G(^DIC(9.4,KMPIEN,0)),"^")

 ..S KMPPACK=##class(%DynamicObject).%New()

 ..S KMPPACK.Name=KMPPNAM,KMPPACK.Prefix=KMPPRE,KMPPACK.Ien=KMPIEN

 ..D KMPPARR.%Push(KMPPACK)

 S KMPJSON.Packages=KMPPARR

SITE(KMPJSON) ;

 N KMPINST,KMPNDTYP,KMPNODE,KMPSINF,KMPSITE,KMPSYS,%,Y

 D NOW^%DTC

 S KMPSITE=$$SITE^VASITE($P(%,".")) ;supported by ICR #10112

 S KMPSINF=$$SITEINFO^KMPVCCFG()

 S KMPSYS=$$SYSCFG^KMPVCCFG()

 S KMPSITE=##class(%DynamicObject).%New()

 S KMPSITE.SiteName=$P(KMPSINF,"^"),KMPSITE.SiteNum=$P(KMPSINF,"^",2),KMPSITE.SiteDomain=$P(KMPSINF,"^",3)

 S KMPSITE.SiteCode=$P(KMPSINF,"^",5),KMPSITE.Production=$P(KMPSINF,"^",4) ; ,KMPSITE.Date=$P($$TSTAMP($H,"HOROLOG",1),"^")

 S KMPSITE.Cache=$P(KMPSYS,"^",1),KMPSITE.OS=$P(KMPSYS,"^",2),KMPSITE.CacheVersion=$P(KMPSYS,"^",3)

 D GETENV^%ZOSV S KMPNODE=$P(Y,U,3)_":"_$P($P(Y,U,4),":",2) ;supported by ICR #10097

 S KMPINST=$P(KMPNODE,":",2),KMPNDTYP=$$NODETYPE^KMPUTLW(KMPINST)

 S KMPSITE.NodeType=KMPNDTYP,KMPSITE.Node=$p(KMPNODE,":")

 I KMPNDTYP="BE" S KMPSITE.BackendNode=$P(KMPNODE,":")

 S KMPIEN=$O(^KMPV(8969,"B","VTCM",""))

 S KMPSITE.StartPerfmon=$$GETVAL^KMPVCCFG("VTCM","START PERFMON",8969)

 S KMPJSON.Site=KMPSITE

CPF(KMPJSON) ;

 N KMPCONFIG,KMPCFG,KMPCPF,KMPMIRROR,KMPPROP,KMPRNS,KMPSTART,KMPTNS

 N KMPCSTAT,KMPMSTAT,KMPSSTAT,KMPCPROP,KMPMPROP,KMPSPROP

 S KMPCPF=##class(%DynamicObject).%New()

 S KMPSTART=##class(%DynamicObject).%New()

 S KMPMIRROR=##class(%DynamicObject).%New()

 S KMPCONFIG=##class(%DynamicObject).%New()

 ; get current namespace, switch to %SYS

 S KMPRNS=$NAMESPACE,$NAMESPACE="%SYS"

 D ##class("Config.Startup").Get(.KMPSPROP)

 D ##class("Config.MirrorMember").Get(.KMPMPROP)

 D ##class("Config.config").Get(.KMPCPROP)

 M KMPCFG("Startup")=KMPSPROP

 M KMPCFG("Mirror")=KMPMPROP

 M KMPCFG("Config")=KMPCPROP

 S $NAMESPACE=KMPRNS

 ; Record Startup Properties

 M KMPSPROP=KMPCFG("Startup")

 S KMPPROP=""

 F  S KMPPROP=$O(KMPSPROP(KMPPROP)) Q:KMPPROP=""  D

 .D KMPSTART.%Set(KMPPROP,KMPSPROP(KMPPROP))

 S KMPCPF.Startup=KMPSTART

 ; Record MirrorMember Properties

 M KMPMPROP=KMPCFG("Mirror")

 S KMPPROP=""

 F  S KMPPROP=$O(KMPMPROP(KMPPROP)) Q:KMPPROP=""  D

 .D KMPMIRROR.%Set(KMPPROP,KMPMPROP(KMPPROP))

 S KMPCPF.MirrorMember=KMPMIRROR

 ; Record Config Properties

 M KMPCPROP=KMPCFG("Config")

 S KMPPROP=""

 F  S KMPPROP=$O(KMPCPROP(KMPPROP)) Q:KMPPROP=""  D

 .D KMPCONFIG.%Set(KMPPROP,KMPCPROP(KMPPROP))

 S KMPCPF.Config=KMPCONFIG

 S KMPJSON.CPF=KMPCPF

MON(KMPJSON) ;

 ; Monitor Information

 N KMP3,KMP4,KMPFILE,KMPFN

 S KMPMARR=##class(%DynamicArray).%New()

 S KMPMKEY=""

 F  S KMPMKEY=$O(^KMPV(8969,"B",KMPMKEY)) Q:KMPMKEY=""  D

 .S KMPIEN=$O(^KMPV(8969,"B",KMPMKEY,""))

 .S KMPMON=##CLASS(%DynamicObject).%New()

 .S KMPCFG=$$CFGSTR^KMPVCCFG(KMPMKEY)

 .S KMP3=$G(^KMPV(8969,KMPIEN,3))

 .S KMP4=$G(^KMPV(8969,KMPIEN,4))

 .S KMPMON.AllowTestSystem=$P(KMPCFG,"^",9)

 .S KMPMON.ApiKey=$P(KMP4,"^",4)

 .S KMPMON.CacheDailyTask=$P(KMPCFG,"^",10)

 .S KMPMON.CollectionInterval=$P(KMPCFG,"^",6)

 .S KMPMON.DaysToKeepData=$P(KMPCFG,"^",5)

 .S KMPMON.Encrypt=$P(KMPCFG,"^",14)

 .S KMPMON.Monitor=KMPMKEY

 .S KMPMON.NationalDataEmailAddress=$P(KMP3,"^")

 .S KMPMON.NationalFqdn=$P(KMP4,"^",2)

 .S KMPMON.NationalIpAddress=$P(KMP4,"^")

 .S KMPMON.NationalPort=$P(KMP4,"^",3)

 .S KMPMON.NationalSupportEmailAddress=$P(KMP3,"^",2)

 .S KMPMON.OnOff=$P(KMPCFG,"^",2)

 .S KMPMON.Realtime=$P(KMPCFG,"^",12)

 .S KMPMON.HttpRequestMaxLength=$P(KMPCFG,"^",7)

 .S KMPMON.MonitorStartDelay=$P(KMPCFG,"^",8)

 .S KMPMON.StartPerfmon=$P(KMPCFG,"^",13)

 .S KMPMON.TaskmanOption=$P(KMPCFG,"^",11)

 .S KMPMON.Version=$P(KMPCFG,"^",3)

 .S KMPMON.VersionInstallDate=$$SHORTDAT($P(KMPCFG,"^",4),"FILEMAN")

 .S KMPMON.VsmCfgEmailAddress=$P(KMP3,"^",3)

 .D KMPMARR.%Push(KMPMON)

 S KMPJSON.MonCFG=KMPMARR

TSTAMP(KMPDAY,KMPFORMAT,KMPTZ) ;

 ; variables passed must be 1st and 2nd piece in $H format

 N KMPRTS,KMPTZONE,KMPUTC,X,%H,%T

 I KMPFORMAT="" Q ""

 I KMPDAY="" Q ""

 S KMPRTS=""

 S KMPTZONE=$ZTIMEZONE/60

 I KMPFORMAT="FILEMAN" D

 .S X=KMPDAY D H^%DTC

 .S $P(KMPDAY,",")=%H,$P(KMPDAY,",",2)=%T

 I $P(KMPDAY,",",2)>86399 S $P(KMPDAY,",",2)=""

 S KMPRTS=$ZDATE(+KMPDAY,3)_" "_$ZTIME($P(KMPDAY,",",2))

 S KMPRTS=$ZDATETIME(KMPDAY,3)

 I $G(KMPTZ)=1 S KMPRTS=KMPRTS_"Z"_KMPTZONE

 S KMPUTC=$SYSTEM.Util.LocalWithZTIMEZONEtoUTC(KMPDAY)

 S $P(KMPRTS,"^",2)=$ZDATETIME(KMPUTC,3)

 S $P(KMPRTS,"^",3)=(KMPUTC-47117*86400+$P($P(KMPUTC,",",2),"."))

 S $P(KMPRTS,"^",4)=$SYSTEM.Util.IsDST()

 Q KMPRTS

SHORTDAT(KMPDAY,KMPFORMAT) ; convert $h or fileman to external date

 ; passing $H whole or first piece

N X

 I KMPDAY="" Q ""

 I KMPFORMAT="HOROLOG" Q $ZDATE(+KMPDAY,3)

 I KMPFORMAT="FILEMAN" D  Q $ZDATE(%H,3)

 .S X=KMPDAY D H^%DTC

UTC(KMPZTS) ; Requres $ZTIMSTAMP to convert to Linux Epoch format

 S KMPZTS=$G(KMPZTS) I KMPZTS="" S KMPZTS=$ZTIMESTAMP

 ; get delta from $h start to Epoch start -- then convert to seconds

 Q (KMPZTS-47117*86400+$P($P(KMPZTS,",",2),"."))

NODETYPE(INSTANCE) ;

 ;  from ZSTU

N X

 S X=INSTANCE ;,Y=SSPORT

 I $E(X,7,9)="SVR" Q "BE"

 I $E(X,7,8)="A0"!($E(X,7,8)="TM") Q "FE"

 I $E(X,6,9)="SHMS"!($E(X,6,8)="SSM") Q "MS"

 I $E(X,7,9)="LDR"!($E(X,6,8)="SSL") Q "LS"

 I $E(X,6,9)="SHDW"!($E(X,6,8)="SS0")!($E(X,6,8)="SS1") Q "VRO"

 Q "UK"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPUTLW   11679     printed  Apr 09, 2024@20:45:43                                                                                                                                                                                                    Page 2

KMPUTLW   ;SP/JML - Manage REST interfaces for VSM Monitors ;11/1/2023

 +1       ;;4.0;CAPACITY MANAGEMENT;**1,3,4**;3/1/2018;Build 36

 +2       ;

 +3       ; Reference to GETENV^%ZOSV in ICR #10097

 +4       ; Reference to $$SITE^VASITE in ICR #10112

 +5       ;

POST(KMPJSON,KMPRLOC,KMPFFLAG,KMPMKEY) ;

 +1        NEW KMPAKEY,KMPFILE,KMPFN,KMPFQDN,KMPPORT,KMPRESP,KMPREQ,KMPRJSON,KMPSCODE,KMPSTAGE,KMPSTAT,KMPETIME,KMPSTIME,KMPSTEXT

 +2       ;

 +3        IF $GET(KMPMKEY)=""

               SET KMPMKEY="VTCM"

 +4        IF KMPJSON.Site=""

               DO SITE(KMPJSON)

 +5        SET KMPREQ=##class(%Net.HttpRequest).%New()

 +6        SET KMPREQ.ContentType="application/json"

 +7        DO KMPREQ.SetHeader("Accept","application/json")

 +8       ;   Send SSL

 +9        IF $$GETVAL^KMPVCCFG(KMPMKEY,"ENCRYPT",8969,"I")=1

               Begin DoDot:1

 +10               SET KMPREQ.SSLConfiguration="KMPHttpsClient"

 +11               SET KMPREQ.Https=1

               End DoDot:1

 +12      ;   Server/Resource/Port/Key

 +13       SET KMPREQ.Location="vsm"_$$PROD^KMPVCCFG()_KMPRLOC

 +14       SET KMPFQDN=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL FQDN",8969)

 +15       IF KMPFQDN=""

               Begin DoDot:1

 +16               SET KMPREQ.Server=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL IP",8969)

 +17               SET KMPREQ.Port=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL PORT",8969)

               End DoDot:1

 +18       IF KMPFQDN'=""

               SET KMPREQ.Server=KMPFQDN

 +19      ; only set NATIONAL PORT if other than 80/443

 +20       SET KMPPORT=$$GETVAL^KMPVCCFG(KMPMKEY,"NATIONAL PORT",8969)

 +21       IF KMPPORT'=""

               SET KMPREQ.Port=KMPPORT

 +22       SET KMPAKEY=$$GETVAL^KMPVCCFG(KMPMKEY,"APIKEY",8969)

 +23       IF KMPAKEY'=""

               DO KMPREQ.SetHeader("x-api-key",KMPAKEY)

 +24      ;   Add JSON String to EntityBody from Object/File and send

 +25       IF $GET(KMPFFLAG)=1

               Begin DoDot:1

 +26               SET KMPFN=$$DEFDIR^%ZISH()_$PIECE(KMPRLOC,"/",2)_$JOB_".txt"

 +27               SET KMPFILE=##class(%File).%New(KMPFN)

 +28               DO KMPFILE.Open("WSN")

 +29               DO KMPJSON.%ToJSON(KMPFILE)

 +30               DO KMPFILE.Close()

 +31               DO KMPFILE.Open("RS")

 +32               DO KMPREQ.EntityBody.CopyFrom(KMPFILE)

 +33               DO KMPFILE.Close()

 +34               SET KMPSTAT=##class(%File).Delete(KMPFN)

               End DoDot:1

 +35      IF '$TEST

               DO KMPREQ.EntityBody.Write(KMPJSON.%ToJSON())

 +36       IF $DATA(KMPTEST)

               WRITE !,KMPJSON.%ToJSON(),!

 +37       SET KMPSTIME=$PIECE($ZTIMESTAMP,",",2)

 +38       SET KMPSTAT=KMPREQ.Post(,$GET(KMPTEST))

 +39       SET KMPETIME=$PIECE($ZTIMESTAMP,",",2)

 +40       SET KMPSCODE=KMPREQ.HttpResponse.StatusCode

 +41       SET KMPSTEXT=$SELECT(+$GET(KMPSCODE)>0:KMPREQ.HttpResponse.Data.Read(),1:"")

 +42       IF $DATA(KMPTEST)

               WRITE !,"Http Response Status Code: ",KMPSCODE,!

 +43       KILL KMPTEST

 +44       QUIT KMPSCODE_"^"_KMPSTEXT_"^"_(KMPETIME-KMPSTIME)

 +45      ;

INFOMSG(KMPVTEXT) ;  Send text POST

 +1        NEW KMPEMAIL,KMPMSG,KMPI,KMPSERV,KMPSTAT

 +2        SET KMPSINF=$$SITEINFO^KMPVCCFG()

 +3        SET KMPMSG=##class(%Net.MailMessage).%New()

 +4        SET KMPMSG.From="VSM@"_$PIECE(KMPSINF,"^",3)

 +5        SET KMPEMAIL=$$GETVAL^KMPVCCFG("VTCM","NATIONAL SUPPORT EMAIL ADDRESS",8969)

 +6        DO KMPMSG.To.Insert(KMPEMAIL)

 +7        SET KMPMSG.Subject=$GET(KMPVTEXT("SUBJECT"))

 +8        SET KMPMSG.IsBinary=0

 +9        SET KMPMSG.IsHTML=0

 +10       DO KMPMSG.TextData.WriteLine("Do Not Reply - Informational Only")

+11

*** ERROR ***

           DO KMPMSG.TextData.Write(" "_$c(13))

 +12       SET KMPI=0

 +13       FOR

KMPUTLW.m