SD53588P.m

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 ---SD53588P   2188     printed  Apr 23, 2025@18:59:46                                                                                                                                                                                                    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