Routine: NURA9A1

NURA9A1 ;HIRMFO/JH/MD,FT-ACADEMIC DEGREE REPORT BY SVC. CATEGORY AND LOCATION ;8/8/96  13:53

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

CAT D HSKEEP G QUIT:$G(NUROUT)

 D EN3^NURSAGSP G QUIT:$G(NUROUT)

 D EN2^NURSAGP0 G QUIT:$G(NUROUT)

 D DEV G:POP!($D(ZTSK)) QUIT

START ;

 K ^TMP($J),^TMP("NURA",$J),^TMP("NURLOC",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",80)=" "

 S NURSTIL="ACADEMIC EDUC. PROFILE BY LOCATION/SVC. CATEGORY",NURSTIL1=$E(NURSSP,1,17)_"SERVICE"_"    "_"EMPLOYEE"_$E(NURSSP,1,15)_" HIGHEST"

 S NURSTIL2="NO.   LOCATION   CATEGORY   NAME"_$E(NURSSP,1,19)_" ACAD. DEGREE"

 S NURROU=1,NRPT=1,NURSLEV=4 W ! D EN3^NURAAGS0,CHK G:$G(NUROUT) QUIT

 D PRINT^NURAGEN G:NX="^" QUIT

 S NURSORT(2)=3,NURSORT(3)="N(1)" D TOTALS

 G QUIT

POS ;ACADEMIC DEGREE REPORT BY SERVICE POSITION AND LOCATION

 D HSKEEP G QUIT:$G(NUROUT)

 W ! D EN2^NURSAGSP G QUIT:$G(NUROUT)

 D EN2^NURSAGP0 G QUIT:$G(NUROUT)

 D DEV G:POP!($D(ZTSK)) QUIT

START1 ;

 K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=""

 S NURSTIL="ACADEMIC EDUC. PROFILE BY LOCATION/SVC. POSITION",NURSTIL1=$E(NURSSP,1,17)_"SERVICE    EMPLOYEE"_$E(NURSSP,1,16)_"HIGHEST"

 S NURSTIL2="NO.   LOCATION   POSITION   NAME"_$E(NURSSP,1,20)_"ACAD. DEGREE"

 S NURROU=2,NRPT=1,NURSLEV=5 W ! D EN4^NURAAGS0,CHK G:$G(NUROUT) QUIT

 D PRINT^NURAGEN G:NX="^" QUIT

 D TOTALS

 G QUIT

DEV ;

 S ZTDESC="Nursing Academic Education Profile by Location/Service "_$S(ANS2=1:"Category",1:"Position")

 S ZTRTN=$S(ANS2=1:"START^NURA9A1",ANS2=2:"START1^NURA9A1") D EN7^NURSUT0

QUIT D CLOSE^NURSUT1,^NURAKILL

CHK D NODATA^NURAGEN

HSKEEP ;

 D EN1^NURSAUTL Q:$G(NUROUT)

 I NURMDSW S DIC(0)="AEQZ",NURPLSCR=1 D EN5^NURSAGSP Q:$G(NUROUT)

 I NURMDSW=0,NURPLSW=1 S NURPLSCR=1 D PRD^NURSAGSP K NURPLSCR Q:$G(NUROUT)

 W ! D EN1^NURSAGSP

TOTALS ;

 I $Y>(IOSL-6) D HEADER^NURAGEN

 W !,?47,$$REPEAT^XLFSTR("-",33) D EN2^NURAED3 W !!,"TOTAL NUMBER OF ASSIGNMENTS ",?47,$J(NTCT,4,0),!!,"TOTAL NUMBER OF PERSONNEL",?47,$J(NTOT,4,0)

NURA9A1   ;HIRMFO/JH/MD,FT-ACADEMIC DEGREE REPORT BY SVC. CATEGORY AND LOCATION ;8/8/96  13:53

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

CAT        DO HSKEEP

           IF $GET(NUROUT)

               GOTO QUIT

 +1        DO EN3^NURSAGSP

           IF $GET(NUROUT)

               GOTO QUIT

 +2        DO EN2^NURSAGP0

           IF $GET(NUROUT)

               GOTO QUIT

 +3        DO DEV

           IF POP!($DATA(ZTSK))

               GOTO QUIT

START     ;

 +1        KILL ^TMP($JOB),^TMP("NURA",$JOB),^TMP("NURLOC",$JOB)

           USE IO

           SET (NURPAGE,NURSW1,NURQUIT)=0

           SET NURSSP=""

           SET $PIECE(NURSSP," ",80)=" "

 +2        SET NURSTIL="ACADEMIC EDUC. PROFILE BY LOCATION/SVC. CATEGORY"

           SET NURSTIL1=$EXTRACT(NURSSP,1,17)_"SERVICE"_"    "_"EMPLOYEE"_$EXTRACT(NURSSP,1,15)_" HIGHEST"

 +3        SET NURSTIL2="NO.   LOCATION   CATEGORY   NAME"_$EXTRACT(NURSSP,1,19)_" ACAD. DEGREE"

 +4        SET NURROU=1

           SET NRPT=1

           SET NURSLEV=4

           WRITE !

           DO EN3^NURAAGS0

           DO CHK

           IF $GET(NUROUT)

               GOTO QUIT

 +5        DO PRINT^NURAGEN

           IF NX="^"

               GOTO QUIT

 +6        SET NURSORT(2)=3

           SET NURSORT(3)="N(1)"

           DO TOTALS

 +7        GOTO QUIT

POS       ;ACADEMIC DEGREE REPORT BY SERVICE POSITION AND LOCATION

 +1        DO HSKEEP

           IF $GET(NUROUT)

               GOTO QUIT

 +2        WRITE !

           DO EN2^NURSAGSP

           IF $GET(NUROUT)

               GOTO QUIT

 +3        DO EN2^NURSAGP0

           IF $GET(NUROUT)

               GOTO QUIT

 +4        DO DEV

           IF POP!($DATA(ZTSK))

               GOTO QUIT

START1    ;

 +1        KILL ^TMP($JOB),^TMP("NURA",$JOB)

           USE IO

           SET (NURPAGE,NURSW1,NURQUIT)=0

           SET NURSSP=""

           SET $PIECE(NURSSP," ",132)=""

 +2        SET NURSTIL="ACADEMIC EDUC. PROFILE BY LOCATION/SVC. POSITION"

           SET NURSTIL1=$EXTRACT(NURSSP,1,17)_"SERVICE    EMPLOYEE"_$EXTRACT(NURSSP,1,16)_"HIGHEST"

 +3        SET NURSTIL2="NO.   LOCATION   POSITION   NAME"_$EXTRACT(NURSSP,1,20)_"ACAD. DEGREE"

 +4        SET NURROU=2

           SET NRPT=1

           SET NURSLEV=5

           WRITE !

           DO EN4^NURAAGS0

           DO CHK

           IF $GET(NUROUT)

               GOTO QUIT

 +5        DO PRINT^NURAGEN

           IF NX="^"

               GOTO QUIT

 +6        DO TOTALS

 +7        GOTO QUIT

DEV       ;

 +1        SET ZTDESC="Nursing Academic Education Profile by Location/Service "_$SELECT(ANS2=1:"Category",1:"Position")

 +2        SET ZTRTN=$SELECT(ANS2=1:"START^NURA9A1",ANS2=2:"START1^NURA9A1")

           DO EN7^NURSUT0

 +3        QUIT

QUIT       DO CLOSE^NURSUT1

           DO ^NURAKILL

 +1        QUIT

CHK        DO NODATA^NURAGEN

 +1        QUIT

HSKEEP    ;

 +1        DO EN1^NURSAUTL

           IF $GET(NUROUT)

               QUIT

 +2        IF NURMDSW

               SET DIC(0)="AEQZ"

               SET NURPLSCR=1

               DO EN5^NURSAGSP

               IF $GET(NUROUT)

                   QUIT

 +3        IF NURMDSW=0

               IF NURPLSW=1

                   SET NURPLSCR=1

                   DO PRD^NURSAGSP

                   KILL NURPLSCR

                   IF $GET(NUROUT)

                       QUIT

 +4        WRITE !

           DO EN1^NURSAGSP

 +5        QUIT

TOTALS    ;

 +1        IF $Y>(IOSL-6)

               DO HEADER^NURAGEN

 +2        WRITE !,?47,$$REPEAT^XLFSTR("-",33)

           DO EN2^NURAED3

           WRITE !!,"TOTAL NUMBER OF ASSIGNMENTS ",?47,$JUSTIFY(NTCT,4,0),!!,"TOTAL NUMBER OF PERSONNEL",?47,$JUSTIFY(NTOT,4,0)

 +3        QUIT

NURA9A1.m