Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
756 bytes
|
Line | |
---|
1 | XU8P378 ;OOIFO/SO- POST XU378 DRIVER ;7:06 AM 27 Dec 2005
|
---|
2 | ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
|
---|
3 | ;
|
---|
4 | D ^XU8P378A ;Make any edits to the State & County Code files
|
---|
5 | ;
|
---|
6 | ; Set current C xrefs in 5 to Q
|
---|
7 | S ^DD(5,1,1,1,1)="Q"
|
---|
8 | S ^DD(5,1,1,1,2)="Q"
|
---|
9 | S ^DD(5,1,1,1,3)="Used in conjunction with the 'ADUALC' xref."
|
---|
10 | S ^DD(5,1,"DT")=$G(DT)
|
---|
11 | S ^DD(5,2,1,1,1)="Q"
|
---|
12 | S ^DD(5,2,1,1,2)="Q"
|
---|
13 | S ^DD(5,2,1,1,3)="Used in conjunction with the 'ADUALC' xref."
|
---|
14 | S ^DD(5,2,"DT")=$G(DT)
|
---|
15 | ;
|
---|
16 | D ^XU8P378B ;Install new ADUALC xref
|
---|
17 | D ^XU8P378C ;Make DD changes for files 5, 5.12, & 5.13
|
---|
18 | D EP1^XIPSYNC ;Sync file 5 to file 5.13
|
---|
19 | ; Clean up COUNTY CODE(#5.13) file first
|
---|
20 | S TMPA="" D ^XIPMAILA K TMPA
|
---|
21 | ; Clean up STATE(#5) file first
|
---|
22 | S TMPB="" D ^XIPMAILB K TMPB
|
---|
23 | D ^XIPMAIL
|
---|
24 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.