source: FOIAVistA/tag/r/CMOP-PSX/PSXBPOST.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 593 bytes
Line 
1PSXBPOST ;BIR/HTW-Post Initialization Routine;8/15/95 [ 08/25/95 3:28 PM ]
2 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**2**;10 May 95
3 N I,NAME,DIE,DR,DA
4REM F I="PSX ARCHIVE","PSX ARCHIVE PURGE","PSX ARCHIVE RETRIEVE","PSX ARCHIVE SAVE" D
5 .S DA=$O(^DIC(19,"B",I,0)) Q:'DA
6 .S DIK="^DIC(19," D ^DIK
7 K DIK,DA
8 F I="PSXB ARCHIVE","PSXB ARCHIVE PURGE","PSXB ARCHIVE RETRIEVE","PSXB ARCHIVE SAVE" D
9 .S NAME="PSX"_$P(I,"B",2),DA=$O(^DIC(19,"B",I,0)) Q:'DA
10 .S DIE="^DIC(19,",DR=".01////"_NAME
11 .D ^DIE
12 .W !,"Option ",I," renamed ",NAME
13 W !!,"Installation complete!"
14 K DA,NAME,DIE,DR,I
15 Q
Note: See TracBrowser for help on using the repository browser.