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

KMPPS44C.m

Go to the documentation of this file. 
  1. KMPPS44C ;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. STOPMONG(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  Q:KMPQUIT")
  1.  D MDEF.Implementation.WriteLine("        ..W ""    ""_KMPVMKEY_"" not a valid monitor""")
  1.  D MDEF.Implementation.WriteLine("        ..S KMPQUIT=1")
  1.  D MDEF.Implementation.WriteLine("        .D STOPMON^KMPVCBG(KMPVMKEY,1,1)")
  1.  D MDEF.Implementation.WriteLine("        .W !,""    ""_KMPVMKEY_"" Stopped""")
  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. IMALIVEP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("      D RU^%ZOSVKR(""KMP SynthImAliveEvent"")")
  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 KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("      S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("      S KMPINST=##class(%SYS.System).GetInstanceName(),KMPNDTYP=$$NODETYPE^KMPUTLW(KMPINST)")
  1.  D MDEF.Implementation.WriteLine("      I KMPNDTYP=""BE"",##CLASS(%SYSTEM.Mirror).IsPrimary()=0,##CLASS(%SYSTEM.Mirror).GetStatus()'=""NOTINIT""  D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Not Primary Backend""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthImAliveHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      I KMPREQ.Function'=""ImAlive"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthImAliveHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      D SITE^KMPUTLW(KMPRET)")
  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 SynthImAliveHandler"")")
  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. SYNTHRCMDP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("      D RU^%ZOSVKR(""KMP SynthRcmdEvent"")")
  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 KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("      S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("      S KMPINST=##class(%SYS.System).GetInstanceName(),KMPNDTYP=$$NODETYPE^KMPUTLW(KMPINST)")
  1.  D MDEF.Implementation.WriteLine("      I KMPNDTYP=""BE"",##CLASS(%SYSTEM.Mirror).IsPrimary()=0,##CLASS(%SYSTEM.Mirror).GetStatus()'=""NOTINIT""  D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Not Primary Backend""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthRcmdHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      I KMPREQ.Function'=""SynthRcmd"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthRcmdHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("      D SYNRCMD^KMPSYNTH(KMPRET)")
  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 SynthRcmdHandler"")")
  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. SYNTHFILEP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("      D RU^%ZOSVKR(""KMP SynthFileEvent"")")
  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 KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("      S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("      S KMPINST=##class(%SYS.System).GetInstanceName(),KMPNDTYP=$$NODETYPE^KMPUTLW(KMPINST)")
  1.  D MDEF.Implementation.WriteLine("      I KMPNDTYP=""BE"",##CLASS(%SYSTEM.Mirror).IsPrimary()=0,##CLASS(%SYSTEM.Mirror).GetStatus()'=""NOTINIT""  D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Not Primary Backend""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthFileHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      I KMPREQ.Function'=""SynthFile"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthFileHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("      D SYNFILE^KMPSYNTH(KMPRET)")
  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 SynthFileHandler"")")
  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. SYNTHVPRP(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("      ;demographics;reactions;problems;vitals;labs;meds;immunizations;observation;visits;appointments;documents;procedures;consults;flags;factors;skinTests;exams;education;insurance")
  1.  D MDEF.Implementation.WriteLine("      D RU^%ZOSVKR(""KMP SynthVprEvent"")")
  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 KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)")
  1.  D MDEF.Implementation.WriteLine("      S KMPRET=##class(%DynamicObject).%New()")
  1.  D MDEF.Implementation.WriteLine("      S KMPINST=##class(%SYS.System).GetInstanceName(),KMPNDTYP=$$NODETYPE^KMPUTLW(KMPINST)")
  1.  D MDEF.Implementation.WriteLine("      I KMPNDTYP=""BE"",##CLASS(%SYSTEM.Mirror).IsPrimary()=0,##CLASS(%SYSTEM.Mirror).GetStatus()'=""NOTINIT""  D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Not Primary Backend""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthVprHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      I KMPREQ.Function'=""SynthVpr"" D  Return $$$OK")
  1.  D MDEF.Implementation.WriteLine("      .S KMPRET.ResultText=""Incorrect Function Type""")
  1.  D MDEF.Implementation.WriteLine("      .D RU^%ZOSVKR(""KMP SynthVprHandler"")")
  1.  D MDEF.Implementation.WriteLine("      .W KMPRET.%ToJSON()")
  1.  D MDEF.Implementation.WriteLine("      D SITE^KMPUTLW(KMPRET)")
  1.  D MDEF.Implementation.WriteLine("      D SYNVPR^KMPSYNTH(KMPRET,KMPREQ.PatientDfn,KMPREQ.ClinicalDomains)")
  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 SynthVprHandler"")")
  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. GETGLOBUFFG(MDEF) ;
  1.  D MDEF.Implementation.WriteLine("    TRY {")
  1.  D MDEF.Implementation.WriteLine("      D RU^%ZOSVKR(""KMP GetGlobuffEvent"")")
  1.  D MDEF.Implementation.WriteLine("      S KMPRNS=$NAMESPACE")
  1.  D MDEF.Implementation.WriteLine("      S $NAMESPACE=""%SYS""")
  1.  D MDEF.Implementation.WriteLine("      S KMPTBUFF=$V($ZU(40,2,17),-2,$ZU(40,0,1))")
  1.  D MDEF.Implementation.WriteLine("      S KMPBUFF=1")
  1.  D MDEF.Implementation.WriteLine("      D display^GLOBUFF(3000,.KMPBUFF)")
  1.  D MDEF.Implementation.WriteLine("      S $NAMESPACE=KMPRNS")
  1.  D MDEF.Implementation.WriteLine("      W ""total_buffers ""_KMPTBUFF")
  1.  D MDEF.Implementation.WriteLine("      S KMPI=0")
  1.  D MDEF.Implementation.WriteLine("      F  S KMPI=$O(KMPBUFF(KMPI)) Q:KMPI=""""  D")
  1.  D MDEF.Implementation.WriteLine("      .S KMPL=KMPBUFF(KMPI)")
  1.  D MDEF.Implementation.WriteLine("      .W ""<BR>percent_buffers{global=""""""_$LISTGET(KMPL,1)_"""""",database=""""""_$LISTGET(KMPL,2)_""""""} ""_$LISTGET(KMPL,3)")
  1.  D MDEF.Implementation.WriteLine("      D RU^%ZOSVKR(""KMP GetGlobuffHandler"")")
  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