Routine: GMRVER1

Information

GMRVER1 ;HIRMFO/RM,YH-REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT ;5/26/99 08:57

Source file <GMRVER1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THERE IS NO DATA FOR THIS REPORT" Line Location: EN1+3
Function Call: WRITE	Prompt: ! Line Location: QT+1
Function Call: WRITE	Prompt: !!,"Press return to continue ""^"" to escape " Line Location: QT+2
Function Call: WRITE	Prompt: !,GMRPR("VSDT"),?21,GMRPR("TYPE"),?58,GMRPR("ENUS"),!,?3,"Reason: ",GREASON Line Location: WRT+29
Function Call: WRITE	Prompt: !,?3,"(Revised) ",$P(GMRDAT("GOOD"),"^",8) Line Location: WRT+30
Function Call: WRITE	Prompt: " No pain" Line Location: WRT+32
Function Call: WRITE	Prompt: " Unable to respond" Line Location: WRT+33
Function Call: WRITE	Prompt: " Worst imaginable pain" Line Location: WRT+34
Function Call: WRITE	Prompt: !,?3,"(Bad data) ",$P(GMRDAT("BAD"),"^",8) Line Location: WRT+35
Function Call: WRITE	Prompt: " No pain" Line Location: WRT+37
Function Call: WRITE	Prompt: " Unable to respond" Line Location: WRT+38
Function Call: WRITE	Prompt: " Worst imaginable pain" Line Location: WRT+39
Function Call: WRITE	Prompt: ! Line Location: WRT+40
Function Call: READ	Variable: X Timeout: DTIME Line Location: HDR+1
Function Call: WRITE	Prompt: !,GMRPDT,?22,"ENTERED IN ERROR VITAL/MEASUREMENT REPORT",?70,"PAGE ",GMRPG Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Patient: ",VADM(1),?$X+5,$P(VADM(2),"^",2),!!,"Date Vit./Meas. taken",?58,"User who made error",!,GMRDSH,! Line Location: HDR+4