24 lines
960 B
Mathematica
24 lines
960 B
Mathematica
SDRPA18 ;BP-OIFO/ESW,SWO - UTILITY ; 10/31/04 6:05pm
|
|
;;5.3;Scheduling;**376**;Aug 13, 1993
|
|
EN ;Check the 1st and 2nd run for missing ACK's
|
|
;BTRAK : ien of batch tracking entry
|
|
;V1 : ien of run
|
|
;ZNODE : zero node of batch tracking entry
|
|
N BTRAK,DA,DIK,RUN,V1,V2,V3,ZNODE
|
|
S V1=0 F S V1=$O(^SDWL(409.6,V1)) Q:V1'>0 Q:+$G(^SDWL(409.6,V1,0))>3040514 D
|
|
. S BTRAK=0 F S BTRAK=$O(^SDWL(409.6,V1,2,BTRAK)) Q:'BTRAK D
|
|
.. S ZNODE=$G(^SDWL(409.6,V1,2,BTRAK,0)) Q:ZNODE=""
|
|
.. I $P(ZNODE,"^",4)=""!($P(ZNODE,"^",5)="") D UPD(V1,BTRAK)
|
|
.;check the "AE" xref for this run
|
|
.F V2="S","N","R" S V3=0 I $D(^SDWL(409.6,"AE",V2,V1)) F S V3=$O(^SDWL(409.6,"AE",V2,V1,V3)) Q:'V3 D
|
|
.. S DIK="^SDWL(409.6,"_V1_",1," S DA=V3,DA(1)=V1 D ^DIK
|
|
Q
|
|
UPD(V1,V2) ;update the missed ACK as AA
|
|
;V1 : ien of run
|
|
;V2 : ien of batch tracking multiple
|
|
N DA,DIE,DR
|
|
S DA=V2,DA(1)=V1,DIE="^SDWL(409.6,"_V1_",2,"
|
|
S DR=".04///"_$$NOW^XLFDT_";.05///AA"
|
|
D ^DIE K DIE
|
|
Q
|