PRCH212P ;WISC/CR - CLEAN UP OF EXTRA CROSS REF. IN FILE #442 ; 06/30/99
;;5.0;IFCAP;**212**;4/21/95
;
; Quit if entry point is not used.
W $C(7),!!,"Illegal entry point.",!
Q
; This is a post init routine that will be used with patch PRC*5*212
; to clean up extra "AB" cross references for field .1 of file #442.
; This cross reference is created when the P.O. DATE field is populated
; during the creation of a purchase order. After patch PRC*5*212 is
; installed, file #442 will be free from extra "AB" cross references.
; This routine should be deleted from th system upon installation of
; patch PRC*5*212.
START ;
K ^PRC(442,"AB")
S DIK="^PRC(442,",DIK(1)=".1^AB"
D ENALL^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCH212P 720 printed Dec 13, 2024@02:05:10 Page 2
PRCH212P ;WISC/CR - CLEAN UP OF EXTRA CROSS REF. IN FILE #442 ; 06/30/99
+1 ;;5.0;IFCAP;**212**;4/21/95
+2 ;
+3 ; Quit if entry point is not used.
+4 WRITE $CHAR(7),!!,"Illegal entry point.",!
+5 QUIT
+6 ; This is a post init routine that will be used with patch PRC*5*212
+7 ; to clean up extra "AB" cross references for field .1 of file #442.
+8 ; This cross reference is created when the P.O. DATE field is populated
+9 ; during the creation of a purchase order. After patch PRC*5*212 is
+10 ; installed, file #442 will be free from extra "AB" cross references.
+11 ; This routine should be deleted from th system upon installation of
+12 ; patch PRC*5*212.
START ;
+1 KILL ^PRC(442,"AB")
+2 SET DIK="^PRC(442,"
SET DIK(1)=".1^AB"
+3 DO ENALL^DIK
+4 QUIT
