Routine: DGOTHD2

Information

DGOTHD2 ;SLC/SS,RM,RED - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ;12/27/17

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Registration	3	$$HASENTRY^DGOTHD2 CRTEELCH^DGOTHEL $$SITE^VASITE
VA FileMan	3	^DIC UPDATE^DIE ^DIR
Kernel	1	$$NOW^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 9

Package	Total	Caller Graph
Registration	9	DGENUPL7 DGOTHD DGOTHD1 DGOTHD2 DGOTHEL DGOTHINQ DGOTHMST DGOTHRP1 DGOTHRP5

Name	Comments	DBIA/ICR reference
CROTHENT(DGDFN)	;
GETSITE(DUZ)	;
HAS2AUTH(DGIEN33,DGI3301,CLCKNO)	;
HASENTRY(DGDFN)	;
CLCKS365(DGIEN33)	;
CHCK365(DGIEN33,CLCKNO)	;
CHCK90(DGIEN33,DGI3301,CLCKNO)	;
CHCKPAT(DGDFN)	;
GETPAT(DGIEN33)	;
PROMPT(DGPROM,DGDFVL)	;
SELPAT(DGPAT)	;
INSREC(DGFILE,DGIEN,DGZFDA,DGRECNO,DGFLGS,DGLCKGL,DGLCKTM,DGNEWRE)	;*/
HELP3	;display help text for 1st 90-Day period

External References

Name	Field # of Occurrence
$$HASENTRY^DGOTHD2	CROTHENT+7
CRTEELCH^DGOTHEL	CROTHENT+7
^DIC	SELPAT+7
UPDATE^DIE	INSREC+10
^DIR	PROMPT+5
$$SITE^VASITE	GETSITE+8
$$NOW^XLFDT	CROTHENT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$INSREC^DG53952(8.1,"",.DGVALS,,,,,1) Line Location: SELPAT+38
Function Call: WRITE	Prompt: $$INSREC^DGOTHD2(33.01,"8",.DGVALS) Line Location: SELPAT+40
Function Call: WRITE	Prompt: $$INSREC^DGOTHD2(33.11,"1,8",.DGVALS) Line Location: SELPAT+42
Function Call: WRITE	Prompt: !," You have entered an invalid date, please enter a valid date." Line Location: HELP3+1
Function Call: WRITE	Prompt: !," The date entered cannot be more than 90 days in the past." Line Location: HELP3+2
Function Call: WRITE	Prompt: !," A future date cannot be entered." Line Location: HELP3+3
Routine Call	DIC Line Location: SELPAT+7
Routine Call	DIE Line Location: INSREC+10
Routine Call	DIR Line Location: PROMPT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGOTH(33 - [#33]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGOTH(33 - [#33]	HAS2AUTH+4, HASENTRY+1, CLCKS365+1, CHCK365+1, CHCK365+2, CHCK90+1, CHCK90+2, CHCK90+3, GETPAT+1
^DPT - [#2]	CHCKPAT+1

Label References

Name	Line Occurrences
$$CHCK90	HAS2AUTH+2
$$CHCKPAT	CROTHENT+2
$$INSREC	CROTHENT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLCKNO	HAS2AUTH~, HAS2AUTH+2, CHCK365~, CHCK365+2, CHCK90~, CHCK90+3
DGDFN	CROTHENT~, CROTHENT+2, CROTHENT+3, CROTHENT+7, HASENTRY~, HASENTRY+1, CHCKPAT~, CHCKPAT+1
DGDFVL	PROMPT~, PROMPT+4
DGERR	INSREC+3~, INSREC+12
DGERR("DIERR"	INSREC+12
DGFDA	INSREC+3~
DGFDA(	INSREC+8*
DGFILE	INSREC~, INSREC+1, INSREC+8
DGFLGS	INSREC~, INSREC+10
DGI3301	HAS2AUTH~, HAS2AUTH+2, HAS2AUTH+4, CHCK90~, CHCK90+2, CHCK90+3
DGIEN	CROTHENT+5*, CROTHENT+8, INSREC~, INSREC+2, INSREC+6, INSREC+7
DGIEN33	CROTHENT+1~, HAS2AUTH~, HAS2AUTH+2, HAS2AUTH+4, CLCKS365~, CLCKS365+1, CHCK365~, CHCK365+1, CHCK365+2, CHCK90~ , CHCK90+1, CHCK90+2, CHCK90+3, GETPAT~, GETPAT+1
DGIEN90	HAS2AUTH+1~, HAS2AUTH+2*, HAS2AUTH+3, HAS2AUTH+4
DGIENS	INSREC+3~, INSREC+6, INSREC+7, INSREC+8
DGLCKGL	INSREC~, INSREC+9, INSREC+11
DGLCKTM	INSREC~, INSREC+9
DGLOCK	INSREC+4~, INSREC+9, INSREC+11
DGNEWRE	INSREC~, INSREC+2
DGPAT	SELPAT~, SELPAT+9, SELPAT+11, SELPAT+12
DGPAT(0	SELPAT+13*
DGPROM	PROMPT~, PROMPT+3
DGRECNO	INSREC~, INSREC+2, INSREC+5~*, INSREC+6, INSREC+7
DGRET	PROMPT+1~, PROMPT+2, PROMPT+6, PROMPT+7
DGRETDAT	HAS2AUTH+1~, HAS2AUTH+4*, HAS2AUTH+5
DGSSI	INSREC+3~
DGSSI(1	INSREC+6, INSREC+7, INSREC+13
DGVALS	CROTHENT+1~, CROTHENT+5
DGVALS(	CROTHENT+3, CROTHENT+4
DGZFDA	INSREC~, INSREC+8
DIC	SELPAT+2~, SELPAT+3*, SELPAT+7!
DIC("S"	SELPAT+5*
DIC(0	SELPAT+3*
DIERR	INSREC+3~
DIR	PROMPT+1~
DIR("A"	PROMPT+3*
DIR("B"	PROMPT+4*
DIR(0	PROMPT+3*
DIROUT	PROMPT+1~
DIRUT	PROMPT+1~, PROMPT+5
DTOUT	PROMPT+1~, SELPAT+2~
DUOUT	PROMPT+1~
DUPOT	SELPAT+2~
DUZ	GETSITE~, GETSITE+7
DUZ(2	GETSITE+7
FACILITY	GETSITE+5~, GETSITE+6, GETSITE+7, GETSITE+8*, GETSITE+9
U	HAS2AUTH+5, GETPAT+1, PROMPT+6
X	PROMPT+1~, SELPAT+2~, HELP3+1
Y	PROMPT+1~, PROMPT+6, SELPAT+2~, SELPAT+9, SELPAT+11, SELPAT+12, HELP3+1
Y(0	SELPAT+13

Customize PDF page

Package: Registration