ASUCOKIL.m

ASUCOKIL ; IHS/ITSC/LMH -DAILY UPDATE KILL VARIABLES ; 

 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 ;This routine provides entry points which kill variables at different

 ;stages of an update run.

KILL ;

 D PSTKL

 K ASUA,ASUC,ASUD,ASUG,ASULA,ASULS,ASULX,ASUN,ASUQ,ASUR,ASURX,ASUS

 K ASUU,ASUX,ASUMB,ASUMC,ASUMY,ZTDESC,ZTRTN,DUOUT,DTOUT

 K:'$D(ASUP("TYP")) ASUK,ASUF

 S $P(^ASUSITE(1,0),U,2)=$S($D(ASUP("TYP")):ASUP("TYP"),1:0)

 Q

PSTKL ;EP; COMMON TRANSACTION PROCESSING ROUTINE VARIABLE KILL

 K ASU,ASUM,ASUMK,ASUMS,ASUMX,ASUSV,ASUT

 F X=3:1:10,12:1:222 K ASUL(X) ;Clear Table Lookup fields

 K DA,DIC,DIE,DR,X,Y

 Q

STAT ;EP; CHECK AND SET FINAL STATUS

 D GETSTAT^ASUCOSTS

 S ASUP("STS")=""

 I ASUP("CKS")>0 D

 .S ASUP("STR")="N",ASUP("STS")="N"

 E  D

 .S ASUP("STR")="Y"

 I ASUP("CKI")>0 D

 .S ASUP("IVR")="N",ASUP("STS")="N"

 E  D

 .S ASUP("IVR")="Y"

 I ASUP("STS")="",ASUP("CKP")=0,ASUP("CKM")=0,ASUP("CKY")=0 D

 .S ASUP("STS")="Y"

 E  D

 .S ASUP("STS")="N"

 D SETSTAT^ASUCOSTS

 Q

ASUCOKIL  ; IHS/ITSC/LMH -DAILY UPDATE KILL VARIABLES ; 

 +1       ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000

 +2       ;This routine provides entry points which kill variables at different

 +3       ;stages of an update run.

KILL      ;

 +1        DO PSTKL

 +2        KILL ASUA,ASUC,ASUD,ASUG,ASULA,ASULS,ASULX,ASUN,ASUQ,ASUR,ASURX,ASUS

 +3        KILL ASUU,ASUX,ASUMB,ASUMC,ASUMY,ZTDESC,ZTRTN,DUOUT,DTOUT

 +4        IF '$DATA(ASUP("TYP"))

               KILL ASUK,ASUF

 +5        SET $PIECE(^ASUSITE(1,0),U,2)=$SELECT($DATA(ASUP("TYP")):ASUP("TYP"),1:0)

 +6        QUIT 

PSTKL     ;EP; COMMON TRANSACTION PROCESSING ROUTINE VARIABLE KILL

 +1        KILL ASU,ASUM,ASUMK,ASUMS,ASUMX,ASUSV,ASUT

 +2       ;Clear Table Lookup fields

           FOR X=3:1:10,12:1:222

               KILL ASUL(X)

 +3        KILL DA,DIC,DIE,DR,X,Y

 +4        QUIT 

STAT      ;EP; CHECK AND SET FINAL STATUS

 +1        DO GETSTAT^ASUCOSTS

 +2        SET ASUP("STS")=""

 +3        IF ASUP("CKS")>0

               Begin DoDot:1

 +4                SET ASUP("STR")="N"

                   SET ASUP("STS")="N"

               End DoDot:1

 +5       IF '$TEST

               Begin DoDot:1

 +6                SET ASUP("STR")="Y"

               End DoDot:1

 +7        IF ASUP("CKI")>0

               Begin DoDot:1

 +8                SET ASUP("IVR")="N"

                   SET ASUP("STS")="N"

               End DoDot:1

 +9       IF '$TEST

               Begin DoDot:1

 +10               SET ASUP("IVR")="Y"

               End DoDot:1

 +11       IF ASUP("STS")=""

               IF ASUP("CKP")=0

                   IF ASUP("CKM")=0

                       IF ASUP("CKY")=0

                           Begin DoDot:1

 +12                           SET ASUP("STS")="Y"

                           End DoDot:1

 +13      IF '$TEST

               Begin DoDot:1

 +14               SET ASUP("STS")="N"

               End DoDot:1

 +15       DO SETSTAT^ASUCOSTS

 +16       QUIT