Routine: PRC51154

PRC51154 ;SSOI&TFO/LKG - POST-INIT PRC*5.1*154 ;1/5/11  16:02

 ;;5.1;IFCAP;**154**;OCT 20, 2000;Build 5

 ;;Per VHA Directive 2004-038, this routine should not be modified.

POST ;Post-Init code to index new AF cross reference in INVOICE TRACKING file (#421.5)

 L +^PRCF(421.5):30

 K ^PRCF(421.5,"AF")

 N DIK S DIK="^PRCF(421.5,",DIK(1)="61.9^AF" D ENALL^DIK

 L -^PRCF(421.5)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC51154   394     printed  Mar 13, 2025@21:04:28                                                                                                                                                                                                     Page 2

PRC51154  ;SSOI&TFO/LKG - POST-INIT PRC*5.1*154 ;1/5/11  16:02

 +1       ;;5.1;IFCAP;**154**;OCT 20, 2000;Build 5

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4        QUIT

POST      ;Post-Init code to index new AF cross reference in INVOICE TRACKING file (#421.5)

 +1        LOCK +^PRCF(421.5):30

 +2        KILL ^PRCF(421.5,"AF")

 +3        NEW DIK

           SET DIK="^PRCF(421.5,"

           SET DIK(1)="61.9^AF"

           DO ENALL^DIK

 +4        LOCK -^PRCF(421.5)

 +5        QUIT

PRC51154.m