|
Last change
on this file since 702 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
