Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53836P

DG53836P.m

Go to the documentation of this file.
  1. DG53836P ;ALB/SCK - DG*5.3*836 POST INIT ;
  1. ;;5.3;Registration;**836**;AUG 13,1993;Build 35
  1. ;
  1. POST ;
  1. N DGPAR,DGERR
  1. ;
  1. Q:'XPDQUES("POS1")
  1. ;
  1. D BMES^XPDUTL("Updating Parameters File...")
  1. S DGPAR=XPDQUES("POS2","B")
  1. I DGPAR']"" D Q
  1. . D BMES^XPDUTL("Nothing entered, exiting Parameter update.")
  1. ;
  1. D CHG^XPAR("PKG.REGISTRATION","DGPF SUICIDE FLAG",,DGPAR,.DGERR)
  1. I +$G(DGERR)>0 D Q
  1. . D BMES^XPDUTL(DGERR)
  1. ;
  1. Q
  1. ;
  1. UPD ; Programmer access point to manually change Parameter entry
  1. N DGPAR,DGERR,DIR,DIRUT,X,Y
  1. ;
  1. S DIR(0)="FAO^^"
  1. S DIR("A")="Local Flag: "
  1. S DIR("A",2)="are using as your Suicide Prevention flag."
  1. S DIR("A",1)="Enter the Local Patient Record flag that you"
  1. S DIR("?")="for your Suicide Prevention flag, this is a free text value."
  1. S DIR("?",1)="Answer with the Local Patient Record Flag that you are using"
  1. D ^DIR K DIR
  1. Q:$D(DIRUT)
  1. S DGPAR=$G(Y)
  1. ;
  1. D CHG^XPAR("PKG.REGISTRATION","DGPF SUICIDE FLAG",,DGPAR,.DGERR)
  1. I '+$G(DGERR) D
  1. . W !?3,"Parameter Defintion has been updated!"
  1. ;
  1. I +$G(DGERR)>0 D
  1. . W !?3,"An Error occurred:"
  1. . W !?3,$P($G(DGERR),U,2)
  1. Q