source: FOIAVistA/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSDFEE.m@ 1590

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1PSSDFEE ;BIR/ASJ-VARIOUS FILES ENTER EDIT ROUTINE ;01/21/00
2 ;;1.0;PHARMACY DATA MANAGEMENT;**38,48,125**;9/30/97;Build 2
3DF ;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
7MR ;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
11CF ;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 ;
18EDT(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
Note: See TracBrowser for help on using the repository browser.