ASUADNTR.m

ASUADNTR ;DSD/DFM - DUE IN ENTRY;  [ 04/15/98  2:32 PM ]

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

 W !,"1. ENTER TRANSACTION CODE: ",ASUTRNS("TRANSACTION CODE")

 D ^ASUAUAST Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 D REQD^ASUAUPON Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 I $E(ASUTRNS("TRANSACTION CODE"),2,2)'?1N S ASUV("ITEM #")=5 D ^ASUAUIDX Q

 D ^ASUADTDU Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 S ASUV("ITEM #")=6 D ^ASUAUACC Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 S ASUV("ITEM #")=7 D ^ASUAUSSA Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 S ASUV("ITEM #")=8 D ^ASUAUIDX Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 S ASUV("ITEM #")=9 D ^ASUAUQTY Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 S ASUV("ITEM #")=10 D ^ASUAUVAL Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

 Q

ASUADNTR  ;DSD/DFM - DUE IN ENTRY;  [ 04/15/98  2:32 PM ]

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

 +2        WRITE !,"1. ENTER TRANSACTION CODE: ",ASUTRNS("TRANSACTION CODE")

 +3        DO ^ASUAUAST

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

               QUIT 

 +4        DO REQD^ASUAUPON

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

               QUIT 

 +5        IF $EXTRACT(ASUTRNS("TRANSACTION CODE"),2,2)'?1N

               SET ASUV("ITEM #")=5

               DO ^ASUAUIDX

               QUIT 

 +6        DO ^ASUADTDU

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

               QUIT 

 +7        SET ASUV("ITEM #")=6

           DO ^ASUAUACC

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

               QUIT 

 +8        SET ASUV("ITEM #")=7

           DO ^ASUAUSSA

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

               QUIT 

 +9        SET ASUV("ITEM #")=8

           DO ^ASUAUIDX

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

               QUIT 

 +10       SET ASUV("ITEM #")=9

           DO ^ASUAUQTY

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

               QUIT 

 +11       SET ASUV("ITEM #")=10

           DO ^ASUAUVAL

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

               QUIT 

 +12       QUIT