source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIN00F.m@ 1424

Last change on this file since 1424 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 596 bytes
Line 
1XPDIN00F ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 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
4Q Q
5 ;;^DIC(9.6,0,"AUDIT")
6 ;;=#
7 ;;^DIC(9.6,0,"DD")
8 ;;=@
9 ;;^DIC(9.6,0,"DEL")
10 ;;=#
11 ;;^DIC(9.6,0,"LAYGO")
12 ;;=#
13 ;;^DIC(9.6,0,"RD")
14 ;;=#
15 ;;^DIC(9.6,0,"WR")
16 ;;=#
17 ;;^DIC(9.7,0,"AUDIT")
18 ;;=#
19 ;;^DIC(9.7,0,"DD")
20 ;;=@
21 ;;^DIC(9.7,0,"DEL")
22 ;;=#
23 ;;^DIC(9.7,0,"LAYGO")
24 ;;=@
25 ;;^DIC(9.7,0,"RD")
26 ;;=#
27 ;;^DIC(9.7,0,"WR")
28 ;;=@
29 ;;^DD(9.713,2,9)
30 ;;=@
31 ;;^DD(9.716,2,9)
32 ;;=@
Note: See TracBrowser for help on using the repository browser.