| [613] | 1 | PSSSEE ;BIR/ASJ-SYNONYM DRUG ENTER/EDIT ROUTINE ; 01/21/00 13:30
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**37,57,70,77,82,125**;09/30/97;Build 2
|
|---|
| 3 | ;Reference to ^PS(59 supported by DBIA #1976
|
|---|
| 4 | ;
|
|---|
| 5 | N PSDRUG,PSSFLAG,XX,DVER,DMFU,DNSNAM,DNSPORT S XX=""
|
|---|
| 6 | BEGIN S PSSFLAG=0 D ^PSSDEE2 F PSSXX=1:1 K DA D ASK Q:PSSFLAG
|
|---|
| 7 | DONE D ^PSSDEE2 K PSSFLAG W @IOF Q
|
|---|
| 8 | ASK W ! S DIC="^PSDRUG(",DIC(0)="QEAMN" D ^DIC K DIC I Y<0 S PSSFLAG=1 Q
|
|---|
| 9 | S DA=+Y,DISPDRG=DA L +^PSDRUG(DISPDRG):$S($G(DILOCKTM)>0:DILOCKTM,1:3) I '$T W !,$C(7),"Another person is editing this one." Q
|
|---|
| 10 | D COMMON I '$G(PSSHUIDG) D DRG^PSSHUIDG(DISPDRG) D L -^PSDRUG(DISPDRG)
|
|---|
| 11 | . F XX=0:0 S XX=$O(^PS(59,XX)) Q:'XX D
|
|---|
| 12 | ..S DVER=$$GET1^DIQ(59,XX_",",105,"I"),DMFU=$$GET1^DIQ(59,XX_",",105.2)
|
|---|
| 13 | ..I DVER="2.4" S DNSNAM=$$GET1^DIQ(59,XX_",",2006),DNSPORT=$$GET1^DIQ(59,XX_",",2007) I DNSNAM'=""&(DMFU="YES") D DRG^PSSDGUPD(DISPDRG,"",DNSNAM,DNSPORT)
|
|---|
| 14 | Q
|
|---|
| 15 | COMMON S DIE="^PSDRUG(",DR="[PSS SYNONYM]" D ^DIE K DIE,DR,DA,Y
|
|---|
| 16 | Q
|
|---|
