Routine: GMRGPUTL

Information

GMRGPUTL ;HIRMFO/JH,RM-TEXT GENERATOR DATA SORT FOR OUTPUT ;9/1/95

Name	Comments	DBIA/ICR reference
EN3	; ENTRY TO RESULTS REPORTING MODULE
Q3
EN1	;Enter here if classification is not known
REPT
MES2
Q1
EN2	;Enter here if classification is known GMRGCLS=PTR TO 124.25 FILE.
PROMP
MES1
DEV
TASK
Q2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO PRINTABLE DATA" Line Location: EN1+3
Function Call: WRITE	Prompt: !!,"The following are groupings of data that can be printed for this",!,"patient's ",$P(GMRGRT,"^",2),".",! Line Location: EN1+4
Function Call: READ	Prompt: ": " Variable: GMRGREQ Timeout: DTIME Line Location: REPT+0
Function Call: WRITE	Prompt: !?5,$C(7),"Please enter numeric selection or up-arrow to quit.",!,?5,"Format: { 1 } or { 1,2,3,... } or { 2-7 } or { 2,3,7-9 } or { ^ } to quit" Line Location: MES2+0
Function Call: WRITE	Prompt: !,"NO PRINTABLE ",$S($D(^GMRD(124.25,GMRGCLS,0)):$P(^(0),"^")_" ",1:""),"DATA" Line Location: EN2+3
Function Call: WRITE	Prompt: !!,"Below is a list of ",$S($D(^GMRD(124.25,GMRGCLS,0)):$P(^(0),"^")_" ",1:""),"entries to print",! Line Location: EN2+4
Function Call: READ	Prompt: ": " Variable: GMRGREQ Timeout: DTIME Line Location: PROMP+0
Function Call: WRITE	Prompt: !?2,$C(7),"Please enter numeric selection or up-arrow to quit.",!,?5,"Format: { 1 } or { 1,2,3,... } or { 2-7 } or { 2,3,7-9 } or { ^ } to Quit" Line Location: MES1+0
Function Call: WRITE	Prompt: !!,"This Job may be Queued to print to another device,",!,"freeing your terminal for other use.",! Line Location: MES1+1
Function Call: WRITE	Prompt: !,"YOU MUST QUEUE A REPORT BEFORE SENDING IT TO A PRINTER!!" Line Location: DEV+0