HMPDJFS1 ;ASMR/CPC,hrubovcak - for Extract and Freshness Stream;Oct 15, 2015 18:39:51
;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**;Sep 01, 2011;Build 63
;Per VA Directive 6402, this routine should not be modified.
;
Q
; continuation code for HMPDJFSP
;
BACKDOM ; task patient domain to the background, called from HMPDJFSP
N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
S ZTRTN="DQBACKDM^HMPDJFS1",ZTIO="",ZTDTH=$H
S ZTSAVE("HMPBATCH")="",ZTSAVE("HMPFDFN")=""
S ZTSAVE("HMPFDOMI")="",ZTSAVE("ZTQUEUED")="",ZTSAVE("HMPMETA")="",ZTSAVE("HMPFDOM(")=""
S ZTSAVE("HMPFZTSK")=""
S ZTSAVE("HMPENVIR(")="" ; environment information
S ZTSAVE("HMPSTMP")="" ; Operational data stamptime US6734
S ZTDESC="Build HMP subdomains for a patient"
D ^%ZTLOAD
I $G(ZTSK) S ^XTMP(HMPBATCH,0,"task","b",ZTSK)="" Q
; no task, log error
D SETERR^HMPDJFS("Task not created")
Q
;
DQBACKDM ; TaskMan entry point
; patient's domain has been "chunked"
N HMPFBJ S HMPFBJ=1 ; flag, background job
D DOMPT^HMPDJFSP(HMPFDOM(HMPFDOMI))
K ^XTMP(HMPBATCH,0,"task","b",ZTSK)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHMPDJFS1 1093 printed Dec 13, 2024@01:53:33 Page 2
HMPDJFS1 ;ASMR/CPC,hrubovcak - for Extract and Freshness Stream;Oct 15, 2015 18:39:51
+1 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**;Sep 01, 2011;Build 63
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ; continuation code for HMPDJFSP
+6 ;
BACKDOM ; task patient domain to the background, called from HMPDJFSP
+1 NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
+2 SET ZTRTN="DQBACKDM^HMPDJFS1"
SET ZTIO=""
SET ZTDTH=$HOROLOG
+3 SET ZTSAVE("HMPBATCH")=""
SET ZTSAVE("HMPFDFN")=""
+4 SET ZTSAVE("HMPFDOMI")=""
SET ZTSAVE("ZTQUEUED")=""
SET ZTSAVE("HMPMETA")=""
SET ZTSAVE("HMPFDOM(")=""
+5 SET ZTSAVE("HMPFZTSK")=""
+6 ; environment information
SET ZTSAVE("HMPENVIR(")=""
+7 ; Operational data stamptime US6734
SET ZTSAVE("HMPSTMP")=""
+8 SET ZTDESC="Build HMP subdomains for a patient"
+9 DO ^%ZTLOAD
+10 IF $GET(ZTSK)
SET ^XTMP(HMPBATCH,0,"task","b",ZTSK)=""
QUIT
+11 ; no task, log error
+12 DO SETERR^HMPDJFS("Task not created")
+13 QUIT
+14 ;
DQBACKDM ; TaskMan entry point
+1 ; patient's domain has been "chunked"
+2 ; flag, background job
NEW HMPFBJ
SET HMPFBJ=1
+3 DO DOMPT^HMPDJFSP(HMPFDOM(HMPFDOMI))
+4 KILL ^XTMP(HMPBATCH,0,"task","b",ZTSK)
+5 QUIT
+6 ;