Routine: GMRVER1

Information

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

Package	Total	Call Graph
General Medical Record - Vitals	3	($$WRITECH,CHAR)^GMRVCHAR ($$WRTDAT,ERREASON)^GMRVER0 EN1^GMRVSAS0
VA FileMan	2	NOW^%DTC D^DIQ
Kernel	1	^%ZISC
Registration	1	(DEM,KVAR)^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMRVER0

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; ENTRY TO REPORT FROM TASKMAN
QT	;
Q	; KILL VARIBLES
SORT	;
WRT	;
HDR	;

External References

Name	Field # of Occurrence
NOW^%DTC	EN1+1
^%ZISC	Q+2
D^DIQ	WRT+26
$$WRITECH^GMRVCHAR	WRT+6, WRT+18
CHAR^GMRVCHAR	WRT+6, WRT+18
$$WRTDAT^GMRVER0	WRT+5, WRT+17
ERREASON^GMRVER0	WRT+25
EN1^GMRVSAS0	WRT+4, WRT+16
DEM^VADPT	EN1+1
KVAR^VADPT	Q+1

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+1
^GMR(120.5 - [#120.5]	EN1+2, SORT+1, SORT+2, WRT+2, WRT+3, WRT+6, WRT+11, WRT+14, WRT+15, WRT+18 , WRT+23
^GMRD(120.51 - [#120.51]	WRT+4, WRT+16, WRT+28
^TMP($J	EN1+3, EN1+4, Q+1!, SORT+2*, WRT+2
^VA(200 - [#200]	WRT+27

Label References

Name	Line Occurrences
HDR	EN1+3, WRT+1
QT	EN1+3
SORT	EN1+2
WRT	EN1+4

Naked Globals

Name	Field # of Occurrence
^(0	WRT+2, WRT+15, WRT+27, WRT+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN1+1
%T	Q+1!
DFN	EN1+2, Q+1!, SORT+1, SORT+2
DIPGM	Q+1!
DTIME	QT+2, HDR+1
GMR1ST	EN1+1, Q+1!, HDR+1, HDR+2
GMRDAT	Q+1!
GMRDAT("BAD"	WRT+15, WRT+16, WRT+24, WRT+27, WRT+35, WRT+37, WRT+38, WRT+39
GMRDAT("GOOD"	WRT+2, WRT+4, WRT+12, WRT+30, WRT+32, WRT+33, WRT+34
GMRDATE	EN1+4*, Q+1!, WRT+2, WRT+26
GMRDSH	EN1+1*, Q+1!, HDR+4
GMROUT	EN1+1, EN1+4, QT+2, Q+1!, WRT+1, HDR+1
GMROV	Q+1!
GMRP	Q+1!
GMRPDT	EN1+1*, Q+1!, HDR+3
GMRPG	EN1+1, Q+1!, HDR+2, HDR+3
GMRPR	Q+1!, WRT+1!
GMRPR("ENUS"	WRT+27*, WRT+29
GMRPR("TYPE"	WRT+28*, WRT+29
GMRPR("VSDT"	WRT+26*, WRT+29
GMRQUAL	Q+2!
GMRSITE	Q+1!
GMRTYPE	Q+1!
GMRVARY	Q+2!, WRT+6!, WRT+18!
GMRVDA	EN1+4, Q+1!, SORT+2, WRT+2, WRT+14, WRT+15, WRT+18, WRT+23, WRT+35
GMRVDATE	EN1+2*, Q+1!, SORT+2
GMRVDT	EN1+2*, Q+1!, SORT+1, SORT+2
GMRVERR	Q+1!, SORT+1, SORT+2, WRT+2, WRT+3, WRT+6, WRT+11, WRT+30
GMRVFDT	EN1+2, Q+1!
GMRVITY	EN1+2, EN1+4, Q+1!, SORT+1, SORT+2, WRT+2, WRT+4, WRT+6, WRT+16, WRT+18 , WRT+28
GMRVPO	Q+2!, WRT+11, WRT+12, WRT+23, WRT+24
GMRVSDT	EN1+2, Q+1!
GMRVX	Q+1!, WRT+4!, WRT+5, WRT+6, WRT+7, WRT+12, WRT+16!, WRT+17, WRT+18, WRT+19 , WRT+24, WRT+31, WRT+36
GMRVX(0	WRT+4, WRT+5, WRT+8, WRT+9, WRT+12, WRT+16!, WRT+17, WRT+20, WRT+21, WRT+24
GMRVX(1	WRT+4, WRT+8, WRT+9, WRT+12, WRT+16!, WRT+20, WRT+21, WRT+24
GMRZZ	Q+2!, WRT+6, WRT+8, WRT+9, WRT+12, WRT+18, WRT+20, WRT+21, WRT+24
GREASON	Q+2!, WRT+25*, WRT+29
GX	Q+2!
IO	EN1+3
IOF	Q+1, HDR+2
IOSL	QT+1, WRT+1
IOST	QT+2, Q+1, HDR+1, HDR+2
POP	Q+1!
VA	Q+1!
>> VADM(1	HDR+4
>> VADM(2	HDR+4
>> X	QT+1, QT+2, HDR+1*
>> Y	EN1+1, WRT+26
>> ZTQUEUED	Q+1
>> ZTREQ	Q+1*

Customize PDF page

Package: General Medical Record - Vitals