DGRPDT ;ALB/BRM,LBD - MILITARY SERVICE DATE UTILITIES ; 6/30/09 2:21pm
Source file <DGRPDT.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
DTUTIL(DGNEWDT,DGOLDDT,MYFLG) | ; Date precision comparision API
|
|
CHKEXC(MSDATE) | ; construct precision string (3 digit return value - YMD)
|
|
MNTHYR(MSDATE) | ; ensure month and year are not imprecise (binary return value)
|
|
WITHIN(FRDT,TODT,CHKDT) | ; is CHKDT within FRDT and TODT?
|
|
VALID(DATE) | ; is this a valid Fileman date? (limits are from FR^XLFDT)
|
|
B4(DATE1,DATE2,SAME) | ;is DATE1 before DATE2?
|
|
RWITHIN(FRDT,TODT,CHKDT1,CHKDT2) | ;are CHKDT1 and CHKDT2 within FRDT and TODT?
|
|
COVRLP2(DFN,FRDT,TODT,IGNORE,OEFOIF) | ; check conflict with type 0 and 2 (see below)
|
|
OVRLPCHK(DFN,FRDT,TODT,TYPE,IGNORE,OEFOIF,MSE) | ;check for overlapping date ranges
; pass OEFOIF by ref - return OEFOIF(1)=1: OEF/OIF "cnflct not within MSE |
|
SAME(FRDT1,TODT1,FRDT,TODT) | ;
|
|
GETDAT(DFN,NODE,DATA) | ;get data from the Patient (#2) file
|
|
MSEONLY(DATA,FRDT,TODT) | ; are these dates within the whole MSE period?
|
|
CNFLCTDT(FRDT,TODT,CNFLCT) | ;are these dates valid for this conflict?
|
|
GETCNFDT(CNFLCT) | ; get the date range for input conflict
|
|
IGNORE(NODE,IFLD) | ; extract top-level field to ignore when comparing
|
|
CNFLCT | ;; *** DO NOT REMOVE OR CHANGE BELOW CONFLICT VALUES ***
|
|
WWI | ;;2170406^2181111
|
|
WWIIE | ;;2411207^2461231
|
|
WWIIP | ;;2411207^2461231
|
|
KOR | ;;2500627^2550131
|
|
VIET | ;;2610228^2750507
|
|
LEB | ;;2831001^
|
|
GREN | ;;2831023^2831121
|
|
PAN | ;;2891220^2900131
|
|
GULF | ;;2900802^
|
|
SOM | ;;2920928^
|
|
YUG | ;;2920622^
|
|
OTHER | ;;^
|
|
OIF | ;;3030301^^3030319
|
|
OEF | ;;3010901^^3010911
|
|
UNK | ;;3010901^^3010911
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | COVRLP2+1, OVRLPCHK+3, OVRLPCHK+6, GETDAT+13, GETDAT+16 |
Name | Line Occurrences |
---|---|
$$B4 | WITHIN+4, WITHIN+5, SAME+2, SAME+3, MSEONLY+6, MSEONLY+7 |
$$CHKEXC | DTUTIL+5, B4+5 |
$$GETCNFDT | CNFLCTDT+3 |
$$MNTHYR | DTUTIL+6 |
$$MSEONLY | OVRLPCHK+16 |
$$OVRLPCHK | COVRLP2+2, COVRLP2+4 |
$$RWITHIN | OVRLPCHK+20, OVRLPCHK+26, CNFLCTDT+8 |
$$SAME | OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+31 |
$$VALID | DTUTIL+2, WITHIN+2, WITHIN+4 |
$$WITHIN | RWITHIN+2, RWITHIN+3, OVRLPCHK+23, CNFLCTDT+6, CNFLCTDT+7 |
GETDAT | OVRLPCHK+13 |
IGNORE | OVRLPCHK+12 |
Name | Field # of Occurrence |
---|---|
^( | GETDAT+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CDATE1 | B4+1~, B4+6*, B4+10, B4+11 |
CDATE2 | B4+1~, B4+6*, B4+10, B4+11 |
CHK1 | RWITHIN+1~, RWITHIN+2*, RWITHIN+4 |
CHK2 | RWITHIN+1~, RWITHIN+3*, RWITHIN+4 |
CHKDT | WITHIN~, WITHIN+2, WITHIN+5 |
CHKDT1 | RWITHIN~, RWITHIN+2 |
CHKDT2 | RWITHIN~, RWITHIN+3 |
CNFLCT | CNFLCTDT~, CNFLCTDT+1, CNFLCTDT+3, GETCNFDT~, GETCNFDT+1, GETCNFDT+3 |
CNFLCT1 | GETCNFDT+2~, GETCNFDT+3* |
CRNG | CNFLCTDT+2~, CNFLCTDT+3*, CNFLCTDT+4, CNFLCTDT+5, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8, GETCNFDT+2~, GETCNFDT+4*, GETCNFDT+5* , GETCNFDT+6*, GETCNFDT+7*, GETCNFDT+8 |
DATA | OVRLPCHK+2~, OVRLPCHK+13, OVRLPCHK+16, GETDAT~, MSEONLY~ |
DATA( | OVRLPCHK+15!, OVRLPCHK+17, OVRLPCHK+18, GETDAT+30*, GETDAT+32*, MSEONLY+2, MSEONLY+3 |
DATA("COMBAT" | GETDAT+28* |
DATA("GREN" | GETDAT+23* |
DATA("GULF" | GETDAT+25* |
DATA("LEB" | GETDAT+22* |
DATA("MSE-" | OVRLPCHK+14! |
DATA("MSL" | GETDAT+18* |
DATA("MSNNTL" | GETDAT+20* |
DATA("MSNTL" | GETDAT+19* |
DATA("PAN" | GETDAT+24* |
DATA("SOM" | GETDAT+26* |
DATA("VIET" | GETDAT+21* |
DATA("YUG" | GETDAT+27* |
DATA1 | GETDAT+1~ |
DATA1( | GETDAT+18, GETDAT+19, GETDAT+20, GETDAT+21, GETDAT+22, GETDAT+23, GETDAT+24, GETDAT+25, GETDAT+26, GETDAT+27 , GETDAT+28, GETDAT+30, GETDAT+32 |
DATA1("MSE-" | GETDAT+14* |
DATE | VALID~, VALID+1, VALID+2 |
DATE1 | B4~, B4+2*, B4+3, B4+4, B4+5, B4+7, B4+8, B4+9, B4+12 |
DATE2 | B4~, B4+2*, B4+3, B4+4, B4+5, B4+7, B4+8, B4+9, B4+12 |
DFN | COVRLP2~, COVRLP2+1, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+3, OVRLPCHK+6, OVRLPCHK+13, GETDAT~, GETDAT+2 , GETDAT+8, GETDAT+13, GETDAT+16 |
DGNEWDT | DTUTIL~, DTUTIL+2, DTUTIL+5, DTUTIL+6 |
DGOLDDT | DTUTIL~, DTUTIL+1*, DTUTIL+3*, DTUTIL+5 |
DGRPB41 | WITHIN+1~, WITHIN+5*, WITHIN+6, WITHIN+7 |
DGRPB42 | WITHIN+1~, WITHIN+5*, WITHIN+6, WITHIN+7 |
DGRW1 | OVRLPCHK+2~, OVRLPCHK+26*, OVRLPCHK+27, OVRLPCHK+30, OVRLPCHK+31 |
DGRW2 | OVRLPCHK+2~, OVRLPCHK+26*, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31 |
DGS1 | SAME+1~, SAME+2*, SAME+4 |
DGS2 | SAME+1~, SAME+2*, SAME+5 |
DGS3 | SAME+1~, SAME+3*, SAME+6 |
DGS4 | SAME+1~, SAME+3*, SAME+7 |
DGW1 | OVRLPCHK+2~, OVRLPCHK+23*, OVRLPCHK+24, OVRLPCHK+30 |
DGW2 | OVRLPCHK+2~, OVRLPCHK+23*, OVRLPCHK+25, OVRLPCHK+30 |
DGZ | OVRLPCHK+2~, OVRLPCHK+16* |
DR | GETDAT+1~, GETDAT+6*, GETDAT+8, GETDAT+13, GETDAT+16 |
ERR | GETDAT+1~ |
EXACTN | DTUTIL+4~, DTUTIL+5*, DTUTIL+7, DTUTIL+9, DTUTIL+10 |
EXACTO | DTUTIL+4~, DTUTIL+5*, DTUTIL+7, DTUTIL+9, DTUTIL+10 |
FRDT | WITHIN~, WITHIN+3, WITHIN+4, WITHIN+5, RWITHIN~, RWITHIN+2, RWITHIN+3, COVRLP2~, COVRLP2+2, COVRLP2+4 , OVRLPCHK~, OVRLPCHK+16, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY~, MSEONLY+6, CNFLCTDT~, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8 |
FRDT1 | OVRLPCHK+2~, OVRLPCHK+18*, OVRLPCHK+19, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY+1~, MSEONLY+3*, MSEONLY+4 |
FROM | MSEONLY+1~ |
FROM( | MSEONLY+4* |
FROM("" | MSEONLY+5 |
I | DTUTIL+4~, DTUTIL+8*, DTUTIL+9, DTUTIL+10, DTUTIL+11, B4+7*, B4+8*, B4+9* |
IDT | B4+1~ |
IFLD | IGNORE~, IGNORE+2*, IGNORE+4, IGNORE+6, IGNORE+7 |
IGNORE | COVRLP2~, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+6!, OVRLPCHK+10!, OVRLPCHK+12 |
IMPRDT | B4+1~ |
IRTN | B4+1~, B4+5, B4+10*, B4+11* |
LOOP | GETDAT+1~, GETDAT+9*, GETDAT+10, GETDAT+17*, IGNORE+1~, IGNORE+2*, IGNORE+3*, IGNORE+4*, IGNORE+5, IGNORE+6* , IGNORE+7* |
LSTPC | IGNORE+1~, IGNORE+5*, IGNORE+6, IGNORE+7 |
MSDATE | DTUTIL+4~, CHKEXC~, CHKEXC+1, MNTHYR~, MNTHYR+1 |
MSE | OVRLPCHK~, OVRLPCHK+6, OVRLPCHK+14 |
MSEFR | MSEONLY+1~, MSEONLY+5*, MSEONLY+6, MSEONLY+7 |
MSETO | MSEONLY+1~, MSEONLY+5*, MSEONLY+6, MSEONLY+7 |
MSG | DTUTIL+4~, DTUTIL+11*, DTUTIL+12, OVRLPCHK+2~, OVRLPCHK+21*, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30 , OVRLPCHK+31 |
MYFLG | DTUTIL~, DTUTIL+6 |
NODE | OVRLPCHK+2~, OVRLPCHK+12, OVRLPCHK+13, GETDAT~, GETDAT+2, IGNORE~ |
NODE( | OVRLPCHK+6*, OVRLPCHK+7*, OVRLPCHK+10*, OVRLPCHK+11*, GETDAT+4, GETDAT+6, GETDAT+9, GETDAT+17, IGNORE+3, IGNORE+4* , IGNORE+5, IGNORE+6*, IGNORE+7* |
OEFOIF | COVRLP2~, COVRLP2+2, COVRLP2+4, OVRLPCHK~, OVRLPCHK+10, OVRLPCHK+15, OVRLPCHK+16, OVRLPCHK+24, OVRLPCHK+25, OVRLPCHK+27 , OVRLPCHK+28, OVRLPCHK+29, OVRLPCHK+31, OVRLPCHK+32 |
OEFOIF(1 | OVRLPCHK+16*, OVRLPCHK+32* |
PC | IGNORE+1~, IGNORE+7* |
QLOOP | IGNORE+1~, IGNORE+7 |
RTN | DTUTIL+4~, DTUTIL+5*, DTUTIL+8, DTUTIL+9*, DTUTIL+10*, DTUTIL+12*, DTUTIL+13, COVRLP2+2*, COVRLP2+3, COVRLP2+4* , COVRLP2+5, OVRLPCHK+2~, OVRLPCHK+17, OVRLPCHK+24*, OVRLPCHK+25*, OVRLPCHK+27*, OVRLPCHK+28*, OVRLPCHK+30*, OVRLPCHK+31*, OVRLPCHK+33 |
RTN1 | OVRLPCHK+2~, OVRLPCHK+20*, OVRLPCHK+32 |
RVAL | IGNORE+1~ |
SAME | B4~, B4+4 |
SUB | GETDAT+1~, GETDAT+3*, GETDAT+4*, GETDAT+5, GETDAT+6, GETDAT+9, GETDAT+11, GETDAT+13, GETDAT+14, GETDAT+16 , GETDAT+17 |
SUB1 | GETDAT+1~ |
SUB1( | GETDAT+16* |
SUBND | GETDAT+1~, GETDAT+5*, GETDAT+7 |
SUBRNG | OVRLPCHK+2~, OVRLPCHK+17*, OVRLPCHK+18, OVRLPCHK+29, OVRLPCHK+31, MSEONLY+1~, MSEONLY+2*, MSEONLY+3 |
TMPDAT | GETDAT+1~ |
TMPDAT( | GETDAT+14 |
TO | MSEONLY+1~ |
TO( | MSEONLY+4* |
TO("" | MSEONLY+5 |
TODT | WITHIN~, WITHIN+3, WITHIN+4, WITHIN+5, RWITHIN~, RWITHIN+2, RWITHIN+3, COVRLP2~, COVRLP2+2, COVRLP2+4 , OVRLPCHK~, OVRLPCHK+16, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+30, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY~, MSEONLY+7, CNFLCTDT~, CNFLCTDT+5, CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8 |
TODT1 | OVRLPCHK+2~, OVRLPCHK+18*, OVRLPCHK+19, OVRLPCHK+20, OVRLPCHK+23, OVRLPCHK+26, OVRLPCHK+27, OVRLPCHK+28, OVRLPCHK+31, SAME~ , SAME+2, SAME+3, MSEONLY+1~, MSEONLY+3*, MSEONLY+4 |
TYPE | OVRLPCHK~, OVRLPCHK+4, OVRLPCHK+16, OVRLPCHK+20, OVRLPCHK+21, OVRLPCHK+32 |
U | OVRLPCHK+15, OVRLPCHK+29, OVRLPCHK+31, CNFLCTDT+5, GETCNFDT+7 |
X | DTUTIL+4~, GETDAT+1~, GETDAT+14* |
X1 | GETDAT+1~, GETDAT+14* |
Y | DTUTIL+4~ |
Z | GETDAT+1~, GETDAT+3*, GETDAT+30*, GETDAT+32* |
Z0 | GETDAT+1~, GETDAT+13*, GETDAT+16* |
Name | Field # of Occurrence |
---|---|
$T(@(1) | GETCNFDT+4 |