- 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