Routine: NURCCP2

Package	Total	Caller Graph
Nursing Service	2	NURCCP1 NURCCP3

Entry Points

Name	Comments	DBIA/ICR reference
EOPG	; END OF PAGE
HDR	; PRINT HDR & FF
SELC	;
DXPRT	; PRINT DX'S UNDER PROBLEMS
SETSEL	; SET SELECTION ARRAY
VALSEL	; VALIDATE INPUT IN NURX IN FORM 1-3,4 WITH 1-CHC AS RANGE ; SETS OK=1 IF VALID, ELSE SETS OK=0
SEL	; SELECT PROMPT
SELCHC	; PRINT CHOICES TO SELECT FROM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THERE ARE NO ENTRIES TO PICK FROM" Line Location: SELCHC+1
Function Call: WRITE	Prompt: !,$J(X,3,0),". ",$P(^TMP($J,"CPCH",X),"^",2) Line Location: SELC+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: !?4,"ENTER SELECTIONS USING HYPHENS AND COMMAS. E.G. 1-3,6." Line Location: SEL+2
Function Call: WRITE	Prompt: !?4,$C(7),"PLEASE ENTER A NUMBER IN THE RANGE 1-",CHC Line Location: SEL+3
Function Call: WRITE	Prompt: !?4,"OR ENTER ^ TO EXIT, OR ?? TO RELIST THE SELECTIONS." Line Location: SEL+4
Function Call: WRITE	Prompt: !?5,"- "_$P(H,"^",2) Line Location: DXPRT+1
Function Call: READ	Timeout: DTIME Variable: Y Line Location: EOPG+1
Function Call: WRITE	Prompt: !,"Enter action (<RET> to see more): " Line Location: EOPG+1
Function Call: WRITE	Prompt: !?4,"TYPE <RET> TO CONTINUE LISTING, ?? TO RELIST THE SELECTIONS,",!?4,"^ TO STOP LISTING, ^^ TO EXIT PROGRAM" Line Location: EOPG+4
Function Call: WRITE	Prompt: ",",!?4,"OR MAKE SELECTIONS, CHOOSE FROM 1-",CHC Condition for execution: MULT Line Location: EOPG+4
Function Call: WRITE	Prompt: "." Line Location: EOPG+4
Function Call: WRITE	Prompt: @IOF,TXT Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	SELC+1, SEL+6, DXPRT+1, SETSEL+1

Name	Field # of Occurrence
>> A	VALSEL+2, SETSEL+1
>> ANS	SELCHC+1, SEL+1, SEL+2, SEL+6, SETSEL+1
>> B	VALSEL+2, SETSEL+1
>> C	VALSEL+2, VALSEL+3, SETSEL+1
>> CHC	SELCHC+1, SELC+1, SEL+3, EOPG+4, VALSEL+2
>> D	VALSEL+2, SETSEL+1
DTIME	SEL+1, EOPG+1
>> E	VALSEL+2, SETSEL+1
>> F	SETSEL+1*
>> G	DXPRT+1*
>> H	DXPRT+1*
IOF	HDR+1
>> MULT	SEL+1, SEL+2, SEL+3, SEL+6, EOPG+2, EOPG+4
>> NURCEOPG	SELC+1, DXPRT+1
>> NURCOUT	SELC+1, SELC+2, SEL+1, DXPRT+1, EOPG+1*
>> NURX	SEL+2, SEL+7, EOPG+2*, VALSEL+2, SETSEL+1
>> OK	SEL+2, SEL+3, SEL+4, SEL+5, EOPG+2, VALSEL+3*
>> TXT	HDR+1
>> X	SELC+1, SEL+1, SEL+2, SEL+3, SEL+4, SEL+5, SEL+6, SEL+7, DXPRT+1, EOPG+3*
>> Y	EOPG+1, EOPG+2, EOPG+3, SETSEL+1
>> Z	SETSEL+1*