ASUAPNTR.m

ASUAPNTR ;DSD/DFM - DIRECT ISSUE ENTRY ;  [ 04/15/98  2:38 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))

 S ASUV("ITEM #")=5 D ^ASUAUSRC 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 ^ASUAUDOJ Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))

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

 K ASUSW("OPTIONAL")

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

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

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

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

 S ASUV("ITEM #")=13,ASUV("LOWEST")=1 D ^ASUAUVAL

 S ASUV("ITEM #")=14 D ^ASUAUVOU

EXIT ;RETURN TO CALLING ROUTINE

 K X,Y

 Q

ASUAPNTR  ;DSD/DFM - DIRECT ISSUE ENTRY ;  [ 04/15/98  2:38 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        SET ASUV("ITEM #")=5

           DO ^ASUAUSRC

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

               QUIT 

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

           DO ^ASUAUACC

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

               QUIT 

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

           DO ^ASUAUDOJ

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

               QUIT 

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

           DO ^ASUAPSST

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

               QUIT 

 +9        KILL ASUSW("OPTIONAL")

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

           DO ^ASUAUUSR

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

               QUIT 

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

           DO ^ASUAPCAN

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

               QUIT 

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

           DO ^ASUAUSSA

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

               QUIT 

 +13       DO ^ASUAPNLI

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

               QUIT 

 +14       SET ASUV("ITEM #")=13

           SET ASUV("LOWEST")=1

           DO ^ASUAUVAL

 +15       SET ASUV("ITEM #")=14

           DO ^ASUAUVOU

EXIT      ;RETURN TO CALLING ROUTINE

 +1        KILL X,Y

 +2        QUIT