source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURA9E1.m@ 1535

Last change on this file since 1535 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1NURA9E1 ;HIRMFO/JH,FT-CATEGORY, GENDER REPORT BY LOCATION ;11/30/89
2 ;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
3CAT ;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
8START ;
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
15POS ;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
20START1 ;
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
27DEV ;
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
31QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
32 Q
33CHK D NODATA^NURAGEN
34 Q
35HSKEEP ;
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
41TOTALS ;
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
Note: See TracBrowser for help on using the repository browser.