Routine: DGMSRPT2

Information

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

Name	Comments	DBIA/ICR reference
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)
LOOPN	; Sort by name. Loop through ^XTMP("DGMSRPT","MSINC","NAM", x-ref
LOOPS	; Sort by SSN. Loop through ^XTMP("DGMSRPT","MSINC","SSN", x-ref
PRINT	; Print detail
TOT	; Print total records at the end of the report
PRTVAR	; Set up variables needed to print report
HDR	; Print report header
PAUSE()	; If report is sent to screen, prompt for next page or quit

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