| 1 | NURADEG3 ;HIRMFO/JH-INDEVIDUAL, COMBINED EDUCATIONAL REPORT ;6/14/94
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | S (NURPAGE,NUROUT,NURQUIT)=0,DA=N1 D EN3^NURSUT0 S NLO=$S($P($G(^NURSF(211.8,+NOD1,0)),U)'="":$P(^(0),U),1:" BLANK")
|
|---|
| 4 | S NPWARD=NLO D EN7^NURSAUTL S DA=N1,DA(1)=N2
|
|---|
| 5 | S II=0 F I=0:0 S II=$O(^NURSF(210,DA,6,II)) Q:II'>0 D
|
|---|
| 6 | . S NURAH=^NURSF(212.1,$P(^NURSF(210,DA,6,II,0),U),0),NURASSN=$P($G(^VA(200,DA(1),1)),U,9),^TMP($J,"DEG",DA,$P(^VA(200,DA(1),0),U),$S(NURASSN'="":NURASSN,1:999999999),II)=NURAH
|
|---|
| 7 | . Q
|
|---|
| 8 | S NURAHIGH=$G(^NURSF(210,DA,17)) Q:'$P(NURAHIGH,U)&('$P(NURAHIGH,U,2)) S (NURANUR,NURAACA)="" D
|
|---|
| 9 | . I $P(NURAHIGH,U)'="" S NURANUR=$P($G(^NURSF(212.1,$P(NURAHIGH,U),0)),U)
|
|---|
| 10 | . I $P(NURAHIGH,U,2)'="" S NURAACA=$P($G(^NURSF(212.1,$P(NURAHIGH,U,2),0)),U)
|
|---|
| 11 | . S:$D(NURANUR)!($D(NURAACA)) ^TMP($J,"HIGH",DA)=NURANUR_U_NURAACA_U_NPWARD_U_NPSPOS
|
|---|
| 12 | . Q
|
|---|
| 13 | QUIT K I,DATA,NURNODE4,ZZ,%DT,NX,NOD1,NOD2,NURFLAG,NPSPOS,N2,NO,N1,D1,NURHOSP,DIC,M,NADT,NL1,NLO,NI,NO,NURSZDA,NURSZORT,NURSZLO,NURSZAP,NURSZSP,NPWARD,N,NAD,NJ,NUREQWRD
|
|---|
| 14 | Q
|
|---|
