PXRRQUE.m

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

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**10,72,155**;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

 I $G(IODEV)'="" 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRRQUE   575     printed  Dec 13, 2024@02:31:14                                                                                                                                                                                                      Page 2

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

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**10,72,155**;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        IF $GET(IODEV)'=""

               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