Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
588 bytes
|
Rev | Line | |
---|
[613] | 1 | PSOCAN3N ;BIR/RTR/SAB/SJA - auto dc rxs due to death ;06/29/07 11:45am
|
---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**225**;DEC 1997;Build 29
|
---|
| 3 | Q
|
---|
| 4 | RMP ;remove Rx if found in array PSORX("PSOL") (Label Queue)
|
---|
| 5 | Q:'$D(PSORX("PSOL")) S:'$G(DA) DA=$P(PSOLST(ORN),"^",2)
|
---|
| 6 | N I,J,FND,ST1,ST2,ST3 S I=0
|
---|
| 7 | F S I=$O(PSORX("PSOL",I)) Q:'I D
|
---|
| 8 | . S ST1=PSORX("PSOL",I) Q:ST1'[(DA_",")
|
---|
| 9 | . S ST3="",FND=0
|
---|
| 10 | . F J=1:1 S ST2=$P(ST1,",",J) Q:'ST2 D
|
---|
| 11 | . . I ST2=DA S FND=1 Q
|
---|
| 12 | . . S ST3=ST3_$S('ST3:"",1:",")_ST2
|
---|
| 13 | . I FND D
|
---|
| 14 | . . S:ST3]"" PSORX("PSOL",I)=ST3_","
|
---|
| 15 | . . K:ST3="" PSORX("PSOL",I)
|
---|
| 16 | . . D:$D(BBRX(I)) RMB^PSOCAN2(I)
|
---|
| 17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.