|
Last change
on this file since 789 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
608 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | NURAPROD ;HIRMFO/MD-POPULATE POSITION CONTROL PRODUCT LINE
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN1 ;
|
|---|
| 4 | S NPROD=$P($G(^DIC(213.9,1,0)),U,11) G:'+NPROD QUIT
|
|---|
| 5 | W !!,"DO YOU WANT TO ASSIGN THE NURSING PRODUCT LINE ENTRY TO ALL EMPLOYEES",!,"WITH NO DATA IN THE PRODUCT LINE FIELD" S %=1 D YN^DICN
|
|---|
| 6 | I %=0 W !!,$C(7),"ANSWER 'YES' or 'NO'" G EN1
|
|---|
| 7 | I %'=1 G QUIT
|
|---|
| 8 | S DA(1)=0 F S DA(1)=$O(^NURSF(211.8,DA(1))) Q:DA(1)'>0 S DA=0 F S DA=$O(^NURSF(211.8,DA(1),1,DA)) Q:DA'>0 I $D(^NURSF(211.8,DA(1),1,DA,0)) W:$R(100) "." D
|
|---|
| 9 | . I '$P($G(^NURSF(211.8,DA(1),1,DA,0)),U,5) S $P(^(0),U,5)=+NPROD
|
|---|
| 10 | . Q
|
|---|
| 11 | QUIT ;
|
|---|
| 12 | K DA,NPROD
|
|---|
| 13 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
