DGRPDT ;ALB/BRM,LBD - MILITARY SERVICE DATE UTILITIES ; 6/30/09 2:21pm
Source file <DGRPDT.m>
| 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 |
