ASUAUIDX.m

ASUAUIDX ;DSD/DFM - UTILITY ENTER INDEX NUMBER;  [ 04/15/98  2:52 PM ]

 ;;3.0;SAMS;**1**;AUG 20, 1993

RDINDEX ;

 I ASUK("WAREHOUSE") D

 .S ASUSW("OPTIONAL")="NA"

 E  D

 .S ASUSW("OPTIONAL")="NOA"

 S DIR("A")=ASUV("ITEM #")_". ENTER INDEX NUMBER "

 S DIR(0)=ASUSW("OPTIONAL")_"^19:999997:0^D ^ASUAUM11"

 S DIR("?")="Index number must pass modulus 11 test"

 D ^DIR K DIR,ASUSW("OPTIONAL")

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

 I X="" S DTOUT=1 K X,Y Q

 S ASUTRNS(ASUTRNS,"INDEX")=Y K Y1,X,Y

 Q

ASUAUIDX  ;DSD/DFM - UTILITY ENTER INDEX NUMBER;  [ 04/15/98  2:52 PM ]

 +1       ;;3.0;SAMS;**1**;AUG 20, 1993

RDINDEX   ;

 +1        IF ASUK("WAREHOUSE")

               Begin DoDot:1

 +2                SET ASUSW("OPTIONAL")="NA"

               End DoDot:1

 +3       IF '$TEST

               Begin DoDot:1

 +4                SET ASUSW("OPTIONAL")="NOA"

               End DoDot:1

 +5        SET DIR("A")=ASUV("ITEM #")_". ENTER INDEX NUMBER "

 +6        SET DIR(0)=ASUSW("OPTIONAL")_"^19:999997:0^D ^ASUAUM11"

 +7        SET DIR("?")="Index number must pass modulus 11 test"

 +8        DO ^DIR

           KILL DIR,ASUSW("OPTIONAL")

 +9        IF $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIROUT))

               KILL X,Y

               QUIT 

 +10       IF X=""

               SET DTOUT=1

               KILL X,Y

               QUIT 

 +11       SET ASUTRNS(ASUTRNS,"INDEX")=Y

           KILL Y1,X,Y

 +12       QUIT