source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT2BA.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.1 KB
Line 
1DINIT2BA ;SFISC/MKO-SQLI FILES ;10:51 AM 30 Mar 1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 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) S @X=Y
5 G ^DINIT2BB
6Q Q
7 ;;^DD(1.5217,11,.1)
8 ;;=Ext. Frm.
9 ;;^DD(1.5217,11,3)
10 ;;=Type a Number between 1 and 511, 0 Decimal Digits
11 ;;^DD(1.5217,11,9)
12 ;;=^
13 ;;^DD(1.5217,11,21,0)
14 ;;=^^2^2^2960926^^^
15 ;;^DD(1.5217,11,21,1,0)
16 ;;=First character to be extracted with $EXTRACT
17 ;;^DD(1.5217,11,21,2,0)
18 ;;=NULL unless specified by form E1,30.
19 ;;^DD(1.5217,11,"DT")
20 ;;=2960926
21 ;;^DD(1.5217,12,0)
22 ;;=C_EXTRACT_THRU^NJ3,0^^0;13^K:+X'=X!(X>511)!(X<1)!(X?.E1"."1N.N) X
23 ;;^DD(1.5217,12,.1)
24 ;;=Ext. Thru
25 ;;^DD(1.5217,12,3)
26 ;;=Type a Number between 1 and 511, 0 Decimal Digits
27 ;;^DD(1.5217,12,9)
28 ;;=^
29 ;;^DD(1.5217,12,21,0)
30 ;;=^^1^1^2960926^^
31 ;;^DD(1.5217,12,21,1,0)
32 ;;=Last character to extract with $E
33 ;;^DD(1.5217,12,"DT")
34 ;;=2960926
35 ;;^DD(1.5217,13,0)
36 ;;=C_COMPUTE_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
37 ;;^DD(1.5217,13,.1)
38 ;;=Computation
39 ;;^DD(1.5217,13,3)
40 ;;=M code to return value in {V}: machine generated
41 ;;^DD(1.5217,13,4)
42 ;;=W ?5,"Enter code to return value in {V}"
43 ;;^DD(1.5217,13,9)
44 ;;=^
45 ;;^DD(1.5217,13,21,0)
46 ;;=^^1^1^2970311^^^^
47 ;;^DD(1.5217,13,21,1,0)
48 ;;=Computation execute uses $$GET1^DIQ to return code by default
49 ;;^DD(1.5217,13,"DT")
50 ;;=2960926
51 ;;^DD(1.5217,14,0)
52 ;;=C_FM_EXEC^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
53 ;;^DD(1.5217,14,.1)
54 ;;=FileMan Retrieval Strategy
55 ;;^DD(1.5217,14,3)
56 ;;=Don't enter manually: machine generated.
57 ;;^DD(1.5217,14,4)
58 ;;=W ?5,"Don't enter this. It should be auto-generated."
59 ;;^DD(1.5217,14,9)
60 ;;=^
61 ;;^DD(1.5217,14,21,0)
62 ;;=^^2^2^2970311^^^^
63 ;;^DD(1.5217,14,21,1,0)
64 ;;=Standard $$GET1^DIQ code to return value of pointer, variable pointer
65 ;;^DD(1.5217,14,21,2,0)
66 ;;=and computed values, or when security flag is set
67 ;;^DD(1.5217,14,"DT")
68 ;;=2960926
69 ;;^DD(1.5217,15,0)
70 ;;=C_POINTER^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
71 ;;^DD(1.5217,15,.1)
72 ;;=Pointer or Set Param
73 ;;^DD(1.5217,15,3)
74 ;;=This is Standard MUMPS code.
75 ;;^DD(1.5217,15,9)
76 ;;=^
77 ;;^DD(1.5217,15,21,0)
78 ;;=^^1^1^2960926^
79 ;;^DD(1.5217,15,21,1,0)
80 ;;=Set translation string for SET, or global root for POINTER
81 ;;^DD(1.5217,15,"DT")
82 ;;=2960906
83 ;;^DD(1.5217,16,0)
84 ;;=C_OUTPUT_FORMAT^P1.5214'^DMSQ("OF",^0;4^Q
85 ;;^DD(1.5217,16,.1)
86 ;;=Output Format
87 ;;^DD(1.5217,16,1,0)
88 ;;=^.1
89 ;;^DD(1.5217,16,1,1,0)
90 ;;=1.5217^E
91 ;;^DD(1.5217,16,1,1,1)
92 ;;=S ^DMSQ("C","E",$E(X,1,30),DA)=""
93 ;;^DD(1.5217,16,1,1,2)
94 ;;=K ^DMSQ("C","E",$E(X,1,30),DA)
95 ;;^DD(1.5217,16,1,1,"%D",0)
96 ;;=^^1^1^2960909^
97 ;;^DD(1.5217,16,1,1,"%D",1,0)
98 ;;=Column by output format
99 ;;^DD(1.5217,16,1,1,"DT")
100 ;;=2960909
101 ;;^DD(1.5217,16,9)
102 ;;=^
103 ;;^DD(1.5217,16,21,0)
104 ;;=^^2^2^2960926^
105 ;;^DD(1.5217,16,21,1,0)
106 ;;=IEN of default output format in SQLI_OUTPUT_FORMAT for this column
107 ;;^DD(1.5217,16,21,2,0)
108 ;;=Always present for SET, POINTER and VARIABLE-POINTER data types
109 ;;^DD(1.5217,16,"DT")
110 ;;=2960926
Note: See TracBrowser for help on using the repository browser.