| 1 | PSNDELTE ;BIRM/WRT-Deletes PMI files for PMI Update Patches ; 10/27/03 10:27
|
|---|
| 2 | ;;4.0; NATIONAL DRUG FILE;**75**; 30 Oct 98
|
|---|
| 3 | Q
|
|---|
| 4 | START ; Begin update process
|
|---|
| 5 | W !!,"This option will run the auto-mapping process. This will be accomplished by",!,"taking NDCs from NDC/UPN file #50.67 and the VA Products tied to these NDCs"
|
|---|
| 6 | W !,"in file #50.68 AND attempt to find a match in PMI NDC/GCNSEQNO file #50.628."
|
|---|
| 7 | W ! S DIR("A")="Are you sure you are ready to proceed? "
|
|---|
| 8 | S DIR("B")="NO",DIR(0)="YA" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q
|
|---|
| 9 | I Y=0 Q
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | ;
|
|---|
| 13 | BEGIN I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0,$D(DUZ(0))#2,DUZ(0)="@" G TEXT
|
|---|
| 14 | E W !!,"You must be a valid user with DUZ(0)=""@"""
|
|---|
| 15 | Q
|
|---|
| 16 | TEXT W !,"This option will automatically DELETE all Patient Medication Information Sheet",!,"data from your system."
|
|---|
| 17 | W !!,"If you are not absolutely sure what you are about to do, exit this option",!,"immediately by entering ""^"" at the next prompt."
|
|---|
| 18 | W !!,"This option should only be used when installing a update Patient Medication",!,"Information Sheet Data Update patch."
|
|---|
| 19 | W "Immediately after running this option, the",!,"new data global MUST be installed using instructions from the Patient Medication",!,"Sheet Data Update patch."
|
|---|
| 20 | W !,"You are about to DELETE ALL Patient Medication Sheet data from the following",!,"files:",!
|
|---|
| 21 | W !!,?7,"50.621 PMI-ENGLISH ^PS(50.621,"
|
|---|
| 22 | W !,?7,"50.622 PMI-SPANISH ^PS(50.622,"
|
|---|
| 23 | W !,?7,"50.623 PMI MAP-ENGLISH ^PS(50.623,"
|
|---|
| 24 | W !,?7,"50.624 PMI MAP-SPANISH ^PS(50.624,"
|
|---|
| 25 | W !,?7,"50.625 WARNING LABEL-ENGLISH ^PS(50.625,"
|
|---|
| 26 | W !,?7,"50.626 WARNING LABEL-SPANISH ^PS(50.626,"
|
|---|
| 27 | W !,?7,"50.627 WARNING LABEL MAP ^PS(50.627,"
|
|---|
| 28 | W ! S DIR("A")="Are you sure you want to delete the Patient Medication Information Sheet data? "
|
|---|
| 29 | S DIR("B")="NO",DIR(0)="YA" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q
|
|---|
| 30 | I Y=0 Q
|
|---|
| 31 | D SECND
|
|---|
| 32 | Q
|
|---|
| 33 | SECND ; Ask a second time
|
|---|
| 34 | W !!,"Because running this process inadvertently could cause serious problems, you",!,"will be asked to confirm that you want to proceed."
|
|---|
| 35 | K DIR W ! S DIR("A")="Are you sure you are ready to proceed, deleting the Patient Medication Information Sheet data? "
|
|---|
| 36 | S DIR("B")="NO",DIR(0)="YA" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) Q
|
|---|
| 37 | I Y=0 Q
|
|---|
| 38 | DELETE K ^PS(50.621),^PS(50.622),^PS(50.623),^PS(50.624),^PS(50.625),^PS(50.626),^PS(50.627)
|
|---|
| 39 | W !!,"Deleting all Patient Medication Information Sheet data...",!,"The deletion process has completed.",!!,"Now, IMMEDIATELY install (restore) the new data global from the latest"
|
|---|
| 40 | W !,"Patient Medication Information Sheet data update patch."
|
|---|
| 41 | Q
|
|---|
