| 1 | PSOHLSN3 ;BIR/SJA - Send order info to OERR from file 52 ;10/05/06
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**225**;DEC 1997;Build 29
|
|---|
| 3 | ;
|
|---|
| 4 | ORC ; Called from PSOHLSN1 due to it's routine size.
|
|---|
| 5 | S LIMIT=15 X NULLFLDS
|
|---|
| 6 | S FIELD(0)="ORC"
|
|---|
| 7 | S FIELD(1)=$G(STAT)
|
|---|
| 8 | I $G(STAT)'="SN",$G(STAT)'="ZC" S FIELD(2)=$P($G(^PSRX(PSRXIEN,"OR1")),"^",2)
|
|---|
| 9 | S:FIELD(2)'="" FIELD(2)=FIELD(2)_$S($G(PLACERXX):";"_PLACERXX,1:"")_"^OR"
|
|---|
| 10 | S FIELD(3)=PSRXIEN_"^PS"
|
|---|
| 11 | S FIELD(5)=$G(PSSTAT)
|
|---|
| 12 | I $G(STAT)="RO",$G(PSOROPCH)'="PATCH" S FIELD(5)="CM"
|
|---|
| 13 | I $G(FIELD(5))="" I $G(STAT)="OR"!($G(STAT)="OE") S FIELD(5)="CM"
|
|---|
| 14 | S X=$P($G(^PSRX(PSRXIEN,2)),"^") I X S FIELD(9)=$$FMTHL7^XLFDT(X)
|
|---|
| 15 | S EDUZ=$P($G(^PSRX(PSRXIEN,0)),"^",16) I EDUZ S FIELD(10)=EDUZ_"^"_$P($G(^VA(200,EDUZ,0)),"^")
|
|---|
| 16 | I $G(PSOCANRC),$G(PSOCANRN)'="" I $G(STAT)="OD"!($G(STAT)="OC") S FIELD(12)=$G(PSOCANRC)_"^"_$G(PSOCANRN)
|
|---|
| 17 | I '$G(FIELD(12)) S FIELD(12)=$P($G(^PSRX(PSRXIEN,0)),"^",4)_"^"_$P($G(^VA(200,+$P($G(^PSRX(PSRXIEN,0)),"^",4),0)),"^")
|
|---|
| 18 | S PSOHISSD="",X=$P($G(^PSRX(PSRXIEN,0)),"^",13) I X S PSOHISSD=$$FMTHL7^XLFDT(X)
|
|---|
| 19 | S FIELD(15)=$G(PSOHISSD) K X
|
|---|
| 20 | D SEG^PSOHLSN1
|
|---|
| 21 | I $G(COMM)'=""!($G(PSNOO)'="") D
|
|---|
| 22 | .I $G(PSNOO)'="" D NOO^PSOHLSN1
|
|---|
| 23 | .I $L($G(COMM))+($L(MSG(COUNT)))+($L($G(PSNOOTX)))+($S($G(PSNOO)'="":11,1:5))<245 S MSG(COUNT)=MSG(COUNT)_"|"_$G(PSNOO)_"^"_$G(PSNOOTX)_"^"_$S($G(PSNOO)'="":"99ORN",1:"")_"^^"_$G(COMM)_"^" Q
|
|---|
| 24 | .S MSG(COUNT,1)="|"_$G(PSNOO)_"^"_$G(PSNOOTX)_"^"_$S($G(PSNOO)'="":"99ORN",1:"")_"^^"_$G(COMM)_"^"
|
|---|
| 25 | Q
|
|---|
