Routine: DGMSRPT1

Package	Total	Call Graph
Registration	3	(INIT,MSG)^DGMSRPT ($$B4,$$CNFLCTDT,$$GETCNFDT,$$MNTHYR,$$OVRLPCHK,$$RWITHIN,$$WITHIN)^DGRPDT $$SITE^VASITE
Enrollment Application System	1	$$PSITE^EASUER
Kernel	1	($$FMADD,$$FMTE,$$NOW)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
ARRY(CAT,FLD,SB,P1,P2,MS,DGMS)	; Set array ; INPUT: CAT - MS categories (e.g. MSE1 = 1st Military Service Episode) ; FLD - MS fields (e.g. FDT = From Date, TDT = To Date) ; SB - MS array subscript ; P1 - Starting piece in MS string ; P2 - Ending piece in MS string ; MS( - Array with MS data from the Patient file ; OUTPUT: DGMS( - Array returned with MS data grouped by category
CHK(DFN)	; Check if patient meets criteria to include in report ; OUTPUT: 1=Meets report criteria; 0=Doesn't meet report criteria
OVRLP(CAT)	; Check if MSE dates overlap with another MSE ; INPUT: CAT - MS category, 1st subscript in DGMS array ; OUTPUT: 0=No overlap; 1^X=Overlap^MSE that overlaps
EN	; Entry point called from ^DGMSRPT ; Initialize ^XTMP global and set start date
CONFCHK(DFN,DGMS)	; Check Conflict data for inconsistencies
CMPWCHK(DFN,DGMS)	; Check Combat and POW data for inconsistencies ; INPUT: DFN - Patient file IEN ; DGMS( - MS data array
SETTXT(DG,DGTXT)	; Set array of MS inconsistency text DGTXT( ; INPUT: DG - Subscript for DGTXT array
SETCNT(SUB)	; Update ^XTMP("DGMSRPT","MSINC","CNT", ; INPUT: SUB - Subscript in ^("CNT") array to increment
GETMS(DFN,DGMS)	; Build DGMS array of military service data ; OUTPUT: DGMS(CATEGORY,FIELD) - array of Military Service data
MISS(CAT,FLD)	; Check for missing data elements ; INPUT: CAT - MS category, 1st subscript in DGMS array ; FLD - List of fields to check for missing data ; OUTPUT: 1=Missing data; 0=No missing data
SETVET(DFN,CAT,DGTXT)	; Update ^XTMP("DGMSRPT","MSINC",DFN, with MS inconsistencies for veteran
IMPR(CAT,FLD)	; Check for imprecise dates (year only) ; INPUT: CAT - MS category, 1st subscript in DGMS array ; FLD - List of fields to check for imprecise dates ; OUTPUT: 1=Imprecise date; 0=No imprecise date
MSINC(DFN)	; Check military service data for inconsistencies.
LOC(LN)	; Return conflict location abbreviation to pass to $$CNFLCTDT^DGRPDT ; INPUT: LN - POW Location file #22 IEN ; OUTPUT: Conflict location abbreviation
MSECHK(DFN,DGMS)	; Check military service episodes for inconsistencies

Name	Field # of Occurrence
INIT^DGMSRPT	EN+5
MSG^DGMSRPT	EN+12
$$B4^DGRPDT	MSECHK+19
$$CNFLCTDT^DGRPDT	CMPWCHK+11, CONFCHK+9
$$GETCNFDT^DGRPDT	MSECHK+9
$$MNTHYR^DGRPDT	IMPR+7
$$OVRLPCHK^DGRPDT	CMPWCHK+15, CONFCHK+13
$$RWITHIN^DGRPDT	MSECHK+12
$$WITHIN^DGRPDT	MSECHK+10, MSECHK+11, OVRLP+10, OVRLP+11
$$PSITE^EASUER	CHK+14
$$SITE^VASITE	CHK+14
$$FMADD^XLFDT	EN+2
$$FMTE^XLFDT	EN+3, EN+11
$$NOW^XLFDT	EN+3, EN+11

Name	Line Occurrences (* Changed, ! Killed)
^DIC(22 - [#22]	LOC+4
^DIC(23 - [#23]	MSECHK+6
^DIC(4 - [#4]	CHK+15
^DPT - [#2]	EN+9, CHK+5, CHK+7, CHK+10, CHK+12, CHK+13, CHK+17, MSINC+13, GETMS+4
^XTMP("DGMSRPT"	EN+2, EN+3, EN+11*, EN+13!

Name	Line Occurrences
$$CHK	EN+9
$$IMPR	MSECHK+17, CMPWCHK+8, CONFCHK+6
$$LOC	CMPWCHK+10
$$MISS	MSECHK+15, CMPWCHK+6, CONFCHK+4
$$OVRLP	MSECHK+22
ARRY	GETMS+6, GETMS+10, GETMS+12, GETMS+14, GETMS+16, GETMS+18, GETMS+20
CMPWCHK	MSINC+8
CONFCHK	MSINC+10
GETMS	MSINC+4
MSECHK	MSINC+6
MSINC	EN+9
SETCNT	MSINC+17, MSECHK+7, MSECHK+13, MSECHK+15, MSECHK+17, MSECHK+20, MSECHK+22, CMPWCHK+6, CMPWCHK+8, CMPWCHK+12 , CMPWCHK+16, CONFCHK+4, CONFCHK+6, CONFCHK+10, CONFCHK+14
SETTXT	MSECHK+7, MSECHK+13, MSECHK+15, MSECHK+17, MSECHK+20, MSECHK+22, CMPWCHK+6, CMPWCHK+8, CMPWCHK+12, CMPWCHK+16 , CONFCHK+4, CONFCHK+6, CONFCHK+10, CONFCHK+14
SETVET	MSECHK+24, CMPWCHK+18, CONFCHK+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BOS	MSECHK+1~, MSECHK+6*, MSECHK+7, MSECHK+8
CAT	GETMS+2~, GETMS+5, GETMS+6, GETMS+9, GETMS+10, GETMS+11, GETMS+12, GETMS+13, GETMS+14, GETMS+16 , GETMS+17, GETMS+18, GETMS+19, GETMS+20, ARRY~, ARRY+13, MSECHK+1~, MSECHK+4, MSECHK+6, MSECHK+10 , MSECHK+11, MSECHK+12, MSECHK+15, MSECHK+17, MSECHK+19, MSECHK+22, MSECHK+24, CMPWCHK+3~, CMPWCHK+4, CMPWCHK+6 , CMPWCHK+8, CMPWCHK+10, CMPWCHK+11, CMPWCHK+12, CMPWCHK+14, CMPWCHK+15, CMPWCHK+16, CMPWCHK+18, CONFCHK+1~, CONFCHK+2* , CONFCHK+4, CONFCHK+6, CONFCHK+8, CONFCHK+9, CONFCHK+12, CONFCHK+13, CONFCHK+16, SETVET~, SETVET+2, SETVET+4 , MISS~, MISS+6, MISS+7, IMPR~, IMPR+6, IMPR+7, OVRLP~, OVRLP+5, OVRLP+6, OVRLP+10 , OVRLP+11
CHK	CHK+2~, CHK+3, CHK+5, CHK+7, CHK+10, CHK+12, CHK+13, CHK+15, CHK+17, CHK+19 , CHK+20
DFN	EN+8~, EN+9*, CHK~, CHK+3, CHK+5, CHK+7, CHK+10, CHK+12, CHK+13, CHK+17 , MSINC~, MSINC+2, MSINC+4, MSINC+6, MSINC+8, MSINC+10, MSINC+12, MSINC+13, MSINC+14, MSINC+15 , MSINC+16, GETMS~, GETMS+3, GETMS+4, MSECHK~, MSECHK+24, CMPWCHK~, CMPWCHK+15, CMPWCHK+18, CONFCHK~ , CONFCHK+13, CONFCHK+16, SETVET~, SETVET+2, SETVET+4
DG	MSECHK+1~, MSECHK+4, MSECHK+7, MSECHK+13, MSECHK+15, MSECHK+17, MSECHK+20, MSECHK+22, CMPWCHK+3~, CMPWCHK+4 , CMPWCHK+6, CMPWCHK+8, CMPWCHK+12, CMPWCHK+16, CONFCHK+1~, CONFCHK+2, CONFCHK+4, CONFCHK+6, CONFCHK+10, CONFCHK+14 , SETTXT~, SETTXT+2, SETTXT+3, SETTXT+4, SETTXT+5, SETVET+3~, SETVET+4
DGI	OVRLP+3~, OVRLP+9*
DGMS	MSINC+1~, MSINC+4, MSINC+6, MSINC+8, MSINC+10, GETMS~, GETMS+6, GETMS+10, GETMS+12, GETMS+14 , GETMS+16, GETMS+18, GETMS+20, ARRY~, MSECHK~, CMPWCHK~, CONFCHK~
DGMS(	ARRY+13*, MSECHK+4, MSECHK+6, MSECHK+10, MSECHK+11, MSECHK+12, MSECHK+19, CMPWCHK+4, CMPWCHK+10, CMPWCHK+11 , CMPWCHK+14, CMPWCHK+15, CONFCHK+2, CONFCHK+8, CONFCHK+9, CONFCHK+12, CONFCHK+13, MISS+7, IMPR+7, OVRLP+9 , OVRLP+10, OVRLP+11
DGMS("MSE1"	MSECHK+3
DGMS("MSE2"	GETMS+7!, MSECHK+3
DGMS("MSE3"	GETMS+8!, MSECHK+3
DGTXT	MSECHK+1~, MSECHK+4!, MSECHK+7, MSECHK+13, MSECHK+15, MSECHK+17, MSECHK+20, MSECHK+22, MSECHK+24, CMPWCHK+3~ , CMPWCHK+4!, CMPWCHK+6, CMPWCHK+8, CMPWCHK+12, CMPWCHK+16, CMPWCHK+18, CONFCHK+1~, CONFCHK+2!, CONFCHK+4, CONFCHK+6 , CONFCHK+10, CONFCHK+14, CONFCHK+16, SETTXT~, SETTXT+3, SETTXT+4, SETTXT+5, SETVET~, SETVET+2
DGTXT(	SETTXT+3, SETTXT+4, SETTXT+5*, SETVET+4
DGX	OVRLP+3~, OVRLP+6*, OVRLP+9
DGXTMP	EN+12, EN+13!, MSINC+12, MSINC+14, MSINC+15, MSINC+16, SETVET+4, SETCNT+3*
DT	EN+2
ENR	CHK+2~
ENRDT	CHK+2~
FLD	GETMS+2~, GETMS+5, GETMS+6, GETMS+9, GETMS+10, GETMS+12, GETMS+13, GETMS+14, GETMS+15, GETMS+16 , GETMS+17*, GETMS+18, GETMS+20, ARRY~, ARRY+11, ARRY+13, MISS~, MISS+6, MISS+7, IMPR~ , IMPR+6, IMPR+7
I	GETMS+2~, GETMS+4, ARRY+8~, ARRY+10, ARRY+13, MISS+4~, MISS+7, IMPR+4~, IMPR+7
IMPR	IMPR+4~, IMPR+5, IMPR+6, IMPR+7, IMPR+8
J	ARRY+8~, ARRY+9, ARRY+11, ARRY+13
K	ARRY+8~, ARRY+9, ARRY+11, ARRY+12*, ARRY+13
LN	LOC~, LOC+3, LOC+4*, LOC+5, LOC+6, LOC+7, LOC+8, LOC+9, LOC+10, LOC+11 , LOC+12
LOC	CMPWCHK+3~, CMPWCHK+10*, CMPWCHK+11
MISS	MISS+4~, MISS+5, MISS+6, MISS+7, MISS+8
MS	GETMS+2~, GETMS+6, GETMS+10, GETMS+12, GETMS+14, GETMS+16, GETMS+18, GETMS+20, ARRY~
MS(	GETMS+4*, GETMS+7, GETMS+8, ARRY+13
MSE	OVRLP+3~, OVRLP+9*, OVRLP+10, OVRLP+11
NAM	MSINC+1~, MSINC+13*, MSINC+14, MSINC+15
OVR	MSECHK+1~, MSECHK+22, OVRLP+3~, OVRLP+4, OVRLP+5, OVRLP+9, OVRLP+10, OVRLP+11, OVRLP+12
P1	ARRY~, ARRY+10
P2	ARRY~, ARRY+10
SB	ARRY~, ARRY+13
SITE	CHK+2~, CHK+14*, CHK+15
SSN	MSINC+1~, MSINC+13*, MSINC+14, MSINC+16
SUB	SETCNT~, SETCNT+2, SETCNT+3
U	EN+2, EN+3, EN+11, CHK+5, CHK+10, CHK+12, CHK+13, CHK+14, CHK+15, MSINC+13 , MSINC+14, GETMS+7, GETMS+8, ARRY+11, ARRY+13, MSECHK+6, MSECHK+9, MSECHK+22, SETCNT+3, MISS+7 , IMPR+7, OVRLP+10, OVRLP+11, LOC+4
UE	CHK+2~, CHK+12*
UESITE	CHK+2~, CHK+13*, CHK+15
WWIIDT	MSECHK+1~, MSECHK+9*
WWIIE	MSECHK+1~, MSECHK+9*, MSECHK+10, MSECHK+11, MSECHK+12
WWIIS	MSECHK+1~, MSECHK+9*, MSECHK+10, MSECHK+11, MSECHK+12
X	MISS+4~, MISS+7, IMPR+4~, IMPR+7
>> ZTREQ	EN+4*
>> ZTSK	EN+4

Customize PDF page

Package: Registration

Routine: DGMSRPT1

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: