- 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 Mar 13, 2025@21:08:49 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 ;;=@
