SDEC756P.m

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 ---SDEC756P   1392     printed  Apr 09, 2024@21:56:56                                                                                                                                                                                                    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