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 |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGRPDT

Package: Registration

Routine: DGRPDT


Information

DGRPDT ;ALB/BRM,LBD - MILITARY SERVICE DATE UTILITIES ; 6/30/09 2:21pm

Source Information

Source file <DGRPDT.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ($$DT,$$FMTE)^XLFDT  
VA FileMan 1 GETS^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Registration 8 DGENUPL3  DGMSCK  DGMSRPT1  DGRP6CL1  DGRPC1  DGRPC2  DGRPC3  DGRPMS  
Income Verification Match 1 IVMZ7CR  

Entry Points

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

External References

Name Field # of Occurrence
GETS^DIQ GETDAT+8, GETDAT+13, GETDAT+16
$$DT^XLFDT GETCNFDT+5
$$FMTE^XLFDT CNFLCTDT+6, CNFLCTDT+7, CNFLCTDT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] COVRLP2+1, OVRLPCHK+3, OVRLPCHK+6, GETDAT+13, GETDAT+16

Label References

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

Naked Globals

Name Field # of Occurrence
^( GETDAT+16

Local Variables

Legend:

>> 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*

Marked Items

Name Field # of Occurrence
$T(@(1) GETCNFDT+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All