SDES905P ;ALB/MCB - SD*5.3*905 Post Init Routine ; APR 10, 2025
;;5.3;SCHEDULING;**905**;AUG 13, 1993;Build 10
;;Per VHA Directive 6402, this routine should not be modified
;
;
Q
;
EN ;
D SDECSET
Q
;
SDECSET ; Update SDEC Settings remove Contact VSE Program Office
N NATIEN,SUBIEN,FDA,FDAERR
S NATIEN=$O(^SDEC(409.98,"B","VS GUI NATIONAL",0))
S SUBIEN=$O(^SDEC(409.98,NATIEN,1,"B","Contact VSE Program Office",0)) Q:'SUBIEN
S FDA(409.981,SUBIEN_","_NATIEN_",",.01)="@"
D FILE^DIE(,"FDA","FDAERR") K FDA
Q
;
PRE ; SDES ERROR CODES (#409.93) File updates
; Remove duplicate errors in SDES ERROR CODES (#409.93) File
N ERRNUM,DUPIEN,DA,DIK,CNT,FDA,FDAERR
S ERRNUM=0
F S ERRNUM=$O(^SDEC(409.93,"B",ERRNUM)) Q:'ERRNUM D
. S DUPIEN=0,CNT=0
. F S DUPIEN=$O(^SDEC(409.93,"B",ERRNUM,DUPIEN)) Q:'DUPIEN D
. . S CNT=CNT+1
. . I CNT>1 D
. . . S DA=DUPIEN,DIK="^SDEC(409.93," D ^DIK
;
; Update error text for 3 errors
S DUPIEN=$O(^SDEC(409.93,"B",209,""))
I DUPIEN S FDA(409.93,DUPIEN_",",1)="""DAYS BETWEEN APPTS"" parameter must be a number from 1 through 365."
I $D(FDA) D FILE^DIE(,"FDA","FDAERR")
I $D(FDAERR) D ERROR(209)
K FDA,FDAERR,DUPIEN
S DUPIEN=$O(^SDEC(409.93,"B",468,""))
I DUPIEN S FDA(409.93,DUPIEN_",",1)="Cannot block and move from slots that originated with more than 1 available appointment slot."
I $D(FDA) D FILE^DIE(,"FDA","FDAERR")
I $D(FDAERR) D ERROR(468)
K FDA,FDAERR,DUPIEN
S DUPIEN=$O(^SDEC(409.93,"B",473,""))
I DUPIEN S FDA(409.93,DUPIEN_",",1)="Search string must be 3 through 30 characters."
I $D(FDA) D FILE^DIE(,"FDA","FDAERR")
I $D(FDAERR) D ERROR(473)
K FDA,FDAERR
Q
;
ERROR(ERRNUM) ;
D MES^XPDUTL("")
D MES^XPDUTL("Error updating Error Code "_ERRNUM_".")
D MES^XPDUTL("Please create a SNOW ticket and route to the Vista Scheduling team")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES905P 1872 printed Aug 26, 2025@23:12:01 Page 2
SDES905P ;ALB/MCB - SD*5.3*905 Post Init Routine ; APR 10, 2025
+1 ;;5.3;SCHEDULING;**905**;AUG 13, 1993;Build 10
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ;
+5 QUIT
+6 ;
EN ;
+1 DO SDECSET
+2 QUIT
+3 ;
SDECSET ; Update SDEC Settings remove Contact VSE Program Office
+1 NEW NATIEN,SUBIEN,FDA,FDAERR
+2 SET NATIEN=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",0))
+3 SET SUBIEN=$ORDER(^SDEC(409.98,NATIEN,1,"B","Contact VSE Program Office",0))
if 'SUBIEN
QUIT
+4 SET FDA(409.981,SUBIEN_","_NATIEN_",",.01)="@"
+5 DO FILE^DIE(,"FDA","FDAERR")
KILL FDA
+6 QUIT
+7 ;
PRE ; SDES ERROR CODES (#409.93) File updates
+1 ; Remove duplicate errors in SDES ERROR CODES (#409.93) File
+2 NEW ERRNUM,DUPIEN,DA,DIK,CNT,FDA,FDAERR
+3 SET ERRNUM=0
+4 FOR
SET ERRNUM=$ORDER(^SDEC(409.93,"B",ERRNUM))
if 'ERRNUM
QUIT
Begin DoDot:1
+5 SET DUPIEN=0
SET CNT=0
+6 FOR
SET DUPIEN=$ORDER(^SDEC(409.93,"B",ERRNUM,DUPIEN))
if 'DUPIEN
QUIT
Begin DoDot:2
+7 SET CNT=CNT+1
+8 IF CNT>1
Begin DoDot:3
+9 SET DA=DUPIEN
SET DIK="^SDEC(409.93,"
DO ^DIK
End DoDot:3
End DoDot:2
End DoDot:1
+10 ;
+11 ; Update error text for 3 errors
+12 SET DUPIEN=$ORDER(^SDEC(409.93,"B",209,""))
+13 IF DUPIEN
SET FDA(409.93,DUPIEN_",",1)="""DAYS BETWEEN APPTS"" parameter must be a number from 1 through 365."
+14 IF $DATA(FDA)
DO FILE^DIE(,"FDA","FDAERR")
+15 IF $DATA(FDAERR)
DO ERROR(209)
+16 KILL FDA,FDAERR,DUPIEN
+17 SET DUPIEN=$ORDER(^SDEC(409.93,"B",468,""))
+18 IF DUPIEN
SET FDA(409.93,DUPIEN_",",1)="Cannot block and move from slots that originated with more than 1 available appointment slot."
+19 IF $DATA(FDA)
DO FILE^DIE(,"FDA","FDAERR")
+20 IF $DATA(FDAERR)
DO ERROR(468)
+21 KILL FDA,FDAERR,DUPIEN
+22 SET DUPIEN=$ORDER(^SDEC(409.93,"B",473,""))
+23 IF DUPIEN
SET FDA(409.93,DUPIEN_",",1)="Search string must be 3 through 30 characters."
+24 IF $DATA(FDA)
DO FILE^DIE(,"FDA","FDAERR")
+25 IF $DATA(FDAERR)
DO ERROR(473)
+26 KILL FDA,FDAERR
+27 QUIT
+28 ;
ERROR(ERRNUM) ;
+1 DO MES^XPDUTL("")
+2 DO MES^XPDUTL("Error updating Error Code "_ERRNUM_".")
+3 DO MES^XPDUTL("Please create a SNOW ticket and route to the Vista Scheduling team")
+4 QUIT
