PXRRQUE.m

PXRRQUE ;ISL/PKR - PCE reports general queing routine. ;10/10/96

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**10,72**;Aug 12, 1996

 ;

QUE(DESC,IODEV,ROUTINE,SAVE) ;Queue a task.

 ;

 D @SAVE

 S ZTDESC=DESC

 S ZTIO=IODEV

 S ZTRTN=ROUTINE

 D ^%ZTLOAD

 I $D(ZTSK)=0 W !!,DESC," cancelled"

 E  W !!,DESC," has been queued, task number ",ZTSK

 D HOME^%ZIS

 Q $G(ZTSK)

 ;

 ;=======================================================================

REQUE(DESC,ROUTINE,TASK) ;Reque a task.

 S ZTDESC=DESC

 S ZTRTN=ROUTINE

 S ZTSK=TASK

 D REQ^%ZTLOAD

 Q

PXRRQUE   ;ISL/PKR - PCE reports general queing routine. ;10/10/96

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**10,72**;Aug 12, 1996

 +2       ;

QUE(DESC,IODEV,ROUTINE,SAVE) ;Queue a task.

 +1       ;

 +2        DO @SAVE

 +3        SET ZTDESC=DESC

 +4        SET ZTIO=IODEV

 +5        SET ZTRTN=ROUTINE

 +6        DO ^%ZTLOAD

 +7        IF $DATA(ZTSK)=0

               WRITE !!,DESC," cancelled"

 +8       IF '$TEST

               WRITE !!,DESC," has been queued, task number ",ZTSK

 +9        DO HOME^%ZIS

 +10       QUIT $GET(ZTSK)

 +11      ;

 +12      ;=======================================================================

REQUE(DESC,ROUTINE,TASK) ;Reque a task.

 +1        SET ZTDESC=DESC

 +2        SET ZTRTN=ROUTINE

 +3        SET ZTSK=TASK

 +4        DO REQ^%ZTLOAD

 +5        QUIT