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

IVMUTQ.m

Go to the documentation of this file.
  1. IVMUTQ ;ALB/ESD - Device Handling and Queueing Utility ; 03-FEB-93
  1. ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ; This routine is a generic interface to the device handler (^%ZIS)
  1. ; and task manager (^%ZTLOAD). It will handle device opening and
  1. ; closing and variable clean-up.
  1. ;
  1. ; Input (to be defined by the caller of the routine):
  1. ;
  1. ; IVMRTN - application routine entry point for output (required).
  1. ; %ZIS - device call variable (set to "QMP" if not defined).
  1. ; ZTDESC - description of task (set if not defined).
  1. ; ZTSAVE - input parameters to be saved (set to IVMRTN).
  1. ;
  1. ; NOTE: Other optional input variables for %ZIS and %ZTLOAD calls
  1. ; may be defined as described in KERNEL documentation.
  1. ;
  1. ;
  1. EN I $G(IVMRTN)="" W !!,"Routine aborted...entry point not defined." G ENQ
  1. I $D(%ZIS)#2=0 S %ZIS="QMP"
  1. D ^%ZIS K %ZIS G:POP ENQ
  1. I '$D(IO("Q")) U IO D @IVMRTN,^%ZISC,ENQ Q
  1. ;
  1. ; task job
  1. S ZTRTN=@"IVMRTN",ZTSAVE("IVMRTN")=""
  1. I '$D(ZTDESC) S ZTDESC="IVM UNKNOWN OPTION"
  1. D ^%ZTLOAD
  1. W !,$S($D(ZTSK):"Job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
  1. D HOME^%ZIS
  1. ;
  1. ENQ ; clean-up
  1. K IO("Q"),IVMRTN,POP,ZTCPU,ZTDESC,ZTDTH,ZTIO,ZTKIL,ZTPRI,ZTRTN,ZTSAVE,ZTUCI,ZTSK
  1. Q