25 lines
1.0 KiB
Mathematica
25 lines
1.0 KiB
Mathematica
PSSDFEE ;BIR/ASJ-VARIOUS FILES ENTER EDIT ROUTINE ;01/21/00
|
|
;;1.0;PHARMACY DATA MANAGEMENT;**38,48,125**;9/30/97;Build 2
|
|
DF ;Dosage File Enter/Edit
|
|
D ^PSSDEE2 N DIC,PSSDF
|
|
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)
|
|
W ! Q
|
|
MR ;Medication Routes File Enter/Edit
|
|
D ^PSSDEE2 N DIC,PSSDF,DLAYGO
|
|
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)
|
|
W ! Q
|
|
CF ;Rx Consult File
|
|
Q
|
|
; It was decided not to put this functionality in PSS*1*38
|
|
D ^PSSDEE2 N DIC,PSSDF,DLAYGO
|
|
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)
|
|
W @IOF Q
|
|
;
|
|
EDT(DIE,DA,DR,PSFILE) ;
|
|
N PSREC S PSREC=DA
|
|
L +^PS(PSFILE,PSREC):$S($G(DILOCKTM)>0:DILOCKTM,1:3)
|
|
I '$T W !,$C(7),"Another person is editing this one." Q
|
|
D ^DIE K DIE,DR,DA,Y
|
|
L -^PS(PSFILE,PSREC)
|
|
Q
|