Routine: DG53735P

Information

DG53735P ;EG,TMK - Re-transmit OEF-OIF Data to HEC ; 10/24/2006

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	(,$$S)^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT ($$NEWCP,BMES)^XPDUTL
VA Fileman	2	^DIE ^DIR
Income Verification Match	1	($$YEAR,EVENT)^IVMPLOG
MailMan	1	^XMD
Registration	1	$$CVDATE^DGCVRPT

Entry Points

Name	Comments	DBIA/ICR reference
STOP(NAMSPC)	; returns stop flag
SET(DFN,CEN,CALC,REASON)	;
BLDLINE(NAMSPC,TEXT,LIN)	;bld line in TMP
TESTID(MESS)	;
LOOP(NAMSPC,TESTING)	;
NAMSPC()	;
SUMRY(LIN,TOTREC,TOTPAT,NAMSPC)	; summary lines
KILIT(POST,NAMSPC)	;
CHKSTAT(POST,NAMSPC)	;check if job is running, stopped, or complete
SETUPX(EXPDAYS,NAMSPC)	; ; requires EXPDAYS - # of days to keep XTMP
TEST	; test entry point
TRANSMIT(DFN)	;
STATUS	; current run status
END	; Post-install done
CHPAT(DFN,CEN,CALC)	; Function returns: ; 0 if no CV End date or CV End date not correct ; 1 if CV End Date correct ; Also returns CEN=CV END DATE ON FILE CALC=CALCULATED CV END DATE
HDNG(NAMSPC,LIN,STAT,STIME,ETIME,TESTING)	; hdr lines
RUN	;entry point from taskman
POST
EP	; Queue the conversion
CHKR(DFN,IEN)	;
MAILIT(HTEXT,DUZ,NAMSPC)	; send mail msg
DEQUE(NAMSPC)	;
UPDATEX(NAMSPC,TOTREC,LASTREC,TOTPAT)	;
QUE
UPDCVED(NAMSPC,DFN,CEN,CALC)	; Update CV end date
ALOEIF(NAMSPC,TESTING,ZTSTOP)	;
MAIL(NAMSPC,TESTING,DUZ)	; stats

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+3
$$S^%ZTLOAD	STOP+3
$$CVDATE^DGCVRPT	CHPAT+8
^DIE	UPDCVED+3
^DIR	TESTID+3
$$YEAR^IVMPLOG	CHKR+11
EVENT^IVMPLOG	TRANSMIT+3
$$FMADD^XLFDT	SETUPX+4
$$FMTE^XLFDT	STATUS+6, STATUS+8, HDNG+6
$$NOW^XLFDT	QUE+2, DEQUE+6, DEQUE+12, SETUPX+3, STOP+7
^XMD	MAILIT+6
$$NEWCP^XPDUTL	EP+2, EP+3
BMES^XPDUTL	POST+1, POST+3, POST+4, POST+5, END+1, RUN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"Ending To Date can't be less than starting To Date" Line Location: TEST+10
Function Call: WRITE	Prompt: !! Line Location: TESTID+3
Function Call: WRITE	Prompt: !!,"Task not started!!!" Line Location: STATUS+4
Function Call: WRITE	Prompt: !!," Current status: ",$P(X,U,6) Line Location: STATUS+5
Function Call: WRITE	Prompt: !," Starting time: ",$$FMTE^XLFDT($P(X,U,7)) Line Location: STATUS+6
Function Call: WRITE	Prompt: !," Ending time: ",$$FMTE^XLFDT($P(X,U,8)) Line Location: STATUS+8
Function Call: WRITE	Prompt: !!," Total patient records read: ",$P(X,U,2) Line Location: STATUS+9
Function Call: WRITE	Prompt: !," Last ALOEIF xref processed: ",$P(X,U,1) Line Location: STATUS+10
Function Call: WRITE	Prompt: !," Total patient records set for re-transmit: ",$P(X,U,10) Line Location: STATUS+11
Routine Call	DIE Line Location: UPDCVED+3
Routine Call	DIR Line Location: TESTID+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CHKR+12, CHPAT+7
^DPT("ALOEIF"	ALOEIF+8, ALOEIF+9, ALOEIF+10
^IVM(301.5	CHKR+11
^TMP(	MAIL+11!, HDNG+2!, BLDLINE+2*
^XTMP(	RUN+6!, TEST+5!, TEST+11, DEQUE+4, DEQUE+7, DEQUE+10, DEQUE+13, DEQUE+17, SETUPX+5, SETUPX+6* , LOOP+5, LOOP+6, ALOEIF+5, CHPAT+16, UPDCVED+4, SET+1, UPDATEX+2, UPDATEX+5, STATUS+3, STOP+4! , STOP+6, STOP+8*, MAIL+2, CHKSTAT+1, KILIT+1!

Label References

Name	Line Occurrences
$$CHKSTAT	RUN+3, TEST+4
$$CHPAT	CHKR+6
$$LOOP	DEQUE+9
$$NAMSPC	RUN+2, TEST+2, STATUS+2
$$STOP	CHKR+20
$$TESTID	TEST+6, TEST+8
ALOEIF	LOOP+13
BLDLINE	HDNG+5, HDNG+7, HDNG+8, HDNG+11, HDNG+12, SUMRY+3, SUMRY+5
CHKR	ALOEIF+10
DEQUE	RUN+6, TEST+12
HDNG	MAIL+8
KILIT	CHKSTAT+3
MAIL	DEQUE+15
MAILIT	MAIL+10
QUE	POST+2
SET	CHKR+14, CHPAT+10, CHPAT+21
SETUPX	DEQUE+3
SUMRY	MAIL+9
TRANSMIT	CHKR+7, CHKR+15
UPDATEX	CHKR+18
UPDCVED	CHPAT+10, CHPAT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EP+1~, EP+2, EP+3
BEGTIME	SETUPX+2~, SETUPX+3*, SETUPX+4, SETUPX+5
CALC	CHKR+1~, CHKR+6, CHKR+14, CHPAT~, CHPAT+6, CHPAT+8, CHPAT+10, CHPAT+16, CHPAT+18, CHPAT+19 , CHPAT+20, CHPAT+21, UPDCVED~, UPDCVED+2, UPDCVED+4, SET~, SET+1
CEN	CHKR+1~, CHKR+6, CHKR+14, CHPAT~, CHPAT+6, CHPAT+7, CHPAT+10, CHPAT+12, CHPAT+16, CHPAT+18 , CHPAT+19, CHPAT+20, CHPAT+21, UPDCVED~, UPDCVED+4, SET~, SET+1
CONF	ALOEIF+1~, ALOEIF+8, ALOEIF+9, ALOEIF+10, CHKR+17
DA	UPDCVED+1~, UPDCVED+2*
DFN	ALOEIF+1~, ALOEIF+9*, ALOEIF+10, CHKR~, CHKR+6, CHKR+7, CHKR+11, CHKR+12, CHKR+14, CHKR+15 , CHKR+17, TRANSMIT~, TRANSMIT+3, CHPAT~, CHPAT+7, CHPAT+8, CHPAT+10, CHPAT+15, CHPAT+16, CHPAT+19 , CHPAT+21, UPDCVED~, UPDCVED+2, UPDCVED+4, SET~, SET+1
DGARRY	CHPAT+5~, CHPAT+8
DGARRY("OEF/OIF"	CHPAT+13, CHPAT+16
DGARRY(2	CHPAT+15
DGOK	CHPAT+5~, CHPAT+10, CHPAT+20, CHPAT+22*, CHPAT+23
DGX	TESTID+1~, TESTID+4, TESTID+5, TESTID+6
DIE	UPDCVED+1~, UPDCVED+2*
DIR	TESTID+1~, TESTID+3!
DIR("A"	TESTID+2*
DIR(0	TESTID+2*
DR	UPDCVED+1~, UPDCVED+2*
DTOUT	TESTID+1~, TESTID+5
DUOUT	TESTID+1~, TESTID+5
DUZ	DEQUE+15, MAIL~, MAIL+10, MAILIT~, MAILIT+2
END	ALOEIF+1~, ALOEIF+3, ALOEIF+6, ALOEIF+8
ENDDT	TEST+1~, TEST+8*, TEST+9, TEST+10, TEST+11
ETIME	MAIL+1~, MAIL+5*, MAIL+8, HDNG~, HDNG+6
EXPDAYS	SETUPX~, SETUPX+4
FIRST	ALOEIF+1~
FIRST("CONF"	ALOEIF+7, ALOEIF+8
FIRST("DFN"	ALOEIF+7, ALOEIF+9
FIRST("FRDT"	ALOEIF+7, ALOEIF+8
FIRST("IEN"	ALOEIF+7, ALOEIF+9
FRDT	ALOEIF+1~, ALOEIF+8*, ALOEIF+9, ALOEIF+10, CHKR+17
HTEXT	HDNG+1~, HDNG+4, HDNG+5, HDNG+6, HDNG+7, MAILIT~, MAILIT+4
IEN	ALOEIF+1~, ALOEIF+9, ALOEIF+10, CHKR~, CHKR+12, CHKR+17
LASTREC	LOOP+2~, LOOP+3, LOOP+8, ALOEIF+3, ALOEIF+7, CHKR+17*, CHKR+18, UPDATEX~, UPDATEX+3
LD	CHKR+10~, CHKR+11*, CHKR+13
LIN	MAIL+8, MAIL+9, HDNG~, HDNG+3, HDNG+5, HDNG+7, HDNG+8, HDNG+11, HDNG+12, SUMRY~ , SUMRY+3, SUMRY+5, BLDLINE~, BLDLINE+1, BLDLINE+2
LOEIF	CHKR+10~, CHKR+12*, CHKR+13
LSSD	CHPAT+14~, CHPAT+15*, CHPAT+16
LTR	CHKR+10~, CHKR+11*, CHKR+13
MESS	TESTID~, TESTID+2
NAMSPC	RUN+1~, RUN+2, RUN+3, RUN+6, TEST+1~, TEST+2, TEST+4, TEST+5, TEST+11, TEST+12 , DEQUE~, DEQUE+3, DEQUE+4, DEQUE+7, DEQUE+9, DEQUE+10, DEQUE+13, DEQUE+15, DEQUE+17, SETUPX~ , SETUPX+5, SETUPX+6, LOOP~, LOOP+5, LOOP+6, LOOP+13, ALOEIF~, ALOEIF+5, CHKR+18, CHKR+20 , CHPAT+10, CHPAT+16, CHPAT+19, UPDCVED~, UPDCVED+4, SET+1, UPDATEX~, UPDATEX+2, UPDATEX+5, STATUS+1~ , STATUS+2*, STATUS+3, STOP~, STOP+4, STOP+6, STOP+8, MAIL~, MAIL+2, MAIL+8, MAIL+9 , MAIL+10, MAIL+11, HDNG~, HDNG+2, HDNG+5, HDNG+7, HDNG+8, HDNG+11, HDNG+12, SUMRY~ , SUMRY+3, SUMRY+5, BLDLINE~, BLDLINE+2, MAILIT~, CHKSTAT~, CHKSTAT+1, CHKSTAT+3, KILIT~, KILIT+1
POST	CHKSTAT~, CHKSTAT+3, KILIT~, KILIT+1
PURGDT	SETUPX+2~, SETUPX+4*, SETUPX+5
REASON	SET~, SET+1
STARTDT	TEST+1~, TEST+6*, TEST+7, TEST+10, TEST+11
STAT	MAIL+1~, MAIL+4*, MAIL+8, HDNG~, HDNG+4
STIME	MAIL+1~, MAIL+4*, MAIL+8, HDNG~
TESTING	RUN+5~, RUN+6, TEST+1~, TEST+3, DEQUE+2~*, DEQUE+9, DEQUE+15, DEQUE+16!, LOOP~, LOOP+13 , ALOEIF~, ALOEIF+4, TRANSMIT+2, MAIL~, MAIL+8, HDNG~, HDNG+9
TEXT	HDNG+1~, HDNG+10, HDNG+11, SUMRY+1~, SUMRY+2, SUMRY+3, SUMRY+4*, SUMRY+5, BLDLINE~, BLDLINE+2
TODT	ALOEIF+1~, ALOEIF+3, ALOEIF+6, ALOEIF+8*, ALOEIF+9, ALOEIF+10, CHKR+17
TOTPAT	LOOP+2~, LOOP+11, CHKR+18, TRANSMIT+1, UPDATEX~, UPDATEX+4, MAIL+1~, MAIL+6*, MAIL+9, SUMRY~ , SUMRY+4
TOTREC	LOOP+2~, LOOP+4, LOOP+10, CHKR+3, CHKR+18, CHKR+20, UPDATEX~, UPDATEX+3, MAIL+1~, MAIL+3 , MAIL+9, SUMRY~, SUMRY+2
U	TEST+11, DEQUE+5, DEQUE+6, DEQUE+11, DEQUE+12, SETUPX+5, SETUPX+6, LOOP+8, LOOP+10, LOOP+11 , ALOEIF+6, CHKR+11, CHKR+12, CHPAT+7, CHPAT+16, SET+1, UPDATEX+3, UPDATEX+4, STATUS+5, STATUS+6 , STATUS+7, STATUS+8, STATUS+9, STATUS+10, STATUS+11, STOP+7, MAIL+3, MAIL+4, MAIL+5, MAIL+6
X	TEST+1~, TEST+4, TESTID+1~, DEQUE+1~, DEQUE+4, DEQUE+5, DEQUE+6, DEQUE+7, DEQUE+10, DEQUE+11 , DEQUE+12, DEQUE+13, LOOP+2~, ALOEIF+1~, ALOEIF+5, ALOEIF+6, CHKR+1~, CHPAT+5~, UPDCVED+1~, UPDATEX+1~ , UPDATEX+2, UPDATEX+3, UPDATEX+4, UPDATEX+5, STATUS+1~, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7 , STATUS+8, STATUS+9, STATUS+10, STATUS+11, STOP+1~, STOP+6, STOP+7, STOP+8, MAIL+1~, MAIL+2* , MAIL+3, MAIL+4, MAIL+5, MAIL+6, HDNG+1~, SUMRY+1~
XMDUZ	MAILIT+1~, MAILIT+2*
XMSUB	MAILIT+1~, MAILIT+4*
XMTEXT	MAILIT+1~, MAILIT+5*
XMY	MAILIT+1~
XMY(	MAILIT+2*
XMY("G.DGEN E	LIGIBILITY ALERT" , MAILIT+3*
XREC	LOOP+2~, LOOP+6*, LOOP+8, LOOP+10, LOOP+11
Y	TESTID+1~, TESTID+4, UPDCVED+1~
ZTDESC	QUE~, QUE+1*
ZTDTH	QUE~, QUE+2*
ZTIO	QUE~, QUE+2*
ZTRTN	QUE~, QUE+1*
ZTSAVE	QUE~
ZTSK	POST~, POST+3
ZTSTOP	DEQUE+9, DEQUE+11, LOOP+3, LOOP+13, LOOP+14, ALOEIF~, ALOEIF+2, ALOEIF+8, ALOEIF+9, ALOEIF+10 , CHKR+20, STOP+2, STOP+3, STOP+4, STOP+5, STOP+10

Marked Items

Name	Field # of Occurrence
$T(	NAMSPC+1

Customize PDF page

Package: Registration

Routine: DG53735P

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items