source: WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSA48P0.m@ 1006

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

initial load of WorldVistAEHR

File size: 511 bytes
RevLine 
[613]1PSA48P0 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
2 ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
3EN ;
4 I $E(IOST)="C" W !
5 S ^XTMP("PSAVSN",0)="3050308^3040909^DA McKesson VSNs DUOUs"
6 F I=1:1:44 S ROUNM="PSA48P"_I D ROU I $E(IOST)="C" W "."
7 Q
8ROU ;
9 F LN=3:1 S TAGROU="+"_LN_"^"_ROUNM S XX=$T(@TAGROU) Q:XX[";;END" D LINE
10 Q
11LINE ;
12 S XX=$P(XX,";;",2)
13 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
14 Q
15EXIT K P,I,XX,LN,TAGROU,ROUNM,VSN,DUOU,YY
16 Q
Note: See TracBrowser for help on using the repository browser.