XUP522.m

XUP522 ;JLI/FO-OAK-POST INSTALL FOR XU*8*522 TO SET PARAMETER XU522 ;12/04/12  11:50

 ;;8.0;KERNEL;**522**;Jul 10, 1995;Build 10

 ;Per VHA Directive 2004-038, this routine should not be modified

 ;

EN ;

 N PAR,ENT,INST,VAL,ERR,I

 S PAR=$O(^XTV(8989.51,"B","XU522",0))

 D GETENT^XPAREDIT(.ENT,PAR_"^XU522",0)

 S INST=1,VAL="N"

 D EN^XPAR(ENT,PAR,INST,VAL,.ERR)

 I $D(ERR),$G(ERR)'=0 W:($D(ERR)#2) !!,ERR F I=0:0 S I=$O(ERR(I)) Q:I'>0  W !,ERR(I)

 I $D(ERR),$G(ERR)'=0 W !!,"WARNING - The XU522 parameter needs to be set correctly" Q

 W !,"XU522 parameter is set to 'do not disable'"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XUP522   599     printed  Oct 16, 2024@18:12:14                                                                                                                                                                                                       Page 2

XUP522    ;JLI/FO-OAK-POST INSTALL FOR XU*8*522 TO SET PARAMETER XU522 ;12/04/12  11:50

 +1       ;;8.0;KERNEL;**522**;Jul 10, 1995;Build 10

 +2       ;Per VHA Directive 2004-038, this routine should not be modified

 +3       ;

EN        ;

 +1        NEW PAR,ENT,INST,VAL,ERR,I

 +2        SET PAR=$ORDER(^XTV(8989.51,"B","XU522",0))

 +3        DO GETENT^XPAREDIT(.ENT,PAR_"^XU522",0)

 +4        SET INST=1

           SET VAL="N"

 +5        DO EN^XPAR(ENT,PAR,INST,VAL,.ERR)

 +6        IF $DATA(ERR)

               IF $GET(ERR)'=0

                   if ($DATA(ERR)#2)

                       WRITE !!,ERR

                   FOR I=0:0

                       SET I=$ORDER(ERR(I))

                       if I'>0

                           QUIT 

                       WRITE !,ERR(I)

 +7        IF $DATA(ERR)

               IF $GET(ERR)'=0

                   WRITE !!,"WARNING - The XU522 parameter needs to be set correctly"

                   QUIT 

 +8        WRITE !,"XU522 parameter is set to 'do not disable'"

 +9        QUIT