source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURA9J1.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1NURA9J1 ;HIRMFO/JH,FT-NURSING EDUCATION PROFILE BY LOCATION/SVC. CATEGORY ;8/9/96 11:10
2 ;;4.0;NURSING SERVICE;**2,13**;Apr 25, 1997
3CAT D HSKEEP G QUIT:$G(NUROUT)
4 S ^TMP("NURSCAT",$J,"R")=""
5 D EN2^NURSAGP1 W ! G QUIT:$G(NUROUT)
6 D DEV G:POP!($D(ZTSK)) QUIT
7START ;
8 K ^TMP($J),^TMP("NURA",$J),^TMP("NURLOC",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=" "
9 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"
10 S NURROU=9,NRPT=6,NURSLEV=4 W ! D EN3^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
11 D TOTALS
12 G QUIT
13POS ;NURSING EDUCATION PROFILE BY LOCATION/SVC. POSITION
14 D HSKEEP G QUIT:$G(NUROUT)
15 S NRNS=1 W ! D EN2^NURSAGSP G:$G(NUROUT) QUIT
16 D EN2^NURSAGP1 W ! G QUIT:$G(NUROUT)
17 D DEV G:POP!($D(ZTSK)) QUIT
18START1 ;
19 K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=" "
20 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"
21 S NURROU=10,NRPT=6,NURSLEV=5 W ! D EN4^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
22 D TOTALS
23 G QUIT
24DEV ;
25 S ZTSAVE("^TMP(""NURSCAT"",$J,")="",ZTDESC="Nursing Educ Profile by Location/Service "_$S(ANS2=1:"Category",1:"Position")
26 S ZTRTN=$S(ANS2=1:"START",1:"START1")_"^NURA9J1" D EN7^NURSUT0
27 Q
28QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
29 Q
30CHK D NODATA^NURAGEN
31 Q
32HSKEEP ;
33 D EN1^NURSAUTL Q:$G(NUROUT)
34 I NURMDSW S DIC(0)="AEQZ",NURPLSCR=1 D EN5^NURSAGSP Q:$G(NUROUT)
35 I NURMDSW=0,NURPLSW=1 S NURPLSCR=1 D PRD^NURSAGSP K NURPLSCR Q:$G(NUROUT)
36 W ! D EN1^NURSAGSP
37 Q
38TOTALS ;
39 I $Y>(IOSL-6) D HEADER^NURAGEN
40 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)
41 Q
Note: See TracBrowser for help on using the repository browser.