| [623] | 1 | PSOORFI5 ;VOE/mpa -finish cprs orders ; 1/15/07 5:40pm
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**208**;DEC 2006;Build 39
|
|---|
| 3 | ; Copyright (C) 2007 WorldVistA
|
|---|
| 4 | ;
|
|---|
| 5 | ; This program is free software; you can redistribute it and/or modify
|
|---|
| 6 | ; it under the terms of the GNU General Public License as published by
|
|---|
| 7 | ; the Free Software Foundation; either version 2 of the License, or
|
|---|
| 8 | ; (at your option) any later version.
|
|---|
| 9 | ;
|
|---|
| 10 | ; This program is distributed in the hope that it will be useful,
|
|---|
| 11 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|---|
| 12 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|---|
| 13 | ; GNU General Public License for more details.
|
|---|
| 14 | ;
|
|---|
| 15 | ; You should have received a copy of the GNU General Public License
|
|---|
| 16 | ; along with this program; if not, write to the Free Software
|
|---|
| 17 | ; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|---|
| 18 | ;'Modified' MAS Patient Look-up Check Cross-References June 1987
|
|---|
| 19 | ;Split from PSOORFIN
|
|---|
| 20 | SUCC ;
|
|---|
| 21 | D UL1^PSOORFI3,FULL^VALM1
|
|---|
| 22 | D:$P($G(^PS(52.41,+$G(ORD),0)),"^",3)'="NW"&($P($G(^(0)),"^",3)'="RNW")&($P($G(^(0)),"^",3)'="HD")&($P($G(^(0)),"^",3)'="RF")
|
|---|
| 23 | .K PSOSD("PENDING",$S('$G(OID):$P(^PS(50.7,$P(OR0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^PS(50.7,$P(OR0,"^",8),0),"^",2),0),"^"),1:$P(^PSDRUG($P(OR0,"^",9),0),"^")))
|
|---|
| 24 | S:$G(POERR("DFLG")) POERR("QFLG")=1 K POERR("DFLG"),PSONEW,ACP,OR0,DRET,SIG,OID,OI,PSORX("SC"),PSORX("CLINIC"),PSODRUG
|
|---|
| 25 | Q
|
|---|
| 26 | LBL ;Begin DAOU
|
|---|
| 27 | S PSOFROM="NEW" D ^PSORXL
|
|---|
| 28 | K PSORX("PSOL"),PPL,RXRS
|
|---|
| 29 | ;End 5/4/2005
|
|---|
| 30 | Q
|
|---|
| 31 | CHK ;
|
|---|
| 32 | D:'$D(PSOPAR) ^PSOLSET I '$D(PSOPAR) W !,$C(7),"Outpatient Division MUST be selected!",! G EX^PSOORFIN
|
|---|
| 33 | D INST1^PSOORFI2
|
|---|
| 34 | S PSZCNT=0 F PSZZI=0:0 S PSZZI=$O(^PS(59,PSZZI)) Q:'PSZZI S PSZCNT=PSZCNT+1
|
|---|
| 35 | S TC=0 F TO=0:0 S TO=$O(^PS(52.41,"AOR",TO)) Q:'TO F TZ=0:0 S TZ=$O(^PS(52.41,"AOR",TO,TZ)) Q:'TZ F PSTZ=0:0 S PSTZ=$O(^PS(52.41,"AOR",TO,TZ,PSTZ)) Q:'PSTZ S TC=TC+1
|
|---|
| 36 | W !!?10,$C(7),"Orders to be completed"_$S(PSZCNT=1:": ",1:" for all divisions: ")_TC,! Q:'TC
|
|---|
| 37 | D SUMM^PSOORNE1 K PSZZI,PSZCNT,PSTZ
|
|---|
| 38 | Q
|
|---|
