Routine: DGBTE1A

Information

DGBTE1A ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIMS PART 2; 1/22/93@1530

Source file <DGBTE1A.m>

Name	Comments	DBIA/ICR reference
NOW	; date/time entry for NOW
OTHR	; date/time entry for manually entered date
OLD	; date/time entry for select from past dates
LIST2	; find all previous claims, get total count in DGBTC and put those claims in utility file
LIST3	; list claims (in external format) from temporary global, 5 at a time. Loop thru list until selection made.
EXIT	;
CHOZ	; select from the displayed past claims dates for claim to be edited.
HELP	;
HELP1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"There are no entries on file for this patient",! Line Location: LIST2+4
Function Call: WRITE	Prompt: ! Line Location: LIST3+1
Function Call: WRITE	Prompt: !?5,X1,".",?10,^TMP("DGBTARA",$J,X1) Line Location: LIST3+1
Function Call: WRITE	Prompt: !! Line Location: CHOZ+1
Function Call: WRITE	Prompt: " " Line Location: CHOZ+5
Function Call: WRITE	Prompt: !?25,*7,"INVALID ENTRY!" Line Location: CHOZ+7
Function Call: WRITE	Prompt: !!,"Time is required when adding a new CLAIM date.",!,"If there is more than one claim per date, select by number to edit." Line Location: HELP+2
Function Call: WRITE	Prompt: !!,"Enter date invoice was received. Can not be a future date." Line Location: HELP1+2
Routine Call	DIR Line Location: CHOZ+4

FileNo	Call Tags
^DGBT(392 - [#392]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGBT(392 - [#392]	LIST2+3, LIST2+4
^TMP("DGBT"	LIST2+3*, LIST2+4, LIST2+6, EXIT+1!, CHOZ+8
^TMP("DGBTARA"	LIST2+6*, LIST3+1, EXIT+1!

Name	Field # of Occurrence
^(	LIST2+6

Name	Field # of Occurrence
%DT	OTHR+1!, HELP+1, HELP1+1
%DT(0	OTHR+1*!
>> CHZFLG	CHOZ+8*
>> DFN	LIST2+3, LIST2+4
>> DGBTC	LIST2+2, LIST2+3, LIST3+1
>> DGBTCH	LIST2+2, LIST3+1, CHOZ+7
>> DGBTCH1	LIST2+2, CHOZ+1, CHOZ+7
DGBTCHK	EXIT+1!
DGBTDCLM	LIST2+1~, LIST2+6*
DIR	LIST3+1!, LIST3+3!, CHOZ+4!
DIR("?"	CHOZ+3*
DIR("A"	CHOZ+1, CHOZ+2
DIR(0	CHOZ+1*
>> DTOUT	LIST3+1, LIST3+2, CHOZ+4
>> DUOUT	LIST3+1, CHOZ+4
>> I	LIST2+3, LIST2+6
>> J	LIST2+6*
>> K	LIST2+6*
>> VADAT("W"	LIST2+6*
>> VADATE("E"	LIST2+6
>> X	CHOZ+7, CHOZ+8
X1	LIST2+1~, LIST3+1*, EXIT+1!, CHOZ+1
>> Y	NOW+1, OTHR+1, LIST3+1, LIST3+2, LIST3+3, CHOZ+1, CHOZ+5, CHOZ+6, CHOZ+8*
>> Y1	NOW+1, OTHR+1, LIST2+4, LIST3+1, LIST3+3, CHOZ+1, CHOZ+4*
YY	LIST2+1~, EXIT+1!