XPDIN00F ; ; 03-JUL-1995
;;8.0;KERNEL;;JUL 10, 1995
I DSEC F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DIC(9.6,0,"AUDIT")
;;=#
;;^DIC(9.6,0,"DD")
;;=@
;;^DIC(9.6,0,"DEL")
;;=#
;;^DIC(9.6,0,"LAYGO")
;;=#
;;^DIC(9.6,0,"RD")
;;=#
;;^DIC(9.6,0,"WR")
;;=#
;;^DIC(9.7,0,"AUDIT")
;;=#
;;^DIC(9.7,0,"DD")
;;=@
;;^DIC(9.7,0,"DEL")
;;=#
;;^DIC(9.7,0,"LAYGO")
;;=@
;;^DIC(9.7,0,"RD")
;;=#
;;^DIC(9.7,0,"WR")
;;=@
;;^DD(9.713,2,9)
;;=@
;;^DD(9.716,2,9)
;;=@
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00F 628 printed Sep 23, 2025@19:40:01 Page 2
XPDIN00F ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 IF DSEC
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DIC(9.6,0,"AUDIT")
+2 ;;=#
+3 ;;^DIC(9.6,0,"DD")
+4 ;;=@
+5 ;;^DIC(9.6,0,"DEL")
+6 ;;=#
+7 ;;^DIC(9.6,0,"LAYGO")
+8 ;;=#
+9 ;;^DIC(9.6,0,"RD")
+10 ;;=#
+11 ;;^DIC(9.6,0,"WR")
+12 ;;=#
+13 ;;^DIC(9.7,0,"AUDIT")
+14 ;;=#
+15 ;;^DIC(9.7,0,"DD")
+16 ;;=@
+17 ;;^DIC(9.7,0,"DEL")
+18 ;;=#
+19 ;;^DIC(9.7,0,"LAYGO")
+20 ;;=@
+21 ;;^DIC(9.7,0,"RD")
+22 ;;=#
+23 ;;^DIC(9.7,0,"WR")
+24 ;;=@
+25 ;;^DD(9.713,2,9)
+26 ;;=@
+27 ;;^DD(9.716,2,9)
+28 ;;=@
