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

KMPPS44B.m

Go to the documentation of this file. 
  1. KMPPS44B ;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.  ;
  1. GETCONFIGP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetConfigPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""GetConfig"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  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("        S KMPRET.ResultText=""OK""")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetConfigPHandler"")")
  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. SETCONFIGP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP SetConfigPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""SetConfig"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.ResultText=$$SETCFG^KMPUTLW2(KMPREQ)")
  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("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP SetConfigPHandler"")")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  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. GETERRORP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetErrorPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""GetError"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D GETERR^KMPUTLW2(KMPRET,KMPREQ)")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.ResultText=""OK""")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetErrorPHandler"")")
  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. GETCTMLOGP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetCtmLogPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""GetCtmLog"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        D CTMLOG^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.ResultText=""OK""")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetCtmLogPHandler"")")
  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. GETPATLISTP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetPatientListPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""GetPatientList"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        D PATLIST^KMPSYNTH(KMPRET,KMPREQ.Count)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetPatientListPHandler"")")
  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. RETRYP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP RetryPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""Retry"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.ResultText=$$RETRY^KMPUTLW(KMPREQ)")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP RetryPHandler"")")
  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. GETPACKAGESP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetPackagesPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""GetPackages"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        D PACKAGES^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.ResultText=""OK""")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetPackagesPHandler"")")
  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. GETHTTPP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetHttpMetricsPEvent"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Access-Control-Allow-Origin"",""*"")")
  1.  D MDEF.Implementation.WriteLine("        Do %response.SetHeader(""Allow"",""HEAD,GET,POST,PUT,DELETE,OPTIONS"")")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("        I KMPREQ.Function'=""HttpMetrics"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("        .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("        .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("        S KMPMCHK=KMPREQ.Montype")
  1.  D MDEF.Implementation.WriteLine("        I KMPMCHK="""" S KMPMCHK=""ALL""")
  1.  D MDEF.Implementation.WriteLine("        S KMPDATE=KMPREQ.Date")
  1.  D MDEF.Implementation.WriteLine("        ; parse odbc date format into fileman data format")
  1.  D MDEF.Implementation.WriteLine("        S KMPDCHK=""3""_$E(KMPDATE,3,4)_$P(KMPDATE,""-"",2)_$P(KMPDATE,""-"",3)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Date=KMPDATE")
  1.  D MDEF.Implementation.WriteLine("        S KMPMLIST=##class(%DynamicArray).%New()")
  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")
  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:(KMPMCHK'[KMPMTYP)&&(KMPMCHK'=""ALL"")")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPMOBJ=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPMOBJ.Monitor=KMPMTYP")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPDARR=##class(%DynamicArray).%New()")
  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("        ...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("        ....S KMPDATA=KMPTIME_""^""_KMPNODE_""^""_KMPDATA")
  1.  D MDEF.Implementation.WriteLine("        ....D KMPDARR.%Push(KMPDATA)")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPMOBJ.Data=KMPDARR")
  1.  D MDEF.Implementation.WriteLine("        ..D KMPMLIST.%Push(KMPMOBJ)")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Monitors=KMPMLIST")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.Function=KMPREQ.Function")
  1.  D MDEF.Implementation.WriteLine("        S KMPRET.ResultText=""OK""")
  1.  D MDEF.Implementation.WriteLine("        W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("        D RU^%ZOSVKR(""KMP GetHttpMetricsPHandler"")")
  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