source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0FN.m@ 1710

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

initial load of WorldVistAEHR

File size: 4.0 KB
RevLine 
[613]1DINIT0FN ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 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(ENTRY+I) G:X="" ^DINIT02 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5 Q
6ENTRY ;
7 ;;^DIST(.404,.4612,40,15,.1)
8 ;;=I $D(DDMPFDSL("CAP",6+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=6+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
9 ;;^DIST(.404,.4612,40,15,2)
10 ;;=^^14,4^1
11 ;;^DIST(.404,.4612,40,16,0)
12 ;;=5.7^!M^1
13 ;;^DIST(.404,.4612,40,16,.1)
14 ;;=I $D(DDMPFDSL("CAP",7+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=7+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
15 ;;^DIST(.404,.4612,40,16,2)
16 ;;=^^15,4^1
17 ;;^DIST(.404,.4612,40,17,0)
18 ;;=5.8^!M^1
19 ;;^DIST(.404,.4612,40,17,.1)
20 ;;=I $D(DDMPFDSL("CAP",8+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=8+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
21 ;;^DIST(.404,.4612,40,17,2)
22 ;;=^^16,4^1
23 ;;^DIST(.404,.4612,40,18,0)
24 ;;=5.9^!M^1
25 ;;^DIST(.404,.4612,40,18,.1)
26 ;;=I $D(DDMPFDSL("CAP",9+DDMPOSET)) N DDMPNUM,DDMPLEN S DDMPNUM=9+DDMPOSET,DDMPLEN=$L(DDMPFDSL("CAP",DDMPNUM)),Y=$S($G(DDMPMRK(DDMPNUM)):"*",1:" ")_$S(DDMPNUM<10:" ",1:"")_DDMPNUM_" - "_$E(DDMPFDSL("CAP",DDMPNUM),DDMPLEN-70,DDMPLEN)
27 ;;^DIST(.404,.4612,40,18,2)
28 ;;=^^17,4^1
29 ;;^DIST(.404,.4612,40,19,0)
30 ;;=2.3^!M^2^^LEN
31 ;;^DIST(.404,.4612,40,19,.1)
32 ;;=S Y=$S($G(DDMPSMFF("FIXED"))="YES":"Length",1:"")
33 ;;^DIST(.404,.4612,40,19,2)
34 ;;=6,12^3^6,4
35 ;;^DIST(.404,.4612,40,19,11)
36 ;;=I $$GET^DDSVALF("FLD")']"" S DDSBR=$S($L($G(DDMPCPTH)):"FLD",1:"FLD_DEL")
37 ;;^DIST(.404,.4612,40,19,12)
38 ;;=I X="" S DDSBR="2^1^4"
39 ;;^DIST(.404,.4612,40,19,13)
40 ;;=S DDMPFDSL("LN",DDMPFDCT)=X,DDMPFDSL("CAP",DDMPFDCT)=DDMPFDSL("CAP",DDMPFDCT)_"["_X_"]",DDSBR="FLD" D PUT^DDSVALF("LEN","","",""),PUT^DDSVALF("FLD","","",""),REFRESH^DDSUTL
41 ;;^DIST(.404,.4612,40,19,20)
42 ;;=N^^1:255
43 ;;^DIST(.404,.4612,40,19,21,0)
44 ;;=^^2^2^2950228
45 ;;^DIST(.404,.4612,40,19,21,1,0)
46 ;;=Enter the length of the imported data associated with this field. (This
47 ;;^DIST(.404,.4612,40,19,21,2,0)
48 ;;=applies only to fixed length imports.)
49 ;;^DIST(.404,.4613,0)
50 ;;=DDMP FILE CHANGE^.44
51 ;;^DIST(.404,.4613,40,0)
52 ;;=^.4044I^3^3
53 ;;^DIST(.404,.4613,40,1,0)
54 ;;=1^If you delete or change the primary file,^1
55 ;;^DIST(.404,.4613,40,1,2)
56 ;;=^^1,1
57 ;;^DIST(.404,.4613,40,2,0)
58 ;;=2^the fields you have chosen will be deleted.^1
59 ;;^DIST(.404,.4613,40,2,2)
60 ;;=^^2,1^1
61 ;;^DIST(.404,.4613,40,3,0)
62 ;;=3^Do you want to change the Primary file?^2
63 ;;^DIST(.404,.4613,40,3,2)
64 ;;=4,42^3^4,1
65 ;;^DIST(.404,.4613,40,3,3)
66 ;;=Yes
67 ;;^DIST(.404,.4613,40,3,4)
68 ;;=1
69 ;;^DIST(.404,.4613,40,3,12)
70 ;;=D CHNGFILE^DDMPSM S DDACT="CL"
71 ;;^DIST(.404,.4613,40,3,20)
72 ;;=Y
73 ;;^DIST(.404,.4614,0)
74 ;;=DDMP REQUIRED LENGTH
75 ;;^DIST(.404,.4614,40,0)
76 ;;=^.4044I^3^3
77 ;;^DIST(.404,.4614,40,1,0)
78 ;;=1^Since this is a fixed length import,^1
79 ;;^DIST(.404,.4614,40,1,2)
80 ;;=^^1,1
81 ;;^DIST(.404,.4614,40,2,0)
82 ;;=1.2^you must enter a data length for every field.^1
83 ;;^DIST(.404,.4614,40,2,2)
84 ;;=^^2,1
85 ;;^DIST(.404,.4614,40,3,0)
86 ;;=2^Delete field or enter its Length (D/L)?^2
87 ;;^DIST(.404,.4614,40,3,2)
88 ;;=4,41^1^4,1^1
89 ;;^DIST(.404,.4614,40,3,13)
90 ;;=D LENCHK^DDMPSM1
91 ;;^DIST(.404,.4614,40,3,20)
92 ;;=S^M^D:Delete the field;L:Length will be entered
93 ;;^DIST(.404,.4614,40,3,21,0)
94 ;;=^^4^4^2950301
95 ;;^DIST(.404,.4614,40,3,21,1,0)
96 ;;=You left the length prompt without entering a data length for the last
97 ;;^DIST(.404,.4614,40,3,21,2,0)
98 ;;=field you specified. Since you have chosen a fixed length import, you
99 ;;^DIST(.404,.4614,40,3,21,3,0)
100 ;;=must give a length for every field. You can choose to either delete the
101 ;;^DIST(.404,.4614,40,3,21,4,0)
102 ;;=field you just entered or return to the Length prompt to enter a Length.
Note: See TracBrowser for help on using the repository browser.