source: FOIAVistA/trunk/r/NATIONAL_DRUG_FILE-PSN/PSNDELTE.m

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

initial load of FOIAVistA 6/30/08 version

File size: 2.6 KB
Line 
1PSNDELTE ;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
4START ; 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 ;
13BEGIN 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
16TEXT 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
33SECND ; 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
38DELETE 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
Note: See TracBrowser for help on using the repository browser.