- Timestamp:
- Dec 4, 2009, 8:26:01 PM (15 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOHLSN.m
r628 r636 1 1 PSOHLSN ;BIR/RTR-Send order information to OERR from file 52.41 ;10/10/94 2 ;;7.0;OUTPATIENT PHARMACY;**1,7,15,24,27,30,55,46,98,88,121 ,292**;DEC 1997;Build 12 ;;7.0;OUTPATIENT PHARMACY;**1,7,15,24,27,30,55,46,98,88,121**;DEC 1997 3 3 ;Externel reference EN^ORERR supported by DBIA 2187 4 4 ; … … 12 12 I '$G(PSIEN) Q 13 13 I $G(STAT)="OC"!($G(STAT)="OD")!($G(STAT)="CR")!($G(STAT)="DR") D 14 .D CHKOLDRX15 14 .I $D(^PS(52.41,PSIEN,0)) K ^PS(52.41,"AD",$P(^PS(52.41,PSIEN,0),"^",12),+$P($G(^("INI")),"^"),PSIEN),^PS(52.41,"ACL",+$P(^PS(52.41,PSIEN,0),"^",13),+$P(^(0),"^",12),PSIEN),^PS(52.41,"AQ",+$P($G(^PS(52.41,PSIEN,0)),"^",21),PSIEN) 16 15 S PSZERO=$G(^PS(52.41,PSIEN,0)),PSOHSTAT=$G(STAT) … … 161 160 .S PVAR=$S(PVAR="":PVAR1,1:PVAR_PVAR1) 162 161 Q 163 CHKOLDRX ; when dc a pending renewal - if prior Rx is expired, set piece 19 to 1 so will update CPRS from 'renewed' to 'expired' in PSOHLSN1164 N PSOOLD165 S PSOOLD=$P($G(^PS(52.41,PSIEN,0)),"^",21)166 I PSOOLD'="",$P($G(^PSRX(PSOOLD,"STA")),"^")=11 S $P(^PSRX(PSOOLD,0),"^",19)=1167 Q
Note:
See TracChangeset
for help on using the changeset viewer.