source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P451.m@ 1800

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

initial load of WorldVistAEHR

File size: 8.9 KB
RevLine 
[613]1DG53P451 ;TDM/BRM - Patch DG*5.3*451 Install Utility Routine ; 4/27/04 2:14pm
2 ;;5.3;Registration;**451**; Aug 13,1993
3 ;
4 D CHKBOS Q:$G(XPDABORT)=2
5 D ADDBOS
6 D ADDINC Q:$G(XPDABORT)=2
7 D EDITINC^DG53E451
8 Q
9CHKBOS ;Check to ensure that Merchant Seaman and B.E.C. are in the BOS file
10 ;
11 K XPDABORT
12 N BOS
13 F BOS="MERCHANT SEAMAN","B.E.C." Q:$D(XPDABORT) D
14 .Q:$D(^DIC(23,"B",BOS))
15 .S XPDABORT=2
16 .D BMES^XPDUTL(" >>> ERROR: Branch of Service File (#23) needs to be reviewed by NVS! <<<")
17 .D MES^XPDUTL(" The National Entry for '"_BOS_"' does not exist!")
18 .D BMES^XPDUTL(" <<<< INSTALLATION ABORTED >>>>")
19 Q
20ADDBOS ;Add new entries to BRANCH OF SERVICE file (#23)
21 N ARY,BOS,FDA,ERR,MSG
22 S ARY(1)="F.COMMONWEALTH"
23 S ARY(2)="F.GUERILLA"
24 S ARY(3)="F.SCOUTS NEW"
25 S ARY(4)="F.SCOUTS OLD"
26 ;
27 D BMES^XPDUTL(" >> Adding New Branch Of Service Entries.")
28 S BOS="" F S BOS=$O(ARY(BOS)) Q:BOS="" D
29 .K FDA,ERR
30 .S MSG=" "_ARY(BOS)_" - "
31 .I $$FIND1^DIC(23,"","X",ARY(BOS)) D BMES^XPDUTL(MSG_"entry already exists!") Q
32 .S FDA(23,"+1,",.01)=ARY(BOS)
33 .D UPDATE^DIE("","FDA","","ERR")
34 .I $D(ERR) D BMES^XPDUTL(MSG_"not added! ERROR:"),MES^XPDUTL(ERR("DIERR",1)_": "_ERR("DIERR",1,"TEXT",1)) Q
35 .D MES^XPDUTL(MSG_"successfully added.")
36 Q
37 ;
38ADDINC ; add new entries to the INCONSISTENT DATA ELEMENTS file (#38.6)
39 N DGK,DGWP,ROOT,DGFDA,DGWP,DGERR,DGIEN,DGTITL
40 K XPDABORT
41 D BMES^XPDUTL(" >> Adding entries 72-85 into the INCONSISTENT DATA ELEMENTS file (#38.6)")
42 F DGK=72:1:85 Q:$G(XPDABORT)=2 D
43 .I $D(^DGIN(38.6,DGK)) D Q
44 ..D BMES^XPDUTL(" Internal Entry # "_DGK_" already exists in file #38.6")
45 ..S ROOT="DGFDA(38.6,"""_DGK_","")" D @DGK
46 ..I $P($G(^DGIN(38.6,DGK,0)),"^")=$G(@ROOT@(.01)) D MES^XPDUTL(" Entry "_DGK_" matches incoming entry - OK") Q
47 ..D MES^XPDUTL(" >>> ERROR: Entry # "_DGK_" needs to be reviewed by NVS! <<<")
48 ..D MES^XPDUTL(" Existing entry: "_$P($G(^DGIN(38.6,DGK,0)),"^"))
49 ..D MES^XPDUTL(" Incoming entry: "_$G(@ROOT@(.01)))
50 ..D BMES^XPDUTL(" <<<< INSTALLATION ABORTED >>>>")
51 ..S XPDABORT=2
52 .K DGFDA,ROOT,DGWP
53 .S ROOT="DGFDA(38.6,""?+1,"")"
54 .D @DGK Q:'$D(DGFDA)
55 .S DGIEN(1)=DGK
56 .S DGTITL=@ROOT@(.01)
57 .D UPDATE^DIE("","DGFDA","DGIEN","DGERR")
58 .I $D(DGERR) D Q
59 ..D BMES^XPDUTL(" >>> ERROR! "_DGTITL_" not added to file #38.6")
60 ..D MES^XPDUTL(" "_DGERR("DIERR",1)_": "_DGERR("DIERR",1,"TEXT",1))
61 ..D BMES^XPDUTL(" <<<< INSTALLATION ABORTED >>>>")
62 ..S XPDABORT=2
63 .D BMES^XPDUTL(" "_DGTITL_" successfully added.")
64 Q
6572 ;
66 S @ROOT@(.01)="MSE DATA MISSING/INCOMPLETE"
67 S @ROOT@(2)="MSE REQUIRED DATA FIELDS ARE MISSING OR INCOMPLETE"
68 S @ROOT@(3)=3
69 S @ROOT@(50)="DGWP"
70 S DGWP(1,0)="Inconsistency results when any of the required MSE data fields are "
71 S DGWP(2,0)="either left blank or an imprecise date (less than month/year precision) "
72 S DGWP(3,0)="is entered. The following fields are required for any given Military "
73 S DGWP(4,0)="Service Episode: BRANCH OF SERVICE, SERVICE ENTRY DATE, SERVICE "
74 S DGWP(5,0)="SEPARATION DATE, DISCHARGE TYPE."
75 Q
7673 ;
77 S @ROOT@(.01)="MSE DATES INCONSISTENT"
78 S @ROOT@(2)="SERVICE SEPARATION DATE PRECEDES SERVICE ENTRY DATE"
79 S @ROOT@(3)=3
80 S @ROOT@(50)="DGWP"
81 S DGWP(1,0)="Inconsistency results when a SERVICE ENTRY DATE is found to be after the"
82 S DGWP(2,0)="SERVICE SEPARATION DATE."
83 Q
8474 ;
85 S @ROOT@(.01)="CONFLICT DT MISSING/INCOMPLETE"
86 S @ROOT@(2)="CONFLICT DATE IS MISSING OR INCOMPLETE"
87 S @ROOT@(3)=3
88 S @ROOT@(50)="DGWP"
89 S DGWP(1,0)="This inconsistency results when a conflict date is either missing or "
90 S DGWP(2,0)="incomplete (imprecise dates must have at least month and year). The "
91 S DGWP(3,0)="following date fields can trigger this inconsistency: SOMALIA FROM DATE,"
92 S DGWP(4,0)="SOMALIA TO DATE, YUGOSLAVIA FROM DATE, YUGOSLAVIA TO DATE, PANAMA FROM "
93 S DGWP(5,0)="DATE, PANAMA TO DATE, GRENADA FROM DATE, GRENADA TO DATE, LEBANON FROM "
94 S DGWP(6,0)="DATE, LEBANON TO DATE, VIETNAM FROM DATE, VIETNAM TO DATE, GULF WAR FROM"
95 S DGWP(7,0)="DATE, GULF WAR TO DATE."
96 Q
9775 ;
98 S @ROOT@(.01)="CONFLICT TO DT BEFORE FROM DT"
99 S @ROOT@(2)="CONFLICT TO DATE PRECEDES THE CONFLICT FROM DATE"
100 S @ROOT@(3)=3
101 S @ROOT@(50)="DGWP"
102 S DGWP(1,0)="This inconsistency results when a conflict to date is prior to a conflict "
103 S DGWP(2,0)="from date. The following date fields can trigger this inconsistency:"
104 S DGWP(3,0)="SOMALIA FROM DATE, SOMALIA TO DATE, YUGOSLAVIA FROM DATE, YUGOSLAVIA TO"
105 S DGWP(4,0)="DATE, PANAMA FROM DATE, PANAMA TO DATE, GRENADA FROM DATE, GRENADA TO"
106 S DGWP(5,0)="DATE, LEBANON FROM DATE, LEBANON TO DATE, VIETNAM FROM DATE, VIETNAM TO"
107 S DGWP(6,0)="DATE, GULF WAR FROM DATE, GULF WAR TO DATE."
108 Q
10976 ;
110 S @ROOT@(.01)="INACCURATE CONFLICT DATE"
111 S @ROOT@(2)="CONFLICT DATE IS NOT WITHIN THE ACCEPTABLE CONFLICT DATE RANGE"
112 S @ROOT@(3)=3
113 S @ROOT@(50)="DGWP"
114 S DGWP(1,0)="This inconsistency results when a conflict from and/or to date is not "
115 S DGWP(2,0)="within the designated date ranges for the specific conflict."
116 S DGWP(3,0)=" "
117 S DGWP(4,0)="The following date fields can trigger this inconsistency:"
118 S DGWP(5,0)="SOMALIA FROM DATE, SOMALIA TO DATE, YUGOSLAVIA FROM DATE, YUGOSLAVIA TO"
119 S DGWP(6,0)="DATE, PANAMA FROM DATE, PANAMA TO DATE, GRENADA FROM DATE, GRENADA TO"
120 S DGWP(7,0)="DATE, LEBANON FROM DATE, LEBANON TO DATE, VIETNAM FROM DATE, VIETNAM TO"
121 S DGWP(8,0)="DATE, GULF WAR FROM DATE, GULF WAR TO DATE."
122 Q
12377 ;
124 S @ROOT@(.01)="INACCURATE POW DT/LOCATION"
125 S @ROOT@(2)="POW DATE(S) AND LOCATION DO NOT MATCH"
126 S @ROOT@(3)=3
127 S @ROOT@(50)="DGWP"
128 S DGWP(1,0)="This inconsistency results when the POW from and/or to date is not "
129 S DGWP(2,0)="within the designated date range for the specified POW LOCATION."
130 Q
13178 ;
132 S @ROOT@(.01)="INACCURATE COMBAT DT/LOC"
133 S @ROOT@(2)="COMBAT DATES ARE NOT VALID FOR SPECIFIED LOCATION"
134 S @ROOT@(3)=3
135 S @ROOT@(50)="DGWP"
136 S DGWP(1,0)="This inconsistency results when the COMBAT from and/or to date is "
137 S DGWP(2,0)="not within the designated date range for the specified COMBAT LOCATION."
138 Q
13979 ;
140 S @ROOT@(.01)="MSE DATES OVERLAP"
141 S @ROOT@(2)="MSE DATES OVERLAP"
142 S @ROOT@(3)=3
143 S @ROOT@(50)="DGWP"
144 S DGWP(1,0)="This inconsistency results when more than one Military Service "
145 S DGWP(2,0)="Episode exists for this patient on a single day."
146 Q
14780 ;
148 S @ROOT@(.01)="POW DT NOT WITHIN MSE"
149 S @ROOT@(2)="POW DATES ARE NOT WITHIN THE MSE RANGE"
150 S @ROOT@(3)=3
151 S @ROOT@(50)="DGWP"
152 S DGWP(1,0)="This inconsistency results when the entered POW From/To Dates are not "
153 S DGWP(2,0)="within the patient's military service episodes."
154 Q
15581 ;
156 S @ROOT@(.01)="COMBAT DT NOT WITHIN MSE"
157 S @ROOT@(2)="COMBAT DATE IS NOT WITHIN THE MSE RANGE"
158 S @ROOT@(3)=3
159 S @ROOT@(50)="DGWP"
160 S DGWP(1,0)="This inconsistency results when the entered COMBAT From/To Dates are not"
161 S DGWP(2,0)="within the patient's military service episodes."
162 Q
16382 ;
164 S @ROOT@(.01)="CONFLICT DT NOT WITHIN MSE"
165 S @ROOT@(2)="CONFLICT DATES ARE NOT WITHIN MSE DATE RANGE"
166 S @ROOT@(3)=3
167 S @ROOT@(50)="DGWP"
168 S DGWP(1,0)="This inconsistency results when the entered Conflict From/To Dates are not"
169 S DGWP(2,0)="within the patient's military service episodes."
170 S DGWP(3,0)=" "
171 S DGWP(4,0)="The following fields could cause this inconsistency to occur: SOMALIA"
172 S DGWP(5,0)="FROM DATE, SOMALIA TO DATE, YUGOSLAVIA FROM DATE, YUGOSLAVIA TO DATE,"
173 S DGWP(6,0)="PANAMA FROM DATE, PANAMA TO DATE, GRENADA FROM DATE, GRENADA TO DATE,"
174 S DGWP(7,0)="LEBANON FROM DATE, LEBANON TO DATE, VIETNAM FROM DATE, VIETNAM TO DATE,"
175 S DGWP(8,0)="GULF WAR FROM DATE, GULF WAR TO DATE."
176 Q
17783 ;
178 S @ROOT@(.01)="BOS REQUIRES DATE W/IN WWII"
179 S @ROOT@(2)="MERCH SEA OR FILIPINO VET BOS REQUIRES SERVICE DATES DURING WWII"
180 S @ROOT@(3)=3
181 S @ROOT@(50)="DGWP"
182 S DGWP(1,0)="Inconsistency results when the Branch of Service is MERCHANT SEAMAN or"
183 S DGWP(2,0)="one of the Filipino Veteran branches of service (F.COMMONWEALTH,"
184 S DGWP(3,0)="F.GUERILLA, F.SCOUTS NEW, F.SCOUTS OLD) but neither the Military"
185 S DGWP(4,0)="Service Start Date nor the Service End Date is within World War II"
186 S DGWP(5,0)="(12/7/1941 - 8/15/1945)."
187 Q
18884 ;
189 S @ROOT@(.01)="FILIPINO VET, PROOF MISSING"
190 S @ROOT@(2)="FILIPINO VETERAN BOS WAS ENTERED, FILIPINO VET PROOF IS MISSING"
191 S @ROOT@(3)=3
192 S @ROOT@(50)="DGWP"
193 S DGWP(1,0)="Inconsistency results if a Filipino Veteran branch of service is entered"
194 S DGWP(2,0)="(F.COMMONWEATH, F.GUERILLA, or F.SCOUTS NEW) but the FILIPINO VET PROOF"
195 S DGWP(3,0)="field is left blank."
196 Q
19785 ;
198 S @ROOT@(.01)="FILIPINO VET SHOULD BE VET='Y'"
199 S @ROOT@(2)="VERIFIED FILIPINO VETERAN SHOULD HAVE A VETERAN STATUS OF 'YES'"
200 S @ROOT@(3)=3
201 S @ROOT@(50)="DGWP"
202 S DGWP(1,0)="Inconsistency results if a veteran has a Filipino Veteran branch of"
203 S DGWP(2,0)="service (F.COMMONWEALTH, F.GUERILLA, F.SCOUTS NEW, or F.SCOUTS OLD),"
204 S DGWP(3,0)="military service dates during World War II, proof of F.Vet eligibility"
205 S DGWP(4,0)="(for the first three BOS only), but the Veteran Status is not 'YES'."
206 Q
Note: See TracBrowser for help on using the repository browser.