source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURAPROD.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 608 bytes
Line 
1NURAPROD ;HIRMFO/MD-POPULATE POSITION CONTROL PRODUCT LINE
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3EN1 ;
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
11QUIT ;
12 K DA,NPROD
13 Q
Note: See TracBrowser for help on using the repository browser.