source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS01F.m@ 1211

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

initial load of WorldVistAEHR
File size: 3.4 KB
RevLine 
[613]1MCPOS01F ;HIRMFO/WAA - Kill all cross reference in a file - ;4/29/96 14:53
2 ;;2.3;Medicine;;09/13/1996
3 ;;
4F699 ; FILE 699
5 K ^MCAR(699,"B") ; "B" Cross
6 K ^MCAR(699,"C") ; Medical patient
7 K ^MCAR(699,"D") ; Procedure
8 K ^MCAR(699,"AC") ; Endoscopist
9 K ^MCAR(699,"ACE") ; Endoscopist
10 K ^MCAR(699,"AD") ; Where performed
11 K ^MCAR(699,"PCC") ; PCC Pointer
12 K ^MCAR(699,"ES") ; Release code
13 D
14 .N MCI
15 .S MCI=0
16 .F S MCI=$O(^MCAR(699,MCI)) Q:MCI<1 D
17 ..K ^MCAR(699,MCI,1,"B") ; "B" Cross
18 ..K ^MCAR(699,MCI,3,"B") ; "B" Cross
19 ..K ^MCAR(699,MCI,28,"B") ; "B" Cross
20 ..K ^MCAR(699,MCI,25,"B") ; "B" Cross
21 ..K ^MCAR(699,MCI,27,"B") ; "B" Cross
22 ..K ^MCAR(699,MCI,30,"B") ; "B" Cross
23 ..D
24 ...N MCII
25 ...S MCII=0
26 ...F S MCII=$O(^MCAR(699,MCI,30,MCII)) Q:MCII<1 D
27 ....K ^MCAR(699,MCI,30,MCII,1,"B") ; "B" Cross
28 ....K ^MCAR(699,MCI,30,MCII,2,"B") ; "B" Cross
29 ....K ^MCAR(699,MCI,30,MCII,3,"B") ; "B" Cross
30 ....Q
31 ...Q
32 ..K ^MCAR(699,MCI,10,"B") ; "B" Cross
33 ..K ^MCAR(699,MCI,11,"B") ; "B" Cross
34 ..K ^MCAR(699,MCI,"IDC","B") ; "B" Cross
35 ..K ^MCAR(699,MCI,2005,"B") ; "B" Cross
36 ..Q
37 .Q
38 D EN1^MCPOS01(699)
39F699P48 ; FILE 699.48
40 K ^MCAR(699.48,"B") ; "B" Cross
41 K ^MCAR(699.48,"C") ; Medical package use
42 D EN1^MCPOS01(699.48)
43F699P5 ; FILE 699.5
44 K ^MCAR(699.5,"B") ; "B" Cross
45 K ^MCAR(699.5,"C") ; Medical Patient
46 K ^MCAR(699.5,"D") ; Subspecialty
47 K ^MCAR(699.5,"PCC") ; PCC Pointer
48 D
49 .N MCI
50 .S MCI=0
51 .F S MCI=$O(^MCAR(699.5,MCI)) Q:MCI<1 D
52 ..K ^MCAR(699.5,MCI,4,"B") ; "B" Cross
53 ..K ^MCAR(699.5,MCI,2,"B") ; "B" Cross
54 ..K ^MCAR(699.5,MCI,3,"B") ; "B" Cross
55 ..K ^MCAR(699.5,MCI,"ICD","B") ; "B" Cross
56 ..K ^MCAR(699.5,MCI,2005,"B") ; "B" Cross
57 ..Q
58 .Q
59 D EN1^MCPOS01(699.5)
60F699P55 ; FILE 699.55
61 K ^MCAR(699.55,"B") ; "B" Cross
62 K ^MCAR(699.55,"C") ; Procedure
63 D
64 .N MCI
65 .S MCI=0
66 .F S MCI=$O(^MCAR(699.55,MCI)) Q:MCI<1 D
67 ..K ^MCAR(699.55,MCI,1,"B") ; "B" Cross
68 ..Q
69 .Q
70 D EN1^MCPOS01(699.55)
71F699P57 ; FILE 699.57
72 K ^MCAR(699.57,"B") ; "B" Cross
73 K ^MCAR(699.57,"C") ; Procedure
74 D
75 .N MCI
76 .S MCI=0
77 .F S MCI=$O(^MCAR(699.57,MCI)) Q:MCI<1 D
78 ..K ^MCAR(699.57,MCI,1,"B") ; "B" Cross
79 ..Q
80 .Q
81 D EN1^MCPOS01(699.57)
82F699P6 ; FILE 699.6
83 K ^MCAR(699.6,"B") ; "B" Cross
84 K ^MCAR(699.6,"BA") ; KWIC
85 K ^MCAR(699.6,"C") ; Procedure
86 K ^MCAR(699.6,"E") ; Procedure Name
87 K ^MCAR(699.6,"D") ; Cath surgical risk procedure
88 D
89 .N MCI
90 .S MCI=0
91 .F S MCI=$O(^MCAR(699.6,MCI)) Q:MCI<1 D
92 ..K ^MCAR(699.6,MCI,1,"B") ; "B" Cross
93 ..K ^MCAR(699.6,MCI,2,"B") ; "B" Cross
94 ..Q
95 .Q
96 D EN1^MCPOS01(699.6)
97F699P7 ; FILE 699.7
98 K ^MCAR(699.7,"B") ; "B" Cross
99 K ^MCAR(699.7,"C") ; Type
100 D EN1^MCPOS01(699.7)
101F699P81 ; FILE 699.81
102 K ^MCAR(699.81,"B") ; "B" Cross
103 K ^MCAR(699.81,"D") ; KWIC
104 K ^MCAR(699.81,"C") ; Medical Package Use
105 D EN1^MCPOS01(699.81)
106F699P82 ; FILE 699.82
107 K ^MCAR(699.82,"B") ; "B" Cross
108 K ^MCAR(699.82,"C") ; KWIC
109 D EN1^MCPOS01(699.82)
110F699P83 ; FILE 699.83
111 K ^MCAR(699.83,"B") ; "B" Cross
112 K ^MCAR(699.83,"C") ; Medical Use
113 D EN1^MCPOS01(699.83)
114F699P84 ; FILE 699.84
115 K ^MCAR(699.84,"B") ; "B" Cross
116 K ^MCAR(699.84,"C") ; KWIC
117 D EN1^MCPOS01(699.84)
118F699P85 ; FILE 699.85
119 K ^MCAR(699.85,"B") ; "B" Cross
120 K ^MCAR(699.85,"C") ; KWIC
121 K ^MCAR(699.85,"D") ; Medical Package Use
122 D EN1^MCPOS01(699.85)
123F699P86 ; FILE 699.86
124 K ^MCAR(699.86,"B") ; "B" Cross
125 K ^MCAR(699.86,"C") ; KWIC
126 D EN1^MCPOS01(699.86)
127F699P88 ; FILE 699.88
128 K ^MCAR(699.88,"B") ; "B" Cross
129 K ^MCAR(699.88,"C") ; KWIC
130 D EN1^MCPOS01(699.88)
131 G F700^MCPOS01G
Note: See TracBrowser for help on using the repository browser.