Routine: DG53334A

Information

DG53334A ;ALB/MRY - ALS EXTRACT; ; 11/16/00 1:15pm

Source file <DG53334A.m>

Package	Total	Call Graph
Registration	3	(FMAIL,SETMAIL,SMAIL)^DG53334B EN^DG53334D $$SITE^VASITE
Kernel	2	($$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA Fileman	1	GETS^DIQ

Package	Total	Caller Graph
Registration	1	DG53334C

Name	Comments	DBIA/ICR reference
EN	; -- Entry point for manually running extract.
GETDFN(DGTATION)	;
FLDS2	;;.1214;.1215;.1216;.1217;.1218;.1219;.131;.132;
FLDS1	;;.01;.104;.111;.1112;.112;.113;.114;.115;.116;.117;.12105;.1211;.12111;.12112;.1212;.1213
START	; -- Called from POSTINST^DG53334C and EN^DG53334D
SENDATA(DGTATION)	; ; dgline is the message line
GETDGIQ(DGDFN)	;
INIFLDS	; set up array of fields to be used in fm getsdiq call
DFN(SSN)	;function to lookup DFN from SSN x-ref ; input SSN ; output DFN or error code
DIQLOOK(DGTATION)	;

Name	Field # of Occurrence
FMAIL^DG53334B	START+26, START+46
SETMAIL^DG53334B	SENDATA+6
SMAIL^DG53334B	SENDATA+13
EN^DG53334D	EN+1
GETS^DIQ	GETDGIQ+4
$$SITE^VASITE	START+17
$$FMTE^XLFDT	START+18
$$NOW^XLFDT	START+18
BMES^XPDUTL	START+2, START+8, START+20, START+25, START+34, START+38, START+42, START+49
MES^XPDUTL	START+6, START+14, START+24

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: GETDFN+10
Function Call: WRITE	Prompt: "." Line Location: DIQLOOK+10
Function Call: WRITE	Prompt: " ." Line Location: SENDATA+9

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETDGIQ+25, DFN+13, DFN+16
^DPT("SSN"	DFN+5, DFN+8, DFN+11
^XTMP("DGALS"	START+19, START+29!, START+30!, START+31!, GETDFN+4, GETDFN+6, GETDFN+7, DIQLOOK+6, GETDGIQ+8, GETDGIQ+17 , GETDGIQ+20, GETDGIQ+24, GETDGIQ+25, SENDATA+5

Name	Field # of Occurrence
DFN	DFN+3~, DFN+11*, DFN+13, DFN+16, DFN+18
DGARY	START+6, START+14, START+16~, START+24
DGARY(1	START+3, START+9, START+21*
DGARY(2	START+4, START+10, START+22*
DGARY(3	START+5, START+11, START+23*
DGARY(4	START+12*
DGARY(5	START+13*
DGDATA	GETDGIQ+1!, GETDGIQ+8, GETDGIQ+9!
DGDFN	START+53!, GETDFN+5, GETDFN+6, GETDFN+7, DIQLOOK+5, DIQLOOK+6, DIQLOOK+7, GETDGIQ~, GETDGIQ+4, GETDGIQ+17 , GETDGIQ+20, GETDGIQ+24, GETDGIQ+25, SENDATA+3, SENDATA+5*, SENDATA+6
DGERR	GETDGIQ+1!, GETDGIQ+10!, GETDGIQ+23*!, GETDGIQ+24, GETDGIQ+27
DGERR("DIERR"	GETDGIQ+23, GETDGIQ+24, GETDGIQ+27!
DGFIELD	START+52!, GETDGIQ+14*, GETDGIQ+17, GETDGIQ+20, GETDGIQ+24
DGFLDS	START+53!, GETDGIQ+3*, GETDGIQ+4, GETDGIQ+14
DGFLDS(	GETDGIQ+4, GETDGIQ+14
DGFLDS(1	INIFLDS+1*
DGFLDS(2	INIFLDS+2*
DGLINE	START+53!, SENDATA+2*, SENDATA+12, SENDATA+13
DGN	START+52!
DGP	START+52!, GETDGIQ+14*
DGPECE	START+52!
DGSSN	START+53!, GETDFN+3, GETDFN+4, GETDFN+5, GETDFN+6, GETDFN+7
DGSTART	START+18*, START+52!
DGTATION	START+17*, START+19, START+31, START+35, START+39, START+43, START+53!, GETDFN~, GETDFN+4, GETDFN+6 , DIQLOOK~, DIQLOOK+6, SENDATA~, SENDATA+6
DGZ	START+53!
DUZ	START+1
SSN	DFN~, DFN+5, DFN+6, DFN+8, DFN+9, DFN+11, DFN+14, DFN+16, DFN+17
U	START+17
>> ZTQUEUED	START+33, START+37, START+41, START+48, GETDFN+10, DIQLOOK+10, SENDATA+9