Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.