Routine: GMRASIG1

Information

GMRASIG1 ;HIRMFO/WAA-A/AR PATIENT SIGN OFF PART2 ;9/22/06 10:49

Name	Comments	DBIA/ICR reference
PRINT	;Print out data to be signed off on
PAGE	;PAGE
PNOTE	; Generate a Progress Note for a patient
ENCNT	; Count how many entries where selected and set up Sort order
YNSO	;Select sign off for a patient

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"ADVERSE REACTION",!,"----------------" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?12,"Obs d/t: ",$$FMTE^XLFDT($P(^GMR(120.85,$O(^GMR(120.85,"C",GMRAPA,0)),0),U)) Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PRINT+22
Function Call: WRITE	Prompt: (GMRACNTT+1),") All of the above",! Line Location: PRINT+27
Function Call: WRITE	Prompt: (GMRACNTT+2),") None of the above",! Line Location: PRINT+28
Function Call: WRITE	Prompt: @IOF,! Line Location: PAGE+3
Function Call: WRITE	Prompt: @IOF,!,"Causative Agent Data edited this Session:" Line Location: YNSO+1
Function Call: WRITE	Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+1,") All by itself." Line Location: YNSO+11
Function Call: WRITE	Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+2,") None by itself." Line Location: YNSO+12