- NURCCPU1 ;HIRMFO/RM/MD-NURSING CARE PLAN UTILITIES (cont.) ;8/16/95
- ;;4.0;NURSING SERVICE;;Apr 25, 1997
- EN1 ; ENTRY FOR ACTION TO ENSURE THAT NURSCPE VARIABLE SET IN NCP.
- I '$D(NURSPROB) S NURSPROB=0
- Q:$D(NURSCPE) S NURSCPE=$O(^NURSC(216.8,"B",GMRGPDA,0)) D:NURSCPE'>0 NEWPL^NURCPP0 I NURSCPE'>0 S GMRGOUT=1
- Q
- EN2 ; ENTRY TO PRINT OUTCOME INFORMATION IF PRESENT
- Q:'$P(GMRGSEL,"^",3)
- S NURSTRDT=$O(^NURSC(216.8,NURSCPE,"TARG","AA",$P(GMRGSEL,"^"),0)) G:NURSTRDT'>0 Q2 S NURSTRDA=$O(^(NURSTRDT,0)) G:NURSTRDA'>0 Q2 S NURSTRND=$S($D(^NURSC(216.8,NURSCPE,"TARG",NURSTRDA,0)):^(0),1:"")
- S Y=$P(NURSTRND,"^",5) S NURSTRDT=$S(Y:$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3),1:""),NURSTRMT=$P(NURSTRND,"^",2)
- S GMRGHPRT(1)="68^"_NURSTRDT_$S(NURSTRMT=1:"(M)",NURSTRMT=2:"(DC)",1:"(T)")
- Q2 K NURSTRDT,NURSTRDA,NURSTRND,NURSTRMT
- Q
- EN3 ; ENTRY TO PRINT EVALUATION INFORMATION IF PRESENT
- Q:'$P(GMRGSEL,"^",3)
- S NURSEVDT=$O(^NURSC(216.8,NURSCPE,"EVAL","AA",$P(GMRGSEL,"^"),0)) G:NURSEVDT'>0 Q3 S NURSEVDA=$O(^(NURSEVDT,0)) G:NURSEVDA'>0 Q3 S NURSEVND=$S($D(^NURSC(216.8,NURSCPE,"EVAL",NURSEVDA,0)):^(0),1:"")
- S Y=$P(NURSEVND,"^") S NURSEVDT=$S(Y:$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3),1:"") S Y=$P(NURSEVND,"^",5) S NURSEVRD=$S(Y:$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3),1:"")
- S GMRGHPRT(1)="67^"_$S(NURSEVRD'="":NURSEVRD,NURSEVDT'="":NURSEVDT,1:" ")_" ("_$P("E^R^S^U","^",$P(NURSEVND,"^",4)+1)_")"
- Q3 K NURSEVDT,NURSEVDA,NURSEVND,NURSEVRD,NURSEVUS,NURSEVST
- Q
- EN4 ; ENTRY TO PRINT THE PROBLEM AT THE TOP OF THE SCREEN FOR ALL
- ; CHILDREN THAT ARE UNDER A PROBLEM.
- Q:'$D(NURSPROB) Q:'$D(NURSPROB(NURSPROB)) Q:'$P(NURSPROB(NURSPROB),"^")
- S GMRGXPRT=$P(NURSPROB(NURSPROB),"^",2),GMRGXPRT(0)=$S($P(NURSPROB(NURSPROB),"^",3)="":"",$D(^GMR(124.3,GMRGPDA,1,$P(NURSPROB(NURSPROB),"^",3),0)):$P(^(0),"^",2),1:""),GMRGXPRT(1)="^^1^^1" D EN1^GMRGRUT2
- S GMRGPLN=GMRGXPRT F NURSH=1:1 S GMRGLEN=IOM-17 D FITLINE^GMRGRUT1 Q:GMRGPLN(0)="" S GMRGHPRT(NURSH)=$S(NURSH=1:"PATIENT PROBLEM: ",1:" "),GMRGHPRT(NURSH)=GMRGHPRT(NURSH)_GMRGPLN(0),GMRGPLN=GMRGPLN(1)
- K GMRGXPRT,NURSH Q
- EN5 ; SCREEN FROM THE ORDERABLE (#.02) SUBFIELD OF THE ORDERS INFO (#4)
- ; FIELD OF THE NURS CARE PLAN (#216.8) FILE)
- S NURS("OK")=0,NURS("IN")=$O(^GMRD(124.25,"B","ORDERABLE",0)),NURS("P")=$P(^NURSC(216.8,DA(1),0),U) G Q5:NURS("IN")=""!(NURS("P")="")!($P(^GMRD(124.2,+Y,0),U,4)'=NURS("IN")),Q5:'$D(^GMR(124.3,NURS("P"),1,"B",+Y))
- F NURS=0:0 S NURS=$O(^GMRD(124.2,"AKID",+Y,NURS)) Q:NURS'>0!NURS("OK") F NURS(0)=0:0 S NURS(0)=$O(^GMRD(124.2,"AKID",NURS,NURS(0))) Q:NURS(0)'>0 I $D(^NURSC(216.8,D0,"PROB","B",NURS(0))) S NURS("OK")=1 Q
- Q5 I NURS("OK")
- K NURS
- Q
- NURCCPU1 ;HIRMFO/RM/MD-NURSING CARE PLAN UTILITIES (cont.) ;8/16/95
- +1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
- EN1 ; ENTRY FOR ACTION TO ENSURE THAT NURSCPE VARIABLE SET IN NCP.
- +1 IF '$DATA(NURSPROB)
- SET NURSPROB=0
- +2 IF $DATA(NURSCPE)
- QUIT
- SET NURSCPE=$ORDER(^NURSC(216.8,"B",GMRGPDA,0))
- IF NURSCPE'>0
- DO NEWPL^NURCPP0
- IF NURSCPE'>0
- SET GMRGOUT=1
- +3 QUIT
- EN2 ; ENTRY TO PRINT OUTCOME INFORMATION IF PRESENT
- +1 IF '$PIECE(GMRGSEL,"^",3)
- QUIT
- +2 SET NURSTRDT=$ORDER(^NURSC(216.8,NURSCPE,"TARG","AA",$PIECE(GMRGSEL,"^"),0))
- IF NURSTRDT'>0
- GOTO Q2
- SET NURSTRDA=$ORDER(^(NURSTRDT,0))
- IF NURSTRDA'>0
- GOTO Q2
- SET NURSTRND=$SELECT($DATA(^NURSC(216.8,NURSCPE,"TARG",NURSTRDA,0)):^(0),1:"")
- +3 SET Y=$PIECE(NURSTRND,"^",5)
- SET NURSTRDT=$SELECT(Y:$EXTRACT(Y,4,5)_"/"_$EXTRACT(Y,6,7)_"/"_$EXTRACT(Y,2,3),1:"")
- SET NURSTRMT=$PIECE(NURSTRND,"^",2)
- +4 SET GMRGHPRT(1)="68^"_NURSTRDT_$SELECT(NURSTRMT=1:"(M)",NURSTRMT=2:"(DC)",1:"(T)")
- Q2 KILL NURSTRDT,NURSTRDA,NURSTRND,NURSTRMT
- +1 QUIT
- EN3 ; ENTRY TO PRINT EVALUATION INFORMATION IF PRESENT
- +1 IF '$PIECE(GMRGSEL,"^",3)
- QUIT
- +2 SET NURSEVDT=$ORDER(^NURSC(216.8,NURSCPE,"EVAL","AA",$PIECE(GMRGSEL,"^"),0))
- IF NURSEVDT'>0
- GOTO Q3
- SET NURSEVDA=$ORDER(^(NURSEVDT,0))
- IF NURSEVDA'>0
- GOTO Q3
- SET NURSEVND=$SELECT($DATA(^NURSC(216.8,NURSCPE,"EVAL",NURSEVDA,0)):^(0),1:"")
- +3 SET Y=$PIECE(NURSEVND,"^")
- SET NURSEVDT=$SELECT(Y:$EXTRACT(Y,4,5)_"/"_$EXTRACT(Y,6,7)_"/"_$EXTRACT(Y,2,3),1:"")
- SET Y=$PIECE(NURSEVND,"^",5)
- SET NURSEVRD=$SELECT(Y:$EXTRACT(Y,4,5)_"/"_$EXTRACT(Y,6,7)_"/"_$EXTRACT(Y,2,3),1:"")
- +4 SET GMRGHPRT(1)="67^"_$SELECT(NURSEVRD'="":NURSEVRD,NURSEVDT'="":NURSEVDT,1:" ")_" ("_$PIECE("E^R^S^U","^",$PIECE(NURSEVND,"^",4)+1)_")"
- Q3 KILL NURSEVDT,NURSEVDA,NURSEVND,NURSEVRD,NURSEVUS,NURSEVST
- +1 QUIT
- EN4 ; ENTRY TO PRINT THE PROBLEM AT THE TOP OF THE SCREEN FOR ALL
- +1 ; CHILDREN THAT ARE UNDER A PROBLEM.
- +2 IF '$DATA(NURSPROB)
- QUIT
- IF '$DATA(NURSPROB(NURSPROB))
- QUIT
- IF '$PIECE(NURSPROB(NURSPROB),"^")
- QUIT
- +3 SET GMRGXPRT=$PIECE(NURSPROB(NURSPROB),"^",2)
- SET GMRGXPRT(0)=$SELECT($PIECE(NURSPROB(NURSPROB),"^",3)="":"",$DATA(^GMR(124.3,GMRGPDA,1,$PIECE(NURSPROB(NURSPROB),"^",3),0)):$PIECE(^(0),"^",2),1:"")
- SET GMRGXPRT(1)="^^1^^1"
- DO EN1^GMRGRUT2
- +4 SET GMRGPLN=GMRGXPRT
- FOR NURSH=1:1
- SET GMRGLEN=IOM-17
- DO FITLINE^GMRGRUT1
- IF GMRGPLN(0)=""
- QUIT
- SET GMRGHPRT(NURSH)=$SELECT(NURSH=1:"PATIENT PROBLEM: ",1:" ")
- SET GMRGHPRT(NURSH)=GMRGHPRT(NURSH)_GMRGPLN(0)
- SET GMRGPLN=GMRGPLN(1)
- +5 KILL GMRGXPRT,NURSH
- QUIT
- EN5 ; SCREEN FROM THE ORDERABLE (#.02) SUBFIELD OF THE ORDERS INFO (#4)
- +1 ; FIELD OF THE NURS CARE PLAN (#216.8) FILE)
- +2 SET NURS("OK")=0
- SET NURS("IN")=$ORDER(^GMRD(124.25,"B","ORDERABLE",0))
- SET NURS("P")=$PIECE(^NURSC(216.8,DA(1),0),U)
- IF NURS("IN")=""!(NURS("P")="")!($PIECE(^GMRD(124.2,+Y,0),U,4)'=NURS("IN"))
- GOTO Q5
- IF '$DATA(^GMR(124.3,NURS("P"),1,"B",+Y))
- GOTO Q5
- +3 FOR NURS=0:0
- SET NURS=$ORDER(^GMRD(124.2,"AKID",+Y,NURS))
- IF NURS'>0!NURS("OK")
- QUIT
- FOR NURS(0)=0:0
- SET NURS(0)=$ORDER(^GMRD(124.2,"AKID",NURS,NURS(0)))
- IF NURS(0)'>0
- QUIT
- IF $DATA(^NURSC(216.8,D0,"PROB","B",NURS(0)))
- SET NURS("OK")=1
- QUIT
- Q5 IF NURS("OK")
- +1 KILL NURS
- +2 QUIT
