source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCH212P.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 702 bytes
Line 
1PRCH212P ;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.
14START ;
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.