|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
702 bytes
|
| Line | |
|---|
| 1 | PRCH212P ;WISC/CR - CLEAN UP OF EXTRA CROSS REF. IN FILE #442 ; 06/30/99
|
|---|
| 2 | ;;5.0;IFCAP;**212**;4/21/95
|
|---|
| 3 | ;
|
|---|
| 4 | ; Quit if entry point is not used.
|
|---|
| 5 | W $C(7),!!,"Illegal entry point.",!
|
|---|
| 6 | Q
|
|---|
| 7 | ; This is a post init routine that will be used with patch PRC*5*212
|
|---|
| 8 | ; to clean up extra "AB" cross references for field .1 of file #442.
|
|---|
| 9 | ; This cross reference is created when the P.O. DATE field is populated
|
|---|
| 10 | ; during the creation of a purchase order. After patch PRC*5*212 is
|
|---|
| 11 | ; installed, file #442 will be free from extra "AB" cross references.
|
|---|
| 12 | ; This routine should be deleted from th system upon installation of
|
|---|
| 13 | ; patch PRC*5*212.
|
|---|
| 14 | START ;
|
|---|
| 15 | K ^PRC(442,"AB")
|
|---|
| 16 | S DIK="^PRC(442,",DIK(1)=".1^AB"
|
|---|
| 17 | D ENALL^DIK
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
