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 |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGRP6CL1

Package: Registration

Routine: DGRP6CL1


Information

DGRP6CL1 ;ALB/TMK - REGISTRATION SCREEN 6 FLDS Conflict loc (cont) ; 09/15/2005

Source Information

Source file <DGRP6CL1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 5 ($$DAT,$$YN)^DGRP6CL  $$ISVALID^DGRP6CL2  $$GETCNFDT^DGRPDT  $$VALCON^DGRPMS  $$SITE^VASITE  
VA FileMan 4 FILE^DICN  ^DIE  ^DIK  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRP6CL  

Entry Points

Name Comments DBIA/ICR reference
LOOPCNF(DGCONF,DGPOSS,DIR) ; Loop thru non-OEF/OIF conflicts
; DGCONF,DGPOSS = arrays from DGRP6CL containing conflict data
; Returns DIR array for screen display of conflicts
NOCHG ;Only from,to dates can be chged on locally entered OEF/OIF conflict data
HELP(SET) ;Help text for reader prompt for conflict to add/edit/delete
EDCFL(DFN,IEN,VEDIT) ; Edit OEF/OIF conflict from/to dates only or delete entry
CKDT(DGCONF,DGMSE,DGPOSS) ; Check dates for conflict in DGCONF(DGCONF)=
; fr date^to date are valid against military service episodes (DGMSE)
; for the patient and if no dates, if the MSE's would support that
; conflict being entered.
; Assume DFN exists
; FUNCTION returns
; DGCONF(DGCONF,1)=1 if MSE inconsistency found,0 if none
; Also returns DGPOSS(DGCONF) if patient has no dates for the
; conflict, but the MSE's indicate entry of the conflict would
; not be inconsistent.
ADDCFL(DFN,DGY,DGCONF,SRC) ; Add a new OEF/OIF conflict entry
; DFN = patient ien
; DGY = 1 for OIF, 2 for OEF, 3 for UNKNOWN OEF/OIF
; DGCONF = the conflict record being added (OEF/OIF/ UNKNOWN OEF/OIF)
; SRC = 1 if HEC data (locked) or 0 if site entered
; If SRC is passed by reference, it must contain the values needed
; to 'stuff' a new record into the file at the fld # subscript level
; SRC(.02)=from dt SRC(.03)=to dt SRC(.04)=1 if HEC source of data
; SRC("OK") is returned as 1 if filing was successful or as the
; reason why the data was not filed if unsuccessful
DELCFL(DFN) ; Delete all existing OEF/OIF episodes for a patient
; DFN = patient ien

External References

Name Field # of Occurrence
$$DAT^DGRP6CL LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
$$YN^DGRP6CL LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
$$ISVALID^DGRP6CL2 LOOPCNF+6
$$GETCNFDT^DGRPDT CKDT+12
$$VALCON^DGRPMS CKDT+22
FILE^DICN ADDCFL+23
^DIE EDCFL+6
^DIK DELCFL+3, ADDCFL+26
^DIR ADDCFL+28, NOCHG+2, HELP+7
$$SITE^VASITE ADDCFL+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS CONFLICT IS INCONSISTENT WITH MILITARY SERVICE DATA",!
  • Line Location: EDCFL+2
Function Call: WRITE
  • Prompt: !!,"Adding NEW "_DGCONF_" conflict data ...",!
  • Line Location: ADDCFL+17
Function Call: WRITE
  • Prompt: !
  • Line Location: NOCHG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOCHG+2
Function Call: WRITE
  • Prompt: !!,"Those conflicts with a number enclosed in brackets ""[]"" are valid",!,"for the veteran while those enclosed in arrows ""<>"" are not.",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,$J("",5),"Select one of the following:",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,$J("",15),$E($P(Z0,":")_$J("",10),1,10)_$P(Z0,":",2)
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+5
Routine Call
  • DIE
  • Line Location:
    • EDCFL+6
Routine Call
  • DIR
  • Line Location:
    • ADDCFL+28
    • NOCHG+2
    • HELP+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DELCFL+3, EDCFL+3, EDCFL+4, ADDCFL+24

Naked Globals

