| 1 | NURA9E1 ;HIRMFO/JH,FT-CATEGORY, GENDER REPORT BY LOCATION ;11/30/89
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
|
|---|
| 3 | CAT ;SERVICE CATEGORY, GENDER REPORT BY LOCATION
|
|---|
| 4 | D HSKEEP G QUIT:$G(NUROUT)
|
|---|
| 5 | D EN3^NURSAGSP G:$G(NUROUT) QUIT
|
|---|
| 6 | D EN1^NURSAGP0 W ! G QUIT:$G(NUROUT)
|
|---|
| 7 | D DEV G:POP!($D(ZTSK)) QUIT
|
|---|
| 8 | START ;
|
|---|
| 9 | K ^TMP($J),^TMP("NURA",$J),^TMP("NURLOC",$J) U IO S (NMCNT,NFCNT,NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=""
|
|---|
| 10 | S NURSTIL="GENDER BY LOCATION AND SERVICE CATEGORY",NURSTIL1=$E(NURSSP,1,17)_"SERVICE",NURSTIL2="NO. LOCATION CATEGORY NAME"_$E(NURSSP,1,20)_"GENDER"
|
|---|
| 11 | S NURROU=3,NRPT=4,NURSLEV=4 W ! D EN3^NURAAGS0,CHK G:$G(NUROUT) QUIT
|
|---|
| 12 | D PRINT^NURAGEN G:$G(NX)="^" QUIT
|
|---|
| 13 | S NURSORT(1)=0,NURSORT(2)=3,NURSORT(3)="NL1(1)",NURSORT(4)="NL(2)" D GENDER^NURAGEN2,TOTALS
|
|---|
| 14 | G QUIT
|
|---|
| 15 | POS ;SERVICE POSITION, GENDER REPORT BY LOCATION
|
|---|
| 16 | D HSKEEP G QUIT:$G(NUROUT)
|
|---|
| 17 | W ! D EN2^NURSAGSP G QUIT:$G(NUROUT)
|
|---|
| 18 | D EN1^NURSAGP0 W ! G QUIT:$G(NUROUT)
|
|---|
| 19 | D DEV G:POP!($D(ZTSK)) QUIT
|
|---|
| 20 | START1 ;
|
|---|
| 21 | K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NURSW1,NURQUIT,NMCNT,NFCNT)=0,NURSSP="",$P(NURSSP," ",132)=" "
|
|---|
| 22 | S NURSTIL="GENDER BY LOCATION AND SERVICE POSITION",NURSTIL1=$E(NURSSP,1,17)_"SERVICE",NURSTIL2="NO. LOCATION POSITION NAME"_$E(NURSSP,1,20)_"GENDER"
|
|---|
| 23 | S NURROU=4,NRPT=4,NURSLEV=5 W ! D EN4^NURAAGS0,CHK G:$G(NUROUT) QUIT
|
|---|
| 24 | D PRINT^NURAGEN G:$G(NX)="^" QUIT
|
|---|
| 25 | S NURSORT(1)=0,NURSORT(2)=3,NURSORT(4)="NL1",NURSORT(3)="NL1(2)" D GENDER^NURAGEN2,TOTALS
|
|---|
| 26 | G QUIT
|
|---|
| 27 | DEV ;
|
|---|
| 28 | S ZTDESC="Nursing Gender by Location & Service "_$S($G(ANS2)=1:"Category",1:"Position")
|
|---|
| 29 | S ZTRTN=$S($G(ANS2)=1:"START",1:"START1")_"^NURA9E1" D EN7^NURSUT0
|
|---|
| 30 | Q
|
|---|
| 31 | QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
|
|---|
| 32 | Q
|
|---|
| 33 | CHK D NODATA^NURAGEN
|
|---|
| 34 | Q
|
|---|
| 35 | HSKEEP ;
|
|---|
| 36 | D EN1^NURSAUTL Q:$G(NUROUT)
|
|---|
| 37 | I NURMDSW S DIC(0)="AEQZ",NURPLSCR=1 D EN5^NURSAGSP Q:$G(NUROUT)
|
|---|
| 38 | I NURMDSW=0,NURPLSW=1 S NURPLSCR=1 D PRD^NURSAGSP K NURPLSCR Q:$G(NUROUT)
|
|---|
| 39 | W ! D EN1^NURSAGSP Q:$G(NUROUT)
|
|---|
| 40 | Q
|
|---|
| 41 | TOTALS ;
|
|---|
| 42 | I $Y>(IOSL-6) D HEADER^NURAGEN
|
|---|
| 43 | W !,?47,$$REPEAT^XLFSTR("-",33)
|
|---|
| 44 | D EN4^NURAED3 W !!,"TOTAL NUMBER OF ASSIGNMENTS ",?47,$J(NTCT,4,0),!!,"TOTAL NUMBER OF MALES ",?47,$J(NMCNT,4,0),!!,"TOTAL NUMBER OF FEMALES ",?47,$J(NFCNT,4,0),!!,"TOTAL NUMBER OF PERSONNEL",?47,$J(NTOT,4,0)
|
|---|
| 45 | Q
|
|---|
