| 1 | PSSTXT ;BIR/WRT-Edit DRUG TEXT file routine ; 11/15/01 8:11
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**29,55**;9/30/97
|
|---|
| 3 | BEGIN S PSSNFI=1,PSSFG=0 W !,"This option enables you to edit entries in the DRUG TEXT file.",!! F PSSQQ=1:1 K DA D ASK Q:PSSFG
|
|---|
| 4 | DONE K DA,PSSFG,PSSQQ,PSSNFI,NAME,PSSENT,PSSBEG,PSSEND,PSSSRT,PSSXX
|
|---|
| 5 | K %,D,D0,DI,DIE,DLAYGO,DQ,DR,X,Y
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | ASK W ! S DIC="^PS(51.7,",DIC(0)="QEALMN",DLAYGO=51.7 D ^DIC K DIC I Y<0 S PSSFG=1 Q
|
|---|
| 9 | S PSSENT=+Y D WRIT,REVW W ! S DA=PSSENT S DIE="^PS(51.7,"
|
|---|
| 10 | D NAME I PSSFG Q
|
|---|
| 11 | D TEXT I PSSFG Q
|
|---|
| 12 | W !
|
|---|
| 13 | S DR="1;2" D ^DIE,CHECKI
|
|---|
| 14 | Q
|
|---|
| 15 | CHECK I '$O(^PS(51.7,DA,2,0)),'$D(^PS(50.7,"DTXT",DA)),'$D(^PSDRUG("DTXT",DA)) S DIK="^PS(51.7," D ^DIK K DIK
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | WRIT W !!,"There may be entries in your DRUG file and PHARMACY ORDERABLE ITEM file linked",!,"to this Drug Text Name. Editing information related to this Drug Text entry",!
|
|---|
| 19 | W "will affect the display of information related to these.",!
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | REVW K DIR S DIR("A")="Do you want to review the list of drugs and orderable items linked to this Drug Text entry? ",DIR(0)="Y",DIR("B")="YES"
|
|---|
| 23 | S DIR("?",1)="Answering 'Yes' will list all entries in the Drug file or Orderable Item file",DIR("?",2)="that are linked to this drug text entry. The list could be long, so a "
|
|---|
| 24 | S DIR("?")="device can be entered to print a hard copy, if desired."
|
|---|
| 25 | D ^DIR K DIR
|
|---|
| 26 | I Y=1 D D RPT^PSSDTR
|
|---|
| 27 | . S PSSSRT="S"
|
|---|
| 28 | . S (PSSXX,PSSBEG,PSSEND)=$P($G(^PS(51.7,PSSENT,0)),"^",1)
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | OUTMSG W !!,"IMPORTANT!! After editing the Drug Text Name OR Text, review the drugs and",!?12,"orderable items linked to this entry for accuracy."
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | CHECKI I $P($G(^PS(51.7,DA,0)),"^",2) D MSG
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | MSG W !!,"Because this entry was inactivated, drugs and orderable items that are linked",!,"to this entry will no longer display the text associated with this entry."
|
|---|
| 38 | W !,"You should review all drugs and orderable items associated with this Drug Text",!,"entry and update appropriately.",!
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | NAME ;
|
|---|
| 42 | N PSSNAME
|
|---|
| 43 | W ! K DIR S DIR(0)="Y",DIR("A")="Do you want to edit the Drug Text Name",DIR("B")="NO" D ^DIR K DIR
|
|---|
| 44 | I X["^" S PSSFG=1 Q
|
|---|
| 45 | D OUTMSG
|
|---|
| 46 | I '$G(Y) Q
|
|---|
| 47 | S PSSNAME=$P($G(^PS(51.7,DA,0)),"^",1)
|
|---|
| 48 | W ! K DIR S DIR(0)="FO^1:75",DIR("A")="Drug Text Name: ",DIR("B")=PSSNAME D ^DIR K DIR
|
|---|
| 49 | I $G(X)["^" S PSSFG=1 Q
|
|---|
| 50 | I X'="",X'=PSSNAME D
|
|---|
| 51 | . I X["@" W " **DELETIONS ARE NOT ALLOWED!" Q
|
|---|
| 52 | . S ^PS(51.7,"B",X,DA)="" K ^PS(51.7,"B",PSSNAME,DA)
|
|---|
| 53 | . S $P(^PS(51.7,DA,0),"^",1)=X
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
| 56 | TEXT ;
|
|---|
| 57 | W ! K DIR S DIR(0)="Y",DIR("A")="Do you want to edit the text for this entry",DIR("B")="YES" D ^DIR K DIR
|
|---|
| 58 | I $G(X)["^" S PSSFG=1 Q
|
|---|
| 59 | I '+($G(Y)) Q
|
|---|
| 60 | S DR="3" D ^DIE,CHECK
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
