source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOCAN3N.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 588 bytes
Line 
1PSOCAN3N ;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
4RMP ;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.