source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGMSRPT2.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1DGMSRPT2 ;ALB/LBD - Military Service Inconsistency Report; 01/05/04
2 ;;5.3;Registration;**562**; Aug 13,1993
3 ;
4 ; This routine prints the Military Service Data Inconsistencies
5 ; report from the extracted data stored in ^XTMP("DSMSRPT").
6 ;
7 ;
8EN(DGBEG,DGEND,DGSRT) ; Entry point called from ^DGMSRPT
9 ; INPUT: DGBEG - Starting record number to print
10 ; DGEND - Ending record number to print
11 ; DGSRT - Sort order for report (Name or SSN)
12 N PG,LINE,RPTDT,CRT,OUT,DSH,CNT,MXLNE,DGXTMP,DGTOT,LOOP
13 S:$G(ZTSK) ZTREQ="@"
14 D PRTVAR
15 U IO D HDR
16 I 'DGTOT W !!,?10,"*** There are no records to print ***" S OUT=$$PAUSE Q
17 S LOOP="LOOP"_DGSRT
18 D @LOOP Q:OUT
19 D TOT Q:OUT
20 W ! S OUT=$$PAUSE
21 Q
22LOOPN ; Sort by name. Loop through ^XTMP("DGMSRPT","MSINC","NAM", x-ref
23 N NM,DFN
24 S NM=""
25 F S NM=$O(@DGXTMP@("NAM",NM)) Q:NM=""!(CNT>DGEND)!OUT S DFN="" F S DFN=$O(@DGXTMP@("NAM",NM,DFN)) Q:DFN=""!(CNT>DGEND)!OUT S CNT=CNT+1 I CNT'<DGBEG,CNT'>DGEND D PRINT
26 Q
27LOOPS ; Sort by SSN. Loop through ^XTMP("DGMSRPT","MSINC","SSN", x-ref
28 N S2,S4,S9,DFN
29 S S2=""
30 F S S2=$O(@DGXTMP@("SSN",S2)) Q:S2=""!(CNT>DGEND)!OUT S S4="" F S S4=$O(@DGXTMP@("SSN",S2,S4)) Q:S4=""!(CNT>DGEND)!OUT D
31 . S S9=""
32 . F S S9=$O(@DGXTMP@("SSN",S2,S4,S9)) Q:S9=""!(CNT>DGEND)!OUT S DFN="" F S DFN=$O(@DGXTMP@("SSN",S2,S4,S9,DFN)) Q:DFN=""!(CNT>DGEND)!OUT S CNT=CNT+1 I CNT'<DGBEG,CNT'>DGEND D PRINT
33 Q
34PRINT ; Print detail
35 N VET,CT,CAT,IN
36 Q:'$D(@DGXTMP@(DFN))
37 S VET=$G(@DGXTMP@(DFN,0))
38 I LINE>MXLNE S OUT=$$PAUSE Q:OUT D HDR
39 W !,$P(VET,U,2),?12,$E($P(VET,U,1),1,25)
40 S LINE=LINE+1,CAT=0
41 F CT=1:1 S CAT=$O(@DGXTMP@(DFN,CAT)) Q:CAT=""!OUT D
42 . I CT>1 D
43 . . I LINE>MXLNE S OUT=$$PAUSE Q:OUT D HDR
44 . . W ! S LINE=LINE+1
45 . W ?37,CAT
46 . S IN="" F S IN=$O(@DGXTMP@(DFN,CAT,IN)) Q:IN=""!OUT D
47 . . I IN>1 D Q:OUT
48 . . . I LINE>MXLNE S OUT=$$PAUSE Q:OUT D HDR
49 . . . W ! S LINE=LINE+1
50 . . W ?43,@DGXTMP@(DFN,CAT,IN)
51 Q
52TOT ; Print total records at the end of the report
53 I LINE+5>MXLNE S OUT=$$PAUSE Q:OUT D HDR
54 W !!," Starting Record #:",$$RJ^XLFSTR(DGBEG,7)
55 W !," Ending Record #:",$$RJ^XLFSTR(DGEND,7)
56 W !!,"Total Records Printed:",$$RJ^XLFSTR((DGEND-DGBEG)+1,7)," out of ",DGTOT
57 Q
58PRTVAR ; Set up variables needed to print report
59 S CRT=$S($E(IOST,1,2)="C-":1,1:0)
60 S DGXTMP="^XTMP(""DGMSRPT"",""MSINC"")"
61 S DGTOT=+$G(@DGXTMP@("CNT","VET"))
62 S:'$G(DGBEG) DGBEG=1 S:'$G(DGEND) DGEND=DGTOT
63 S:$G(DGSRT)="" DGSRT="N"
64 S (PG,CNT,OUT)=0,RPTDT=$$FMTE^XLFDT(DT),MXLNE=$S(CRT:15,1:52)
65 S DSH="",$P(DSH,"=",80)=""
66 Q
67HDR ; Print report header
68 S PG=PG+1,LINE=0
69 W @IOF
70 W ?0,"Report Date: ",RPTDT,?68,"Page: ",$$RJ^XLFSTR(PG,4)
71 W !,"Sorted By: "_$S(DGSRT="N":"Name",1:"SSN (Terminal Digits)")
72 W !!,$$CJ^XLFSTR("MILITARY SERVICE DATA INCONSISTENCIES DETAIL REPORT",80)
73 W !!,"SSN",?12,"Veteran's Name",?37,"Cat. Inconsistencies"
74 W !,DSH
75 Q
76PAUSE() ; If report is sent to screen, prompt for next page or quit
77 N DIR,DIRUT,DUOUT,DTOUT,X,Y
78 I 'CRT Q 0
79 S DIR(0)="E"
80 D ^DIR I 'Y Q 1
81 Q 0
Note: See TracBrowser for help on using the repository browser.