DG53836P.m

DG53836P ;ALB/SCK - DG*5.3*836 POST INIT ; 

 ;;5.3;Registration;**836**;AUG 13,1993;Build 35

 ;

POST ;

 N DGPAR,DGERR

 ;

 Q:'XPDQUES("POS1")

 ;

 D BMES^XPDUTL("Updating Parameters File...")

 S DGPAR=XPDQUES("POS2","B")

 I DGPAR']"" D  Q

 . D BMES^XPDUTL("Nothing entered, exiting Parameter update.")

 ;

 D CHG^XPAR("PKG.REGISTRATION","DGPF SUICIDE FLAG",,DGPAR,.DGERR)

 I +$G(DGERR)>0 D  Q

 . D BMES^XPDUTL(DGERR)

 ;

 Q

 ;

UPD ; Programmer access point to manually change Parameter entry

 N DGPAR,DGERR,DIR,DIRUT,X,Y

 ;

 S DIR(0)="FAO^^"

 S DIR("A")="Local Flag: "

 S DIR("A",2)="are using as your Suicide Prevention flag."

 S DIR("A",1)="Enter the Local Patient Record flag that you"

 S DIR("?")="for your Suicide Prevention flag, this is a free text value."

 S DIR("?",1)="Answer with the Local Patient Record Flag that you are using"

 D ^DIR K DIR

 Q:$D(DIRUT)

 S DGPAR=$G(Y)

 ;

 D CHG^XPAR("PKG.REGISTRATION","DGPF SUICIDE FLAG",,DGPAR,.DGERR)

 I '+$G(DGERR) D

 . W !?3,"Parameter Defintion has been updated!"

 ;

 I +$G(DGERR)>0 D

 . W !?3,"An Error occurred:"

 . W !?3,$P($G(DGERR),U,2)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53836P   1135     printed  Apr 09, 2024@21:56:40                                                                                                                                                                                                    Page 2

DG53836P  ;ALB/SCK - DG*5.3*836 POST INIT ; 

 +1       ;;5.3;Registration;**836**;AUG 13,1993;Build 35

 +2       ;

POST      ;

 +1        NEW DGPAR,DGERR

 +2       ;

 +3        if 'XPDQUES("POS1")

               QUIT 

 +4       ;

 +5        DO BMES^XPDUTL("Updating Parameters File...")

 +6        SET DGPAR=XPDQUES("POS2","B")

 +7        IF DGPAR']""

               Begin DoDot:1

 +8                DO BMES^XPDUTL("Nothing entered, exiting Parameter update.")

               End DoDot:1

               QUIT 

 +9       ;

 +10       DO CHG^XPAR("PKG.REGISTRATION","DGPF SUICIDE FLAG",,DGPAR,.DGERR)

 +11       IF +$GET(DGERR)>0

               Begin DoDot:1

 +12               DO BMES^XPDUTL(DGERR)

               End DoDot:1

               QUIT 

 +13      ;

 +14       QUIT 

 +15      ;

UPD       ; Programmer access point to manually change Parameter entry

 +1        NEW DGPAR,DGERR,DIR,DIRUT,X,Y

 +2       ;

 +3        SET DIR(0)="FAO^^"

 +4        SET DIR("A")="Local Flag: "

 +5        SET DIR("A",2)="are using as your Suicide Prevention flag."

 +6        SET DIR("A",1)="Enter the Local Patient Record flag that you"

 +7        SET DIR("?")="for your Suicide Prevention flag, this is a free text value."

 +8        SET DIR("?",1)="Answer with the Local Patient Record Flag that you are using"

 +9        DO ^DIR

           KILL DIR

 +10       if $DATA(DIRUT)

               QUIT 

 +11       SET DGPAR=$GET(Y)

 +12      ;

 +13       DO CHG^XPAR("PKG.REGISTRATION","DGPF SUICIDE FLAG",,DGPAR,.DGERR)

 +14       IF '+$GET(DGERR)

               Begin DoDot:1

 +15               WRITE !?3,"Parameter Defintion has been updated!"

               End DoDot:1

 +16      ;

 +17       IF +$GET(DGERR)>0

               Begin DoDot:1

 +18               WRITE !?3,"An Error occurred:"

 +19               WRITE !?3,$PIECE($GET(DGERR),U,2)

               End DoDot:1

 +20       QUIT