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 ---[H[J[2J[HDG53836P 1135 printed Dec 13, 2024@02:38:59 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
