|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
629 bytes
|
| Line | |
|---|
| 1 | PSS70UTL ;BIR/SJA-POST INSTALL ROUTINE FOR PSS*1*70 ; 01/21/00 13:30
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**70**;09/30/97
|
|---|
| 3 | ;
|
|---|
| 4 | D BMES^XPDUTL("...Re-building the Synonym Multiple for GTIN barcode...")
|
|---|
| 5 | S (PSSD,CNT)=0 F S PSSD=$O(^PSDRUG(PSSD)) Q:'PSSD S B=0 F S B=$O(^PSDRUG(PSSD,1,B)) Q:'B S PSSY=$G(^PSDRUG(PSSD,1,B,0)) I $P(PSSY,"^") S PSSX=$P(PSSY,"^") D CHK
|
|---|
| 6 | Q
|
|---|
| 7 | CHK I PSSX?16N!(PSSX?27.AN) D
|
|---|
| 8 | .I $E(PSSX,1,2)'="01" Q
|
|---|
| 9 | .I $L(PSSX)>26,$E(PSSX,17,18)'=17 Q
|
|---|
| 10 | .I $E(PSSX,5)=3 S PSSX=$E(PSSX,6,15) S CNT=CNT+1 W:'(CNT#10) "." D
|
|---|
| 11 | ..K DA,DD,DO,DIC S DIC="^PSDRUG(PSSD,1,",DIC(0)="L",DLAYGO=50.1,DA(1)=PSSD,X=PSSX D FILE^DICN K DD,DO
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
