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