|
Last change
on this file since 1755 was 613, checked in by George Lilly, 16 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.
