| [613] | 1 | PSOLMPAT ;BHAM ISC/SAB - update pharmacy patient data using listman ;03/08/93 8:35
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**15,117,149,233,268**;DEC 1997;Build 9
|
|---|
| 3 | ;External reference ^PS(55 supported by DBIA 2228
|
|---|
| 4 | ;
|
|---|
| 5 | EN I '$D(PSOPAR) D ^PSOLSET I '$D(PSOPAR) S VALMSG="Site Parameters must be Defined!" G EX
|
|---|
| 6 | D HLDHDR^PSOLMUTL S DA=DFN,PI=""
|
|---|
| 7 | I '$P($G(PSOPAR),"^",22),'$D(^XUSEC("PSO ADDRESS UPDATE",+$G(DUZ))) G P55
|
|---|
| 8 | L +^PS(55,DA):$S(+$G(^DD("DILOCKTM"))>0:+^DD("DILOCKTM"),1:3) I '$T D MSG G EX
|
|---|
| 9 | S PSODFN=DA D UPDATE^PSOBAI S DA=PSODFN
|
|---|
| 10 | W !
|
|---|
| 11 | L +^DPT(DA):$S(+$G(^DD("DILOCKTM"))>0:+^DD("DILOCKTM"),1:3) I '$T D MSG G EX
|
|---|
| 12 | S DIE="^DPT(",DR="[PSO OUTPT]"
|
|---|
| 13 | D FULL^VALM1,^DIE L -^DPT(DA)
|
|---|
| 14 | P55 I '$D(^PS(55,DFN)) K DIC S DIC="^PS(55,",DIC(0)="LZ",(X,DINUM)=DFN K DD,DO D FILE^DICN K DIC
|
|---|
| 15 | I $G(DFN),$P($G(^PS(55,DFN,0)),"^")="" S $P(^PS(55,DFN,0),"^")=DFN K DIK S DA=DFN,DIK="^PS(55,",DIK(1)=.01 D EN^DIK K DIK S DA=DFN
|
|---|
| 16 | S DIE="^PS(55,",DR=".02;.03;.05;.04;1;3;40:41.1;106;106.1" W !!?5,">>PHARMACY PATIENT DATA<<",! D ^DIE
|
|---|
| 17 | EX L -^PS(55,DA),-^DPT(DA) D ^PSOORUT2 S VALMBCK="R"
|
|---|
| 18 | K DIC,X,Y,DIE,D0,DA,DFN,PI,DR,%,%Y,%X,C,DI,DIPGM,DQ,PSOFROM
|
|---|
| 19 | Q
|
|---|
| 20 | MSG S VALMSG="Patient Data is Being Edited by Another User!" Q
|
|---|
