- 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 Feb 19, 2025@00:17:33 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