Routine: NURCEVE5

Information

NURCEVE5 ;HIRMFO/RTK,RM-HIGHLIGHT EDITED CARE PLANS ;8/29/96

Name	Comments	DBIA/ICR reference
EN1
Q1
HI(ONOFF)	; WILL TURN HIGHLIGHTING ON OR OFF (ONOFF).
QUEUED	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"The following is a list of previous Patient Plans of Care",! Line Location: EN1+5
Function Call: WRITE	Prompt: !,$S($D(GMRGPDAA($P(NURACPL(J),"^",2))):"**",1:" "),?5,J,". ",?8 Line Location: EN1+8
Function Call: WRITE	Prompt: Y," ",$P(^VA(200,USN,0),"^") Line Location: EN1+11
Function Call: READ	Variable: X Timeout: DTIME Line Location: EN1+13
Function Call: WRITE	Prompt: !,"""^"" TO STOP: " Line Location: EN1+13
Function Call: WRITE	Prompt: @IOF,! Line Location: EN1+13
Function Call: READ	Variable: NURSPLN Timeout: DTIME Line Location: Q1+0
Function Call: WRITE	Prompt: !?3,$C(7),"Enter a C to get a current listing which will give only the latest date,",!?3,"or an A to get a complete listing with all of the dates" Line Location: Q1+1
Function Call: WRITE	Prompt: !!,"This Report may be Queued to print on another device,",!,"Freeing your terminal for other use",! Line Location: Q1+2