Routine: DGOTHUT1

Package	Total	Call Graph
Kernel	2	($$FMADD,$$FMDIFF,$$NOW)^XLFDT $$STA^XUAF4
VA FileMan	2	(FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Registration	11	DGENELA1 DGENUPL5 DGENUPL8 DGOTHD1 DGOTHINQ DGOTHMG1 DGOTHMG2 DGOTHMGT DGOTHRP3 DGOTHRP5 VAFHLZTE

Name	Comments	DBIA/ICR reference
LASTPRD(DGIEN33)	; find last 365 and 90 day periods
GET90DT(DGIEN33,DGIEN3301,DGIEN3311)	; return dates info for a given 90 day period
GET365DT(DGIEN33,DGIEN3301)	; return dates info for a given 365 day period
LOCK(DGIEN33)	; lock entry in file 33
UNLOCK(DGIEN33)	; unlock entry in file 33
FILSTAT(DGDFN,STATUS)	; file OTH status into file 33 ; creates new entry in file 33 if necessary, then updates field 33/.02
FILAUTH(DGDFN,DATASTR)	; file authorized 90 day period into file 33
FILAUTHX	; exit point ; unlock entry
FILDEN(DGDFN,DATASTR)	; file denied authorization request into file 33
FILPEND(DGDFN,DATASTR)	; file pending authorization request into file 33
GETPEND(DGDFN)	; get pending authorization request data from file 33
GETAUTH(DGIEN33,DGIEN365,DGIEN90)	; get authorized 90 day period data from file 33
GETDEN(DGIEN33,DENIEN)	; get denied authorization request data from file 33

Name	Field # of Occurrence
FILE^DIE	FILSTAT+25, FILAUTH+62, FILPEND+33
UPDATE^DIE	FILSTAT+16, FILAUTH+35, FILAUTH+46, FILDEN+34
$$GET1^DIQ	GET90DT+14, GET90DT+15, GET365DT+11, GETAUTH+25
GETS^DIQ	GETPEND+15, GETAUTH+28, GETDEN+20
$$FMADD^XLFDT	GET90DT+17, GET365DT+12
$$FMDIFF^XLFDT	GET90DT+17
$$NOW^XLFDT	FILAUTH+51, FILDEN+24, FILPEND+26
$$STA^XUAF4	GETPEND+21, GETAUTH+31, GETDEN+23

FileNo	Call Tags
^DGOTH(33 - [#33]	GETS^DIQ
33.01	GET1^DIQ
33.03	GETS^DIQ
33.11	GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGOTH(33 - [#33]	LASTPRD+11, LASTPRD+12, LASTPRD+15, LASTPRD+16, LOCK+8, UNLOCK+4, FILSTAT+12, FILAUTH+24, FILAUTH+30, FILAUTH+42 , FILDEN+20, FILDEN+26, FILPEND+21, GETPEND+13

Name	Line Occurrences
$$LOCK	FILSTAT+24, FILAUTH+26, FILDEN+22, FILPEND+23
FILAUTHX	FILAUTH+29, FILAUTH+39, FILAUTH+41, FILAUTH+50
UNLOCK	FILSTAT+27, FILAUTHX+2, FILDEN+35, FILPEND+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DATASTR	FILAUTH~, FILAUTH+29, FILAUTH+34, FILAUTH+41, FILAUTH+51, FILAUTH+54, FILAUTH+55, FILAUTH+56, FILAUTH+57, FILAUTH+59 , FILAUTH+60, FILAUTH+61, FILDEN~, FILDEN+24, FILDEN+28, FILDEN+29, FILDEN+30, FILDEN+32, FILDEN+33, FILPEND~ , FILPEND+25, FILPEND+26, FILPEND+28, FILPEND+29, FILPEND+31, FILPEND+32
DAYS	GET90DT+11~, GET90DT+12, GET90DT+17, GET90DT+18*, GET90DT+20
DENIEN	GETDEN~, GETDEN+18, GETDEN+19
DGDFN	FILSTAT~, FILSTAT+10, FILSTAT+12, FILSTAT+15, FILAUTH~, FILAUTH+22, FILAUTH+24, FILDEN~, FILDEN+18, FILDEN+20 , FILPEND~, FILPEND+19, FILPEND+21, GETPEND~, GETPEND+11, GETPEND+13
DGERR	FILSTAT+8~, FILSTAT+28, FILAUTH+20~, FILAUTH+39, FILAUTH+50, FILAUTH+63, FILDEN+16~, FILDEN+36, FILPEND+17~, FILPEND+35 , GETPEND+9~, GETPEND+16, GETAUTH+19~, GETAUTH+26, GETAUTH+29, GETDEN+15~, GETDEN+21
DGERR("DIERR"	FILSTAT+28, FILAUTH+39, FILAUTH+50, FILAUTH+63, FILDEN+36, FILPEND+35, GETPEND+16, GETAUTH+26, GETAUTH+29, GETDEN+21
DGFDA	FILSTAT+8~, FILSTAT+18!, FILAUTH+20~, FILAUTH+37!, FILAUTH+48!, FILDEN+16~, FILPEND+17~, GETPEND+9~, GETAUTH+19~, GETDEN+15~
DGFDA(	FILAUTH+33, FILAUTH+34, FILAUTH+45, FILAUTH+54, FILAUTH+55, FILAUTH+56, FILAUTH+57, FILAUTH+58, FILAUTH+59, FILAUTH+60 , FILAUTH+61, FILDEN+26, FILDEN+28, FILDEN+29, FILDEN+30, FILDEN+31, FILDEN+32, FILDEN+33, GETAUTH+31, GETAUTH+32 , GETDEN+23, GETDEN+24
DGFDA(33	FILSTAT+15, FILSTAT+22, FILPEND+27, FILPEND+28, FILPEND+29, FILPEND+30, FILPEND+31, FILPEND+32, GETPEND+17, GETPEND+18 , GETPEND+19, GETPEND+20, GETPEND+21, GETPEND+22
DGIEN33	LASTPRD~, LASTPRD+11, LASTPRD+12, LASTPRD+15, LASTPRD+16, GET90DT~, GET90DT+13, GET365DT~, GET365DT+11, LOCK~ , LOCK+8, UNLOCK~, UNLOCK+4, GETAUTH~, GETAUTH+21, GETAUTH+24, GETDEN~, GETDEN+17, GETDEN+19
DGIEN3301	GET90DT~, GET90DT+13, GET365DT~, GET365DT+11
DGIEN3311	GET90DT~, GET90DT+13
DGIEN365	GETAUTH~, GETAUTH+22, GETAUTH+24
DGIEN90	GETAUTH~, GETAUTH+23, GETAUTH+27
DT	GET90DT+17
EDITTS	FILAUTH+20~, FILAUTH+51, FILAUTH+58, FILDEN+16~, FILDEN+24, FILDEN+31, FILPEND+17~, FILPEND+26*, FILPEND+30
EDT	GET90DT+11~, GET90DT+12, GET90DT+17, GET90DT+20, GET365DT+9~, GET365DT+10, GET365DT+12, GET365DT+13
IEN33	FILSTAT+8~, FILSTAT+12, FILSTAT+17, FILSTAT+21, FILSTAT+24, FILSTAT+27, FILAUTH+20~, FILAUTH+24, FILAUTH+26, FILAUTH+30 , FILAUTH+32, FILAUTH+42, FILAUTH+44, FILAUTH+53, FILAUTHX+2, FILDEN+16~, FILDEN+20, FILDEN+22, FILDEN+23, FILDEN+26 , FILDEN+35, FILPEND+17~, FILPEND+21, FILPEND+23, FILPEND+24, FILPEND+34, GETPEND+9~, GETPEND+13, GETPEND+14
IEN3301	LASTPRD+10~, LASTPRD+12*, LASTPRD+13, LASTPRD+14, LASTPRD+15, LASTPRD+16
IEN3311	LASTPRD+10~, LASTPRD+16*, LASTPRD+17
IEN365	FILAUTH+20~, FILAUTH+30, FILAUTH+36, FILAUTH+42, FILAUTH+44, FILAUTH+53
IEN90	FILAUTH+20~, FILAUTH+42, FILAUTH+47, FILAUTH+53
IENARY	FILSTAT+8~, FILSTAT+18!, FILAUTH+20~, FILAUTH+37!, FILAUTH+48!
IENARY(1	FILSTAT+17, FILAUTH+36, FILAUTH+47
IENS	GET90DT+11~, GET90DT+13, GET90DT+14, GET90DT+15, FILSTAT+8~, FILSTAT+14, FILSTAT+15, FILSTAT+21, FILSTAT+22, FILAUTH+20~ , FILAUTH+32, FILAUTH+33, FILAUTH+34, FILAUTH+44, FILAUTH+45, FILAUTH+53, FILAUTH+54, FILAUTH+55, FILAUTH+56, FILAUTH+57 , FILAUTH+58, FILAUTH+59, FILAUTH+60, FILAUTH+61, FILDEN+16~, FILDEN+23, FILDEN+26, FILDEN+28, FILDEN+29, FILDEN+30 , FILDEN+31, FILDEN+32, FILDEN+33, FILPEND+17~, FILPEND+24, FILPEND+27, FILPEND+28, FILPEND+29, FILPEND+30, FILPEND+31 , FILPEND+32, GETPEND+9~, GETPEND+14, GETPEND+15, GETPEND+17, GETPEND+18, GETPEND+19, GETPEND+20, GETPEND+21, GETPEND+22 , GETAUTH+19~, GETAUTH+24, GETAUTH+25, GETAUTH+27, GETAUTH+28, GETAUTH+31, GETAUTH+32, GETDEN+15~, GETDEN+19, GETDEN+20 , GETDEN+23, GETDEN+24
LST365	LASTPRD+10~, LASTPRD+12*, LASTPRD+14
LST90	LASTPRD+10~, LASTPRD+15*, LASTPRD+16, LASTPRD+17
NUM365	FILAUTH+20~, FILAUTH+29, FILAUTH+30, FILAUTH+33, GETAUTH+19~, GETAUTH+25, GETAUTH+33
NUM90	GET90DT+11~, GET90DT+14, GET90DT+17, FILAUTH+20~, FILAUTH+41, FILAUTH+42, FILAUTH+45
PND	FILPEND+17~, FILPEND+25*, FILPEND+26, FILPEND+27
RES	LASTPRD+10~, LASTPRD+11, LASTPRD+14, LASTPRD+17, LASTPRD+20, LOCK+6~, LOCK+7, LOCK+8, LOCK+9, FILAUTH+20~ , FILAUTH+27, FILAUTH+29, FILAUTH+39, FILAUTH+41, FILAUTH+50, FILAUTH+63, FILAUTHX+3, FILDEN+23, GETPEND+9~, GETPEND+17* , GETPEND+18, GETPEND+19, GETPEND+20, GETPEND+21, GETPEND+22, GETPEND+23, GETAUTH+19~, GETAUTH+31, GETAUTH+32, GETAUTH+33 , GETAUTH+34, GETDEN+15~, GETDEN+23, GETDEN+24, GETDEN+25
SDT	GET90DT+11~, GET90DT+15, GET90DT+16, GET90DT+17, GET90DT+20, GET365DT+9~, GET365DT+11, GET365DT+12, GET365DT+13
STATUS	FILSTAT~, FILSTAT+11, FILSTAT+22
U	LASTPRD+14, LASTPRD+17, GET90DT+20, GET365DT+13, FILSTAT+11, FILAUTH+29, FILAUTH+34, FILAUTH+41, FILAUTH+51, FILAUTH+54 , FILAUTH+55, FILAUTH+56, FILAUTH+57, FILAUTH+59, FILAUTH+60, FILAUTH+61, FILDEN+24, FILDEN+28, FILDEN+29, FILDEN+30 , FILDEN+32, FILDEN+33, FILPEND+25, FILPEND+26, FILPEND+28, FILPEND+29, FILPEND+31, FILPEND+32, GETPEND+18, GETPEND+19 , GETPEND+20, GETPEND+21, GETPEND+22, GETAUTH+31, GETAUTH+32, GETAUTH+33, GETDEN+23, GETDEN+24
Z	GETAUTH+19~, GETAUTH+30, GETAUTH+31, GETAUTH+32, GETDEN+15~, GETDEN+22, GETDEN+23, GETDEN+24

Customize PDF page

Package: Registration

Routine: DGOTHUT1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: