source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS01B.m@ 1078

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

initial load of WorldVistAEHR

File size: 3.3 KB
RevLine 
[613]1MCPOS01B ;HIRMFO/WAA - Kill all cross reference in a file - ;4/29/96 11:05
2 ;;2.3;Medicine;;09/13/1996
3 ;;
4F691 ; FILE 691
5 K ^MCAR(691,"B") ; "B" Cross
6 K ^MCAR(691,"C") ; Medical patient
7 K ^MCAR(691,"PCC") ; PCC Pointer
8 K ^MCAR(691,"ES") ; Release Code
9 D
10 .N MCI
11 .S MCI=0
12 .F S MCI=$O(^MCAR(691,MCI)) Q:MCI<1 D
13 ..K ^MCAR(691,MCI,.3,"B") ; "B" Cross
14 ..K ^MCAR(691,MCI,.4,"B") ; "B" Cross
15 ..K ^MCAR(691,MCI,1,"B") ; "B" Cross
16 ..K ^MCAR(691,MCI,14,"B") ; "B" Cross
17 ..K ^MCAR(691,MCI,"ICD","B") ; "B" Cross
18 ..K ^MCAR(691,MCI,2005,"B") ; "B" Cross
19 ..Q
20 .Q
21 D EN1^MCPOS01(691)
22F691P1 ; FILE 691.1
23 K ^MCAR(691.1,"B") ; "B" Cross
24 K ^MCAR(691.1,"C") ; Medical Patient
25 K ^MCAR(691.1,"PCC") ; PCC Pointer
26 K ^MCAR(691.1,"ES") ; Release Code
27 D
28 .N MCI
29 .S MCI=0
30 .F S MCI=$O(^MCAR(691.1,MCI)) Q:MCI<1 D
31 ..K ^MCAR(691.1,MCI,.3,"B") ; "B" Cross
32 ..K ^MCAR(691.1,MCI,.4,"B") ; "B" Cross
33 ..K ^MCAR(691.1,MCI,6,"B") ; "B" Cross
34 ..K ^MCAR(691.1,MCI,"ICD","B") ; "B" Cross
35 ..K ^MCAR(691.1,MCI,2005,"B") ; "B" Cross
36 .Q
37 D EN1^MCPOS01(691.1)
38F691P5 ; FILE 691.5
39 K ^MCAR(691.5,"B") ; "B" Cross
40 K ^MCAR(691.5,"C") ; Medical Patient
41 K ^MCAR(691.5,"PCC") ; PCC pointer
42 K ^MCAR(691.5,"ES") ; Release Status
43 D
44 .N MCI
45 .S MCI=0
46 .F S MCI=$O(^MCAR(691.5,MCI)) Q:MCI<1 D
47 ..K ^MCAR(691.5,MCI,.3,"B") ; "B" Cross
48 ..K ^MCAR(691.5,MCI,.4,"B") ; "B" Cross
49 ..K ^MCAR(691.5,MCI,.5,"B") ; "B" Cross
50 ..K ^MCAR(691.5,MCI,3,"B") ; "B" Cross
51 ..K ^MCAR(691.5,MCI,5,"B") ; "B" Cross
52 ..K ^MCAR(691.5,MCI,6,"B") ; "B" Cross
53 ..K ^MCAR(691.5,MCI,"ICD","B") ; "B" Cross
54 ..K ^MCAR(691.5,MCI,2005,"B") ; "B" Cross
55 ..Q
56 .Q
57 D EN1^MCPOS01(691.5)
58F691P6 ; FILE 691.6
59 K ^MCAR(691.6,"B") ; "B" Cross
60 K ^MCAR(691.6,"C") ; Medical Patient
61 K ^MCAR(691.6,"PCC") ; PCC Pointer
62 K ^MCAR(691.6,"ES") ; Release Code
63 D
64 .N MCI
65 .S MCI=0
66 .F S MCI=$O(^MCAR(691.6,MCI)) Q:MCI<1 D
67 ..K ^MCAR(691.6,MCI,.3,"B") ; "B" Cross
68 ..K ^MCAR(691.6,MCI,.4,"B") ; "B" Cross
69 ..K ^MCAR(691.6,MCI,1,"B") ; "B" Cross
70 ..K ^MCAR(691.6,MCI,"ICD","B") ; "B" Cross
71 ..Q
72 .Q
73 D EN1^MCPOS01(691.6)
74F691P7 ; FILE 691.7
75 K ^MCAR(691.7,"B") ; "B" Cross
76 K ^MCAR(691.7,"C") ; Medical Patient
77 K ^MCAR(691.7,"PCC") ; PCC Pointer
78 K ^MCAR(691.7,"ES") ; Release Code
79 D
80 .N MCI
81 .S MCI=0
82 .F S MCI=$O(^MCAR(691.7,MCI)) Q:MCI<1 D
83 ..K ^MCAR(691.7,MCI,.3,"B") ; "B" Cross
84 ..K ^MCAR(691.7,MCI,.4,"B") ; "B" Cross
85 ..K ^MCAR(691.7,MCI,1,"B") ; "B" Cross
86 ..K ^MCAR(691.7,MCI,11,"B") ; "B" Cross
87 ..K ^MCAR(691.7,MCI,"ICD","B") ; "B" Cross
88 ..Q
89 .Q
90 D EN1^MCPOS01(691.7)
91F691P8 ; FILE 691.8
92 K ^MCAR(691.8,"B") ; "B" Cross
93 K ^MCAR(691.8,"C") ; Medical Patient
94 K ^MCAR(691.8,"PCC") ; PCC Pointer
95 K ^MCAR(691.8,"ES") ; Release Code
96 D
97 .N MCI
98 .S MCI=0
99 .F S MCI=$O(^MCAR(691.8,MCI)) Q:MCI<1 D
100 ..K ^MCAR(691.8,MCI,1,"B") ; "B" Cross
101 ..K ^MCAR(691.8,MCI,2,"B") ; "B" Cross
102 ..K ^MCAR(691.8,MCI,3,"B") ; "B" Cross
103 ..K ^MCAR(691.8,MCI,5,"B") ; "B" Cross
104 ..K ^MCAR(691.8,MCI,11,"B") ; "B" Cross
105 ..K ^MCAR(691.8,MCI,"ICD","B") ; "B" Cross
106 ..Q
107 .Q
108 D EN1^MCPOS01(691.8)
109F691P9 ; FILE 691.9
110 K ^MCAR(691.9,"B") ; "B" Cross
111 K ^MCAR(691.9,"C") ; "C" EP Record
112 D
113 .N MCI
114 .S MCI=0
115 .F S MCI=$O(^MCAR(691.9,MCI)) Q:MCI<1 D
116 ..K ^MCAR(691.9,MCI,"IDC","B") ; "B" Cross
117 ..D
118 ...N MCII
119 ...S MCII=0
120 ...F S MCII=$O(^MCAR(691.9,MCI,7,MCII)) Q:MCII<1 D
121 ....K ^MCAR(691.9,MCI,7,MCII,1,"B") ; "B" Cross
122 ....Q
123 ...Q
124 ..Q
125 .Q
126 D EN1^MCPOS01(691.9)
127 G F692^MCPOS01C
Note: See TracBrowser for help on using the repository browser.