KMPURS1 ;SP/JML - VSM Synthetic REST functions ;7/1/2025
;;4.0;CAPACITY MANAGEMENT;**5**;3/1/2018;Build 9
;
;
;
IMALIVEP() ;
N KMPRET,KMPINST,KMPINST,KMPNDTYP
S KMPRET=##class(%DynamicObject).%New()
Do %response.SetHeader("Access-Control-Allow-Origin","*")
Do %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
S KMPRET.Function=KMPREQ.Function
I KMPREQ.Function'="ImAlive" D Q 0
.S KMPRET.Status="Incorrect Function Type"
.S KMPRET.ResultText="OK"
.W KMPRET.%ToJSON()
D SITE^KMPUTLW(KMPRET)
S KMPRET.ResultText="OK"
W KMPRET.%ToJSON()
Q
;
SYNTHFILEP() ;
N KMPRET,KMPREQ,KMPINST,KMPNDTYP
S KMPRET=##class(%DynamicObject).%New()
Do %response.SetHeader("Access-Control-Allow-Origin","*")
Do %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
S KMPRET.Function=KMPREQ.Function
I KMPREQ.Function'="SynthFile" D Q 0
.S KMPRET.Status="Incorrect Function Type"
.S KMPRET.ResultText="OK"
.W KMPRET.%ToJSON()
D SITE^KMPUTLW(KMPRET)
D SYNFILE^KMPSYNTH(KMPRET)
S KMPRET.ResultText="OK"
W KMPRET.%ToJSON()
Q
;
SYNTHRCMDP() ;
N KMPRET,KMPREQ,KMPINST,KMPNDTYP
S KMPRET=##class(%DynamicObject).%New()
Do %response.SetHeader("Access-Control-Allow-Origin","*")
Do %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
S KMPRET.Function=KMPREQ.Function
I KMPREQ.Function'="SynthRcmd" D Q 0
.S KMPRET.Status="Incorrect Function Type"
.S KMPRET.ResultText="OK"
.W KMPRET.%ToJSON()
D SITE^KMPUTLW(KMPRET)
D SYNRCMD^KMPSYNTH(KMPRET)
S KMPRET.ResultText="OK"
W KMPRET.%ToJSON()
Q
;
SYNTHVPRP() ;
N KMPRET,KMPREQ,KMPINST,KMPNDTYP
S KMPRET=##class(%DynamicObject).%New()
Do %response.SetHeader("Access-Control-Allow-Origin","*")
Do %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
S KMPRET.Function=KMPREQ.Function
I KMPREQ.Function'="SynthVpr" D Q 0
.S KMPRET.Status="Incorrect Function Type"
.S KMPRET.ResultText="OK"
.W KMPRET.%ToJSON()
D SITE^KMPUTLW(KMPRET)
D SYNVPR^KMPSYNTH(KMPRET,KMPREQ.PatientDfn,KMPREQ.ClinicalDomains)
S KMPRET.ResultText="OK"
W KMPRET.%ToJSON()
Q
;
GETPLISTP ;
N KMPREQ,KMPRET
S KMPRET=##class(%DynamicObject).%New()
Do %response.SetHeader("Access-Control-Allow-Origin","*")
Do %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
S KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
S KMPRET.Function=KMPREQ.Function
I KMPREQ.Function'="GetPatientList" D Q 0
.S KMPRET.Status="Incorrect Function Type"
.S KMPRET.ResultText="OK"
.W KMPRET.%ToJSON()
D SITE^KMPUTLW(KMPRET)
D PATLIST^KMPSYNTH(KMPRET,KMPREQ.Count)
W KMPRET.%ToJSON()
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HKMPURS1 2964 printed Apr 22, 2026@13:39:06 Page 2
KMPURS1 ;SP/JML - VSM Synthetic REST functions ;7/1/2025
+1 ;;4.0;CAPACITY MANAGEMENT;**5**;3/1/2018;Build 9
+2 ;
+3 ;
+4 ;
IMALIVEP() ;
+1 NEW KMPRET,KMPINST,KMPINST,KMPNDTYP
+2 SET KMPRET=##class(%DynamicObject).%New()
+3 DO %response.SetHeader("Access-Control-Allow-Origin","*")
+4 DO %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
+5 SET KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
+6 SET KMPRET.Function=KMPREQ.Function
+7 IF KMPREQ.Function'="ImAlive"
Begin DoDot:1
+8 SET KMPRET.Status="Incorrect Function Type"
+9 SET KMPRET.ResultText="OK"
+10 WRITE KMPRET.%ToJSON()
End DoDot:1
QUIT 0
+11 DO SITE^KMPUTLW(KMPRET)
+12 SET KMPRET.ResultText="OK"
+13 WRITE KMPRET.%ToJSON()
+14 QUIT
+15 ;
SYNTHFILEP() ;
+1 NEW KMPRET,KMPREQ,KMPINST,KMPNDTYP
+2 SET KMPRET=##class(%DynamicObject).%New()
+3 DO %response.SetHeader("Access-Control-Allow-Origin","*")
+4 DO %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
+5 SET KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
+6 SET KMPRET.Function=KMPREQ.Function
+7 IF KMPREQ.Function'="SynthFile"
Begin DoDot:1
+8 SET KMPRET.Status="Incorrect Function Type"
+9 SET KMPRET.ResultText="OK"
+10 WRITE KMPRET.%ToJSON()
End DoDot:1
QUIT 0
+11 DO SITE^KMPUTLW(KMPRET)
+12 DO SYNFILE^KMPSYNTH(KMPRET)
+13 SET KMPRET.ResultText="OK"
+14 WRITE KMPRET.%ToJSON()
+15 QUIT
+16 ;
SYNTHRCMDP() ;
+1 NEW KMPRET,KMPREQ,KMPINST,KMPNDTYP
+2 SET KMPRET=##class(%DynamicObject).%New()
+3 DO %response.SetHeader("Access-Control-Allow-Origin","*")
+4 DO %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
+5 SET KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
+6 SET KMPRET.Function=KMPREQ.Function
+7 IF KMPREQ.Function'="SynthRcmd"
Begin DoDot:1
+8 SET KMPRET.Status="Incorrect Function Type"
+9 SET KMPRET.ResultText="OK"
+10 WRITE KMPRET.%ToJSON()
End DoDot:1
QUIT 0
+11 DO SITE^KMPUTLW(KMPRET)
+12 DO SYNRCMD^KMPSYNTH(KMPRET)
+13 SET KMPRET.ResultText="OK"
+14 WRITE KMPRET.%ToJSON()
+15 QUIT
+16 ;
SYNTHVPRP() ;
+1 NEW KMPRET,KMPREQ,KMPINST,KMPNDTYP
+2 SET KMPRET=##class(%DynamicObject).%New()
+3 DO %response.SetHeader("Access-Control-Allow-Origin","*")
+4 DO %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
+5 SET KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
+6 SET KMPRET.Function=KMPREQ.Function
+7 IF KMPREQ.Function'="SynthVpr"
Begin DoDot:1
+8 SET KMPRET.Status="Incorrect Function Type"
+9 SET KMPRET.ResultText="OK"
+10 WRITE KMPRET.%ToJSON()
End DoDot:1
QUIT 0
+11 DO SITE^KMPUTLW(KMPRET)
+12 DO SYNVPR^KMPSYNTH(KMPRET,KMPREQ.PatientDfn,KMPREQ.ClinicalDomains)
+13 SET KMPRET.ResultText="OK"
+14 WRITE KMPRET.%ToJSON()
+15 QUIT
+16 ;
GETPLISTP ;
+1 NEW KMPREQ,KMPRET
+2 SET KMPRET=##class(%DynamicObject).%New()
+3 DO %response.SetHeader("Access-Control-Allow-Origin","*")
+4 DO %response.SetHeader("Allow","HEAD,GET,POST,PUT,DELETE,OPTIONS")
+5 SET KMPREQ=##class(%DynamicAbstractObject).%FromJSON(%request.Content)
+6 SET KMPRET.Function=KMPREQ.Function
+7 IF KMPREQ.Function'="GetPatientList"
Begin DoDot:1
+8 SET KMPRET.Status="Incorrect Function Type"
+9 SET KMPRET.ResultText="OK"
+10 WRITE KMPRET.%ToJSON()
End DoDot:1
QUIT 0
+11 DO SITE^KMPUTLW(KMPRET)
+12 DO PATLIST^KMPSYNTH(KMPRET,KMPREQ.Count)
+13 WRITE KMPRET.%ToJSON()
+14 QUIT
