Routine: GMRVED6

Information

GMRVED6 ;HIRMFO/YH-VM EDIT FOR PATIENT ON PASS OR REFUSE ;2/7/99

Package	Total	Call Graph
General Medical Record - Vitals	1	ROOMSEL^GMRVUT3
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
General Medical Record - Vitals	3	GMRVED0 GMRVED1 GMRVSR0

Name	Field # of Occurrence
YN^DICN	EN1+1
ROOMSEL^GMRVUT3	S3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want to enter Vitals" Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"* Reason for Omission *" Line Location: AGAIN+0
Function Call: WRITE	Prompt: !,I_". "_GG(I) Line Location: AGAIN+0
Function Call: WRITE	Prompt: !!,"Select a number (the reason for the data omission) or ^ to quit: " Line Location: AGAIN+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: AGAIN+2
Function Call: WRITE	Prompt: !,"Enter the number of reason * was entered",! Line Location: AGAIN+4
Function Call: WRITE	Prompt: !!,"UNIT "_GMRWARD(1)_" has the following Rooms:",!! Line Location: S3+0
Function Call: READ	Timeout: DTIME Variable: GMRRMST Line Location: S3+1
Function Call: WRITE	Prompt: !,?5,"Type in number(s) associated with the rooms you want,",!,?5,"separated by commas or hyphens if there is more than one room",!,?5,"(e.g., 1-3,5 would be entries 1,2,3 and 5)." Line Location: S3+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: S3+4
Function Call: WRITE	Prompt: !?5,$C(7),"Please select a number between 1 and ",GMRMSL Line Location: RMCHK+1

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	EN3+2

Name	Field # of Occurrence
^(0	EN3+2

Name	Field # of Occurrence
>> %	EN1+1*, EN1+2, EN1+3
DTIME	AGAIN+2, S3+1
GG	EN2+1~*, AGAIN
GG(	AGAIN, AGAIN+5, AGAIN+6
GG(1	EN2+1*
GG(2	EN2+1*
GG(3	EN2+1*
>> GMRDAT(	EN1+5*
>> GMRI	S3+5*
>> GMRINF(	EN1+5*
>> GMRLEN	S3+5*
>> GMRLEN(1	S3+5*
GMRMSL	EN3+1!, EN3+3*, RMCHK+1
GMRMSL(	EN3+2*, S3, RMCHK+1, RMCHK+2
GMRMSL("B"	EN3+2*
>> GMROUT	EN1+2, AGAIN+2, S3+1, S3+5, RMCHK+1*
>> GMROUT(1	EN1+7*
>> GMRRMST	S3+1*, S3+2, S3+3, S3+4, S3+5
>> GMRROOM(	RMCHK+2*
>> GMRSITE(	EN1+5*
>> GMRSTR	EN1+5
>> GMRSTR(0	EN1+4
>> GMRWARD	EN3+2
>> GMRWARD(1	S3
>> GMRX	EN1+4, EN1+5, S3+5, RMCHK+1, RMCHK+2
>> GMRY	EN1+5*
GRSN	EN2~, AGAIN+2, AGAIN+6, AGAIN+7
I	EN2+1~, AGAIN*, S3!
I(1	S3*
I(2	S3*
I(3	S3*
I(4	S3*
I(5	S3*
X	EN2+1~, AGAIN+2, AGAIN+3, AGAIN+4, AGAIN+5, AGAIN+6, EN3+2
>> Y	EN3+2, EN3+3, S3