- 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/PSOHLSN1.m
r628 r636 1 1 PSOHLSN1 ;BIR/RTR - Send order info to OERR from file 52 ;10/10/94 2 ;;7.0;OUTPATIENT PHARMACY;**1,10,24,27,55,46,71,101,99,121,139,157,181,143,235,239 ,292**;DEC 1997;Build 12 ;;7.0;OUTPATIENT PHARMACY;**1,10,24,27,55,46,71,101,99,121,139,157,181,143,235,239**;DEC 1997 3 3 ;Ref #50.606-DBIA 2174 4 4 ;#50.607-2221 … … 21 21 S COUNT=0,NULLFLDS="F JJ=0:1:LIMIT S FIELD(JJ)=""""" 22 22 I '$D(^PSRX(PSRXIEN,0)) Q 23 I ($G(STAT)="SC"&($G(PSSTAT)="ZE"))!($G(STAT)="OC")!($G(STAT)="OD") I $D(^PS(52.41,"AQ",PSRXIEN)) D EN^PSOHDR("PRES",PSRXIEN) Q24 23 I STAT'="SN",STAT'="ZC",'$P($G(^PSRX(PSRXIEN,"OR1")),"^",2) Q 25 24 I $G(STAT)="SC",$G(PSSTAT)="ZE" S $P(^PSRX(PSRXIEN,0),"^",19)=2
Note:
See TracChangeset
for help on using the changeset viewer.