ECX3P9PT.m

ECX3P9PT ;ALB/GTS - PATCH ECX*3*9 Post-Install ; July 16, 1998

 ;;3.0;DSS EXTRACTS;**9**;Dec 22, 1997

 ;

EN ;Entry point

 ;

 N ECXDIV,ECXDIVLP

 S ECXDIV=$P(^ECX(728,1,0),"^",1)

 S ECXDIVLP=0

 F  S ECXDIVLP=$O(^ECX(727,ECXDIVLP)) Q:(+ECXDIVLP=0)  DO

 .S $P(^ECX(727,ECXDIVLP,"DIV"),"^",1)=ECXDIV

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P9PT   309     printed  Apr 09, 2024@20:58:36                                                                                                                                                                                                     Page 2

ECX3P9PT  ;ALB/GTS - PATCH ECX*3*9 Post-Install ; July 16, 1998

 +1       ;;3.0;DSS EXTRACTS;**9**;Dec 22, 1997

 +2       ;

EN        ;Entry point

 +1       ;

 +2        NEW ECXDIV,ECXDIVLP

 +3        SET ECXDIV=$PIECE(^ECX(728,1,0),"^",1)

 +4        SET ECXDIVLP=0

 +5        FOR 

               SET ECXDIVLP=$ORDER(^ECX(727,ECXDIVLP))

               if (+ECXDIVLP=0)

                   QUIT 

               Begin DoDot:1

 +6                SET $PIECE(^ECX(727,ECXDIVLP,"DIV"),"^",1)=ECXDIV

               End DoDot:1

 +7        QUIT