Routine: ABMDPREI

ABMDPREI ; IHS/ASDST/DMJ - Package Pre-init Routine ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 I '$D(DT)!'$D(DTIME)!'$D(DUZ) D ^XBKVAR

 S DA=$O(^DIC(9.4,"C","ABM",0)) Q:'DA  S DIE="^DIC(9.4,",DR="1////ABM" D ^ABMDDIE

 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,9002274.01)=S^S

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

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

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

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

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

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

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

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

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

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

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

ABMDPREI  ; IHS/ASDST/DMJ - Package Pre-init Routine ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2        IF '$DATA(DT)!'$DATA(DTIME)!'$DATA(DUZ)

               DO ^XBKVAR

 +3        SET DA=$ORDER(^DIC(9.4,"C","ABM",0))

           IF 'DA

               QUIT

           SET DIE="^DIC(9.4,"

           SET DR="1////ABM"

           DO ^ABMDDIE

 +4        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

 +5        KILL XBBPI,XBBPIX,XBBPIY

           DO EN2^XBKD

Q          QUIT

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

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

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

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

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

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

 +7       ;;^UTILITY("XBDSET",$J,9002274.4)=S^S

 +8       ;;^UTILITY("XBDSET",$J,9002274.5)=S^S

 +9       ;;^UTILITY("XBDSET",$J,9002274.6)=S^S

 +10      ;;^UTILITY("XBDSET",$J,9002274.7)=S^S

 +11      ;;^UTILITY("XBDSET",$J,9002274.8)=S^S

 +12      ;;^UTILITY("XBDSET",$J,9002274.9)=S^S

ABMDPREI.m