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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGRPMS

Package: Registration

Routine: DGRPMS


Information

DGRPMS ;ALB/BRM,LBD - MILITARY SERVICE APIS ; 1/31/12 11:14am

Source Information

Source file <DGRPMS.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 EN^DDIOL  FILE^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  
Registration 2 GETMSE^DGMSEUTL  ($$B4,$$CNFLCTDT,$$COVRLP2,$$DTUTIL,$$OVRLPCHK,$$RWITHIN,$$VALID,$$WITHIN,GETDAT)^DGRPDT  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 7 DGRP6  DGRP6CL  ^DPT  DGRP6CL1  DGRPC2  DGRPC3  DGRPTX17  
Integrated Billing 1 SERVICE [OEF OR OIF]  

Entry Points

Name Comments DBIA/ICR reference
VALCON1(DFN,IEN,CDATE,FRTO) ; Valid conflict input for OIF/OEF/UNKNOWN OEF/OIF?
; Need to send the ien of the multiple as well as the DFN and
; determine the specific conflict area
BRANCH(DGCOMBR) ;branches of service that require WWII service dates
WWIIP ;;
MSG(MSGTXT,LF1,LF2) ; This api will format the output text in order to utilize
; the EN^DDIOL utility.
MSL ;;.326^.327^.325
WWII(DFN,TODT,FLD) ; was this patient in WWII?
; this API assumes the WWII period to be from 12/07/41-12/31/46
MSE ;;.01^.02^.03
KOR ;;
WWIIE ;;
PAN ;;.3228^.3229
FVP1 ;MUMPS cross-reference "AFV3216" on the Service Branch field (#.03)
COMB ;;.5293^.5294^.5292
POW ;;.527^.528^.526
DUPCHK(DFN,FRDT,FLD) ; Check for duplicate Service Entry Date
SOM ;;.322017^.322018
FV(X) ;Is this a Filipino Vet branch of service?
YUG ;;.32202^.322021
GREN ;;.3225^.3226
DELMSE(DFN,TYPE) ; delete MSE from patient
CNFLCT ;; *** DO NOT REMOVE BELOW CONFLICT FIELD LOCATIONS ***
LEB ;;.3222^.3223
VALMSE(DFN,MDATE,FRTO,FLD) ;is this a valid Military Service Episode date?
VALCOMP(DFN,CODE,DGEPI) ; Verify component is consistent with the corresponding
; branch of service Also, branch of service must be entered before
; component.
; ACTIVATED NATIONAL GUARD (G) only valid for ARMY or AIR FORCE branch
; ACTIVATED RESERVE (V) only valid for ARMY, AIR FORCE, MARINES, NAVY
; or COAST GUARD branch
; DFN = ien of patient in file 2
; DGEPI = episode # to check (1=LAST, 2=NTL, 3=NNTL)
; CODE = the component code
; OUTPUT: 1 if valid component
; 0 if invalid component or branch of serv missing
UNK ;;.02^.03
FVP ;MUMPS cross-reference "AFV1" on Service Branch [Last] (#.325), "AFV2"
VALCON(DFN,CNFLCT,CDATE,FRTO,OEIFAIL) ;is this a valid conflict input?
GETDT(DFN,CNFLCT,FRTO) ; get from date, to date, or location from patient file
GULF ;;.322011^.322012
WWI ;;
MSNTL ;;.3292^.3293^.3291
COMPOW(VAL) ;convert POW and Combat Location fields
OIF ;;.02^.03
VIET ;;.32104^.32105
OEF ;;.02^.03
MSNNTL ;;.3297^.3298^.3296

External References

Name Field # of Occurrence
EN^DDIOL MSG+11
GETMSE^DGMSEUTL DUPCHK+11
$$B4^DGRPDT VALCON+26, VALMSE+18
$$CNFLCTDT^DGRPDT VALCON+22
$$COVRLP2^DGRPDT VALCON+33
$$DTUTIL^DGRPDT VALCON+15, VALMSE+14
$$OVRLPCHK^DGRPDT VALMSE+20
$$RWITHIN^DGRPDT WWII+16
$$VALID^DGRPDT VALCON+11, VALMSE+10
$$WITHIN^DGRPDT WWII+14, WWII+15
GETDAT^DGRPDT WWII+9
FILE^DIE DELMSE+12, FVP+12, FVP1+16
$$EXTERNAL^DILFD GETDT+22
$$GET1^DIQ GETDT+21, COMPOW+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(22 - [#22] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(23 - [#23] FV+8
^DPT - [#2] VALCON1+4, VALCON+10, VALMSE+9, VALCOMP+13, VALCOMP+14, GETDT+4, DELMSE+6, FVP+7, FVP1+9, FVP1+11

Label References

Name Line Occurrences
$$BRANCH VALMSE+22
$$COMPOW VALCON+20
$$DUPCHK VALMSE+17
$$FV FVP+8, FVP1+12
$$GETDT VALCON+13, VALCON+14, VALCON+15, VALCON+20, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+21
$$VALCON VALCON1+6
$$WWII VALMSE+22
MSG VALCON+16, VALCON+23, VALCON+26, VALCON+36, VALMSE+15, VALMSE+17, VALMSE+18, VALMSE+22, VALMSE+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABRV COMPOW+2~, COMPOW+4*, COMPOW+5, COMPOW+6, COMPOW+7, COMPOW+8, COMPOW+9, COMPOW+10, COMPOW+11, COMPOW+12
, COMPOW+13
BOS FVP+6~, FVP+8*, FVP1+7~, FVP1+11*, FVP1+12
BRANCH BRANCH+1~, BRANCH+3*, BRANCH+4, BRANCH+5, BRANCH+6, BRANCH+7, BRANCH+8
CDATE VALCON1~, VALCON1+6, VALCON~, VALCON+11, VALCON+13, VALCON+14, VALCON+15
CFLD GETDT+2~, GETDT+15*, GETDT+16, GETDT+21, GETDT+22
CFLDS GETDT+2~, GETDT+14*, GETDT+15
CNF1 GETDT+2~, GETDT+7*, GETDT+11, GETDT+13, GETDT+20
CNF2 GETDT+2~, GETDT+7*, GETDT+11, GETDT+13, GETDT+20
CNFLCT VALCON~, VALCON+13, VALCON+14, VALCON+15, VALCON+17, VALCON+18, VALCON+19, VALCON+20*, VALCON+22, VALCON+27
, VALCON+33, GETDT~, GETDT+5, GETDT+7
CNFLCT2 VALCON+7~, VALCON+19*
CNFLCTV VALCON+7~, VALCON+21*, VALCON+22*, VALCON+23
CODE VALCOMP~, VALCOMP+16, VALCOMP+19
COMPOW VALCON+7~, VALCON+18*, VALCON+25, VALCON+28, VALCON+32
>> DA FVP+5, FVP+7, FVP+11, FVP1+10
>> DA(1 FVP1+6, FVP1+9, FVP1+11, FVP1+15
DATA WWII+3~, WWII+9
DATA( WWII+11
DFN VALCON1~, VALCON1+4, VALCON1+6, VALCON~, VALCON+9, VALCON+10, VALCON+13, VALCON+14, VALCON+15, VALCON+20
, VALCON+33, VALMSE~, VALMSE+8, VALMSE+9, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+17, VALMSE+20, VALMSE+21
, VALMSE+22, VALCOMP~, VALCOMP+13, VALCOMP+14, GETDT~, GETDT+3, GETDT+4, GETDT+17, WWII~, WWII+4
, WWII+9, DELMSE~, DELMSE+6, DELMSE+8, DUPCHK~, DUPCHK+7, DUPCHK+11
DGCOMBR VALMSE+15!, VALMSE+18!, VALMSE+21*, VALMSE+22!, VALMSE+23!, BRANCH~, BRANCH+2, BRANCH+3
>> DGCOMLOC VALCON+20
DGEPI VALCOMP~, VALCOMP+13, VALCOMP+14
DGFRDT VALCON+13!, VALCON+14!, VALMSE+12!, VALMSE+13!
DTCHK VALCON+7~, VALCON+15*, VALCON+16, VALMSE+7~, VALMSE+14*, VALMSE+15
DUP DUPCHK+6~, DUPCHK+13*, DUPCHK+14
DUPCHK VALMSE+7~, VALMSE+17*
FDA DELMSE+7~, FVP+6~, FVP1+7~
FDA(2 FVP+11*, FVP1+15*
FILE GETDT+2~, GETDT+17*, GETDT+20*, GETDT+21, GETDT+22
FLD VALMSE~, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+17, VALMSE+20, VALMSE+21, VALMSE+22, WWII~, WWII+6
, WWII+10, DUPCHK~, DUPCHK+9
FRDT VALCON+7~, VALCON+13*, VALCON+14*, VALCON+22, VALCON+26, VALCON+33, VALMSE+7~, VALMSE+12*, VALMSE+13*, VALMSE+17
, VALMSE+18, VALMSE+20, DUPCHK~, DUPCHK+8, DUPCHK+13
FRTO VALCON1~, VALCON1+6, VALCON~, VALCON+12*, VALCON+13, VALCON+14, VALCON+15, VALCON+22, VALCON+27, VALCON+28
, VALMSE~, VALMSE+11*, VALMSE+12, VALMSE+13, VALMSE+14, VALMSE+17, VALMSE+18, VALMSE+19, VALMSE+22, GETDT~
, GETDT+6*, GETDT+15, GETDT+22
FV FV+6~, FV+8*, FV+9, FVP+6~, FVP+8*, FVP+9, FVP1+7~, FVP1+8*, FVP1+9, FVP1+12*
, FVP1+13
IEN VALCON1~, VALCON1+4, VALCON1+6, DUPCHK+6~, DUPCHK+12*, DUPCHK+13
IENS GETDT+2~, GETDT+17*, GETDT+20*, GETDT+21, DELMSE+7~, DELMSE+8*, FVP+6~, FVP+11*, FVP1+7~, FVP1+15*
IGNORE VALCON+7~, VALCON+27*, VALCON+28*, VALCON+33, VALMSE+7~, VALMSE+19*, VALMSE+20
LF1 MSG~, MSG+8
LF2 MSG~, MSG+10
LFSTR MSG+6~, MSG+7*, MSG+8, MSG+10
MDATE VALMSE~, VALMSE+10, VALMSE+12, VALMSE+13, VALMSE+14
MS FVP+6~, FVP+7*, FVP+8, FVP1+7~, FVP1+8*, FVP1+9*, FVP1+10, FVP1+11
MSE DUPCHK+6~, DUPCHK+11
MSE( DUPCHK+12, DUPCHK+13
MSEIEN DUPCHK+6~, DUPCHK+9*, DUPCHK+13
MSG VALCON+7~, VALCON+25*, VALCON+26
MSGARY MSG+6~, MSG+11
MSGARY( MSG+8*
MSGARY(1 MSG+9*
MSGARY(2 MSG+10*
MSGTXT MSG~, MSG+9
NODE WWII+3~, WWII+9
NODE( WWII+6*, WWII+7*
OEFOIF VALCON+7~, VALCON+33*, VALCON+34
OEFOIF(1 VALCON+34
OEIFAIL VALCON~, VALCON+8*, VALCON+34*
OK WWII+3~, WWII+13*, WWII+14*, WWII+15*, WWII+16*, WWII+17
PATDT WWII+3~, WWII+10*, WWII+11
PATE WWII+3~, WWII+11*, WWII+12
PATS WWII+3~, WWII+11*, WWII+14, WWII+16
ROOT DELMSE+7~, DELMSE+8*, DELMSE+9, DELMSE+10, DELMSE+11
RTN VALCON+7~, VALCON+31*, VALCON+33*, VALCON+34, VALCON+35, VALCON+36, VALCON+37, VALMSE+7~, VALMSE+20*, VALMSE+22
, VALMSE+24, VALMSE+25, VALMSE+26
RTN1 GETDT+2~, GETDT+21*, GETDT+22*, GETDT+23
TODT VALCON+7~, VALCON+13*, VALCON+14*, VALCON+22, VALCON+26, VALCON+33, VALMSE+7~, VALMSE+12*, VALMSE+13*, VALMSE+18
, VALMSE+20, VALMSE+22, WWII~, WWII+12*, WWII+15, WWII+16
TYPE DELMSE~, DELMSE+5, DELMSE+9, DELMSE+10, DELMSE+11
U VALCON1+4, VALCON+33, VALCOMP+13, VALCOMP+14, GETDT+11, FV+8, FVP+8, FVP1+11
VAL COMPOW~, COMPOW+3, COMPOW+4
WWIIE WWII+3~, WWII+8*, WWII+14, WWII+15, WWII+16
WWIIS WWII+3~, WWII+8*, WWII+14, WWII+15, WWII+16
X VALCON+7~, VALMSE+7~, DELMSE+7~, DELMSE+8*, DELMSE+9, DELMSE+10, DELMSE+11, FV~, FV+7, FV+8
X1 DELMSE+7~
X2 DELMSE+7~
Y VALCON+7~, VALMSE+7~, DELMSE+7~
Z VALCON1+3~, VALCON1+4*, VALCON1+6, VALCOMP+11~, VALCOMP+13*, VALCOMP+14*, VALCOMP+15, VALCOMP+17, VALCOMP+19
ZZ DELMSE+7~, DELMSE+9*, DELMSE+10*, DELMSE+11*

Marked Items

Name Field # of Occurrence
$T(@(1) VALCON+28, GETDT+14
$T(@(4) VALCON+27, VALMSE+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All