- RGMTRUN ;BIR/CML,PTD-SCAN TASKMAN RUNNING HL7 TASKS ;07/12/00
- ;;1.0;CLINCAL INFO RESOURCE NETWORK;**25,20**;30 Apr 99
- ;
- ;Reference to ^%ZTSCH("TASK" supported by IA #3520
- ;Reference to EN^XUTMTP supported by IA #3521
- ;Setting ZT* and XU* variables supported by IA #3521
- ;
- MAIN ;Entry point for device call
- W !!,"This option prints the currently running HL7 tasks."
- W !,"The right margin for this report is 80.",!
- S NOTRPC=1
- K ZTSAVE S ZTSAVE("NOTRPC")=""
- D EN^XUTMDEVQ("START^RGMTRUN","Print Running HL7 Task Data") I 'POP K NOTRPC Q
- W !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
- K NOTRPC
- Q
- ;
- START ;Entry point for RPC call
- S $P(LN,"-",80)="",CNT=0,QFLG=0
- I $D(NOTRPC) W @IOF,!
- I '$D(NOTRPC) W "Running HL7 Tasks at "_$P($$SITE^VASITE(),"^",2)_":"
- I '$D(NOTRPC) D NOW^%DTC W !,"Date compiled: ",$$FMTE^XLFDT($E(%,1,12))
- ;
- S TASK=0 F S TASK=$O(^%ZTSCH("TASK",TASK)) Q:'TASK Q:QFLG D
- .S ROU=$P(^%ZTSCH("TASK",TASK),"^",2)
- .I (ROU["HL")!(ROU["RG") D
- ..S CNT=CNT+1
- ..N ZTENV,ZTKEY,ZTFLAG,ZTNAME,XUTMUCI
- ..S ZTENV=1,ZTKEY=0,ZTFLAG=1,ZTNAME=$$GET1^DIQ(200,+DUZ_",",.01)
- ..X ^%ZOSF("UCI") S XUTMUCI=Y
- ..D EN^XUTMTP(TASK) W !,LN
- ..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
- ;
- QUIT ;Kill variables and quit.
- I $D(NOTRPC) W:$E(IOST)'="C" @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
- K %,CNT,LN,NOTRPC,QFLG,ROU,TASK,Y,ZTSK
- Q
- ;
- ;
- TASK(RETURN) ;Remote HL7 task display
- N ARRAY
- S ARRAY="^TMP(""RGMTHFS"","_$J_")"
- D HFS^RGMTHFS("START^RGMTRUN")
- M RETURN=^TMP("RGMTHFS",$J)
- K ^TMP("RGMTHFS",$J)
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGMTRUN 1606 printed Jan 18, 2025@02:43:41 Page 2
- RGMTRUN ;BIR/CML,PTD-SCAN TASKMAN RUNNING HL7 TASKS ;07/12/00
- +1 ;;1.0;CLINCAL INFO RESOURCE NETWORK;**25,20**;30 Apr 99
- +2 ;
- +3 ;Reference to ^%ZTSCH("TASK" supported by IA #3520
- +4 ;Reference to EN^XUTMTP supported by IA #3521
- +5 ;Setting ZT* and XU* variables supported by IA #3521
- +6 ;
- MAIN ;Entry point for device call
- +1 WRITE !!,"This option prints the currently running HL7 tasks."
- +2 WRITE !,"The right margin for this report is 80.",!
- +3 SET NOTRPC=1
- +4 KILL ZTSAVE
- SET ZTSAVE("NOTRPC")=""
- +5 DO EN^XUTMDEVQ("START^RGMTRUN","Print Running HL7 Task Data")
- IF 'POP
- KILL NOTRPC
- QUIT
- +6 WRITE !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
- +7 KILL NOTRPC
- +8 QUIT
- +9 ;
- START ;Entry point for RPC call
- +1 SET $PIECE(LN,"-",80)=""
- SET CNT=0
- SET QFLG=0
- +2 IF $DATA(NOTRPC)
- WRITE @IOF,!
- +3 IF '$DATA(NOTRPC)
- WRITE "Running HL7 Tasks at "_$PIECE($$SITE^VASITE(),"^",2)_":"
- +4 IF '$DATA(NOTRPC)
- DO NOW^%DTC
- WRITE !,"Date compiled: ",$$FMTE^XLFDT($EXTRACT(%,1,12))
- +5 ;
- +6 SET TASK=0
- FOR
- SET TASK=$ORDER(^%ZTSCH("TASK",TASK))
- if 'TASK
- QUIT
- if QFLG
- QUIT
- Begin DoDot:1
- +7 SET ROU=$PIECE(^%ZTSCH("TASK",TASK),"^",2)
- +8 IF (ROU["HL")!(ROU["RG")
- Begin DoDot:2
- +9 SET CNT=CNT+1
- +10 NEW ZTENV,ZTKEY,ZTFLAG,ZTNAME,XUTMUCI
- +11 SET ZTENV=1
- SET ZTKEY=0
- SET ZTFLAG=1
- SET ZTNAME=$$GET1^DIQ(200,+DUZ_",",.01)
- +12 XECUTE ^%ZOSF("UCI")
- SET XUTMUCI=Y
- +13 DO EN^XUTMTP(TASK)
- WRITE !,LN
- +14 IF $DATA(NOTRPC)
- IF CNT=5
- WRITE !
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- SET CNT=0
- if 'Y
- SET QFLG=1
- IF Y
- WRITE @IOF
- End DoDot:2
- End DoDot:1
- +15 ;
- QUIT ;Kill variables and quit.
- +1 IF $DATA(NOTRPC)
- if $EXTRACT(IOST)'="C"
- WRITE @IOF
- DO ^%ZISC
- if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 KILL %,CNT,LN,NOTRPC,QFLG,ROU,TASK,Y,ZTSK
- +3 QUIT
- +4 ;
- +5 ;
- TASK(RETURN) ;Remote HL7 task display
- +1 NEW ARRAY
- +2 SET ARRAY="^TMP(""RGMTHFS"","_$JOB_")"
- +3 DO HFS^RGMTHFS("START^RGMTRUN")
- +4 MERGE RETURN=^TMP("RGMTHFS",$JOB)
- +5 KILL ^TMP("RGMTHFS",$JOB)
- +6 QUIT
- +7 ;