Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NURA6F1

NURA6F1.m

Go to the documentation of this file.
  1. NURA6F1 ;HIRMFO/JH/MD,FT-GRADE PROFILE BY SERVICE CATEGORY ;8/8/96 13:25
  1. ;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
  1. CAT D HSKEEP G QUIT:$G(NUROUT)
  1. D EN3^NURSAGSP G:$G(NUROUT) QUIT
  1. D EN6^NURSAGP0 G QUIT:$G(NUROUT)
  1. D DEV G:POP!($D(ZTSK)) QUIT
  1. START ;
  1. K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NTCT,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=" "
  1. S NURSTIL="GRADE PROFILE BY SERVICE CATEGORY",NURSTIL1=$E(NURSSP,1,10)_"SERVICE EMPLOYEE"_$E(NURSSP,1,18)_"GRADE/STEP",NURSTIL2="NO. CATEGORY NAME"_$E(NURSSP,1,22)_"CODE"
  1. S NURROU=15,NRPT=5,NURSLEV=3 W ! D EN1^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
  1. D TOTALS
  1. G QUIT
  1. POS ;SERVICE POSITION, GRADE REPORT
  1. D HSKEEP G QUIT:$G(NUROUT)
  1. W ! D EN2^NURSAGSP G:$G(NUROUT) QUIT
  1. D EN6^NURSAGP0 G QUIT:$G(NUROUT)
  1. D DEV G:POP!($D(ZTSK)) QUIT
  1. START1 ;
  1. K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=" "
  1. S NURSTIL="GRADE PROFILE BY SERVICE POSITION",NURSTIL1=$E(NURSSP,1,6)_"SERVICE EMPLOYEE"_$E(NURSSP,1,23)_"GRADE/STEP",NURSTIL2="NO. POSITION NAME"_$E(NURSSP,1,27)_"CODE"
  1. S NURROU=16,NRPT=5,NURSLEV=4 W ! D EN2^NURAAGS0,CHK G:$G(NUROUT) QUIT D PRINT^NURAGEN G:NX="^" QUIT
  1. D TOTALS
  1. G QUIT
  1. DEV ;
  1. S ZTDESC=$S(ANS2=1:"Grade Profile by Service Category",1:"Grade Profile by Service Position")
  1. W ! S ZTRTN=$S(ANS2=1:"START",1:"START1")_"^NURA6F1" D EN7^NURSUT0
  1. Q
  1. QUIT K ^TMP("NURA",$J),^TMP($J) D CLOSE^NURSUT1,^NURAKILL
  1. Q
  1. CHK D NODATA^NURAGEN
  1. Q
  1. HSKEEP ;
  1. D EN1^NURSAUTL Q:$G(NUROUT)
  1. I NURMDSW D EN12^NURSAGSP Q:$G(NUROUT) S DIC(0)="AEQZ",NURPLSCR=0 D EN5^NURSAGSP Q:$G(NUROUT)
  1. I NURMDSW=0,NURPLSW=1 S NURPLSCR=0 D PRD^NURSAGSP K NURPLSCR Q:$G(NUROUT)
  1. Q
  1. TOTALS ;
  1. I $Y>(IOSL-6) D HEADER^NURAGEN
  1. 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)
  1. Q