Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMSRPT1

Package: Registration

Routine: DGMSRPT1


Information

DGMSRPT1 ;ALB/LBD,BRM - Military Service Inconsistency Report; 01/05/04 ; 5/18/04 9:53am

Source Information

Source file <DGMSRPT1.m>

Call Graph

Call Graph Total: 5

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

External References

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

Global Variables Directly Accessed

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!

Label References

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All