SD53588P ;ALB/MAF - DG*5.3*588 POST INIT ;
;;5.3;Scheduling;**588**;Aug 13,1993;Build 53
;
POST ;Adding new parameters for number of days no show and proactive report
N SDPAR,SDERR,SDPARNM
;
S SDPAR=30
D BMES^XPDUTL("Updating Parameters File...")
;
S SDPARNM="SDMH PROACTIVE DAYS"
D ADD^XPAR("PKG.SCHEDULING",SDPARNM,1,SDPAR,.SDERR)
D ADDERR
;
N SDERR
S SDPARNM="SDMH NO SHOW DAYS"
D ADD^XPAR("PKG.SCHEDULING",SDPARNM,1,SDPAR,.SDERR)
D ADDERR
Q
;
ADDERR ;error message written during install
I +$G(SDERR)>0 D Q
.D BMES^XPDUTL(SDPARNM)
.D BMES^XPDUTL(" "_SDERR)
I '+$G(SDERR)>0 D
.D BMES^XPDUTL(SDPARNM_" updated successfully....")
Q
;
DEL ;Delete the paramater...for patch testing only... will delete out parameters
N SDERR
;
D BMES^XPDUTL("Deleteing Parameters File...")
;
D DEL^XPAR("PKG.SCHEDULING","SDMH PROACTIVE DAYS",,.SDERR)
I +$G(SDERR)>0 D
. D BMES^XPDUTL(SDERR)
N SDERR
D DEL^XPAR("PKG.SCHEDULING","SDMH NO SHOW DAYS",,.SDERR)
I +$G(SDERR)>0 D Q
. D BMES^XPDUTL(SDERR)
Q
;
UPDPRO ; Programmer access point to manually change Parameter entry for proactive report
N SDPAR,SDRPT,SDERR,DIR,DIRUT,X,Y
S SDRPT="PROACTIVE REPORT"
D ASK Q:$D(DIRUT)
D CHG^XPAR("PKG.SCHEDULING","SDMH PROACTIVE DAYS",,SDPAR,.SDERR)
D ERR
Q
UPDNSH ; Programmer access point to manually change Parameter entry for no show report
N SDPAR,SDRPT,SDERR,DIR,DIRUT,X,Y
S SDRPT="NO SHOW REPORT"
D ASK Q:$D(DIRUT)
D CHG^XPAR("PKG.SCHEDULING","SDMH NO SHOW DAYS",,SDPAR,.SDERR)
D ERR
Q
ASK ;ASK NUMBER OF DAYS
S DIR(0)="FAO^^"
S DIR("A")="Number of days: "
S DIR("A",1)="Enter the number of days of future appointments that will"
S DIR("A",2)="list on the "_SDRPT_" for a patient."
S DIR("A",3)=" "
S DIR("?")="Enter a number between 1 and 30"
D ^DIR K DIR
Q:$D(DIRUT)
S SDPAR=$G(Y)
Q
;
D CHG^XPAR("PKG.SCHEDULING","SDMH PROACTIVE DAYS",,SDPAR,.SDERR)
ERR I '+$G(SDERR) D
. W !?3,"Parameter Defintion has been updated!"
;
I +$G(SDERR)>0 D
. W !?3,"An Error occurred:"
. W !?3,$P($G(SDERR),U,2)
I +$G(SDERR)>0 G @($S(SDRPT="NO SHOW REPORT":"UPDNSH",1:"UPDPRO"))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53588P 2188 printed Sep 15, 2024@22:09:16 Page 2
SD53588P ;ALB/MAF - DG*5.3*588 POST INIT ;
+1 ;;5.3;Scheduling;**588**;Aug 13,1993;Build 53
+2 ;
POST ;Adding new parameters for number of days no show and proactive report
+1 NEW SDPAR,SDERR,SDPARNM
+2 ;
+3 SET SDPAR=30
+4 DO BMES^XPDUTL("Updating Parameters File...")
+5 ;
+6 SET SDPARNM="SDMH PROACTIVE DAYS"
+7 DO ADD^XPAR("PKG.SCHEDULING",SDPARNM,1,SDPAR,.SDERR)
+8 DO ADDERR
+9 ;
+10 NEW SDERR
+11 SET SDPARNM="SDMH NO SHOW DAYS"
+12 DO ADD^XPAR("PKG.SCHEDULING",SDPARNM,1,SDPAR,.SDERR)
+13 DO ADDERR
+14 QUIT
+15 ;
ADDERR ;error message written during install
+1 IF +$GET(SDERR)>0
Begin DoDot:1
+2 DO BMES^XPDUTL(SDPARNM)
+3 DO BMES^XPDUTL(" "_SDERR)
End DoDot:1
QUIT
+4 IF '+$GET(SDERR)>0
Begin DoDot:1
+5 DO BMES^XPDUTL(SDPARNM_" updated successfully....")
End DoDot:1
+6 QUIT
+7 ;
DEL ;Delete the paramater...for patch testing only... will delete out parameters
+1 NEW SDERR
+2 ;
+3 DO BMES^XPDUTL("Deleteing Parameters File...")
+4 ;
+5 DO DEL^XPAR("PKG.SCHEDULING","SDMH PROACTIVE DAYS",,.SDERR)
+6 IF +$GET(SDERR)>0
Begin DoDot:1
+7 DO BMES^XPDUTL(SDERR)
End DoDot:1
+8 NEW SDERR
+9 DO DEL^XPAR("PKG.SCHEDULING","SDMH NO SHOW DAYS",,.SDERR)
+10 IF +$GET(SDERR)>0
Begin DoDot:1
+11 DO BMES^XPDUTL(SDERR)
End DoDot:1
QUIT
+12 QUIT
+13 ;
UPDPRO ; Programmer access point to manually change Parameter entry for proactive report
+1 NEW SDPAR,SDRPT,SDERR,DIR,DIRUT,X,Y
+2 SET SDRPT="PROACTIVE REPORT"
+3 DO ASK
if $DATA(DIRUT)
QUIT
+4 DO CHG^XPAR("PKG.SCHEDULING","SDMH PROACTIVE DAYS",,SDPAR,.SDERR)
+5 DO ERR
+6 QUIT
UPDNSH ; Programmer access point to manually change Parameter entry for no show report
+1 NEW SDPAR,SDRPT,SDERR,DIR,DIRUT,X,Y
+2 SET SDRPT="NO SHOW REPORT"
+3 DO ASK
if $DATA(DIRUT)
QUIT
+4 DO CHG^XPAR("PKG.SCHEDULING","SDMH NO SHOW DAYS",,SDPAR,.SDERR)
+5 DO ERR
+6 QUIT
ASK ;ASK NUMBER OF DAYS
+1 SET DIR(0)="FAO^^"
+2 SET DIR("A")="Number of days: "
+3 SET DIR("A",1)="Enter the number of days of future appointments that will"
+4 SET DIR("A",2)="list on the "_SDRPT_" for a patient."
+5 SET DIR("A",3)=" "
+6 SET DIR("?")="Enter a number between 1 and 30"
+7 DO ^DIR
KILL DIR
+8 if $DATA(DIRUT)
QUIT
+9 SET SDPAR=$GET(Y)
+10 QUIT
+11 ;
+12 DO CHG^XPAR("PKG.SCHEDULING","SDMH PROACTIVE DAYS",,SDPAR,.SDERR)
ERR IF '+$GET(SDERR)
Begin DoDot:1
+1 WRITE !?3,"Parameter Defintion has been updated!"
End DoDot:1
+2 ;
+3 IF +$GET(SDERR)>0
Begin DoDot:1
+4 WRITE !?3,"An Error occurred:"
+5 WRITE !?3,$PIECE($GET(SDERR),U,2)
End DoDot:1
+6 IF +$GET(SDERR)>0
GOTO @($SELECT(SDRPT="NO SHOW REPORT":"UPDNSH",1:"UPDPRO"))
+7 QUIT