Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
593 bytes
|
Line | |
---|
1 | PSXBPOST ;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
|
---|
4 | REM 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.