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

IBZPRE.m

Go to the documentation of this file.

IBZPRE ;ALB/RB - DELETE DATA FROM FILES 351.7 AND 351.701

 ;;2.0;INTEGRATED BILLING;**118**;21-MAR-94

 F DA=1:1:15 I $D(^IBE(351.7,DA,0)) S DIK="^IBE(351.7," D ^DIK

 F DA=1:1:115 I $D(^IBE(351.701,DA,0)) S DIK="^IBE(351.701," D ^DIK

 K DA,DIK Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBZPRE   258     printed  Nov 22, 2024@17:47:03                                                                                                                                                                                                       Page 2

IBZPRE    ;ALB/RB - DELETE DATA FROM FILES 351.7 AND 351.701

 +1       ;;2.0;INTEGRATED BILLING;**118**;21-MAR-94

 +2       ;

 +3        FOR DA=1:1:15

               IF $DATA(^IBE(351.7,DA,0))

                   SET DIK="^IBE(351.7,"

                   DO ^DIK

 +4        FOR DA=1:1:115

               IF $DATA(^IBE(351.701,DA,0))

                   SET DIK="^IBE(351.701,"

                   DO ^DIK

 +5       ;

 +6        KILL DA,DIK

           QUIT