source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURA6A1.m@ 701

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1NURA6A1 ;HIRMFO/JH/MD,FT-ACADEMIC DEGREE REPORT BY SVC. CATEGORY ;8/8/96 12:52
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 EN2^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)=0,NURSSP="",$P(NURSSP," ",80)=" "
9 S NURSTIL="ACADEMIC EDUCATION PROFILE BY SERVICE CATEGORY ",NURSTIL1=$E(NURSSP,1,10)_"SERVICE EMPLOYEE"_$E(NURSSP,1,18)_"HIGHEST",NURSTIL2="NO. CATEGORY NAME"_$E(NURSSP,1,22)_"ACAD. DEGREE"
10 S NURROU=11,NRPT=1,NURSLEV=3 W ! D EN1^NURAAGS0,CHK G:$G(NUROUT) QUIT
11 D PRINT^NURAGEN G:NX="^" QUIT
12 D TOTALS
13QUIT D CLOSE^NURSUT1,^NURAKILL
14 Q
15POS ;ACADEMIC DEGREE REPORT BY SERVICE POSITION
16 D HSKEEP G QUIT:$G(NUROUT)
17 W ! D EN2^NURSAGSP G QUIT:$G(NUROUT)
18 D EN2^NURSAGP0 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)=0,NURSSP="",$P(NURSSP," ",132)=" "
22 S NURSTIL="ACADEMIC EDUCATION PROFILE BY SERVICE POSITION",NURSTIL1=$E(NURSSP,1,6)_"SERVICE EMPLOYEE"_$E(NURSSP,1,23)_"HIGHEST",NURSTIL2="NO. POSITION NAME"_$E(NURSSP,1,27)_"ACAD. DEGREE"
23 S NURROU=12,NRPT=1,NURSLEV=4 W ! D EN2^NURAAGS0,CHK G:$G(NUROUT) QUIT
24 D PRINT^NURAGEN G:NX="^" QUIT
25 S NURSORT(2)=2,NURSORT(3)="N(1)" D TOTALS
26 G QUIT
27DEV ;
28 S ZTDESC=$S(ANS2=1:"ACADEMIC EDUCATION PROFILE BY SERVICE CATEGORY",1:"ACADEMIC EDUCATION PROFILE BY SERVICE POSITION")
29 S ZTRTN=$S(ANS2=1:"START^NURA6A1",1:"START1^NURA6A1") D EN7^NURSUT0
30 Q
31CHK D NODATA^NURAGEN
32 Q
33HSKEEP ;
34 D EN1^NURSAUTL Q:$G(NUROUT)
35 I NURMDSW D EN12^NURSAGSP Q:$G(NUROUT) S DIC(0)="AEQZ",NURPLSCR=0 D EN5^NURSAGSP Q:$G(NUROUT)
36 I NURMDSW=0,NURPLSW=1 S NURPLSCR=0 D PRD^NURSAGSP K NURPLSCR
37 Q
38TOTALS ;
39 I $Y>(IOSL-6) D HEADER^NURAGEN
40 W !,?47,$$REPEAT^XLFSTR("-",33) 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.