Last change
on this file since 752 was 628, checked in by George Lilly, 15 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.