source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSQORD.m@ 1639

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PSSQORD ;BIR/RTR-POE Quick Order Conversion ;08/21/00
2 ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97
3 ;S X=$$EN^PSSQORD(V1,V2)
4 ;V1=Orderable Item of Quick Order
5 ;V2=Dispense Drug of the Quick Order
6 ;If we get V2, we get current OI, and return
7 ; piece 1 is returned as IEN from 50.7
8 ; piece 2 is 1 if active
9 ; piece 2 is 0 if inactive
10 ; piece 3 is the inactive date, only if piece 2 is 0
11EN(PSS1,PSS2) ;
12 N PSSNW,PSSNEWIT,PSSDT,PSSLA,PSSLS,PSSOFLAG,PSSDR
13 I '$G(PSS1),'$G(PSS2) Q -1
14 I $G(PSS2) S PSSNEWIT=+$P($G(^PSDRUG(PSS2,2)),"^") G AC
15 I '$D(^PS(50.7,+$G(PSS1),0)) Q -1
16 I '$P($G(^PS(50.7,+$G(PSS1),0)),"^",3) S PSSNEWIT=$G(PSS1) G AC
17 S (PSSNW,PSSOFLAG)=0
18 F PSSLS=0:0 S PSSLS=$O(^XTMP("PSSCONS",PSS1,PSSLS)) Q:'PSSLS!($G(PSSOFLAG)) D
19 .I 'PSSNW S PSSNW=$P($G(^XTMP("PSSCONS",PSS1,PSSLS)),"^") Q
20 .I PSSNW,PSSNW'=$P($G(^XTMP("PSSCONS",PSS1,PSSLS)),"^") S PSSOFLAG=1
21 I $G(PSSOFLAG) Q -1
22 F PSSLA=0:0 S PSSLA=$O(^XTMP("PSSCONA",PSS1,PSSLA)) Q:'PSSLA!($G(PSSOFLAG)) D
23 .I 'PSSNW S PSSNW=$P($G(^XTMP("PSSCONA",PSS1,PSSLA)),"^") Q
24 .I PSSNW,PSSNW'=$P($G(^XTMP("PSSCONA",PSS1,PSSLA)),"^") S PSSOFLAG=1
25 I $G(PSSOFLAG) Q -1
26 I '$G(PSSNW) Q -1
27 S PSSNEWIT=$G(PSSNW)
28AC ;
29 I '$G(PSSNEWIT) Q -1
30 I '$D(^PS(50.7,PSSNEWIT,0)) Q -1
31 S PSSDT=$P($G(^PS(50.7,PSSNEWIT,0)),"^",4)
32 I PSSDT Q PSSNEWIT_"^0^"_PSSDT
33 Q PSSNEWIT_"^"_1
Note: See TracBrowser for help on using the repository browser.