- 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 Feb 19, 2025@00:05:02 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