| [613] | 1 | PSAP67 ;BIR/DB - New Prime Vendor field checker ;9/19/97
|
|---|
| 2 | ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**67**; 10/1/07;Build 15
|
|---|
| 3 | DISP ;
|
|---|
| 4 | W !?9,"PV-Drug-Description : ",$S($P(PSADATA,"^",28)'="":$P(PSADATA,"^",28),1:"Unknown")
|
|---|
| 5 | W ?65,"PV-DUOU : ",$S($P(PSADATA,"^",31)'="":$P(PSADATA,"^",31),1:"")
|
|---|
| 6 | W !?9,"PV-Drug-Generic Name : ",$S($P(PSADATA,"^",29)'="":$P(PSADATA,"^",29),1:"Unknown")
|
|---|
| 7 | W ?65,"PV-UNITS : ",$S($P(PSADATA,"^",30)'="":$P(PSADATA,"^",30),1:"")
|
|---|
| 8 | Q
|
|---|
| 9 | DISP2 ;
|
|---|
| 10 | S PSAP67=$G(^PSD(58.811,PSAORD,1,PSAINV,3,PSALN,0))
|
|---|
| 11 | W !,"PV-Drug-Description : ",$S($P(PSAP67,"^",1)'="":$P(PSAP67,"^",1),1:"Unknown")
|
|---|
| 12 | W ?55,"PV-DUOU : ",$S($P(PSAP67,"^",4)'="":$P(PSAP67,"^",4),1:"Unknown")
|
|---|
| 13 | W !,"PV-Drug-Generic Name : ",$S($P(PSAP67,"^",2)'="":$P(PSAP67,"^",2),1:"Unknown")
|
|---|
| 14 | W ?55,"PV-UNITS : ",$S($P(PSAP67,"^",3)'="":$P(PSAP67,"^",3),1:"Unknown"),!
|
|---|
| 15 | K PSAP67 Q
|
|---|
