DGMSRPT1 ;ALB/LBD,BRM - Military Service Inconsistency Report; 01/05/04 ; 5/18/04 9:53am
Source file <DGMSRPT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point called from ^DGMSRPT
; Initialize ^XTMP global and set start date |
|
| CHK(DFN) | ; Check if patient meets criteria to include in report
; OUTPUT: 1=Meets report criteria; 0=Doesn't meet report criteria |
|
| MSINC(DFN) | ; Check military service data for inconsistencies.
|
|
| GETMS(DFN,DGMS) | ; Build DGMS array of military service data
; OUTPUT: DGMS(CATEGORY,FIELD) - array of Military Service data |
|
| 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 |
|
| MSECHK(DFN,DGMS) | ; Check military service episodes for inconsistencies
|
|
| CMPWCHK(DFN,DGMS) | ; Check Combat and POW data for inconsistencies
; INPUT: DFN - Patient file IEN ; DGMS( - MS data array |
|
| CONFCHK(DFN,DGMS) | ; Check Conflict data for inconsistencies
|
|
| SETTXT(DG,DGTXT) | ; Set array of MS inconsistency text DGTXT(
; INPUT: DG - Subscript for DGTXT array |
|
| SETVET(DFN,CAT,DGTXT) | ; Update ^XTMP("DGMSRPT","MSINC",DFN, with MS inconsistencies for veteran
|
|
| SETCNT(SUB) | ; Update ^XTMP("DGMSRPT","MSINC","CNT",
; INPUT: SUB - Subscript in ^("CNT") array to increment |
|
| 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 |
|
| 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 |
|
| 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 |
|
| LOC(LN) | ; Return conflict location abbreviation to pass to $$CNFLCTDT^DGRPDT
; INPUT: LN - POW Location file #22 IEN ; OUTPUT: Conflict location abbreviation |
