SDEC756P ;ALB/CLT - PATCH 756 POST INSTALL ROUTINE ;Sep 24, 2020@10:41
;;5.3;SCHEDULING;**756**;AUG 13, 1993;Build 43
;
FIND ;FIND THE IEN FOR "VS GUI NATIONAL"
N SDECDA,SDECDA1
W !!?3,"Updating SDEC SETTINGS file (#409.98)",!!
S SDECDA=0,SDECDA=$O(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA)) G:$G(SDECDA)="" NOFIND
D VERSION ;update GUI version number and date
D VVC ;update the VVC stop codes
D VVCURL ;update the VVC URL
Q
VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.2.1
S DA=SDECDA,DIE=409.98,DR="2///1.7.2.1;3///"_DT D ^DIE ;update VS GUI NATIONAL
K DIE,DR,DA
S SDECDA1=0,SDECDA1=$O(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA1)) Q:$G(SDECDA1)="" ;get DA for the VS GUI LOCAL
S DA=SDECDA1,DIE=409.98,DR="2///1.7.2.1;3///"_DT D ^DIE ;update VS GUI LOCAL
K DIE,DR,DA
Q
VVC ;SET THE VVC NATIONAL STOP CODES TO 179 AND 225 IN THE SDEC SETTINGS FILE #409.98
N X,Y,DIC,DA ;
;
F X=179,225 I '$D(^SDEC(409.98,1,3,"B",X)) D
. K DIC,DA S DIC="^SDEC(409.98,1,3,",DIC(0)="L",DA(1)=1 D FILE^DICN
Q
;
VVCURL ;
N Y,VVCURL,DIE,DR,DA ;
S VVCURL="https://www.mobile.domain.ext/app/virtual-care-manager"
K DIE,DR,DA
S DA=1,DIE="^SDEC(409.98,",DR="6////^S X=VVCURL" D ^DIE
K DIC,DIE,DR,DA
Q
;
NOFIND ;"VS GUI NATIONAL" NOT FOUND
W !!?3,"VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDEC756P 1392 printed Dec 13, 2024@02:51:06 Page 2
SDEC756P ;ALB/CLT - PATCH 756 POST INSTALL ROUTINE ;Sep 24, 2020@10:41
+1 ;;5.3;SCHEDULING;**756**;AUG 13, 1993;Build 43
+2 ;
FIND ;FIND THE IEN FOR "VS GUI NATIONAL"
+1 NEW SDECDA,SDECDA1
+2 WRITE !!?3,"Updating SDEC SETTINGS file (#409.98)",!!
+3 SET SDECDA=0
SET SDECDA=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA))
if $GET(SDECDA)=""
GOTO NOFIND
+4 ;update GUI version number and date
DO VERSION
+5 ;update the VVC stop codes
DO VVC
+6 ;update the VVC URL
DO VVCURL
+7 QUIT
VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.2.1
+1 ;update VS GUI NATIONAL
SET DA=SDECDA
SET DIE=409.98
SET DR="2///1.7.2.1;3///"_DT
DO ^DIE
+2 KILL DIE,DR,DA
+3 ;get DA for the VS GUI LOCAL
SET SDECDA1=0
SET SDECDA1=$ORDER(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA1))
if $GET(SDECDA1)=""
QUIT
+4 ;update VS GUI LOCAL
SET DA=SDECDA1
SET DIE=409.98
SET DR="2///1.7.2.1;3///"_DT
DO ^DIE
+5 KILL DIE,DR,DA
+6 QUIT
VVC ;SET THE VVC NATIONAL STOP CODES TO 179 AND 225 IN THE SDEC SETTINGS FILE #409.98
+1 ;
NEW X,Y,DIC,DA
+2 ;
+3 FOR X=179,225
IF '$DATA(^SDEC(409.98,1,3,"B",X))
Begin DoDot:1
+4 KILL DIC,DA
SET DIC="^SDEC(409.98,1,3,"
SET DIC(0)="L"
SET DA(1)=1
DO FILE^DICN
End DoDot:1
+5 QUIT
+6 ;
VVCURL ;
+1 ;
NEW Y,VVCURL,DIE,DR,DA
+2 SET VVCURL="https://www.mobile.domain.ext/app/virtual-care-manager"
+3 KILL DIE,DR,DA
+4 SET DA=1
SET DIE="^SDEC(409.98,"
SET DR="6////^S X=VVCURL"
DO ^DIE
+5 KILL DIC,DIE,DR,DA
+6 QUIT
+7 ;
NOFIND ;"VS GUI NATIONAL" NOT FOUND
+1 WRITE !!?3,"VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)"
+2 QUIT
