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 ---[H[J[2J[HDG5389PT 513 printed Dec 13, 2024@02:39:14 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
