PSA48P0 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
 ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
EN ;
 I $E(IOST)="C" W !
 S ^XTMP("PSAVSN",0)="3050308^3040909^DA McKesson VSNs DUOUs"
 F I=1:1:44 S ROUNM="PSA48P"_I D ROU I $E(IOST)="C" W "."
 Q
ROU ;
 F LN=3:1 S TAGROU="+"_LN_"^"_ROUNM S XX=$T(@TAGROU) Q:XX[";;END"  D LINE
 Q
LINE ;
 S XX=$P(XX,";;",2)
 F P=1:1 Q:$P(XX,U,P)=""  S YY=$P(XX,U,P),VSN=+YY,DUOU=$P(YY,"~",2),^XTMP("PSAVSN",VSN)=DUOU
 Q
EXIT K P,I,XX,LN,TAGROU,ROUNM,VSN,DUOU,YY
 Q