Routine: DGMSRPT

Information

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

Source Information

Source file <DGMSRPT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,STAT)^%ZTLOAD ($$LJ,$$RJ)^XLFSTR
Registration	2	EN^DGMSRPT2 $$SITE^VASITE
VA Fileman	2	$$GET1^DIQ ^DIR
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG MS INCONSISTENCIES RPT DGMSRPT1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Called from DG MS INCONSISTENCIES RPT option ; Prompt user to select to run extract or print report
END(BEG,TOT)	; Get ending record number to print ; INPUT: BEG - Starting record number to print ; TOT - Total number of veteran records to print ; OUTPUT: Y - Ending record number
CHK()	; Check if extract can be tasked to run ; INPUT: None ; OUTPUT: 1=Run Extract; 0=Don't run Extract
RPTQUE	; Get report device. Queue report if requested.
SEL()	; Select action: Extract or Print ; INPUT: None ; OUTPUT: 1=Extract; 2=Print; 0=Quit
INIT	; Set variables and initialize array for counts
SRT()	; Get sort order ; OUPUT: Y - Sort (N=Name; S=SSN)
EXTQUE	; Queue extract task
BEG(TOT)	; Get starting record number to print ; INPUT: TOT - Total number of veteran records to print ; OUTPUT: Y - Starting record number
SEL1	; Extract and count military service data inconsistencies from Patient ; file #2
SEL2	; Print detail report of military service data inconsistencies ; extracted and stored in ^XTMP("DGMSRPT",
MSG(DGXTMP)	; Send message with counts of inconsistencies when extract completes.

External References

Name	Field # of Occurrence
^%ZIS	RPTQUE+5
HOME^%ZIS	RPTQUE+13
^%ZISC	RPTQUE+15
^%ZTLOAD	EXTQUE+4, RPTQUE+10
STAT^%ZTLOAD	CHK+6
EN^DGMSRPT2	RPTQUE+14
$$GET1^DIQ	MSG+6
^DIR	SEL+21, SEL1+3, SEL1+6, SEL1+9, SEL2+6, SEL2+7, SEL2+8, SEL2+11, BEG+6, END+7 , SRT+6, RPTQUE+5, RPTQUE+12
$$SITE^VASITE	MSG+4
$$LJ^XLFSTR	MSG+17, MSG+18, MSG+20
$$RJ^XLFSTR	MSG+17, MSG+20
^XMD	MSG+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Military Service Data Inconsistencies Report" Line Location: SEL+4
Function Call: WRITE	Prompt: !,"============================================" Line Location: SEL+5
Function Call: WRITE	Prompt: ! Line Location: SEL1+3
Function Call: WRITE	Prompt: !! Line Location: SEL1+4
Function Call: WRITE	Prompt: ! Line Location: SEL1+9
Function Call: WRITE	Prompt: ! Line Location: SEL2+7
Function Call: WRITE	Prompt: !!,*7,"There are no records to print.",! Line Location: SEL2+8
Function Call: WRITE	Prompt: !! Line Location: SEL2+9
Function Call: WRITE	Prompt: !!,"Total veteran records to print: ",DGTOT Line Location: SEL2+13
Function Call: WRITE	Prompt: !!,7,"** Extract is currently running or queued as task ",^XTMP("DGMSRPT","RUNNING") Line Location: CHK+7
Function Call: WRITE	Prompt: !!,"Extract was last run ",$P(^XTMP("DGMSRPT","DATE"),U,2) Line Location: CHK+8
Function Call: WRITE	Prompt: !,*7,"Extract could not be queued!" Line Location: EXTQUE+10
Function Call: WRITE	Prompt: ! Line Location: RPTQUE+4
Function Call: WRITE	Prompt: !!,*7,"Report Cancelled!",! Line Location: RPTQUE+5
Routine Call	%ZIS Line Location: RPTQUE+13
Routine Call	DIR Line Location: SEL+21 SEL1+3 SEL1+6 SEL1+9 SEL2+6 SEL2+7 SEL2+8 SEL2+11 BEG+6 END+7 SRT+6 RPTQUE+5 RPTQUE+12
Routine Call	%ZIS Line Location: RPTQUE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HLCS(869.3 - [#869.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("DGMSRPT"	SEL1+7!, SEL2+3, SEL2+8, SEL2+12, CHK+4, CHK+6, CHK+7, CHK+8, EXTQUE+6*, MSG+12 , MSG+13

Label References

Name	Line Occurrences
$$BEG	SEL2+14
$$CHK	SEL1+3, SEL2+7
$$END	SEL2+15
$$SEL	EN+3
$$SRT	SEL2+16
@(	EN+5
EXTQUE	SEL1+8
RPTQUE	SEL2+17

Naked Globals

Name	Field # of Occurrence
^(	MSG+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	RPTQUE+2!, RPTQUE+3*
BEG	END~, END+5, END+6
CHK	CHK+3~, CHK+4, CHK+7, CHK+9
DGBEG	SEL2+2~, SEL2+14*, SEL2+15, RPTQUE+14
DGEND	SEL2+2~, SEL2+15*, RPTQUE+14
DGMSG	MSG+2~
DGMSG(	MSG+20*
DGMSG(1	MSG+9*
DGMSG(10	MSG+18*
DGMSG(2	MSG+10*
DGMSG(3	MSG+11*
DGMSG(4	MSG+12*
DGMSG(5	MSG+13*
DGMSG(6	MSG+14*
DGMSG(7	MSG+15*
DGMSG(8	MSG+16*
DGMSG(9	MSG+17*
DGSEL	EN+2~, EN+3, EN+4, EN+5
DGSRT	SEL2+2~, SEL2+16*, RPTQUE+14
DGTOT	SEL2+2~, SEL2+12*, SEL2+13, SEL2+14, SEL2+15, END+6
DGXTMP	MSG~, MSG+3, MSG+15, MSG+20, INIT+1, INIT+2, INIT+3, INIT+4, INIT+5, INIT+6 , INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16 , INIT+17, INIT+18, INIT+19, INIT+20
DIR	SEL+3~, SEL1+2~, SEL1+6!, SEL2+2~, SEL2+11!, BEG+3~, END+4~, SRT+2~, EXTQUE+1~, RPTQUE+1~
DIR("?"	SEL+8, SEL+9, SEL+10, SEL+11, SEL+12, SEL+13, SEL+14, SEL+15, SEL+16, SEL+17 , SEL+18, SEL+19, SEL+20, SRT+4, SRT+5*
DIR("A"	SEL+7, SEL1+5, SEL2+10, BEG+5, END+6, SRT+3
DIR("B"	SEL1+5, SEL2+10, BEG+5, END+6, SRT+3*
DIR(0	SEL+6, SEL1+3, SEL1+5, SEL1+9, SEL2+6, SEL2+7, SEL2+8, SEL2+10, BEG+5, END+6 , SRT+3, RPTQUE+5, RPTQUE+12*
DIROUT	SEL+3~, SEL1+2~, SEL2+2~, BEG+3~, END+4~, SRT+2~, RPTQUE+1~
DIRUT	SEL+3~, SEL1+2~, SEL2+2~, BEG+3~, END+4~, SRT+2~, RPTQUE+1~
DTOUT	SEL+3~, SEL+21, SEL1+2~, SEL1+6, SEL2+2~, SEL2+11, BEG+3~, BEG+6, END+4~, END+7 , SRT+2~, SRT+6, RPTQUE+1~
DUOUT	SEL+3~, SEL+21, SEL1+2~, SEL1+6, SEL2+2~, SEL2+11, BEG+3~, BEG+6, END+4~, END+7 , SRT+2~, SRT+6, RPTQUE+1~
DUZ	MSG+8
IO("Q"	RPTQUE+6
IOP	RPTQUE+2!
LN	MSG+2~, MSG+19, MSG+20
POP	RPTQUE+1~, RPTQUE+5
SITE	MSG+2~, MSG+4*, MSG+5
SUB	MSG+2~, MSG+19, MSG+20
TOT	BEG~, BEG+4, BEG+5, END~, END+5, END+6
U	SEL2+3, CHK+8, MSG+4, MSG+12, MSG+13, MSG+20
X	SEL+3~, SEL1+2~, SEL2+2~, BEG+3~, END+4~, SRT+2~, RPTQUE+1~
XMDUZ	MSG+2~, MSG+5, MSG+6
XMSUB	MSG+2~, MSG+7*
XMTEXT	MSG+2~, MSG+8*
XMY	MSG+2~
XMY(	MSG+8*
XMY("G.DGEN E	LIGIBILITY ALERT" , MSG+8*
XMY("HECDQSUPPORT@MED.VA.GOV"	MSG+8*
Y	SEL+3~, SEL+21, SEL+22, SEL1+2~, SEL1+6, SEL2+2~, SEL2+11, BEG+3~, BEG+6, BEG+7 , END+4~, END+7, END+8, SRT+2~, SRT+7, RPTQUE+1~
ZTDESC	EXTQUE+1~, EXTQUE+3, RPTQUE+1~, RPTQUE+8
ZTDTH	EXTQUE+1~, EXTQUE+2*
ZTIO	EXTQUE+1~, EXTQUE+2*
ZTRTN	EXTQUE+1~, EXTQUE+2, RPTQUE+1~, RPTQUE+7
ZTSAVE	RPTQUE+1~
ZTSAVE("DGBEG"	RPTQUE+9*
ZTSAVE("DGEND"	RPTQUE+9*
ZTSAVE("DGSRT"	RPTQUE+9*
ZTSK	CHK+5~, CHK+6*, EXTQUE+1~, EXTQUE+5, EXTQUE+6, EXTQUE+7, RPTQUE+11
ZTSK(1	CHK+7

Customize PDF page

Package: Registration

Routine: DGMSRPT

Call Graph Total: 9

Caller Graph Total: 2