Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: KMPPS44A

KMPPS44A.m

Go to the documentation of this file. 
  1. KMPPS44A ;SP/JML - KMP*4*4 POST INSTALL ROUTINE ;11/1/2023
  1.  ;;4.0;CAPACITY MANAGEMENT;**4**;3/1/2018;Build 36
  1.  ;
  1.  ;
  1. GETNODEG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        W ""<H>""_##class(%SYS.System).GetNodeName(1)_""</H>""")
  1.  D MDEF.Implementation.WriteLine("        Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("    } CATCH KMPERR {")
  1.  D MDEF.Implementation.WriteLine("        Return ..Http500(KMPERR)")
  1.  D MDEF.Implementation.WriteLine("    }")
  1.  Q
  1.  ;
  1. GETCONFIGG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetConfigGEvent"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        D CPF^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        D MON^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        #dim KMPITER As %Iterator.Array")
  1.  D MDEF.Implementation.WriteLine("        #dim KMPITER2 As %Iterator.Array")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>Site</H1>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER=KMPRET.Site.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KMPKEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KMPKEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>CPF</H1>""")
  1.  D MDEF.Implementation.WriteLine("        W ""<H2>CPF Startup</H2>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER=KMPRET.CPF.Startup.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KMPKEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KMPKEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        W ""<H2>CPF Mirror</H2>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER=KMPRET.CPF.MirrorMember.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KMPKEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KMPKEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        W ""<H2>CPF Config</H2>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER=KMPRET.CPF.Config.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KMPKEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KMPKEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>Monitors</H1>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER=KMPRET.MonCFG.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        while KMPITER.%GetNext(.KMPKEY,.KMPLINE) {")
  1.  D MDEF.Implementation.WriteLine("            W ""<H3>""_KMPLINE.Monitor_""</H3>""")
  1.  D MDEF.Implementation.WriteLine("            S KMPITER2 = KMPLINE.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("            while KMPITER2.%GetNext(.KMPKEY2, .KMPLINE2) {")
  1.  D MDEF.Implementation.WriteLine("              I KMPKEY2'=""ApiKey"" W KMPKEY2_"": ""_KMPLINE2_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("            }")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetConfigGHandler"")")
  1.  D MDEF.Implementation.WriteLine("        Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("    } CATCH KMPERR {")
  1.  D MDEF.Implementation.WriteLine("        Return ..Http500(kmperr)")
  1.  D MDEF.Implementation.WriteLine("    }")
  1.  Q
  1.  ;
  1. GETHTTPG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetHttpMetricsGEvent"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>Site</H1>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER = KMPRET.Site.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        S KMPMCHK=%request.Get(""MONTYPE"")")
  1.  D MDEF.Implementation.WriteLine("        I KMPMCHK="""" S KMPMCHK=""ALL""")
  1.  D MDEF.Implementation.WriteLine("        S KMPDATE=%request.Get(""DATE"")")
  1.  D MDEF.Implementation.WriteLine("        I KMPDATE'="""" S KMPDCHK=""3""_KMPDATE")
  1.  D MDEF.Implementation.WriteLine("        E  S KMPDCHK=""ALL""")
  1.  D MDEF.Implementation.WriteLine("        S KMPSUB=""KMP""")
  1.  D MDEF.Implementation.WriteLine("        F  S KMPSUB=$O(^XTMP(KMPSUB)) Q:$E(KMPSUB,1,3)'=""KMP""  D")
  1.  D MDEF.Implementation.WriteLine("        .S KMPDAY=$P(KMPSUB,"" "",2)")
  1.  D MDEF.Implementation.WriteLine("        .Q:(KMPDCHK'=KMPDAY)&&(KMPDCHK'=""ALL"")")
  1.  D MDEF.Implementation.WriteLine("        .W ""<H2>""_$P(^XTMP(KMPSUB,0),""^"",3)_""</H2>""")
  1.  D MDEF.Implementation.WriteLine("        .S KMPMTYP=0")
  1.  D MDEF.Implementation.WriteLine("        .F  S KMPMTYP=$O(^XTMP(KMPSUB,KMPMTYP)) Q:KMPMTYP=""""  D")
  1.  D MDEF.Implementation.WriteLine("        ..Q:(KMPMTYP'[KMPMCHK)&&(KMPMCHK'=""ALL"")")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPNODE=""""")
  1.  D MDEF.Implementation.WriteLine("        ..F  S KMPNODE=$O(^XTMP(KMPSUB,KMPMTYP,""HTTP"",KMPNODE)) Q:KMPNODE=""""  D")
  1.  D MDEF.Implementation.WriteLine("        ...W ""<H3>""_KMPMTYP_"" : ""_KMPNODE_""</H3>""")
  1.  D MDEF.Implementation.WriteLine("        ...S KMPT=""""")
  1.  D MDEF.Implementation.WriteLine("        ...F  S KMPT=$O(^XTMP(KMPSUB,KMPMTYP,""HTTP"",KMPNODE,KMPT)) Q:KMPT=""""  D")
  1.  D MDEF.Implementation.WriteLine("        ....S KMPTIME=$ZT(KMPT)")
  1.  D MDEF.Implementation.WriteLine("        ....S KMPDATA=^XTMP(KMPSUB,KMPMTYP,""HTTP"",KMPNODE,KMPT)")
  1.  D MDEF.Implementation.WriteLine("        ....W ""<pre>""_KMPMTYP_"" - ""_KMPTIME_"" - ""_KMPDATA_""</pre>""")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetHttpMetricsGHandler"")")
  1.  D MDEF.Implementation.WriteLine("        Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("    } CATCH KMPERR {")
  1.  D MDEF.Implementation.WriteLine("        Return ..Http500(KMPERR)")
  1.  D MDEF.Implementation.WriteLine("    }")
  1.  Q
  1.  ;
  1. KILLDATAG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetKillDataGEvent"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>Site</H1>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER = KMPRET.Site.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        S KMPMCHK=%request.Get(""MONTYPE"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPMCHK=$REPLACE(KMPMCHK,"""""""","""")")
  1.  D MDEF.Implementation.WriteLine("        I KMPMCHK="""" S KMPMCHK=""VBEM:VCSM:VETM:VHLM:VMCM:VSTM:VTCM""")
  1.  D MDEF.Implementation.WriteLine("        S KMPL=$L(KMPMCHK,"":"")")
  1.  D MDEF.Implementation.WriteLine("        F KMPI=1:1:KMPL D")
  1.  D MDEF.Implementation.WriteLine("        .S KMPMTYP=$P(KMPMCHK,"":"",KMPI)")
  1.  D MDEF.Implementation.WriteLine("        .K ^KMPTMP(""KMPV"",KMPMTYP)")
  1.  D MDEF.Implementation.WriteLine("        .W ""<BR>Data deleted: "",KMPMTYP")
  1.  D MDEF.Implementation.WriteLine("        .D STOPMON^KMPVCBG(KMPMTYP,1,0)")
  1.  D MDEF.Implementation.WriteLine("        .W ""<BR>Monitor stopped: "",KMPMTYP")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetKillDataGHandler"")")
  1.  D MDEF.Implementation.WriteLine("        Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("    } CATCH KMPERR {")
  1.  D MDEF.Implementation.WriteLine("        Return ..Http500(KMPERR)")
  1.  D MDEF.Implementation.WriteLine("    }")
  1.  Q
  1.  ;
  1. STARTMONG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetStartMonitorGEvent"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>Site</H1>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER = KMPRET.Site.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        S KMPMCHK=%request.Get(""MONTYPE"")")
  1.  D MDEF.Implementation.WriteLine("        I KMPMCHK=""ALL"" S KMPMCHK=""VBEM:VCSM:VETM:VHLM:VMCM:VSTM:VTCM""")
  1.  D MDEF.Implementation.WriteLine("        F KMPI=1:1:$L(KMPMCHK,"":"") D")
  1.  D MDEF.Implementation.WriteLine("        .S KMPQUIT=0")
  1.  D MDEF.Implementation.WriteLine("        .S KMPVMKEY=$P(KMPMCHK,"":"",KMPI)")
  1.  D MDEF.Implementation.WriteLine("        .W ""<H3>""_KMPVMKEY_""</H3>""")
  1.  D MDEF.Implementation.WriteLine("        .I '$D(^KMPV(8969,""B"",KMPVMKEY)) D")
  1.  D MDEF.Implementation.WriteLine("        ..W ""    ""_KMPVMKEY_"" not a valid monitor""")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPQUIT=1")
  1.  D MDEF.Implementation.WriteLine("        .S KMPVROUT=$$GETVAL^KMPVCCFG(KMPVMKEY,""CACHE DAILY TASK"",8969)")
  1.  D MDEF.Implementation.WriteLine("        .I KMPVROUT="""" D")
  1.  D MDEF.Implementation.WriteLine("        ..W ""    ""_KMPVMKEY_"" has no run routine""")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPQUIT=1")
  1.  D MDEF.Implementation.WriteLine("        .I $$ROUTCHK^KMPVCBG(KMPVROUT)=1 D")
  1.  D MDEF.Implementation.WriteLine("        ..W ""    ""_KMPVMKEY_"" already running""")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPQUIT=1")
  1.  D MDEF.Implementation.WriteLine("        .I KMPQUIT=0 D")
  1.  D MDEF.Implementation.WriteLine("        ..D STARTMON^KMPVCBG(KMPVMKEY,1,1)")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPVTASK=""RUN^""_KMPVROUT J @KMPVTASK")
  1.  D MDEF.Implementation.WriteLine("        ..W !,""    ""_KMPVMKEY_"" Started""")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetStartMonitorGHandler"")")
  1.  D MDEF.Implementation.WriteLine("        RETURN $$$OK")
  1.  D MDEF.Implementation.WriteLine("    } CATCH KMPERR {")
  1.  D MDEF.Implementation.WriteLine("        Return ..Http500(KMPERR)")
  1.  D MDEF.Implementation.WriteLine("    }")
  1.  Q
  1.  ;
  1. GETRETRYDATAG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetRetryDataGEvent"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        W ""<H1>Site</H1>""")
  1.  D MDEF.Implementation.WriteLine("        S KMPITER = KMPRET.Site.%GetIterator()")
  1.  D MDEF.Implementation.WriteLine("        WHILE KMPITER.%GetNext(.KEY,.KMPVALUE) {")
  1.  D MDEF.Implementation.WriteLine("          W KEY_"": ""_KMPVALUE_""<BR>""")
  1.  D MDEF.Implementation.WriteLine("        }")
  1.  D MDEF.Implementation.WriteLine("        S KMPMCHK=%request.Get(""MONTYPE"")")
  1.  D MDEF.Implementation.WriteLine("        I KMPMCHK=""ALL"" S KMPMCHK=""VBEM:VCSM:VETM:VHLM:VMCM:VSTM:VTCM""")
  1.  D MDEF.Implementation.WriteLine("        F KMPI=1:1:$L(KMPMCHK,"":"") D")
  1.  D MDEF.Implementation.WriteLine("        .S KMPVMKEY=$P(KMPMCHK,"":"",KMPI)")
  1.  D MDEF.Implementation.WriteLine("        .W ""<H3>Monitor:""_KMPVMKEY_""</H3>""")
  1.  D MDEF.Implementation.WriteLine("        .S KMPVNODE=""""")
  1.  D MDEF.Implementation.WriteLine("        .F  S KMPVNODE=$O(^KMPTMP(""KMPV"",KMPVMKEY,""RETRY"",KMPVNODE)) Q:KMPVNODE=""""  D")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPDAY=""""")
  1.  D MDEF.Implementation.WriteLine("        ..F  S KMPDAY=$O(^KMPTMP(""KMPV"",KMPVMKEY,""RETRY"",KMPVNODE,KMPDAY)) Q:KMPDAY=""""  D")
  1.  D MDEF.Implementation.WriteLine("        ...S HOROLOG=""""")
  1.  D MDEF.Implementation.WriteLine("        ...F  S HOROLOG=$O(^KMPTMP(""KMPV"",KMPVMKEY,""RETRY"",KMPVNODE,KMPDAY,HOROLOG)) Q:HOROLOG=""""  D")
  1.  D MDEF.Implementation.WriteLine("        ....S KMPJDAY=$ZD(KMPDAY)")
  1.  D MDEF.Implementation.WriteLine("        ....S KMPJTIME=$ZT($P(HOROLOG,"","",2))")
  1.  D MDEF.Implementation.WriteLine("        ....S KMPDATA=KMPVMKEY_""^""_KMPVNODE_""^""_KMPJDAY_""^""_KMPJTIME")
  1.  D MDEF.Implementation.WriteLine("        ....W ""<BR>Data:""_KMPDATA")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetRetryDataGHandler"")")
  1.  D MDEF.Implementation.WriteLine("        RETURN $$$OK")
  1.  D MDEF.Implementation.WriteLine("    } CATCH KMPERR {")
  1.  D MDEF.Implementation.WriteLine("        Return ..Http500(KMPERR)")
  1.  D MDEF.Implementation.WriteLine("    }")
  1.  Q