PRCH212P.m

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 ---PRCH212P   720     printed  Mar 13, 2025@21:09:58                                                                                                                                                                                                     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