LAPOS.m

LAPOS ; IHS/DIR/FJE - AUTO INSTRUMENTS POST INIT 11:33 ; [ 5/10/90 ]

 ;;5.2;LA;;NOV 01, 1997

 ;;5.1;LAB;;04/11/91 11:06

EN ;

 W !!?7,*7,"Starting post inits ",!!

 W !!?10,"Updating the 'AD' cross reference in ^LAB(62.06 global",!!

 K ^LAB(62.06,"AD")

 F IFN=0:0 S IFN=$O(^LAB(62.06,IFN)) Q:IFN<1  I $D(^(IFN,0)),$P(^(0),U,2) S ^LAB(62.06,"AD",$P(^(0),U,2),IFN)=""

 K DIK,DA S DIK="^DD(62.4,",DA(1)=62.4 F DA=50,55 D ^DIK

 K DA S DIK="^DD(62.43,1,",DA(1)=62.43 F DA=12,12.1 D ^DIK

 K DA S DIK="^DD(62.46,1,",DA(1)=62.46 F DA=12,12.1 D ^DIK

 D ^LROPUD

END ;

 Q

LAPOS     ; IHS/DIR/FJE - AUTO INSTRUMENTS POST INIT 11:33 ; [ 5/10/90 ]

 +1       ;;5.2;LA;;NOV 01, 1997

 +2       ;;5.1;LAB;;04/11/91 11:06

EN        ;

 +1        WRITE !!?7,*7,"Starting post inits ",!!

 +2        WRITE !!?10,"Updating the 'AD' cross reference in ^LAB(62.06 global",!!

 +3        KILL ^LAB(62.06,"AD")

 +4        FOR IFN=0:0

               SET IFN=$ORDER(^LAB(62.06,IFN))

               IF IFN<1

                   QUIT 

               IF $DATA(^(IFN,0))

                   IF $PIECE(^(0),U,2)

                       SET ^LAB(62.06,"AD",$PIECE(^(0),U,2),IFN)=""

 +5        KILL DIK,DA

           SET DIK="^DD(62.4,"

           SET DA(1)=62.4

           FOR DA=50,55

               DO ^DIK

 +6        KILL DA

           SET DIK="^DD(62.43,1,"

           SET DA(1)=62.43

           FOR DA=12,12.1

               DO ^DIK

 +7        KILL DA

           SET DIK="^DD(62.46,1,"

           SET DA(1)=62.46

           FOR DA=12,12.1

               DO ^DIK

 +8        DO ^LROPUD

END       ;

 +1        QUIT