Routine: AGPREI

AGPREI ; IHS/ASDS/EFG - CREATED BY XBBPI ON JUL 18,1994 ;

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 W !,"Starting the Pre Inits: " D T^AG W !

 K AGOUT D ^AGPREI1

 I $D(AGOUT) W !!,*7,"DO NOT CONTINUE with the INSTALL",!,"Previous Version is wrong!!",!

 Q:$D(AGOUT)

 D ^AGPREI2

 K ^UTILITY("XBDSET",$J) F XBBPI=1:1 S XBBPIX=$P($T(Q+XBBPI),";;",2) Q:XBBPIX=""  S XBBPIY=$P(XBBPIX,"=",2,99),XBBPIX=$P(XBBPIX,"=",1) S @XBBPIX=XBBPIY

 K XBBPI,XBBPIX,XBBPIY D EN2^XBKD

Q Q

 ;;^UTILITY("XBDSET",$J,9000003.1)=S^S

 ;;^UTILITY("XBDSET",$J,9000006)=S^S

 ;;^UTILITY("XBDSET",$J,9009061)=S^S

 ;;^UTILITY("XBDSET",$J,9009063)=S^S

 ;;^UTILITY("XBDSET",$J,9009064)=S^S

 ;;^UTILITY("XBDSET",$J,9009065)=S^S

AGPREI    ; IHS/ASDS/EFG - CREATED BY XBBPI ON JUL 18,1994 ;

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2        WRITE !,"Starting the Pre Inits: "

           DO T^AG

           WRITE !

 +3        KILL AGOUT

           DO ^AGPREI1

 +4        IF $DATA(AGOUT)

               WRITE !!,*7,"DO NOT CONTINUE with the INSTALL",!,"Previous Version is wrong!!",!

 +5        IF $DATA(AGOUT)

               QUIT

 +6        DO ^AGPREI2

 +7        KILL ^UTILITY("XBDSET",$JOB)

           FOR XBBPI=1:1

               SET XBBPIX=$PIECE($TEXT(Q+XBBPI),";;",2)

               IF XBBPIX=""

                   QUIT

               SET XBBPIY=$PIECE(XBBPIX,"=",2,99)

               SET XBBPIX=$PIECE(XBBPIX,"=",1)

               SET @XBBPIX=XBBPIY

 +8        KILL XBBPI,XBBPIX,XBBPIY

           DO EN2^XBKD

Q          QUIT

 +1       ;;^UTILITY("XBDSET",$J,9000003.1)=S^S

 +2       ;;^UTILITY("XBDSET",$J,9000006)=S^S

 +3       ;;^UTILITY("XBDSET",$J,9009061)=S^S

 +4       ;;^UTILITY("XBDSET",$J,9009063)=S^S

 +5       ;;^UTILITY("XBDSET",$J,9009064)=S^S

 +6       ;;^UTILITY("XBDSET",$J,9009065)=S^S

AGPREI.m