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

SDRPA18.m

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