IVMUTQ.m

IVMUTQ ;ALB/ESD - Device Handling and Queueing Utility ; 03-FEB-93

 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ; This routine is a generic interface to the device handler (^%ZIS)

 ; and task manager (^%ZTLOAD).  It will handle device opening and

 ; closing and variable clean-up.

 ;

 ;  Input (to be defined by the caller of the routine):

 ;

 ;       IVMRTN - application routine entry point for output (required).

 ;       %ZIS   - device call variable (set to "QMP" if not defined).

 ;       ZTDESC - description of task (set if not defined).

 ;       ZTSAVE - input parameters to be saved (set to IVMRTN).

 ;

 ; NOTE: Other optional input variables for %ZIS and %ZTLOAD calls

 ;       may be defined as described in KERNEL documentation.

 ;

 ;

EN I $G(IVMRTN)="" W !!,"Routine aborted...entry point not defined." G ENQ

 I $D(%ZIS)#2=0 S %ZIS="QMP"

 D ^%ZIS K %ZIS G:POP ENQ

 I '$D(IO("Q")) U IO D @IVMRTN,^%ZISC,ENQ Q

 ;

 ; task job

 S ZTRTN=@"IVMRTN",ZTSAVE("IVMRTN")=""

 I '$D(ZTDESC) S ZTDESC="IVM UNKNOWN OPTION"

 D ^%ZTLOAD

 W !,$S($D(ZTSK):"Job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")

 D HOME^%ZIS

 ;

ENQ ; clean-up

 K IO("Q"),IVMRTN,POP,ZTCPU,ZTDESC,ZTDTH,ZTIO,ZTKIL,ZTPRI,ZTRTN,ZTSAVE,ZTUCI,ZTSK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVMUTQ   1367     printed  Apr 09, 2024@21:02:08                                                                                                                                                                                                      Page 2

IVMUTQ    ;ALB/ESD - Device Handling and Queueing Utility ; 03-FEB-93

 +1       ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ; This routine is a generic interface to the device handler (^%ZIS)

 +5       ; and task manager (^%ZTLOAD).  It will handle device opening and

 +6       ; closing and variable clean-up.

 +7       ;

 +8       ;  Input (to be defined by the caller of the routine):

 +9       ;

 +10      ;       IVMRTN - application routine entry point for output (required).

 +11      ;       %ZIS   - device call variable (set to "QMP" if not defined).

 +12      ;       ZTDESC - description of task (set if not defined).

 +13      ;       ZTSAVE - input parameters to be saved (set to IVMRTN).

 +14      ;

 +15      ; NOTE: Other optional input variables for %ZIS and %ZTLOAD calls

 +16      ;       may be defined as described in KERNEL documentation.

 +17      ;

 +18      ;

EN         IF $GET(IVMRTN)=""

               WRITE !!,"Routine aborted...entry point not defined."

               GOTO ENQ

 +1        IF $DATA(%ZIS)#2=0

               SET %ZIS="QMP"

 +2        DO ^%ZIS

           KILL %ZIS

           if POP

               GOTO ENQ

 +3        IF '$DATA(IO("Q"))

               USE IO

               DO @IVMRTN

               DO ^%ZISC

               DO ENQ

               QUIT 

 +4       ;

 +5       ; task job

 +6        SET ZTRTN=@"IVMRTN"

           SET ZTSAVE("IVMRTN")=""

 +7        IF '$DATA(ZTDESC)

               SET ZTDESC="IVM UNKNOWN OPTION"

 +8        DO ^%ZTLOAD

 +9        WRITE !,$SELECT($DATA(ZTSK):"Job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")

 +10       DO HOME^%ZIS

 +11      ;

ENQ       ; clean-up

 +1        KILL IO("Q"),IVMRTN,POP,ZTCPU,ZTDESC,ZTDTH,ZTIO,ZTKIL,ZTPRI,ZTRTN,ZTSAVE,ZTUCI,ZTSK

 +2        QUIT