Routine: DGMSRPT2

Information

DGMSRPT2 ;ALB/LBD - Military Service Inconsistency Report; 01/05/04

Source file <DGMSRPT2.m>

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT ($$CJ,$$RJ)^XLFSTR
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	1	DGMSRPT

Name	Comments	DBIA/ICR reference
PAUSE()	; If report is sent to screen, prompt for next page or quit
LOOPN	; Sort by name. Loop through ^XTMP("DGMSRPT","MSINC","NAM", x-ref
EN(DGBEG,DGEND,DGSRT)	; Entry point called from ^DGMSRPT ; INPUT: DGBEG - Starting record number to print ; DGEND - Ending record number to print ; DGSRT - Sort order for report (Name or SSN)
TOT	; Print total records at the end of the report
PRINT	; Print detail
PRTVAR	; Set up variables needed to print report
LOOPS	; Sort by SSN. Loop through ^XTMP("DGMSRPT","MSINC","SSN", x-ref
HDR	; Print report header

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"* There are no records to print *" Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: EN+12
Function Call: WRITE	Prompt: !,$P(VET,U,2),?12,$E($P(VET,U,1),1,25) Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: ?37,CAT Line Location: PRINT+11
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
Function Call: WRITE	Prompt: ?43,@DGXTMP@(DFN,CAT,IN) Line Location: PRINT+16
Function Call: WRITE	Prompt: !!," Starting Record #:",$$RJ^XLFSTR(DGBEG,7) Line Location: TOT+2
Function Call: WRITE	Prompt: !," Ending Record #:",$$RJ^XLFSTR(DGEND,7) Line Location: TOT+3
Function Call: WRITE	Prompt: !!,"Total Records Printed:",$$RJ^XLFSTR((DGEND-DGBEG)+1,7)," out of ",DGTOT Line Location: TOT+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ?0,"Report Date: ",RPTDT,?68,"Page: ",$$RJ^XLFSTR(PG,4) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Sorted By: "_$S(DGSRT="N":"Name",1:"SSN (Terminal Digits)") Line Location: HDR+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("MILITARY SERVICE DATA INCONSISTENCIES DETAIL REPORT",80) Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"SSN",?12,"Veteran's Name",?37,"Cat. Inconsistencies" Line Location: HDR+6
Function Call: WRITE	Prompt: !,DSH Line Location: HDR+7
Routine Call	DIR Line Location: PAUSE+4

Name	Field # of Occurrence
CAT	PRINT+1~, PRINT+6, PRINT+7, PRINT+11, PRINT+12, PRINT+16
CNT	EN+4~, LOOPN+3, LOOPS+3, LOOPS+5, PRTVAR+6*
CRT	EN+4~, PRTVAR+1*, PRTVAR+6, PAUSE+2
CT	PRINT+1~, PRINT+7*, PRINT+8
DFN	LOOPN+1~, LOOPN+3, LOOPS+1~, LOOPS+5, PRINT+2, PRINT+3, PRINT+7, PRINT+12, PRINT+16
DGBEG	EN~, LOOPN+3, LOOPS+5, TOT+2, TOT+4, PRTVAR+4*
DGEND	EN~, LOOPN+3, LOOPS+3, LOOPS+5, TOT+3, TOT+4, PRTVAR+4*
DGSRT	EN~, EN+9, PRTVAR+5*, HDR+4
DGTOT	EN+4~, EN+8, TOT+4, PRTVAR+3*, PRTVAR+4
DGXTMP	EN+4~, LOOPN+3, LOOPS+3, LOOPS+5, PRINT+2, PRINT+3, PRINT+7, PRINT+12, PRINT+16, PRTVAR+2* , PRTVAR+3
DIR	PAUSE+1~
DIR(0	PAUSE+3*
DIRUT	PAUSE+1~
DSH	EN+4~, PRTVAR+7*, HDR+7
DT	PRTVAR+6
DTOUT	PAUSE+1~
DUOUT	PAUSE+1~
IN	PRINT+1~, PRINT+12*, PRINT+13, PRINT+16
IO	EN+7
IOF	HDR+2
IOST	PRTVAR+1
LINE	EN+4~, PRINT+4, PRINT+6, PRINT+9, PRINT+10, PRINT+14, PRINT+15, TOT+1, HDR+1
LOOP	EN+4~, EN+9*, EN+10
MXLNE	EN+4~, PRINT+4, PRINT+9, PRINT+14, TOT+1, PRTVAR+6*
NM	LOOPN+1~, LOOPN+2, LOOPN+3
OUT	EN+4~, EN+8, EN+10, EN+11, EN+12, LOOPN+3, LOOPS+3, LOOPS+5, PRINT+4, PRINT+7 , PRINT+9, PRINT+12, PRINT+13, PRINT+14, TOT+1, PRTVAR+6*
PG	EN+4~, PRTVAR+6, HDR+1, HDR+3
RPTDT	EN+4~, PRTVAR+6*, HDR+3
S2	LOOPS+1~, LOOPS+2, LOOPS+3, LOOPS+5
S4	LOOPS+1~, LOOPS+3*, LOOPS+5
S9	LOOPS+1~, LOOPS+4, LOOPS+5
U	PRINT+5
VET	PRINT+1~, PRINT+3*, PRINT+5
X	PAUSE+1~
Y	PAUSE+1~, PAUSE+4
>> ZTREQ	EN+5*
>> ZTSK	EN+5