source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURA9H1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1NURA9H1 ;HIRMFO/JH/MD,FT-CATEGORY, MILITARY REPORT BY LOCATION ;8/9/96 11:08
2 ;;4.0;NURSING SERVICE;**13**;Apr 25, 1997
3CAT D HSKEEP G QUIT:$G(NUROUT)
4 W ! D EN3^NURSAGSP G:$G(NUROUT) QUIT
5 D EN8^NURSAGP0 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="MILITARY PROFILE BY LOCATION/SVC. CATEGORY",NURSTIL1=$E(NURSSP,1,17)_"SERVICE"_$E(NURSSP,1,26)_"MILITARY BRANCH OF",NURSTIL2="NO. LOCATION CATEGORY NAME"_$E(NURSSP,1,18)_"STATUS SERVICE"
10 S NURROU=7,NRPT=9,NURSLEV=5 W ! D EN3^NURAAGS0,CHK G:$G(NUROUT) QUIT
11 D PRINT^NURAGEN G:NX="^" QUIT
12 D TOTALS
13 G QUIT
14POS ;POSITION, MILITARY REPORT BY LOCATION
15 D HSKEEP G QUIT:$G(NUROUT)
16 W ! D EN2^NURSAGSP G:$G(NUROUT) QUIT
17 D EN8^NURSAGP0 W ! G QUIT:$G(NUROUT)
18 D DEV G:POP!($D(ZTSK)) QUIT
19START1 ;
20 K ^TMP($J),^TMP("NURA",$J) U IO S (NURPAGE,NURSW1,NURQUIT)=0,NURSSP="",$P(NURSSP," ",132)=" "
21 S NURSTIL="MILITARY PROFILE BY LOCATION/SVC. POSITION",NURSTIL1=$E(NURSSP,1,17)_"SERVICE"_$E(NURSSP,1,26)_"MILITARY BRANCH OF",NURSTIL2="NO. LOCATION POSITION NAME"_$E(NURSSP,1,18)_"STATUS SERVICE"
22 S NURROU=8,NRPT=9,NURSLEV=6 W ! D EN4^NURAAGS0,CHK G:$G(NUROUT) QUIT
23 D PRINT^NURAGEN G:NX="^" QUIT
24 D TOTALS
25 G QUIT
26DEV ;
27 S ZTDESC="Nursing Military Profile by Location & Service "_$S(ANS2=1:"Category",1:"Position")
28 S ZTRTN=$S(ANS2=1:"START",1:"START1")_"^NURA9H1" 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 S DIC(0)="AEQZ",NURPLSCR=1 D EN5^NURSAGSP Q:$G(NUROUT)
37 I NURMDSW=0,NURPLSW=1 S NURPLSCR=1 D PRD^NURSAGSP K NURPLSCR Q:$G(NUROUT)
38 W ! D EN1^NURSAGSP Q:$G(NUROUT)
39 Q
40TOTALS ;
41 I $Y>(IOSL-6) D HEADER^NURAGEN
42 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)
43 Q
Note: See TracBrowser for help on using the repository browser.