SDCCRP912 ;CCRA/LB,PB - Pre Install Routine for Patch SD*5.3*912;
;;5.3;Scheduling;**912**;;Build 61
;SAC EXEMPTION 202505291453-05 : CCRA use of vendor specific code
;ICR 7205
;External reference to ^XOB(18.12 supported by DBIA 7204
;External reference to ^XOB(18.02 supported by DBIA 7205
;External reference to ^XUSRB1 is supported by ICR 2240
;External reference to ^XOBWLIB is supported by ICR 5421
;
;Patch 912 change to set up the new web service to make a REST call to PPMS to get provider information
Q
EN ;
N FDA ; -- FileMan Data Array
N WEBVICE ; -- Web Service Internal Entry Number
N WEBVER ; -- Web Server Internal Entry Number
N MULTIEN ; -- Web Service Multiple Internal Entry Number
N WSTAT ; -- Web Service Status
N IENROOT,MSGROOT,IENROOT1,VICEIEN
;
N DIR,DTOUT,DUOUT,DIRUT,DIROUT,SERVADD,X,Y,ENVRMT,SERVPORT,IEN1802
; Check to see if the web service has already been installed and configured
S IEN1802=$O(^XOB(18.02,"B","CCRA NPI SERVICE",""))
I IEN1802>0 D
. D BMES^XPDUTL("*************************************************************")
. D BMES^XPDUTL(" The CCRA WEB SERVICE has already been setup and configured. ")
. D BMES^XPDUTL("*************************************************************")
;
I $G(IEN1802)'>0 D
.S SERVADD="127.0.0.1"
.S SERVPORT=80
.K FDA
.S FDA(18.02,"?+1,",.01)="CCRA NPI SERVICE" ; WEB SERVICE NAME
.S FDA(18.02,"?+1,",.02)="REST" ; TYPE
.S FDA(18.02,"?+1,",200)="csp/healthshare/ppms/rest/PPMS/Locations" ; CONTEXT ROOT
.S FDA(18.02,"?+1,",201)="" ; AVAILABILITY RESOURCE
.D UPDATE^DIE("E","FDA","IENROOT","MSGROOT")
.K IENROOT,MSGROOT,FDA
.;
.S FDA(18.12,"?+1,",.01)="CCRA NPI SERVER" ; NAME
.S FDA(18.12,"?+1,",.03)=SERVPORT ; PORT
.S FDA(18.12,"?+1,",.04)=SERVADD ; SERVER
.S FDA(18.12,"?+1,",.06)="ENABLED" ; STATUS 1-ENABLED / 0-DISABLED
.S FDA(18.12,"?+1,",.07)=10 ; DEFAULT HTTP TIMEOUT
.D UPDATE^DIE("E","FDA","IENROOT","MSGROOT")
.;
.S IENROOT1=$G(IENROOT(1)),MULTIEN=0
.;
.S WEBVER=$S(IENROOT1:IENROOT1,1:WEBVER)
.K IENROOT,MSGROOT,FDA
.S VICEIEN=0 F S VICEIEN=$O(^XOB(18.12,WEBVER,100,"B",VICEIEN)) Q:'VICEIEN I $$GET1^DIQ(18.02,VICEIEN,.01)="CCRA WEB SERVICE" S MULTIEN=VICEIEN Q
.S MULTIEN=$S(MULTIEN:MULTIEN,1:"+1")
.S FDA(18.121,MULTIEN_","_WEBVER_",",.01)="CCRA NPI SERVICE" ; WEB SERVICE
.S FDA(18.121,MULTIEN_","_WEBVER_",",.06)="ENABLED" ; STATUS 1-ENABLED / 0-DISABLED
.D UPDATE^DIE("E","FDA","IENROOT","MSGROOT")
;
D BMES^XPDUTL("Connecting to CCRA WEB SERVICE..")
S WSTAT=$$GET
I '$G(WSTAT) D Q
. D BMES^XPDUTL(" *********************************************************")
. D BMES^XPDUTL(" WARNING: The WEB SERVER/SERVICE SETUP SUCCEEDED")
. D BMES^XPDUTL(" >>>> Installation Successful <<<<")
. D BMES^XPDUTL(" *********************************************************")
. ;S XPDQUIT=1 ; Do not install this transport global and KILL it from ^XTMP.
;
D BMES^XPDUTL(" *******************************************************")
D BMES^XPDUTL(" The Environmental Check Routine finished Successfully.")
D BMES^XPDUTL(" *******************************************************")
Q
;
GET() ; -- Send a test to the Web Service and compare the Result
N SERVER,SERVICE,RESOURCE,REQUEST,SC,RESPONSE,RESPJSON,DATA,CCRAERR
S SERVER="CCRA NPI SERVER"
S SERVICE="CCRA NPI SERVICE"
S RESOURCE=""
;
; Get an instance of the REST request object.
S REQUEST=$$GETREST^XOBWLIB(SERVICE,SERVER)
;
; Execute the HTTP Get method.
S SC=$$GET^XOBWLIB(REQUEST,RESOURCE,.CCRAERR,0)
I 'SC I CCRAERR.code=404 Q 1
I 'SC Q "0^General Service Error"
;
; Process the response.
S RESPONSE=REQUEST.HttpResponse
S DATA=RESPONSE.Data
S RESPJSON=""
F Q:DATA.AtEnd Set RESPJSON=RESPJSON_DATA.ReadLine()
I $L($G(RESPJSON)) Q 1
Q 0
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDCCRP912 3918 printed Sep 23, 2025@20:25:16 Page 2
SDCCRP912 ;CCRA/LB,PB - Pre Install Routine for Patch SD*5.3*912;
+1 ;;5.3;Scheduling;**912**;;Build 61
+2 ;SAC EXEMPTION 202505291453-05 : CCRA use of vendor specific code
+3 ;ICR 7205
+4 ;External reference to ^XOB(18.12 supported by DBIA 7204
+5 ;External reference to ^XOB(18.02 supported by DBIA 7205
+6 ;External reference to ^XUSRB1 is supported by ICR 2240
+7 ;External reference to ^XOBWLIB is supported by ICR 5421
+8 ;
+9 ;Patch 912 change to set up the new web service to make a REST call to PPMS to get provider information
+10 QUIT
EN ;
+1 ; -- FileMan Data Array
NEW FDA
+2 ; -- Web Service Internal Entry Number
NEW WEBVICE
+3 ; -- Web Server Internal Entry Number
NEW WEBVER
+4 ; -- Web Service Multiple Internal Entry Number
NEW MULTIEN
+5 ; -- Web Service Status
NEW WSTAT
+6 NEW IENROOT,MSGROOT,IENROOT1,VICEIEN
+7 ;
+8 NEW DIR,DTOUT,DUOUT,DIRUT,DIROUT,SERVADD,X,Y,ENVRMT,SERVPORT,IEN1802
+9 ; Check to see if the web service has already been installed and configured
+10 SET IEN1802=$ORDER(^XOB(18.02,"B","CCRA NPI SERVICE",""))
+11 IF IEN1802>0
Begin DoDot:1
+12 DO BMES^XPDUTL("*************************************************************")
+13 DO BMES^XPDUTL(" The CCRA WEB SERVICE has already been setup and configured. ")
+14 DO BMES^XPDUTL("*************************************************************")
End DoDot:1
+15 ;
+16 IF $GET(IEN1802)'>0
Begin DoDot:1
+17 SET SERVADD="127.0.0.1"
+18 SET SERVPORT=80
+19 KILL FDA
+20 ; WEB SERVICE NAME
SET FDA(18.02,"?+1,",.01)="CCRA NPI SERVICE"
+21 ; TYPE
SET FDA(18.02,"?+1,",.02)="REST"
+22 ; CONTEXT ROOT
SET FDA(18.02,"?+1,",200)="csp/healthshare/ppms/rest/PPMS/Locations"
+23 ; AVAILABILITY RESOURCE
SET FDA(18.02,"?+1,",201)=""
+24 DO UPDATE^DIE("E","FDA","IENROOT","MSGROOT")
+25 KILL IENROOT,MSGROOT,FDA
+26 ;
+27 ; NAME
SET FDA(18.12,"?+1,",.01)="CCRA NPI SERVER"
+28 ; PORT
SET FDA(18.12,"?+1,",.03)=SERVPORT
+29 ; SERVER
SET FDA(18.12,"?+1,",.04)=SERVADD
+30 ; STATUS 1-ENABLED / 0-DISABLED
SET FDA(18.12,"?+1,",.06)="ENABLED"
+31 ; DEFAULT HTTP TIMEOUT
SET FDA(18.12,"?+1,",.07)=10
+32 DO UPDATE^DIE("E","FDA","IENROOT","MSGROOT")
+33 ;
+34 SET IENROOT1=$GET(IENROOT(1))
SET MULTIEN=0
+35 ;
+36 SET WEBVER=$SELECT(IENROOT1:IENROOT1,1:WEBVER)
+37 KILL IENROOT,MSGROOT,FDA
+38 SET VICEIEN=0
FOR
SET VICEIEN=$ORDER(^XOB(18.12,WEBVER,100,"B",VICEIEN))
if 'VICEIEN
QUIT
IF $$GET1^DIQ(18.02,VICEIEN,.01)="CCRA WEB SERVICE"
SET MULTIEN=VICEIEN
QUIT
+39 SET MULTIEN=$SELECT(MULTIEN:MULTIEN,1:"+1")
+40 ; WEB SERVICE
SET FDA(18.121,MULTIEN_","_WEBVER_",",.01)="CCRA NPI SERVICE"
+41 ; STATUS 1-ENABLED / 0-DISABLED
SET FDA(18.121,MULTIEN_","_WEBVER_",",.06)="ENABLED"
+42 DO UPDATE^DIE("E","FDA","IENROOT","MSGROOT")
End DoDot:1
+43 ;
+44 DO BMES^XPDUTL("Connecting to CCRA WEB SERVICE..")
+45 SET WSTAT=$$GET
+46 IF '$GET(WSTAT)
Begin DoDot:1
+47 DO BMES^XPDUTL(" *********************************************************")
+48 DO BMES^XPDUTL(" WARNING: The WEB SERVER/SERVICE SETUP SUCCEEDED")
+49 DO BMES^XPDUTL(" >>>> Installation Successful <<<<")
+50 DO BMES^XPDUTL(" *********************************************************")
+51 ;S XPDQUIT=1 ; Do not install this transport global and KILL it from ^XTMP.
End DoDot:1
QUIT
+52 ;
+53 DO BMES^XPDUTL(" *******************************************************")
+54 DO BMES^XPDUTL(" The Environmental Check Routine finished Successfully.")
+55 DO BMES^XPDUTL(" *******************************************************")
+56 QUIT
+57 ;
GET() ; -- Send a test to the Web Service and compare the Result
+1 NEW SERVER,SERVICE,RESOURCE,REQUEST,SC,RESPONSE,RESPJSON,DATA,CCRAERR
+2 SET SERVER="CCRA NPI SERVER"
+3 SET SERVICE="CCRA NPI SERVICE"
+4 SET RESOURCE=""
+5 ;
+6 ; Get an instance of the REST request object.
+7 SET REQUEST=$$GETREST^XOBWLIB(SERVICE,SERVER)
+8 ;
+9 ; Execute the HTTP Get method.
+10 SET SC=$$GET^XOBWLIB(REQUEST,RESOURCE,.CCRAERR,0)
+11 IF 'SC
IF CCRAERR.code=404
QUIT 1
+12 IF 'SC
QUIT "0^General Service Error"
+13 ;
+14 ; Process the response.
+15 SET RESPONSE=REQUEST.HttpResponse
+16 SET DATA=RESPONSE.Data
+17 SET RESPJSON=""
+18 FOR
if DATA.AtEnd
QUIT
SET RESPJSON=RESPJSON_DATA.ReadLine()
+19 IF $LENGTH($GET(RESPJSON))
QUIT 1
+20 QUIT 0
+21 ;
