Routine: DGQEMA

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Registration	2	(,ERROR,FT)^DGQEMA1 VIC^DGQESC5

Package	Total	Caller Graph
Registration	1	DGQEMA1

Entry Points

Name	Comments	DBIA/ICR reference
EN
END
OLD	; -- Creates old card, if flag set in MAS parameter file
ADD
OK	;ask if ok to print data cards if data missing
CKADD
NUM	;how many cards...set DGQUAN
FUNC
MSG	;print error message if card can't be printed
CONT
EMBOS	; -- Ask if user wants to emboss (OLD) data card, downloads data to VIC. ; Called from DGREG00, DG10, and DG1010P ; -- Download VIC Data
DATA	;get lines 1-7 for data card per file 39.2
MAN	;manuel Q

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Service connected eligibility NOT verified",!,"Card will be queued as Non service connected (blue)",! Line Location: CKADD+9
Function Call: WRITE	Prompt: !,"Embosser files not correctly set up...contact your site manager" Line Location: CONT+0
Function Call: WRITE	Prompt: !,*7,"Data card NOT queued" Line Location: CONT+7
Function Call: WRITE	Prompt: ! Line Location: MAN+1
Function Call: READ	Prompt: "Number of cards to print (1-8): 1//" Formatting: ! Timeout: DTIME Variable: X Line Location: NUM+1
Function Call: WRITE	Prompt: X Line Location: NUM+3
Function Call: WRITE	Prompt: !?3,"Enter the number of cards you wish to print (1-8)" Line Location: NUM+4
Function Call: WRITE	Prompt: !,"Service connected or NSC status not entered...cannot print card" Line Location: MSG+1
Function Call: WRITE	Prompt: !,"Do you still wish to emboss a patient data card" Line Location: OK+1
Function Call: WRITE	Prompt: !?3,"Enter 'Y'es to emboss a card, otherwise, 'N'o." Line Location: OK+2
Function Call: WRITE	Prompt: !,"EMBOSS (OLD) DATA CARD" Line Location: OLD+1
Function Call: WRITE	Prompt: !," Enter YES to print patient data card for this patient, otherwise respond NO" Line Location: OLD+2
Routine Call	DIE Line Location: EN+1 CKADD+1 CKADD+2 ADD
Routine Call	DIC Line Location: MAN+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("FUNC" - [#.5]	FUNC
^DG(43 - [#43]	OLD+1
^DIC(39.1 - [#39.1]	CONT, CONT+1, CONT+5
^DIC(39.2 - [#39.2]	DATA+2
^DPT - [#2]	EN, EN+1, CKADD, CKADD+2, CKADD+4, CKADD+5, CKADD+6, CKADD+7

Name	Field # of Occurrence
%	END!, OK+1, OK+2, OK+3, OLD+1, OLD+2, OLD+3
%Y	END!
AMT	END!
D	END!
DA	EN+1, CKADD+1, CKADD+2, END!, ADD
DFN	EN, EN+1, CKADD, CKADD+1, CKADD+2, CKADD+4, CKADD+5, CKADD+6, CKADD+7, ADD , MAN+1*, MAN+2!
DGA	END!
DGBLK	END!, DATA+3!*, DATA+4
DGE	CONT+3, END!
DGFL	CONT+3, CONT+6, CONT+7, END!, OK+1, OK+3
DGHD	CKADD+3*, END!
DGHOL	END!
DGI	CONT+5*, END!
DGJ	CONT+5*, END!, DATA+2, DATA+4
DGLINE	END!
DGLINE(	CONT+5, DATA+4
DGMANFL	MAN+1, MAN+2!, NUM+1, NUM+2
DGPT	MAN+1*, MAN+2!
DGQUAN	CONT+4, END!, NUM+5
DGTYP	CONT+8*, END!
DGX	CONT+1*, CONT+4, END!
DIC	END!, MAN+1*, MAN+2!
DIC(0	MAN+1*
DIE	EN+1, CKADD+1, CKADD+2, END!, ADD
DR	EN+1, CKADD+1, CKADD+2, END!, ADD
DTIME	NUM+1
DTOUT	END!
I	END!, FUNC, ADD
K	CONT+5, CONT+6, END!, DATA+4
L	EN*, END!
S	CKADD+4, CKADD+8, CONT, CONT+1, CONT+5, CONT+8, END!, OK+1~
U	OLD+1
V	CKADD+7*, CKADD+8, CKADD+9, END!
X	EN+1, CKADD, CKADD+1, CKADD+2, CKADD+6, CKADD+8, CKADD+9, END!, ADD, MAN+2! , NUM+1, NUM+2, NUM+3*, NUM+4, NUM+5
X1	ADD*, ADD+1!
Y	END!, DATA+4, MAN+1, MAN+2!, OLD+1*
Z	END!
ZTDESC	END+1!
ZTDTH	END+1!
ZTIO	END+1!
ZTRTN	END+1!
ZTSAVE	END+1!