PSXBPOST ;BIR/HTW-Post Initialization Routine;8/15/95 [ 08/25/95  3:28 PM ]
 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**2**;10 May 95
 N I,NAME,DIE,DR,DA
REM F I="PSX ARCHIVE","PSX ARCHIVE PURGE","PSX ARCHIVE RETRIEVE","PSX ARCHIVE SAVE" D
 .S DA=$O(^DIC(19,"B",I,0)) Q:'DA
 .S DIK="^DIC(19," D ^DIK
  K DIK,DA
 F I="PSXB ARCHIVE","PSXB ARCHIVE PURGE","PSXB ARCHIVE RETRIEVE","PSXB ARCHIVE SAVE" D
 .S NAME="PSX"_$P(I,"B",2),DA=$O(^DIC(19,"B",I,0)) Q:'DA
 .S DIE="^DIC(19,",DR=".01////"_NAME
 .D ^DIE
 .W !,"Option ",I," renamed ",NAME
 W !!,"Installation complete!"
 K DA,NAME,DIE,DR,I
 Q