Routine: NURCEVE1

Information

NURCEVE1 ;HIRMFO/RTK,RM-Nursing Care Plans Edit Report ;8/29/96

Name	Comments	DBIA/ICR reference
GETPROB(NURENT,DATE)	; GIVEN ENTRY IN 216.8 (NURENT), FUNCTION WILL ; RETURN NUMBER OF ACTIVE PROBLEMS FOUND. IF ; COUNT>0, PROBLEMS WILL BE IN ^TMP("NURCHC",$J,X) ARRAY ; WHERE 1 <= X <=COUNT
GETPRB(NURENT,DATE)	; GIVEN ENTRY IN 216.8 (NURENT), FUNCTION WILL ; RETURN 1 IF THERE ARE ACTIVE PROBLEMS, ELSE 0. ; IF FUNCTION RETURNS 1, THEN PROBLEMS WILL BE IN: ; ^TMP("NURPRB",$J,PROBNAME,PROBIEN,GMRGPDA) ARRAY ; WHERE PROBNAME=FREE TEXT, PROBIEN=PTR 124.2, GMRGPDA=PTR 124.3
SRTPROB(NURACM)	; GIVEN FLAG (NURACM) AS $S(0:NO ARRAY,1:ARRAY EXISTS) ; WHERE ARRAY IS ^TMP("NURPRB",$J,PROBNAME,NURPRB,GMRGPDA), THIS ; FUNCTION WILL RETURN NUMBER OF ARRAY ELEMENTS (COUNT) AND IF ; COUNT>0 THIS FUNCTION WILL RETURN ^TMP("NURCHC",$J,X) ARRAY ; WHERE X IS 1 <= X <= COUNT.
PCKPROB(NURACM)	; GIVEN NUMBER OF SELECTIONS TO PRINT (NURACM) ; FUNCTION WILL RETURN 1 IF USER HAS SELECTIONS TO PROCESS, 0 IF USER ; SELECTED NO PROBLEMS, AND -1 IF USER ABNORMALLY EXITED, IF ; FUNCTION RETURNS 1, THE LIST OF PROBLEMS USER WISHES TO PROCESS ; WILL BE IN ^TMP("NURUSL",$J)
HDR	; HEADER FOR PROBLEM LISTING
VALIDATE(X,GMR)	; GIVEN X AS INPUT TO READ FOR CHOOSING SELECTIONS ; ENTRY WILL KILL X IF INVALID, ELSE WILL RETURN A TRANSFORMED ; VERSION OF X

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THERE ARE NO PROBLEMS FOR THIS PATIENT." Line Location: PCKPROB+6
Function Call: WRITE	Prompt: !,NURCNT,?3,$E(GMRGXPRT,1,43),?48,$P($G(NURCPDT($P(X,U,4))),U,2),?68,$P(X,U,3) Line Location: PCKPROB+11
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: #,!!,?48,"DATE/TIME",?68,"EVALUATION",!?3,"PROBLEM",?48,"DEVELOPED",?68,"DATE" Line Location: HDR+9