PSAP67 ;BIR/DB - New Prime Vendor field checker ;9/19/97
;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**67**; 10/1/07;Build 15
DISP ;
W !?9,"PV-Drug-Description : ",$S($P(PSADATA,"^",28)'="":$P(PSADATA,"^",28),1:"Unknown")
W ?65,"PV-DUOU : ",$S($P(PSADATA,"^",31)'="":$P(PSADATA,"^",31),1:"")
W !?9,"PV-Drug-Generic Name : ",$S($P(PSADATA,"^",29)'="":$P(PSADATA,"^",29),1:"Unknown")
W ?65,"PV-UNITS : ",$S($P(PSADATA,"^",30)'="":$P(PSADATA,"^",30),1:"")
Q
DISP2 ;
S PSAP67=$G(^PSD(58.811,PSAORD,1,PSAINV,3,PSALN,0))
W !,"PV-Drug-Description : ",$S($P(PSAP67,"^",1)'="":$P(PSAP67,"^",1),1:"Unknown")
W ?55,"PV-DUOU : ",$S($P(PSAP67,"^",4)'="":$P(PSAP67,"^",4),1:"Unknown")
W !,"PV-Drug-Generic Name : ",$S($P(PSAP67,"^",2)'="":$P(PSAP67,"^",2),1:"Unknown")
W ?55,"PV-UNITS : ",$S($P(PSAP67,"^",3)'="":$P(PSAP67,"^",3),1:"Unknown"),!
K PSAP67 Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSAP67 876 printed Nov 22, 2024@17:00:11 Page 2
PSAP67 ;BIR/DB - New Prime Vendor field checker ;9/19/97
+1 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**67**; 10/1/07;Build 15
DISP ;
+1 WRITE !?9,"PV-Drug-Description : ",$SELECT($PIECE(PSADATA,"^",28)'="":$PIECE(PSADATA,"^",28),1:"Unknown")
+2 WRITE ?65,"PV-DUOU : ",$SELECT($PIECE(PSADATA,"^",31)'="":$PIECE(PSADATA,"^",31),1:"")
+3 WRITE !?9,"PV-Drug-Generic Name : ",$SELECT($PIECE(PSADATA,"^",29)'="":$PIECE(PSADATA,"^",29),1:"Unknown")
+4 WRITE ?65,"PV-UNITS : ",$SELECT($PIECE(PSADATA,"^",30)'="":$PIECE(PSADATA,"^",30),1:"")
+5 QUIT
DISP2 ;
+1 SET PSAP67=$GET(^PSD(58.811,PSAORD,1,PSAINV,3,PSALN,0))
+2 WRITE !,"PV-Drug-Description : ",$SELECT($PIECE(PSAP67,"^",1)'="":$PIECE(PSAP67,"^",1),1:"Unknown")
+3 WRITE ?55,"PV-DUOU : ",$SELECT($PIECE(PSAP67,"^",4)'="":$PIECE(PSAP67,"^",4),1:"Unknown")
+4 WRITE !,"PV-Drug-Generic Name : ",$SELECT($PIECE(PSAP67,"^",2)'="":$PIECE(PSAP67,"^",2),1:"Unknown")
+5 WRITE ?55,"PV-UNITS : ",$SELECT($PIECE(PSAP67,"^",3)'="":$PIECE(PSAP67,"^",3),1:"Unknown"),!
+6 KILL PSAP67
QUIT
