|
Last change
on this file since 660 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.
