Routine: GMRYRP1

Information

GMRYRP1 ;HIRMFO/YH-TMP FOR PATIENT INTAKE/OUTPUT REPORTS-1 ;2/28/91

Source file <GMRYRP1.m>

Package	Total	Call Graph
VA Fileman	2	^%DT (,C)^%DTC

Package	Total	Caller Graph
General Medical Record - IO	4	GMRYFLW0 GMRYRP0 GMRYRP2 GMRYSE0
General Medical Record - Vitals	3	GMRVGR5 GMRVVS0 GMVGR5
Nursing Service	1	NURCES2

Name	Comments	DBIA/ICR reference
DATE	;ENTER START DATE AND END DATE FOR PATIENT INTAKE/OUTPUT REPORT
ITEM	;CONCATENATE INTAKE ITEM AND VOLUME AS TEXT FOR PRINT
FINDT	;
STARTD	;CALCULATE START DATE AND END DATE FOR REPORTS
NEXT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?5,"ENDING DATE needs to be greater than STARTING DATE",!,?5,$C(7),"Please reenter!!!" Line Location: DATE+3

Name	Line Occurrences (* Changed, ! Killed)
^GMR(126 - [#126]	ITEM+1, ITEM+2, ITEM+3
^GMRD(126.8 - [#126.8]	ITEM+2, ITEM+3

Name	Field # of Occurrence
^(0	ITEM+3

Name	Field # of Occurrence
%DT	NEXT+2!, NEXT+3!, DATE+1!, DATE+2!
%DT("A"	DATE+1, DATE+2
%DT("B"	DATE+1, DATE+2
%DTC	STARTD+2!
>> DA	ITEM+1, ITEM+2, ITEM+3
>> DA(1	ITEM+1, ITEM+2, ITEM+3
>> GDTFIN	NEXT+1*, NEXT+2, NEXT+3
>> GDTSTRT	NEXT+1, NEXT+2, NEXT+3
>> GHR	FINDT+2, FINDT+3, FINDT+5
GI	ITEM+2*, ITEM+3, ITEM+4!
>> GITEM	ITEM+3*
>> GLASTDT	NEXT+3*
>> GMIN	FINDT+2, FINDT+3, FINDT+4, FINDT+5
>> GMRFIN	FINDT+1, FINDT+3, FINDT+4, FINDT+5, NEXT+1, DATE+2, DATE+3
>> GMRNIT	STARTD+2, STARTD+3, FINDT+2, NEXT+2
>> GMROUT	DATE+1, DATE+2
>> GMRSTRT	STARTD+1, STARTD+2, STARTD+3, DATE+1*, DATE+2, DATE+3
>> GNXTDT	NEXT+3*
>> II	ITEM+1, ITEM+2, ITEM+3
>> X	STARTD+2, NEXT+2, NEXT+3, DATE+3
>> X1	STARTD+2, NEXT+2, NEXT+3, DATE+2
>> X2	STARTD+2, NEXT+2, NEXT+3, DATE+2
>> Y	DATE+1, DATE+2