HMPDJFS1.m

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 ---HMPDJFS1   1093     printed  Apr 09, 2024@20:59                                                                                                                                                                                                       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       ;