DG5389PT.m

DG5389PT ;ALB/CM POSTINIT ;04/26/96

 ;;5.3;Registration;**89**;Aug 13, 1993

 ;

 ;This routine will convert the current WARD field entries to be a

 ;variable pointer entry.

 ;

EN ;

 N MES,ENTRY,X

 S ENTRY=0

 D MES^XPDUTL("Starting Post Init Conversion")

 F  S ENTRY=$O(^DG(45.9,ENTRY)) Q:(ENTRY'?.N)!(ENTRY="")  D

 . S X=$P($G(^DG(45.9,ENTRY,"R")),"^")

 . Q:+X=0  ; no pointer value

 . I $P(X,";",2)="" S $P(^DG(45.9,ENTRY,"R"),"^")=+X_";DIC(42,"

 D MES^XPDUTL("Completed Post Init Conversion")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG5389PT   513     printed  Feb 19, 2025@00:05:17                                                                                                                                                                                                     Page 2

DG5389PT  ;ALB/CM POSTINIT ;04/26/96

 +1       ;;5.3;Registration;**89**;Aug 13, 1993

 +2       ;

 +3       ;This routine will convert the current WARD field entries to be a

 +4       ;variable pointer entry.

 +5       ;

EN        ;

 +1        NEW MES,ENTRY,X

 +2        SET ENTRY=0

 +3        DO MES^XPDUTL("Starting Post Init Conversion")

 +4        FOR 

               SET ENTRY=$ORDER(^DG(45.9,ENTRY))

               if (ENTRY'?.N)!(ENTRY="")

                   QUIT 

               Begin DoDot:1

 +5                SET X=$PIECE($GET(^DG(45.9,ENTRY,"R")),"^")

 +6       ; no pointer value

                   if +X=0

                       QUIT 

 +7                IF $PIECE(X,";",2)=""

                       SET $PIECE(^DG(45.9,ENTRY,"R"),"^")=+X_";DIC(42,"

               End DoDot:1

 +8        DO MES^XPDUTL("Completed Post Init Conversion")

 +9        QUIT