|
Last change
on this file since 635 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
645 bytes
|
| Line | |
|---|
| 1 | PPPDIC4 ;BHM/DB - STATION NUMBER FIX ROUTINE;JUN 12 1997
|
|---|
| 2 | ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;**17,21**; APR 7 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | K ^UTILITY("DIQ1",$J)
|
|---|
| 6 | W !,"I will now update your PPP DOMAIN XREF file (#1020.8), with the correct",!,"station numbers from the INSTITUTION file (#4).",!
|
|---|
| 7 | S SITE=0
|
|---|
| 8 | 1 S SITE=$S('$D(SITE):$O(^PPP(1020.8,0)),1:$O(^PPP(1020.8,SITE))) G DONE:SITE'>0 S DIC=4,DA=SITE,DR="99",DIQ(0)="E",DIQ="PPPTMP" D EN^DIQ1 W "."
|
|---|
| 9 | S STATION=$G(PPPTMP(4,SITE,99,"E")) I $G(STATION)'="" S DIE="^PPP(1020.8,",DR="12///^S X=STATION",DA=SITE D ^DIE
|
|---|
| 10 | G 1
|
|---|
| 11 | DONE W !,"Finished Updating.",! K SITE,STATION,DIE,DR,DA,DIC,PPPTMP,^UTILITY("DIQ1",$J)
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
