Routine: GMRPNCW

Entry Points

Name	Comments	DBIA/ICR reference
RESPOND	;prompt for warnings to display
SETUP(TITLE)
EN	;Entry for secondary option to lookup patient, display warnings
END
ALLERGY	;checks for allergies on file for patient - requires GMRPDFN
LIST	;List data lines -- expects GMRPTYP="C" or "W" or "A" or "D"
ADDEND(STATUS)	; If addended or amended, return most recent of these, for most recent note.
CWLKP	;Lookup and presentation of CWA indicators
ADDX
QUES	;Response to "?" at CWA prompt
PRINT	;Prints Crisis Notes, Clin Warnings & Allergies using HS utilities.
ENPAT	;Additional entry point; must be passed Patient DFN in Y.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?(IOM-$L(TITLE)\2),TITLE,! Line Location: SETUP+2
Function Call: WRITE	Prompt: "-" Line Location: SETUP+2
Function Call: WRITE	Prompt: ! Line Location: SETUP+3
Function Call: WRITE	Prompt: !!,"No Patient Warnings on file for " Line Location: ENPAT+8
Function Call: WRITE	Prompt: $P(GMRPDFN,U,2),".",! Line Location: ENPAT+9
Function Call: WRITE	Prompt: !?24,"A: Known allergies" Line Location: CWLKP+4
Function Call: WRITE	Prompt: ! Line Location: CWLKP+6
Function Call: WRITE	Prompt: ! Condition for execution: $D(DIRUT)!(Y=1) Line Location: CWLKP+6
Function Call: WRITE	Prompt: !?11," (",CTR," note",$S(CTR>1:"s",1:" "),")",?24,GMRPTYP,": ",GMRPDDT Line Location: LIST+17
Function Call: WRITE	Prompt: $$ADDEND(STATUS) Line Location: LIST+18
Function Call: WRITE	Prompt: !!,"Select patient warning(s) to display: "_GMRPCWA_"//" Line Location: RESPOND+1
Function Call: READ	Timeout: 60 Variable: GMRPX Line Location: RESPOND+2
Function Call: WRITE	Prompt: $C(7) Line Location: PRINT+1
Function Call: WRITE	Prompt: !!," Enter:" Line Location: QUES+1
Function Call: WRITE	Prompt: !?8,"C for Crisis Notes",!?8,"W for Clinical Warnings" Line Location: QUES+2
Function Call: WRITE	Prompt: !?8,"A for Allergies",!?8,"D for Directive Notes" Line Location: QUES+3
Function Call: WRITE	Prompt: !?8,"CWAD for all 4 patient warnings" Line Location: QUES+4
Function Call: WRITE	Prompt: !!?8,"or any combination of C, W, A, and D without commas." Line Location: QUES+5