- NURA9J1 ;HIRMFO/JH,FT-NURSING EDUCATION PROFILE BY LOCATION/SVC. CATEGORY ;8/9/96 11:10
- ;;4.0;NURSING SERVICE;**2,13**;Apr 25, 1997
- CAT D HSKEEP G QUIT:$G(NUROUT)
- S ^TMP("NURSCAT",$J,"R")=""
- D EN2^NURSAGP1 W ! 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," ",132)=" "
- S NURSTIL="NURSING EDUC. PROFILE BY LOCATION/SVC. CATEGORY",NURSTIL1=$E(NURSSP,1,17)_"SERVICE EMPLOYEE"_$E(NURSSP,1,16)_"HIGHEST",NURSTIL2="NO. LOCATION CATEGORY NAME"_$E(NURSSP,1,20)_"NURSING DEGREE"
- S NURROU=9,NRPT=6,NURSLEV=4 W ! D EN3^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
- D TOTALS
- G QUIT
- POS ;NURSING EDUCATION PROFILE BY LOCATION/SVC. POSITION
- D HSKEEP G QUIT:$G(NUROUT)
- S NRNS=1 W ! D EN2^NURSAGSP G:$G(NUROUT) QUIT
- D EN2^NURSAGP1 W ! 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="NURSING EDUC. PROFILE BY LOCATION/SVC. POSITION",NURSTIL1=$E(NURSSP,1,17)_"SERVICE EMPLOYEE"_$E(NURSSP,1,16)_"HIGHEST",NURSTIL2="NO. LOCATION POSITION NAME"_$E(NURSSP,1,20)_"NURSING DEGREE"
- S NURROU=10,NRPT=6,NURSLEV=5 W ! D EN4^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
- D TOTALS
- G QUIT
- DEV ;
- S ZTSAVE("^TMP(""NURSCAT"",$J,")="",ZTDESC="Nursing Educ Profile by Location/Service "_$S(ANS2=1:"Category",1:"Position")
- S ZTRTN=$S(ANS2=1:"START",1:"START1")_"^NURA9J1" D EN7^NURSUT0
- Q
- QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
- Q
- CHK D NODATA^NURAGEN
- Q
- 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
- Q
- TOTALS ;
- I $Y>(IOSL-6) D HEADER^NURAGEN
- S X="",$P(X,"-",33)="" W !,?47,X D EN2^NURAED3 W !!,"TOTAL NUMBER OF ASSIGNMENTS ",?47,$J(NTCT,4,0),!!,"TOTAL NUMBER OF PERSONNEL",?47,$J(NTOT,4,0)
- Q
- NURA9J1 ;HIRMFO/JH,FT-NURSING EDUCATION PROFILE BY LOCATION/SVC. CATEGORY ;8/9/96 11:10
- +1 ;;4.0;NURSING SERVICE;**2,13**;Apr 25, 1997
- CAT DO HSKEEP
- IF $GET(NUROUT)
- GOTO QUIT
- +1 SET ^TMP("NURSCAT",$JOB,"R")=""
- +2 DO EN2^NURSAGP1
- WRITE !
- 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," ",132)=" "
- +2 SET NURSTIL="NURSING EDUC. PROFILE BY LOCATION/SVC. CATEGORY"
- SET NURSTIL1=$EXTRACT(NURSSP,1,17)_"SERVICE EMPLOYEE"_$EXTRACT(NURSSP,1,16)_"HIGHEST"
- SET NURSTIL2="NO. LOCATION CATEGORY NAME"_$EXTRACT(NURSSP,1,20)_"NURSING DEGREE"
- +3 SET NURROU=9
- SET NRPT=6
- SET NURSLEV=4
- WRITE !
- DO EN3^NURAAGS0
- DO CHK
- IF $GET(NUROUT)
- GOTO QUIT
- DO PRINT^NURAGEN
- IF NX="^"
- GOTO QUIT
- +4 DO TOTALS
- +5 GOTO QUIT
- POS ;NURSING EDUCATION PROFILE BY LOCATION/SVC. POSITION
- +1 DO HSKEEP
- IF $GET(NUROUT)
- GOTO QUIT
- +2 SET NRNS=1
- WRITE !
- DO EN2^NURSAGSP
- IF $GET(NUROUT)
- GOTO QUIT
- +3 DO EN2^NURSAGP1
- WRITE !
- 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="NURSING EDUC. PROFILE BY LOCATION/SVC. POSITION"
- SET NURSTIL1=$EXTRACT(NURSSP,1,17)_"SERVICE EMPLOYEE"_$EXTRACT(NURSSP,1,16)_"HIGHEST"
- SET NURSTIL2="NO. LOCATION POSITION NAME"_$EXTRACT(NURSSP,1,20)_"NURSING DEGREE"
- +3 SET NURROU=10
- SET NRPT=6
- SET NURSLEV=5
- WRITE !
- DO EN4^NURAAGS0
- DO CHK
- IF $GET(NUROUT)
- GOTO QUIT
- DO PRINT^NURAGEN
- IF NX="^"
- GOTO QUIT
- +4 DO TOTALS
- +5 GOTO QUIT
- DEV ;
- +1 SET ZTSAVE("^TMP(""NURSCAT"",$J,")=""
- SET ZTDESC="Nursing Educ Profile by Location/Service "_$SELECT(ANS2=1:"Category",1:"Position")
- +2 SET ZTRTN=$SELECT(ANS2=1:"START",1:"START1")_"^NURA9J1"
- DO EN7^NURSUT0
- +3 QUIT
- QUIT KILL ^TMP("NURA",$JOB),^TMP($JOB)
- 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 SET X=""
- SET $PIECE(X,"-",33)=""
- WRITE !,?47,X
- DO EN2^NURAED3
- WRITE !!,"TOTAL NUMBER OF ASSIGNMENTS ",?47,$JUSTIFY(NTCT,4,0),!!,"TOTAL NUMBER OF PERSONNEL",?47,$JUSTIFY(NTOT,4,0)
- +3 QUIT
