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

RGMTRUN.m

Go to the documentation of this file.
  1. RGMTRUN ;BIR/CML,PTD-SCAN TASKMAN RUNNING HL7 TASKS ;07/12/00
  1. ;;1.0;CLINCAL INFO RESOURCE NETWORK;**25,20**;30 Apr 99
  1. ;
  1. ;Reference to ^%ZTSCH("TASK" supported by IA #3520
  1. ;Reference to EN^XUTMTP supported by IA #3521
  1. ;Setting ZT* and XU* variables supported by IA #3521
  1. ;
  1. MAIN ;Entry point for device call
  1. W !!,"This option prints the currently running HL7 tasks."
  1. W !,"The right margin for this report is 80.",!
  1. S NOTRPC=1
  1. K ZTSAVE S ZTSAVE("NOTRPC")=""
  1. D EN^XUTMDEVQ("START^RGMTRUN","Print Running HL7 Task Data") I 'POP K NOTRPC Q
  1. W !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  1. K NOTRPC
  1. Q
  1. ;
  1. START ;Entry point for RPC call
  1. S $P(LN,"-",80)="",CNT=0,QFLG=0
  1. I $D(NOTRPC) W @IOF,!
  1. I '$D(NOTRPC) W "Running HL7 Tasks at "_$P($$SITE^VASITE(),"^",2)_":"
  1. I '$D(NOTRPC) D NOW^%DTC W !,"Date compiled: ",$$FMTE^XLFDT($E(%,1,12))
  1. ;
  1. S TASK=0 F S TASK=$O(^%ZTSCH("TASK",TASK)) Q:'TASK Q:QFLG D
  1. .S ROU=$P(^%ZTSCH("TASK",TASK),"^",2)
  1. .I (ROU["HL")!(ROU["RG") D
  1. ..S CNT=CNT+1
  1. ..N ZTENV,ZTKEY,ZTFLAG,ZTNAME,XUTMUCI
  1. ..S ZTENV=1,ZTKEY=0,ZTFLAG=1,ZTNAME=$$GET1^DIQ(200,+DUZ_",",.01)
  1. ..X ^%ZOSF("UCI") S XUTMUCI=Y
  1. ..D EN^XUTMTP(TASK) W !,LN
  1. ..I $D(NOTRPC),CNT=5 W ! S DIR(0)="E" D ^DIR K DIR S CNT=0 S:'Y QFLG=1 I Y W @IOF
  1. ;
  1. QUIT ;Kill variables and quit.
  1. I $D(NOTRPC) W:$E(IOST)'="C" @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
  1. K %,CNT,LN,NOTRPC,QFLG,ROU,TASK,Y,ZTSK
  1. Q
  1. ;
  1. ;
  1. TASK(RETURN) ;Remote HL7 task display
  1. N ARRAY
  1. S ARRAY="^TMP(""RGMTHFS"","_$J_")"
  1. D HFS^RGMTHFS("START^RGMTRUN")
  1. M RETURN=^TMP("RGMTHFS",$J)
  1. K ^TMP("RGMTHFS",$J)
  1. Q
  1. ;