| [613] | 1 | NURCEVE2 ;HIRMFO/RTK,RM/MD-Nursing Care Plans Edit Report ;8/16/95
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | GOALS ; GIVEN THE TERM IN THE CHILD MULTIPLE (NURCA),
|
|---|
| 4 | ; THIS ROUTINE PRINTS THE GOALS UNDER NURCA AND ALLOWS THE
|
|---|
| 5 | ; USER TO EDIT THEM.
|
|---|
| 6 | K ^TMP("NURSEL",$J),GOARRAY S CNT=0
|
|---|
| 7 | D EN1^NURCEVE4(DFN,GMRGPDA,GMRGRT,NURCGOEX(0))
|
|---|
| 8 | K ^TMP("NURSEL",$J),CNT,GMRGTERM,GOARRAY,GOTMDC,NURCB,NURCC,NURCNT,NURGVR,NURX,NURY,NURZ
|
|---|
| 9 | Q
|
|---|
| 10 | SELDAT(AGGY,IEN) ; GIVEN AGGREGATE TERM (AGGY) AND 124.3 ENTRY (IEN)
|
|---|
| 11 | ; THIS ENTRY RETURNS THE INT/APP DATA ENTERED FOR THAT TERM
|
|---|
| 12 | N FXN
|
|---|
| 13 | S FXN=$O(^GMR(124.3,IEN,1,"B",AGGY,0))
|
|---|
| 14 | I FXN>0 S FXN=$P($G(^GMR(124.3,IEN,1,FXN,0)),U,2)
|
|---|
| 15 | Q FXN
|
|---|
| 16 | STAT(DA,GOAL,DATE) ; GIVEN THE 216.8 ENTRY (DA) THIS FUNCTION RETURNS THE
|
|---|
| 17 | ; LATEST STATUS FOR THE GOAL (GOAL).
|
|---|
| 18 | N NURSEL,NUREVDT,NURGODA
|
|---|
| 19 | S NURSEL="" F NUREVDT=0:0 S NUREVDT=$O(^NURSC(216.8,DA,"TARG","AA",GOAL,NUREVDT)) Q:NUREVDT'>0 D Q:NURSEL]""
|
|---|
| 20 | . F NURGODA=0:0 S NURGODA=$O(^NURSC(216.8,DA,"TARG","AA",GOAL,NUREVDT,NURGODA)) Q:NURGODA'>0 S NURSEL=$G(^NURSC(216.8,DA,"TARG",NURGODA,0)) Q:NURSEL]""
|
|---|
| 21 | . Q
|
|---|
| 22 | S DATE=$P(NURSEL,U,5)
|
|---|
| 23 | Q $P(NURSEL,U,2)
|
|---|
| 24 | ACTIVE(BLK,AGGY) ; GIVEN 124.3 ENTRY (BLK) THIS FUNCTION RETURNS 1 IF
|
|---|
| 25 | ; THE AGGREGATE TERM ENTRY (AGGY) IS A PART OF BLK, ELSE IT RETURNS 0
|
|---|
| 26 | Q ''$D(^GMR(124.3,BLK,1,"ALIST",AGGY))
|
|---|
