Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ASUAPNTR

ASUAPNTR.m

Go to the documentation of this file.
  1. ASUAPNTR ;DSD/DFM - DIRECT ISSUE ENTRY ; [ 04/15/98 2:38 PM ]
  1. ;;3.0;SAMS;**1**;AUG 20, 1993
  1. W !,"1. ENTER TRANSACTION CODE: ",ASUTRNS("TRANSACTION CODE")
  1. D ^ASUAUAST Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. D REQD^ASUAUPON Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=5 D ^ASUAUSRC Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=6 D ^ASUAUACC Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=7 D ^ASUAUDOJ Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=8 D ^ASUAPSST Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. K ASUSW("OPTIONAL")
  1. S ASUV("ITEM #")=9 D ^ASUAUUSR Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=10 D ^ASUAPCAN Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=11 D ^ASUAUSSA Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. D ^ASUAPNLI Q:$D(DUOUT)!($D(DIROUT))!($D(DTOUT))
  1. S ASUV("ITEM #")=13,ASUV("LOWEST")=1 D ^ASUAUVAL
  1. S ASUV("ITEM #")=14 D ^ASUAUVOU
  1. EXIT ;RETURN TO CALLING ROUTINE
  1. K X,Y
  1. Q