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/XPDIN009.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1XPDIN009 ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 Q:'DIFQ(9.6) 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 ;;^DD(9.68,.01,1,2,"CREATE VALUE")
6 ;;=$P(ENTRIES," FILE #",2)
7 ;;^DD(9.68,.01,1,2,"DELETE VALUE")
8 ;;=NO EFFECT
9 ;;^DD(9.68,.01,1,2,"DT")
10 ;;=2931020
11 ;;^DD(9.68,.01,1,2,"FIELD")
12 ;;=FILE
13 ;;^DD(9.68,.01,3)
14 ;;=Answer must be 3-45 characters in length.
15 ;;^DD(9.68,.01,4)
16 ;;=D HELP^XPDET
17 ;;^DD(9.68,.01,7.5)
18 ;;=D LOOKE^XPDET(.X)
19 ;;^DD(9.68,.01,21,0)
20 ;;=^^4^4^2950214^^^^
21 ;;^DD(9.68,.01,21,1,0)
22 ;;=The name of the component being sent. The component must exist in
23 ;;^DD(9.68,.01,21,2,0)
24 ;;=the pointed-to file. You can use '*' as a wild card character,
25 ;;^DD(9.68,.01,21,3,0)
26 ;;=i.e. XUS* means all components begining with XUS.
27 ;;^DD(9.68,.01,21,4,0)
28 ;;=You can also preceed the component with '-' to delete it from the list.
29 ;;^DD(9.68,.01,"DT")
30 ;;=2940517
31 ;;^DD(9.68,.02,0)
32 ;;=FILE^RP1'^DIC(^0;2^Q
33 ;;^DD(9.68,.02,5,1,0)
34 ;;=9.68^.01^2
35 ;;^DD(9.68,.02,9)
36 ;;=^
37 ;;^DD(9.68,.02,21,0)
38 ;;=^^1^1^2931020^
39 ;;^DD(9.68,.02,21,1,0)
40 ;;=The Fileman file for this Entry.
41 ;;^DD(9.68,.02,"DT")
42 ;;=2931020
43 ;;^DD(9.68,.03,0)
44 ;;=ACTION^R*S^0:SEND TO SITE;1:DELETE AT SITE;2:USE AS LINK FOR MENU ITEMS;3:MERGE MENU ITEMS;^0;3^Q
45 ;;^DD(9.68,.03,12)
46 ;;=Enter a number
47 ;;^DD(9.68,.03,12.1)
48 ;;=S DIC("S")="I $$SCRA^XPDET(Y)"
49 ;;^DD(9.68,.03,21,0)
50 ;;=^^2^2^2940503^^
51 ;;^DD(9.68,.03,21,1,0)
52 ;;=This is the action you want performed at the installing site on
53 ;;^DD(9.68,.03,21,2,0)
54 ;;=the entry of the component you are sending for this package.
55 ;;^DD(9.68,.03,"DT")
56 ;;=2940708
57 ;;^DD(9.68,.04,0)
58 ;;=CHECKSUM^F^^0;4^K:$L(X)>30!($L(X)<3) X
59 ;;^DD(9.68,.04,3)
60 ;;=Answer must be 3-30 characters in length.
61 ;;^DD(9.68,.04,21,0)
62 ;;=^^1^1^2950330^
63 ;;^DD(9.68,.04,21,1,0)
64 ;;=This field contains the checksum for this component.
65 ;;^DD(9.68,.04,"DT")
66 ;;=2950330
Note: See TracBrowser for help on using the repository browser.