| 1 | PSSDFEE ;BIR/ASJ-VARIOUS FILES ENTER EDIT ROUTINE ;01/21/00
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**38,48,125**;9/30/97;Build 2
|
|---|
| 3 | DF ;Dosage File Enter/Edit
|
|---|
| 4 | D ^PSSDEE2 N DIC,PSSDF
|
|---|
| 5 | F W !! S DIC(0)="QEAMZ",DIC="^PS(50.606,",DIC("S")="I '$P(^(0),""^"",2)!($P(^(0),""^"",2)>DT)" D ^DIC S PSSREC=+Y Q:PSSREC<0 W !!,"NAME: ",Y(0,0) D EDT(DIC,PSSREC,"[PSS DOSAGE FORM]",50.606)
|
|---|
| 6 | W ! Q
|
|---|
| 7 | MR ;Medication Routes File Enter/Edit
|
|---|
| 8 | D ^PSSDEE2 N DIC,PSSDF,DLAYGO
|
|---|
| 9 | F W !! S DIC(0)="QEAMZIL",DIC="^PS(51.2,",DLAYGO=51.2 D ^DIC Q:Y<0 S PSSREC=+Y D EDT(DIC,PSSREC,"[PSS MEDICATION ROUTES]",51.2)
|
|---|
| 10 | W ! Q
|
|---|
| 11 | CF ;Rx Consult File
|
|---|
| 12 | Q
|
|---|
| 13 | ; It was decided not to put this functionality in PSS*1*38
|
|---|
| 14 | D ^PSSDEE2 N DIC,PSSDF,DLAYGO
|
|---|
| 15 | F W !! S DIC(0)="QEAMZIL",DIC="^PS(54,",DLAYGO=54 D ^DIC Q:Y<0 S PSSREC=+Y D EDT(DIC,PSSREC,"[PSS RX CONSULT]",54)
|
|---|
| 16 | W @IOF Q
|
|---|
| 17 | ;
|
|---|
| 18 | EDT(DIE,DA,DR,PSFILE) ;
|
|---|
| 19 | N PSREC S PSREC=DA
|
|---|
| 20 | L +^PS(PSFILE,PSREC):$S($G(DILOCKTM)>0:DILOCKTM,1:3)
|
|---|
| 21 | I '$T W !,$C(7),"Another person is editing this one." Q
|
|---|
| 22 | D ^DIE K DIE,DR,DA,Y
|
|---|
| 23 | L -^PS(PSFILE,PSREC)
|
|---|
| 24 | Q
|
|---|
