|
Last change
on this file since 1200 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
511 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PSA48P0 ;VMP/PDW-BUILD MCKESSON XTMP( ;9/19/2004
|
|---|
| 2 | ;;3.0;DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**48**;10/24/97
|
|---|
| 3 | EN ;
|
|---|
| 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
|
|---|
| 8 | ROU ;
|
|---|
| 9 | F LN=3:1 S TAGROU="+"_LN_"^"_ROUNM S XX=$T(@TAGROU) Q:XX[";;END" D LINE
|
|---|
| 10 | Q
|
|---|
| 11 | LINE ;
|
|---|
| 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
|
|---|
| 15 | EXIT K P,I,XX,LN,TAGROU,ROUNM,VSN,DUOU,YY
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
