APC5POST.m

APC5POST ; OHPRD/LAB - POST INIT TO APC5 ; 

 ;;1.6;PCC DATA ENTRY;*2*;AUG 03, 1994

 ;

 D ^XBKSET

 W !,"I WILL NOW RE-COMPILE SOME TEMPLATES.",!!

 D ^APCDRECM

 ;

VIMM ;

 K ^AUPNVIMM("AQ")

 W !!,"Re-indexing the AQ cross reference on V Immunization.  Hold on...."

 S DIK="^AUPNVIMM(",DIK(1)=".04^AQ" D ENALL^DIK

 K DIK,DA,D0

 K DIADD,DLAYGO,DIC,DR,D0,DI,D1,DDH,DIE,DIK,DMAX,DNM,I,Y,X,DQ

 Q