NURAEDCK.m

NURAEDCK ;HIRMFO/RM-ROUTINE CALCULATES HIGHEST NURSING DEGREE ;SEPTEMBER 1986

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

 ;CALLED FROM [NURS-I-STAFF4] INPUT TEMPLATE

 D KILLA,KILLN

 Q:'$D(^NURSF(210,DA,6))

 Q:($P(^NURSF(210,DA,6,0),"^",4)=0)!($P(^NURSF(210,DA,6,0),"^",4)="")

 F NURSNXT=0:0 S NURSNXT=$O(^NURSF(210,DA,6,NURSNXT)) Q:NURSNXT'>0  S NURSNBR=$P(^NURSF(210,DA,6,NURSNXT,0),"^",1),NURSCODE=$P(^NURSF(212.1,NURSNBR,0),"^",3) D FINDHIGH

 D SETHIGH,QUIT

 Q

KILLA ; KILLS HIGHEST ACADEMIC DEGREE

 S $P(^NURSF(210,DA,17),"^",2)=""

 Q

KILLN ; KILLS HIGHEST NURSING DEGREE

 S:$D(^NURSF(210,DA,17)) $P(^NURSF(210,DA,17),"^",1)=""

 Q

FINDHIGH ; FINDS HIGHEST ACADEMIC AND NURSING DEGREES

 D FINDACAD

 D:(NURSCODE="DIP")!(NURSCODE="AD")!(NURSCODE="BSN")!(NURSCODE="MSN")!(NURSCODE="DNSC") FINDNURS

 Q

FINDACAD ;

 I '$D(NURSNBRA) S NURSNBRA=NURSNBR Q

 S NURSPRI0=$P(^NURSF(212.1,NURSNBRA,0),"^",4),NURSPRI1=$P(^NURSF(212.1,NURSNBR,0),"^",4)

 S:NURSPRI1>NURSPRI0 NURSNBRA=NURSNBR

 I NURSPRI1=NURSPRI0 S:(NURSCODE="AA")!(NURSCODE="BA")!(NURSCODE="MA")!(NURSCODE="PHD") NURSNBRA=NURSNBR

 Q

FINDNURS ;

 I '$D(NURSNBRN) S NURSNBRN=NURSNBR Q

 S NURSPRI0=$P(^NURSF(212.1,NURSNBRN,0),"^",4),NURSPRI1=$P(^NURSF(212.1,NURSNBR,0),"^",4)

 S:NURSPRI1>NURSPRI0 NURSNBRN=NURSNBR

 Q

SETHIGH ; SETS THE HIGHEST ACADEMIC AND NURSING DEGREES

 S:$D(NURSNBRA) $P(^NURSF(210,DA,17),"^",2)=NURSNBRA

 S:$D(NURSNBRN) $P(^NURSF(210,DA,17),"^",1)=NURSNBRN

 Q

QUIT ; KILLS LOCAL VARIABLES

 K NURSNBR,NURSNBRA,NURSNBRN,NURSPRI0,NURSPRI1,NURSCODE,NURSNXT

 Q

NURAEDCK  ;HIRMFO/RM-ROUTINE CALCULATES HIGHEST NURSING DEGREE ;SEPTEMBER 1986

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

 +2       ;CALLED FROM [NURS-I-STAFF4] INPUT TEMPLATE

 +3        DO KILLA

           DO KILLN

 +4        IF '$DATA(^NURSF(210,DA,6))

               QUIT 

 +5        IF ($PIECE(^NURSF(210,DA,6,0),"^",4)=0)!($PIECE(^NURSF(210,DA,6,0),"^",4)="")

               QUIT 

 +6        FOR NURSNXT=0:0

               SET NURSNXT=$ORDER(^NURSF(210,DA,6,NURSNXT))

               IF NURSNXT'>0

                   QUIT 

               SET NURSNBR=$PIECE(^NURSF(210,DA,6,NURSNXT,0),"^",1)

               SET NURSCODE=$PIECE(^NURSF(212.1,NURSNBR,0),"^",3)

               DO FINDHIGH

 +7        DO SETHIGH

           DO QUIT

 +8        QUIT 

KILLA     ; KILLS HIGHEST ACADEMIC DEGREE

 +1        SET $PIECE(^NURSF(210,DA,17),"^",2)=""

 +2        QUIT 

KILLN     ; KILLS HIGHEST NURSING DEGREE

 +1        IF $DATA(^NURSF(210,DA,17))

               SET $PIECE(^NURSF(210,DA,17),"^",1)=""

 +2        QUIT 

FINDHIGH  ; FINDS HIGHEST ACADEMIC AND NURSING DEGREES

 +1        DO FINDACAD

 +2        IF (NURSCODE="DIP")!(NURSCODE="AD")!(NURSCODE="BSN")!(NURSCODE="MSN")!(NURSCODE="DNSC")

               DO FINDNURS

 +3        QUIT 

FINDACAD  ;

 +1        IF '$DATA(NURSNBRA)

               SET NURSNBRA=NURSNBR

               QUIT 

 +2        SET NURSPRI0=$PIECE(^NURSF(212.1,NURSNBRA,0),"^",4)

           SET NURSPRI1=$PIECE(^NURSF(212.1,NURSNBR,0),"^",4)

 +3        IF NURSPRI1>NURSPRI0

               SET NURSNBRA=NURSNBR

 +4        IF NURSPRI1=NURSPRI0

               IF (NURSCODE="AA")!(NURSCODE="BA")!(NURSCODE="MA")!(NURSCODE="PHD")

                   SET NURSNBRA=NURSNBR

 +5        QUIT 

FINDNURS  ;

 +1        IF '$DATA(NURSNBRN)

               SET NURSNBRN=NURSNBR

               QUIT 

 +2        SET NURSPRI0=$PIECE(^NURSF(212.1,NURSNBRN,0),"^",4)

           SET NURSPRI1=$PIECE(^NURSF(212.1,NURSNBR,0),"^",4)

 +3        IF NURSPRI1>NURSPRI0

               SET NURSNBRN=NURSNBR

 +4        QUIT 

SETHIGH   ; SETS THE HIGHEST ACADEMIC AND NURSING DEGREES

 +1        IF $DATA(NURSNBRA)

               SET $PIECE(^NURSF(210,DA,17),"^",2)=NURSNBRA

 +2        IF $DATA(NURSNBRN)

               SET $PIECE(^NURSF(210,DA,17),"^",1)=NURSNBRN

 +3        QUIT 

QUIT      ; KILLS LOCAL VARIABLES

 +1        KILL NURSNBR,NURSNBRA,NURSNBRN,NURSPRI0,NURSPRI1,NURSCODE,NURSNXT

 +2        QUIT