source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURA6E1.m@ 623

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1NURA6E1 ;HIRMFO/JH/MD,FT-CATEGORY, GENDER REPORT BY SERVICE ;8/8/96 13:23
2 ;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
3CAT D HSKEEP G QUIT:$G(NUROUT)
4 D EN3^NURSAGSP G QUIT:$G(NUROUT)
5 D EN1^NURSAGP0 G QUIT:$G(NUROUT)
6 D DEV G:POP!($D(ZTSK)) QUIT
7START ;
8 K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NURSW1,NURQUIT,NMCNT,NFCNT)=0,NURSSP="",$P(NURSSP," ",132)=" "
9 S NURSTIL="GENDER BY SERVICE CATEGORY",NURSTIL1=$E(NURSSP,1,10)_"SERVICE",NURSTIL2="NO. CATEGORY NAME"_$E(NURSSP,1,22)_"GENDER"
10 S NURROU=13,NRPT=4,NURSLEV=3 W ! D EN1^NURAAGS0,CHK G:$G(NUROUT) QUIT
11 D PRINT^NURAGEN G:$G(NX)="^" QUIT
12 S NURSORT(1)=0,NURSORT(2)=2,NURSORT(3)="NL1",NURSORT(4)="NL(1)" D GENDER^NURAGEN2,TOTALS
13 G QUIT
14POS ;POSITION, GENDER REPORT BY SVC.
15 D HSKEEP G QUIT:$G(NUROUT)
16 W ! D EN2^NURSAGSP G QUIT:$G(NUROUT)
17 D EN1^NURSAGP0 G QUIT:$G(NUROUT)
18 D DEV G:POP!($D(ZTSK)) QUIT
19START1 ;
20 K ^TMP($J),^TMP("NURA",$J) U IO S (NMCNT,NFCNT,NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=" "
21 S NURSTIL="GENDER BY SERVICE POSITION",NURSTIL1=$E(NURSSP,1,10)_"SERVICE",NURSTIL2="NO. POSITION NAME"_$E(NURSSP,1,22)_"GENDER"
22 S NURROU=14,NRPT=4,NURSLEV=4 W ! D EN2^NURAAGS0,CHK G:$G(NUROUT) QUIT
23 D PRINT^NURAGEN G:$G(NX)="^" QUIT
24 S NURSORT(1)=0,NURSORT(2)=2,NURSORT(4)="NL(2)",NURSORT(3)="NL1(1)" D GENDER^NURAGEN2,TOTALS
25 G QUIT
26DEV ;
27 S ZTDESC=$S(ANS2=1:"Gender Report by Service Category",1:"Gender Report by Service Position")
28 W ! S ZTRTN=$S(ANS2=1:"START",1:"START1")_"^NURA6E1" D EN7^NURSUT0
29 Q
30QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
31 Q
32CHK D NODATA^NURAGEN
33 Q
34HSKEEP ;
35 D EN1^NURSAUTL Q:$G(NUROUT)
36 I NURMDSW D EN12^NURSAGSP Q:$G(NUROUT) S DIC(0)="AEQZ",NURPLSCR=0 D EN5^NURSAGSP Q:$G(NUROUT)
37 I NURMDSW=0,NURPLSW=1 S NURPLSCR=0 D PRD^NURSAGSP K NURPLSCR
38 Q
39TOTALS ;
40 I $Y>(IOSL-6) D HEADER^NURAGEN
41 W !,?47,$$REPEAT^XLFSTR("-",33)
42 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)
43 Q
Note: See TracBrowser for help on using the repository browser.