ASUV9IDX.m

ASUV9IDX ; IHS/ITSC/LMH -INVTR ENTER INDEX NUMBER ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ;This is a Physical Inventory utility to select an Index Number.

 N DIC

 S DIC("A")="ENTER INDEX NUMBER ",DIC(0)="AEMQZ",DIC="9002032"

 S DIC("S")="I $P(^(0),U,6)=ASUMV(""E#"",""ACC"")"

 D ^DIC

 I $D(DTOUT)!($D(DUOUT)) K X,Y Q

 I Y<0 S ASUMX("E#","IDX")="" K X,Y Q

 S X=$P(Y,U,2),ASUMX("E#","IDX")=$P(Y,U) K Y

 Q

ASUV9IDX  ; IHS/ITSC/LMH -INVTR ENTER INDEX NUMBER ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ;This is a Physical Inventory utility to select an Index Number.

 +3        NEW DIC

 +4        SET DIC("A")="ENTER INDEX NUMBER "

           SET DIC(0)="AEMQZ"

           SET DIC="9002032"

 +5        SET DIC("S")="I $P(^(0),U,6)=ASUMV(""E#"",""ACC"")"

 +6        DO ^DIC

 +7        IF $DATA(DTOUT)!($DATA(DUOUT))

               KILL X,Y

               QUIT 

 +8        IF Y<0

               SET ASUMX("E#","IDX")=""

               KILL X,Y

               QUIT 

 +9        SET X=$PIECE(Y,U,2)

           SET ASUMX("E#","IDX")=$PIECE(Y,U)

           KILL Y

 +10       QUIT