source: WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSAOP3.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1PSAOP3 ;BIR/LTL,JMB-Nightly Background Job ;7/23/97
2 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**21**; 10/24/97
3 ;This is the entry point to gather outpatient pharmacy dispensing data
4 ;for all drugs in all pharmacy locations. When the drug is released in
5 ;outpatient, an ^XTMP("PSA") global is set to contain the dispensing
6 ;data. It is called by PSAPSI3.
7 ;^XTMP("PSA",59.7 OP Site#,50 Drug#,Date dispensed)=Total Qty Dispensed
8 ;
9 N PSA,PSADRUG,PSALOC ;PSA=OP SITE, PSA(1)=DRUG(IEN), PSA(2)=DT
10LUP S PSA=0 F S PSA=$O(^XTMP("PSA",PSA)) Q:'PSA D
11 .S PSA(1)=0 F S PSA(1)=$O(^XTMP("PSA",PSA,PSA(1))) Q:'PSA(1) D
12 ..S PSA(2)=0 F S PSA(2)=$O(^XTMP("PSA",PSA,PSA(1),PSA(2))) Q:'PSA(2) D
13 ...S PSALOC=$O(^PSD(58.8,"AOP",PSA,0)),PSADRUG=PSA(1)
14 ...;PSA*3*21 (due to multiple OP locations, check for Inactive - Dave B)
15 ...I $P($G(^PSD(58.8,PSALOC,7,PSA,0)),"^",2)'="" Q
16 ...S PSA(3)=$G(^XTMP("PSA",PSA,PSA(1),PSA(2)))
17 ...D:$D(^PSD(58.8,+PSALOC,1,PSADRUG))&($P($G(^PSD(58.8,+PSALOC,0)),U,2)="P") ^PSAOP1
18 ...K ^XTMP("PSA",PSA,PSA(1),PSA(2))
19 S X1=DT,X2=7 D C^%DTC S ^XTMP("PSA",0)=X_"^"_DT_"^Drug Accountability Dispensing Data"
20QUIT Q
Note: See TracBrowser for help on using the repository browser.