source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVMLC2.m@ 623

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1ABSVMLC2 ;OAKLAND/DPC-VSS MIGRATION;8/20/2002
2 ;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
3 ;
4SAVE ;Saves the list of codes to Service Code multiple in Migration Log file
5 ;
6 N ABSFDA,ABSIEN,ABSIENS,SRVCD
7 D ABSIEN^ABSVMUT1 Q:'ABSIEN
8 F I=1:1 S SRVCD=$P($T(SRVS+I),";;",2) Q:SRVCD="" D
9 . S ABSFDA(503339.54,"+"_I_","_ABSIEN_",",.01)=SRVCD
10 D UPDATE^DIE("E","ABSFDA","ABSIENS")
11 Q
12 ;Loads IENs for national Service codes
13LDSRVS ;
14 N ABSIEN,SRVCD,I
15 D ABSIEN^ABSVMUT1 Q:'ABSIEN
16 K SCDS ;Array of IENs of service codes
17 S SRVCD=""
18 F S SRVCD=$O(^ABS(503339.5,ABSIEN,4,"B",SRVCD)) Q:SRVCD="" D
19 . N SRVIEN,FOUNDIEN
20 . D FIND^DIC(503332,,"@","X",SRVCD,,"B",,,"FOUNDIEN")
21 . F I=1:1 S SRVIEN=$G(FOUNDIEN("DILIST",2,I)) Q:SRVIEN="" D
22 . . S SCDS(SRVIEN)=""
23 . . Q
24 . Q
25 Q
26 ;
27SRVS ;
28 ;;100
29 ;;108
30 ;;111
31 ;;112
32 ;;113
33 ;;113
34 ;;114
35 ;;115
36 ;;116
37 ;;117
38 ;;118
39 ;;119
40 ;;120
41 ;;121
42 ;;122
43 ;;123
44 ;;126
45 ;;127
46 ;;128
47 ;;129
48 ;;132
49 ;;133
50 ;;134
51 ;;135
52 ;;136
53 ;;137
54 ;;138
55 ;;139
56 ;;142
57 ;;143
58 ;;151
59 ;;160
60 ;;170
61 ;;181
62 ;;182
63 ;;190
64 ;;199
65 ;;200
66 ;;250
67 ;;260
68 ;;270
69 ;;771
70 ;;772
71 ;;773
72 ;;774
73 ;;775
74 ;;776
75 ;;777
76 ;;000
77 ;;000T
78 ;;004
79 ;;004T
80 ;;005
81 ;;005T
82 ;;011
83 ;;011C
84 ;;011T
85 ;;041
86 ;;100T
87 ;;108E
88 ;;108T
89 ;;111T
90 ;;112T
91 ;;113T
92 ;;114T
93 ;;115T
94 ;;116H
95 ;;116T
96 ;;116V
97 ;;117A
98 ;;117B
99 ;;117D
100 ;;117E
101 ;;117F
102 ;;117T
103 ;;118E
104 ;;118H
105 ;;118T
106 ;;119T
107 ;;120T
108 ;;121T
109 ;;122S
110 ;;122T
111 ;;123T
112 ;;126T
113 ;;127T
114 ;;128T
115 ;;129T
116 ;;132T
117 ;;133T
118 ;;134B
119 ;;134C
120 ;;134D
121 ;;134E
122 ;;134T
123 ;;135A
124 ;;135B
125 ;;135E
126 ;;135M
127 ;;135R
128 ;;135T
129 ;;135V
130 ;;136A
131 ;;136B
132 ;;136C
133 ;;136D
134 ;;136F
135 ;;136T
136 ;;136Z
137 ;;137T
138 ;;138T
139 ;;139T
140 ;;142T
141 ;;143T
142 ;;151T
143 ;;160T
144 ;;170A
145 ;;170T
146 ;;190T
147 ;;250A
148 ;;250D
149 ;;250H
150 ;;270A
151 ;;270B
152 ;;270C
153 ;;270D
154 ;;270E
155 ;;500T
156 ;;
157 ;End of Service Codes
Note: See TracBrowser for help on using the repository browser.