Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
756 bytes
|
Rev | Line | |
---|
[613] | 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.