source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURCEVE2.m@ 623

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1NURCEVE2 ;HIRMFO/RTK,RM/MD-Nursing Care Plans Edit Report ;8/16/95
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3GOALS ; 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
10SELDAT(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
16STAT(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)
24ACTIVE(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))
Note: See TracBrowser for help on using the repository browser.