Routine: GMRVER0

Information

GMRVER0 ;HIRMFO/RM,YH-REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT ;2/6/99

Source file <GMRVER0.m>

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^%DT NOW^%DTC ^DIC
General Medical Record - Vitals	1	(EN1,Q)^GMRVER1

Package	Total	Caller Graph
General Medical Record - Vitals	2	GMRV ERROR REPORT GMRVER1
Nursing Service	1	NURCVPR0

Name	Comments	DBIA/ICR reference
ERREASON	;ERROR REASON
CG
WRTDAT(TYPE,DATA)	;
PO2
DEV
Q
EN1	; ENTRY FROM OPTION GMRV ERROR PRINT
WT
T
CVP
DTS
PN
HT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?3,$C(7),"THE START DATE MUST BE BEFORE THE END DATE OF THIS REPORT" Line Location: DTS+5
Function Call: WRITE	Prompt: !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$C(7) Line Location: DEV+0
Routine Call	DIC Line Location: EN1+1
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.5 - [#120.5]	ERREASON+1, ERREASON+2
^TMP($J	EN1+1!

Name	Field # of Occurrence
>> %	DTS+3
%DT	DTS!, DTS+2!
%DT("A"	DTS, DTS+2
%DT("B"	DTS, DTS+2
%ZIS	DEV*!
DATA	WRTDAT~, WRTDAT+1, WRTDAT+2, T, WT, HT, CG, CVP, PO2, PN* , PN+1, PN+2
>> DFN	EN1+1*
DIC	EN1+1*!
DIC(0	EN1+1*
DT	DTS+3
GER	ERREASON+2*, ERREASON+6!
GER(1	ERREASON+2*, ERREASON+3
GER(2	ERREASON+3*, ERREASON+4
>> GMRVDA	ERREASON+1, ERREASON+2
>> GMRVFDT	DTS+6*
>> GMRVSDT	DTS+1*, DTS+5
>> GREASON	ERREASON+4*
IO("Q"	DEV, DEV+1!
IO("S"	DEV
ION	DEV+1
IOST	DEV
>> POP	DEV
TYPE	WRTDAT~, WRTDAT+1
>> X	DTS+2
>> Y	EN1+1, DTS, DTS+1, DTS+3, DTS+4, DTS+5, DTS+6
>> ZTDESC	DEV+1*
ZTIO	DEV+1*!
>> ZTRTN	DEV+1*
>> ZTSAVE("DFN"	DEV+1*
>> ZTSAVE("GMRVFDT"	DEV+1*
>> ZTSAVE("GMRVSDT"	DEV+1*
ZTSK	DEV+1!