Name Field # of Occurrence
^( DELCFL+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CRNG CKDT+11~, CKDT+12*, CKDT+17
DA DELCFL+2~, DELCFL+3*, EDCFL+1~, EDCFL+5*, ADDCFL+11~, ADDCFL+26*
DA(1 DELCFL+3*, EDCFL+5*, ADDCFL+23*, ADDCFL+26*
DD ADDCFL+11~, ADDCFL+23!
DFN DELCFL~, DELCFL+3, EDCFL~, EDCFL+3, EDCFL+4, EDCFL+5, ADDCFL~, ADDCFL+23, ADDCFL+24, ADDCFL+26
, CKDT+22
DG DELCFL+2~, DELCFL+3*, LOOPCNF+6*, LOOPCNF+7
>> DG321 LOOPCNF+8
>> DG322 LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
DGCONF ADDCFL~, ADDCFL+17, CKDT~, CKDT+12, CKDT+13, CKDT+14, CKDT+16, CKDT+18, CKDT+22, CKDT+23
, LOOPCNF~, LOOPCNF+6*, LOOPCNF+7
DGCONF( CKDT+13, CKDT+14*, CKDT+22, CKDT+23*, LOOPCNF+6, LOOPCNF+7
>> DGCT LOOPCNF+7*, LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13, LOOPCNF+14
DGFORCE ADDCFL+11~, ADDCFL+12*, ADDCFL+13, ADDCFL+16, ADDCFL+20, ADDCFL+27, ADDCFL+28, ADDCFL+29
DGMSE CKDT~
DGMSE( CKDT+16, CKDT+17
DGMSE("" CKDT+21
DGOK CKDT+11~, CKDT+20*, CKDT+21*, CKDT+22*, CKDT+23
DGPOSS CKDT~, LOOPCNF~, LOOPCNF+6
DGPOSS( CKDT+16, CKDT+18*
DGX LOOPCNF+3~, LOOPCNF+4*, LOOPCNF+5
DGX1 LOOPCNF+3~, LOOPCNF+5*, LOOPCNF+6, LOOPCNF+7, LOOPCNF+8, LOOPCNF+9, LOOPCNF+10, LOOPCNF+11, LOOPCNF+12, LOOPCNF+13
, LOOPCNF+14
DGY ADDCFL~, ADDCFL+14
DIC ADDCFL+11~, ADDCFL+23*
DIC("DR" ADDCFL+14*, ADDCFL+18*, ADDCFL+21*
DIC(0 ADDCFL+23*
DIE EDCFL+1~, EDCFL+5*
DIK DELCFL+2~, DELCFL+3*, ADDCFL+11~, ADDCFL+26*
DIPA EDCFL+1~
DIPA( EDCFL+4*, EDCFL+5
DIR ADDCFL+11~, ADDCFL+28!, NOCHG+1~, NOCHG+2!, HELP+6~, LOOPCNF~
DIR("A" ADDCFL+28*, NOCHG+2*, HELP+7*, LOOPCNF+7*, LOOPCNF+8*, LOOPCNF+9*, LOOPCNF+10*, LOOPCNF+11*, LOOPCNF+12*, LOOPCNF+13*
, LOOPCNF+14*
DIR(0 ADDCFL+28*, NOCHG+2*, HELP+7*, LOOPCNF+6*
DO ADDCFL+11~, ADDCFL+23!
DR EDCFL+1~, EDCFL+5*
DT CKDT+22
DUZ(2 ADDCFL+18
FAIL CKDT+11~, CKDT+21*, CKDT+22, CKDT+23
IEN EDCFL~, EDCFL+3, EDCFL+4, EDCFL+5
LOOP LOOPCNF+3~, LOOPCNF+5*
SET HELP~, HELP+4
SRC ADDCFL~, ADDCFL+14
SRC( ADDCFL+13, ADDCFL+21
SRC("" ADDCFL+12
SRC("OK" ADDCFL+13*, ADDCFL+27*, ADDCFL+29*
U EDCFL+3, ADDCFL+25, CKDT+13, CKDT+17, CKDT+22, LOOPCNF+5
VEDIT EDCFL~, EDCFL+2
X DELCFL+2~, EDCFL+1~, ADDCFL+11~, ADDCFL+14*, ADDCFL+15, NOCHG+1~, HELP+6~
Y DELCFL+2~, EDCFL+1~, ADDCFL+11~, ADDCFL+24, ADDCFL+26, NOCHG+1~, HELP+6~
Z CKDT+11~, CKDT+16*, CKDT+17, CKDT+22*, HELP+1~, HELP+4*
Z0 ADDCFL+11~, ADDCFL+24*, ADDCFL+25, HELP+1~, HELP+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All