source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRQUE.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 553 bytes
Line 
1PXRRQUE ;ISL/PKR - PCE reports general queing routine. ;10/10/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**10,72,155**;Aug 12, 1996
3 ;
4QUE(DESC,IODEV,ROUTINE,SAVE) ;Queue a task.
5 ;
6 D @SAVE
7 S ZTDESC=DESC
8 S ZTIO=IODEV
9 S ZTRTN=ROUTINE
10 D ^%ZTLOAD
11 I $D(ZTSK)=0 W !!,DESC," cancelled"
12 E W !!,DESC," has been queued, task number ",ZTSK
13 I $G(IODEV)'="" D HOME^%ZIS
14 Q $G(ZTSK)
15 ;
16 ;=======================================================================
17REQUE(DESC,ROUTINE,TASK) ;Reque a task.
18 S ZTDESC=DESC
19 S ZTRTN=ROUTINE
20 S ZTSK=TASK
21 D REQ^%ZTLOAD
22 Q
Note: See TracBrowser for help on using the repository browser.