- NURAPROD ;HIRMFO/MD-POPULATE POSITION CONTROL PRODUCT LINE
- ;;4.0;NURSING SERVICE;;Apr 25, 1997
- EN1 ;
- S NPROD=$P($G(^DIC(213.9,1,0)),U,11) G:'+NPROD QUIT
- 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
- I %=0 W !!,$C(7),"ANSWER 'YES' or 'NO'" G EN1
- I %'=1 G QUIT
- 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
- . I '$P($G(^NURSF(211.8,DA(1),1,DA,0)),U,5) S $P(^(0),U,5)=+NPROD
- . Q
- QUIT ;
- K DA,NPROD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURAPROD 621 printed Feb 18, 2025@23:46:03 Page 2
- NURAPROD ;HIRMFO/MD-POPULATE POSITION CONTROL PRODUCT LINE
- +1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
- EN1 ;
- +1 SET NPROD=$PIECE($GET(^DIC(213.9,1,0)),U,11)
- if '+NPROD
- GOTO QUIT
- +2 WRITE !!,"DO YOU WANT TO ASSIGN THE NURSING PRODUCT LINE ENTRY TO ALL EMPLOYEES",!,"WITH NO DATA IN THE PRODUCT LINE FIELD"
- SET %=1
- DO YN^DICN
- +3 IF %=0
- WRITE !!,$CHAR(7),"ANSWER 'YES' or 'NO'"
- GOTO EN1
- +4 IF %'=1
- GOTO QUIT
- +5 SET DA(1)=0
- FOR
- SET DA(1)=$ORDER(^NURSF(211.8,DA(1)))
- if DA(1)'>0
- QUIT
- SET DA=0
- FOR
- SET DA=$ORDER(^NURSF(211.8,DA(1),1,DA))
- if DA'>0
- QUIT
- IF $DATA(^NURSF(211.8,DA(1),1,DA,0))
- if $RANDOM(100)
- WRITE "."
- Begin DoDot:1
- +6 IF '$PIECE($GET(^NURSF(211.8,DA(1),1,DA,0)),U,5)
- SET $PIECE(^(0),U,5)=+NPROD
- +7 QUIT
- End DoDot:1
- QUIT ;
- +1 KILL DA,NPROD
- +2 QUIT