NURA6A1 ;HIRMFO/JH/MD,FT-ACADEMIC DEGREE REPORT BY SVC. CATEGORY ;8/8/96 12:52
;;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) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",80)=" "
S NURSTIL="ACADEMIC EDUCATION PROFILE BY SERVICE CATEGORY ",NURSTIL1=$E(NURSSP,1,10)_"SERVICE EMPLOYEE"_$E(NURSSP,1,18)_"HIGHEST",NURSTIL2="NO. CATEGORY NAME"_$E(NURSSP,1,22)_"ACAD. DEGREE"
S NURROU=11,NRPT=1,NURSLEV=3 W ! D EN1^NURAAGS0,CHK G:$G(NUROUT) QUIT
D PRINT^NURAGEN G:NX="^" QUIT
D TOTALS
QUIT D CLOSE^NURSUT1,^NURAKILL
Q
POS ;ACADEMIC DEGREE REPORT BY SERVICE POSITION
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 EDUCATION PROFILE BY SERVICE POSITION",NURSTIL1=$E(NURSSP,1,6)_"SERVICE EMPLOYEE"_$E(NURSSP,1,23)_"HIGHEST",NURSTIL2="NO. POSITION NAME"_$E(NURSSP,1,27)_"ACAD. DEGREE"
S NURROU=12,NRPT=1,NURSLEV=4 W ! D EN2^NURAAGS0,CHK G:$G(NUROUT) QUIT
D PRINT^NURAGEN G:NX="^" QUIT
S NURSORT(2)=2,NURSORT(3)="N(1)" D TOTALS
G QUIT
DEV ;
S ZTDESC=$S(ANS2=1:"ACADEMIC EDUCATION PROFILE BY SERVICE CATEGORY",1:"ACADEMIC EDUCATION PROFILE BY SERVICE POSITION")
S ZTRTN=$S(ANS2=1:"START^NURA6A1",1:"START1^NURA6A1") D EN7^NURSUT0
Q
CHK D NODATA^NURAGEN
Q
HSKEEP ;
D EN1^NURSAUTL Q:$G(NUROUT)
I NURMDSW D EN12^NURSAGSP Q:$G(NUROUT) S DIC(0)="AEQZ",NURPLSCR=0 D EN5^NURSAGSP Q:$G(NUROUT)
I NURMDSW=0,NURPLSW=1 S NURPLSCR=0 D PRD^NURSAGSP K NURPLSCR
Q
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)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURA6A1 1996 printed Dec 13, 2024@02:18:10 Page 2
NURA6A1 ;HIRMFO/JH/MD,FT-ACADEMIC DEGREE REPORT BY SVC. CATEGORY ;8/8/96 12:52
+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)
USE IO
SET (NURPAGE,NURSW1,NURQUIT)=0
SET NURSSP=""
SET $PIECE(NURSSP," ",80)=" "
+2 SET NURSTIL="ACADEMIC EDUCATION PROFILE BY SERVICE CATEGORY "
SET NURSTIL1=$EXTRACT(NURSSP,1,10)_"SERVICE EMPLOYEE"_$EXTRACT(NURSSP,1,18)_"HIGHEST"
SET NURSTIL2="NO. CATEGORY NAME"_$EXTRACT(NURSSP,1,22)_"ACAD. DEGREE"
+3 SET NURROU=11
SET NRPT=1
SET NURSLEV=3
WRITE !
DO EN1^NURAAGS0
DO CHK
if $GET(NUROUT)
GOTO QUIT
+4 DO PRINT^NURAGEN
if NX="^"
GOTO QUIT
+5 DO TOTALS
QUIT DO CLOSE^NURSUT1
DO ^NURAKILL
+1 QUIT
POS ;ACADEMIC DEGREE REPORT BY SERVICE POSITION
+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 EDUCATION PROFILE BY SERVICE POSITION"
SET NURSTIL1=$EXTRACT(NURSSP,1,6)_"SERVICE EMPLOYEE"_$EXTRACT(NURSSP,1,23)_"HIGHEST"
SET NURSTIL2="NO. POSITION NAME"_$EXTRACT(NURSSP,1,27)_"ACAD. DEGREE"
+3 SET NURROU=12
SET NRPT=1
SET NURSLEV=4
WRITE !
DO EN2^NURAAGS0
DO CHK
if $GET(NUROUT)
GOTO QUIT
+4 DO PRINT^NURAGEN
if NX="^"
GOTO QUIT
+5 SET NURSORT(2)=2
SET NURSORT(3)="N(1)"
DO TOTALS
+6 GOTO QUIT
DEV ;
+1 SET ZTDESC=$SELECT(ANS2=1:"ACADEMIC EDUCATION PROFILE BY SERVICE CATEGORY",1:"ACADEMIC EDUCATION PROFILE BY SERVICE POSITION")
+2 SET ZTRTN=$SELECT(ANS2=1:"START^NURA6A1",1:"START1^NURA6A1")
DO EN7^NURSUT0
+3 QUIT
CHK DO NODATA^NURAGEN
+1 QUIT
HSKEEP ;
+1 DO EN1^NURSAUTL
if $GET(NUROUT)
QUIT
+2 IF NURMDSW
DO EN12^NURSAGSP
if $GET(NUROUT)
QUIT
SET DIC(0)="AEQZ"
SET NURPLSCR=0
DO EN5^NURSAGSP
if $GET(NUROUT)
QUIT
+3 IF NURMDSW=0
IF NURPLSW=1
SET NURPLSCR=0
DO PRD^NURSAGSP
KILL NURPLSCR
+4 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
