Routine: NURCROP1

Information

NURCROP1 ;HIRMFO/RM,RTK-RANK ORDER PRINT (CONT.) ;8/29/96

Source file <NURCROP1.m>

Package	Total	Call Graph
Nursing Service	1	ENDPG^NURSUT1
VA Fileman	1	DD^%DT

Package	Total	Caller Graph
Nursing Service	2	NURCROP0 NURCROP2

Name	Comments	DBIA/ICR reference
RETURN
HEADER(PG)	; FUNCTION PRINTS HEADER FOR NEXT PAGE ; FUNCTION VALUE IS THE NUMBER OF NEW PAGE, -1 IF ABNORMAL USER EXIT
RECUR
WRTPPT(BS5)	; WRITES OUT LINE FOR PATIENTS UNDER PROBLEM, CHECKS FOR HDR ; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
WRTPROB(RANK,PROB,FREQ)	; WRITES OUT LINE FOR PROBLEM, CHECKS FOR HEADER PRINT ; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
PROBLEM(AGGY)	; ; FUNCTION VALUE IS 1 IF AGGY HAS CLASS OF NURSING PROBLEM, ELSE ; RETURNS 0.
GETTRM(PR,CLAS)	; ; GETS FIRST TERM ENCOUNTERED IN TREE WITH PR AS ROOT WITH CLASS.=CLAS
WRTORD(RANK,ORD,FREQ)	; WRITES OUT LINE FOR ORDERABLE, CHECKS FOR HDR PRINT ; FUNCTION VALUE IS 1 IF ABNORMAL USER EXIT, ELSE 0
HDRINT()	; PRINTS HEADER FOR INTERVENTIONS UNDER A PROBLEM ; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
GETLST(PR,CLAS)	; GETS LIST OF TERMS IN TREE WITH PR AS ROOT WITH CLASS.=CLAS ; FUNCTION RETURNS 1 IF LIST NOT EMPTY, ELSE RETURNS 0.
ACTIVE(PR,NCP,BDT,EDT)	; ; FUNCTION VALUE IS 0 IF THIS PROBLEM IS ACTIVE OVER DATE/TIME RANGE ; BGD-EDT, ELSE VALUE IS 1
WRTOPT(BS5)	; WRITES OUT LINE FOR PATIENTS UNDER ORDERABLE, CHECKS FOR HDR ; FUNCTION VALUE IS 1 IF ABNORMAL USER END, ELSE 0
RECUR1

Name	Field # of Occurrence
DD^%DT	HEADER+5
ENDPG^NURSUT1	HEADER+2

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"RANK LISTING OF PATIENT PROBLEMS",?71,"PAGE",$J(PG,3) Line Location: HEADER+4
Function Call: WRITE	Prompt: " Report Identifier: ",NURCLID Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"==============================================================================" Line Location: HEADER+6
Function Call: WRITE	Prompt: !?5,"Rank Freq Intervention",!?5,"---- ---- ------------" Line Location: HDRINT+3
Function Call: WRITE	Prompt: !!,$J(RANK,3),?5,$J(FREQ,4),?11,$P($G(^GMRD(124.2,+PROB,0)),"^") Line Location: WRTPROB+3
Function Call: WRITE	Prompt: !?5,$J(RANK,3),?10,$J(FREQ,4),?16,$P($G(^GMRD(124.2,+ORD,0)),"^") Line Location: WRTORD+3
Function Call: WRITE	Prompt: BS5,"," Line Location: WRTOPT+3
Function Call: WRITE	Prompt: BS5,"," Line Location: WRTPPT+3

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(124.2 - [#124.2]	WRTPROB+3, WRTORD+3, PROBLEM+5, RECUR1, RECUR
^GMRD(124.25 - [#124.25]	PROBLEM+4
^NURSC(216.8 - [#216.8]	ACTIVE+4, ACTIVE+5

Name	Line Occurrences
$$HEADER	HDRINT+2, WRTPROB+2, WRTORD+2, WRTOPT+2, WRTPPT+2
$$PROBLEM	ACTIVE+4
RECUR	GETLST+3, RECUR
RECUR1	GETTRM+3, RECUR1
RETURN	HEADER+2

Name	Field # of Occurrence
A	GETTRM+2~, GETTRM+3, RECUR1, GETLST+2~, GETLST+3, RECUR
ACTIVE	ACTIVE+3~, ACTIVE+4, ACTIVE+5*, ACTIVE+6
AGGY	PROBLEM~, PROBLEM+5
B	GETTRM+2~, RECUR1~, GETLST+2~, RECUR~
BDT	ACTIVE~, ACTIVE+5
BS5	WRTOPT~, WRTOPT+3, WRTPPT~, WRTPPT+3
C	GETTRM+2~, RECUR1, GETLST+2~, RECUR
CLAS	PROBLEM+3~, PROBLEM+4*, PROBLEM+5, GETTRM~, RECUR1, GETLST~, RECUR
D	GETTRM+2~, RECUR1~, GETLST+2~, RECUR~
DIR	HEADER+2~
E	GETTRM+2~, GETTRM+3, GETTRM+4, RECUR1
EDT	ACTIVE~, ACTIVE+5
FREQ	WRTPROB~, WRTPROB+3, WRTORD~, WRTORD+3
IOF	HEADER+3
IOM	WRTOPT+2, WRTPPT+2
IOSL	HDRINT+2, WRTPROB+2, WRTORD+2, WRTOPT+2, WRTPPT+2
IOST	HEADER+2, HEADER+3
NCP	ACTIVE~, ACTIVE+4
NNCP	ACTIVE+3~, ACTIVE+4*, ACTIVE+5
>> NURCBGDT	HEADER+5
>> NURCENDT	HEADER+5
>> NURCLID	HEADER+5
>> NURCPAGE	HDRINT+2, WRTPROB+2, WRTORD+2, WRTOPT+2, WRTPPT+2*
>> NUROUT	HEADER+2
NURSLIST	GETLST+2!, GETLST+4
NURSLIST(	RECUR*
ORD	WRTORD~, WRTORD+3
PG	HEADER~, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+6, RETURN
PR	ACTIVE~, ACTIVE+4, ACTIVE+5, GETTRM~, GETTRM+3, GETLST~, GETLST+3
PROB	WRTPROB~, WRTPROB+3
PROBLEM	PROBLEM+3~, PROBLEM+4, PROBLEM+5*, PROBLEM+6
RANK	WRTPROB~, WRTPROB+3, WRTORD~, WRTORD+3
WRT	HDRINT+2~, HDRINT+3, HDRINT+4, WRTPROB+2~, WRTPROB+3, WRTPROB+4, WRTORD+2~, WRTORD+3, WRTORD+4, WRTOPT+2~ , WRTOPT+3, WRTOPT+4, WRTPPT+2~*, WRTPPT+3, WRTPPT+4
X	HEADER+2~, ACTIVE+3~, ACTIVE+5*
Y	HEADER+2~, HEADER+5, ACTIVE+3~, ACTIVE+5