DENTPKG2.m

DENTPKG2 ;ISC2/SAW-INITIALIZE DENTAL PACKAGE CONTINUATION; 4/12/88  9:12 AM ; 10/7/88  4:05 PM ;

V ;;VERSION 1.2

226 I $P(X,"^")<2851001 D ^DIK Q

 S Z=$P(X,"^"),Z1=$P(Z,".") S X0=$S('$D(^DENT(226,DA,.1)):"",$P(^(.1),"^")="":"",1:^(.1))

 I Z<2871001,X0="" S X0=".5^2000101"

 S IEN=9999999-(Z1_"."_(9999-$E($P(Z,".",2)_"000",1,4))) K ^DENT(226,DA,0),^(.1)

 S ^DENT(226,IEN,0)=X S:X0'="" ^(.1)=X0 S ^DENT(226,"B",Z1,IEN)="",^DENT(226,"B1",Z,IEN)=""

 S X1=$P(X,"^",2),X2=$P(X,"^",3) S:X2'="" ^DENT(226,"C",X2,IEN)="" I X1 S ^DENT(226,"A1",X1,Z1,IEN)="" I X2'="" S ^DENT(226,"AC",X1,Z1,X2,IEN)=""

 I X1,X0="" S ^DENT(226,"A",X1,Z1,IEN)=""

 I Z>DATE S Y=X X ^DD("DD") S F=226 D N

 Q

N W !,"NOTE: You have an erroneous entry dated "_Y_" in file "_F_".",!,"Please correct it after the initialization is complete.",! Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DENTPKG2   822     printed  Apr 09, 2024@20:51:12                                                                                                                                                                                                     Page 2

DENTPKG2  ;ISC2/SAW-INITIALIZE DENTAL PACKAGE CONTINUATION; 4/12/88  9:12 AM ; 10/7/88  4:05 PM ;

V         ;;VERSION 1.2

226        IF $PIECE(X,"^")<2851001

               DO ^DIK

               QUIT 

 +1        SET Z=$PIECE(X,"^")

           SET Z1=$PIECE(Z,".")

           SET X0=$SELECT('$DATA(^DENT(226,DA,.1)):"",$PIECE(^(.1),"^")="":"",1:^(.1))

 +2        IF Z<2871001

               IF X0=""

                   SET X0=".5^2000101"

 +3        SET IEN=9999999-(Z1_"."_(9999-$EXTRACT($PIECE(Z,".",2)_"000",1,4)))

           KILL ^DENT(226,DA,0),^(.1)

 +4        SET ^DENT(226,IEN,0)=X

           if X0'=""

               SET ^(.1)=X0

           SET ^DENT(226,"B",Z1,IEN)=""

           SET ^DENT(226,"B1",Z,IEN)=""

 +5        SET X1=$PIECE(X,"^",2)

           SET X2=$PIECE(X,"^",3)

           if X2'=""

               SET ^DENT(226,"C",X2,IEN)=""

           IF X1

               SET ^DENT(226,"A1",X1,Z1,IEN)=""

               IF X2'=""

                   SET ^DENT(226,"AC",X1,Z1,X2,IEN)=""

 +6        IF X1

               IF X0=""

                   SET ^DENT(226,"A",X1,Z1,IEN)=""

 +7        IF Z>DATE

               SET Y=X

               XECUTE ^DD("DD")

               SET F=226

               DO N

 +8        QUIT 

N          WRITE !,"NOTE: You have an erroneous entry dated "_Y_" in file "_F_".",!,"Please correct it after the initialization is complete.",!

           QUIT