42 lines
1.9 KiB
Mathematica
42 lines
1.9 KiB
Mathematica
NURA9F1 ;HIRMFO/JH/MD-GRADE PROFILE BY SERVICE CATEGORY BY LOCATION ;7/10/96
|
|
;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
|
|
CAT D HSKEEP G QUIT:$G(NUROUT)
|
|
D EN3^NURSAGSP G:$G(NUROUT) QUIT
|
|
D EN6^NURSAGP0 W ! G QUIT:$G(NUROUT)
|
|
D DEV G:POP!($D(ZTSK)) QUIT
|
|
START ;
|
|
K ^TMP($J),^TMP("NURA",$J),^TMP("NURLOC",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=""
|
|
S NURSTIL="GRADE PROFILE BY LOCATION AND SERVICE CATEGORY",NURSTIL1=$E(NURSSP,1,17)_"SERVICE EMPLOYEE"_$E(NURSSP,1,16)_"GRADE/STEP",NURSTIL2="NO. LOCATION CATEGORY NAME"_$E(NURSSP,1,20)_"CODE"
|
|
S NURROU=5,NRPT=5,NURSLEV=4 W ! D EN3^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
|
|
D TOTALS
|
|
G QUIT
|
|
POS ;SERVICE POSITION, GRADE REPORT BY LOCATION
|
|
D HSKEEP G QUIT:$G(NUROUT)
|
|
W ! D EN2^NURSAGSP G:$G(NUROUT) QUIT
|
|
D EN6^NURSAGP0 W ! G QUIT:$G(NUROUT)
|
|
D DEV G:POP!($D(ZTSK)) QUIT
|
|
START1 ;
|
|
K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NTCT,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=""
|
|
S NURSTIL="GRADE PROFILE BY LOCATION AND SERVICE POSITION",NURSTIL1=$E(NURSSP,1,17)_"SERVICE EMPLOYEE"_$E(NURSSP,1,16)_"GRADE/STEP",NURSTIL2="NO. LOCATION POSITION NAME"_$E(NURSSP,1,20)_"CODE"
|
|
S NURROU=6,NRPT=5,NURSLEV=5 W ! D EN4^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
|
|
D TOTALS
|
|
G QUIT
|
|
DEV ;
|
|
S ZTDESC="Nursing Grade Profile by Location & Service "_$S(ANS2=1:"CATEGORY",1:"Position")
|
|
S ZTRTN=$S(ANS2=1:"START",1:"START1")_"^NURA9F1" D EN7^NURSUT0
|
|
Q
|
|
QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
|
|
Q
|
|
CHK D NODATA^NURAGEN
|
|
Q
|
|
HSKEEP ;
|
|
D EN1^NURSAUTL Q:$G(NUROUT)
|
|
I NURMDSW S DIC(0)="AEQZ",NURPLSCR=1 D EN5^NURSAGSP Q:$G(NUROUT)
|
|
I NURMDSW=0,NURPLSW=1 S NURPLSCR=1 D PRD^NURSAGSP K NURPLSCR Q:$G(NUROUT)
|
|
W ! D EN1^NURSAGSP Q:$G(NUROUT)
|
|
Q
|
|
TOTALS ;
|
|
I $Y>(IOSL-6) D HEADER^NURAGEN
|
|
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)
|
|
Q
|