- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOORED6.m
r628 r636 1 1 PSOORED6 ;BIR/SAB - edit orders from backdoor ;03/06/96 2 ;;7.0;OUTPATIENT PHARMACY;**78,104,117,133,143,219,148,247,268,260 ,269**;DEC 1997;Build42 ;;7.0;OUTPATIENT PHARMACY;**78,104,117,133,143,219,148,247,268,260**;DEC 1997;Build 84 3 3 ;External reference to ^PSDRUG supported by DBIA 221 4 4 ;External reference to ^PS(50.7 supported by DBIA 2223 … … 52 52 S DIC("B")=$P(^PS(50.7,PSOI,0),"^"),DIC="^PS(50.7,",DIC(0)="AEMQZ" 53 53 S DIC("S")="I '$P(^PS(50.7,+Y,0),""^"",4)!($P(^(0),""^"",4)'<DT) N PSOF,PSOL S (PSOF,PSOL)=0 F S PSOL=$O(^PSDRUG(""ASP"",+Y,PSOL)) Q:PSOF!'PSOL " 54 S DIC("S")=DIC("S")_"I $P($G(^PSDRUG(PSOL,2)),U,3)[""O"",'$G(^(""I""))!($G(^(""I""))'<DT) S PSOF=1" 55 ;BHW;PSO*7*269;Modify ^DIC call to call MIX^DIC to use only the B and C Cross-References. 56 S D="B^C" D MIX^DIC1 I "^"[X S PSORXED("DFLG")=1 Q 54 S DIC("S")=DIC("S")_"I $P($G(^PSDRUG(PSOL,2)),U,3)[""O"",'$G(^(""I""))!($G(^(""I""))'<DT) S PSOF=1" D ^DIC I "^"[X S PSORXED("DFLG")=1 Q 57 55 G:Y<1 PSOI Q:PSOI=+Y 58 56 S PSODRUG("OI")=+Y,PSODRUG("OIN")=Y(0,0) K DIC
Note:
See TracChangeset
for help on using the changeset viewer.