Routine: DGEN

Package	Total	Call Graph
Registration	14	$$CHK^DGEN $$STATUS^DGENA ($$LOCK,$$STORECUR,UNLOCK)^DGENA1 $$CREATE^DGENA6 EN^DGENL PREFER^DGENPT $$VET^DGENPTA ($$EXT,$$PROMPT,DISPLAY)^DGENU EN^DGMTR $$LST^DGMTU XMY^DGMTUTL GETPAT^DGRPTU PID^VADPT6 PAUSE^VALM1
VA Fileman	3	DD^%DT ^DIE ^DIR
MailMan	1	^XMD

Package	Total	Caller Graph
Registration	8	DGDIS DGEN DGEN PATIENT ENROLLMENT DGEN1 DGENA3 DGENUPL9 DGREG0 DGRPE1

Entry Points

Name	Comments	DBIA/ICR reference
MTREQQ
CHK(DFN)	;Check if patient should be asked to enroll ; Input -- DFN Patient IEN ; Output -- 1=Yes and 0=No
EN	;Entry point for stand-alone enrollment option ; Input -- None ; Output -- None
CANCEL(DFN,DGENR,EFFDATE)	;Cancel current enrollment ; Input ; DFN Patient IEN ; DGENR Array containing current enrollment (pass by reference) ; EFFDATE Enrollment Effective Date Of Change (optional) ; Output ; Function Return Value is 1 if Successful and 0 on Failure
ASK(ACTION,DGENOUT)	;Ask patient if s/he would like to enroll or cease enrollment ; Input -- ACTION Action description ; Output -- 1=Yes and 0=No ; DGENOUT 1=Timeout or up-arrow
ENRPAT(DFN,DGENOUT)	;Enroll patient ; Input -- DFN Patient IEN ; Output -- 1=Successful and 0=Failure ; DGENOUT 1=Timeout or up-arrow
DECLINEQ	;
CANCELQ
MTBULLQ
EN1(DFN)	;Entry point for enrollment from registration and disposition ; Input -- DFN Patient IEN ; Output -- None
DECLINE(DFN,APPDATE)	;Create Declined enrollment ; Input -- DFN Patient IEN ; APPDATE Application date (optional) ; Output -- 1=Successful and 0=Failure
ENQ
ENRPATQ
EN1Q
ASKDATE
MTREQ(DFN)	; --
LINE(DGTEXT,DGLINE)	;Add lines of text to mail message
ENROLLQ
MTBULL(DFN,DGENR)	;Create/Send means test 'REQUIRED' bulletin for PATIENT ENROLLMENT
ENROLL(DFN)	;Create new local unverified enrollment ; Input -- DFN Patient IEN ; Output -- 1=Successful and 0=Failure
VIEWDATE(FMDATE)	;

External References

Name	Field # of Occurrence
DD^%DT	VIEWDATE+4
$$CHK^DGEN	ENROLL+10
$$STATUS^DGENA	EN1+12, CHK+9
$$LOCK^DGENA1	ENROLL+5, CANCEL+10, DECLINE+6
$$STORECUR^DGENA1	ENROLL+20, ASKDATE+13, DECLINE+19
UNLOCK^DGENA1	ENROLLQ, ASKDATE+18, DECLINE+23
$$CREATE^DGENA6	ENROLL+18, ASKDATE+11, DECLINE+17
EN^DGENL	EN+9
PREFER^DGENPT	ENROLL+23, DECLINE+22
$$VET^DGENPTA	EN1+12, CHK+6
$$EXT^DGENU	MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
$$PROMPT^DGENU	ENRPAT+19, ENROLL+14, ENROLL+30, ASKDATE+7, ASKDATE+9, DECLINE+11, DECLINE+13, DECLINE+15
DISPLAY^DGENU	EN1+14
EN^DGMTR	ENROLL+16
$$LST^DGMTU	MTREQ+12
XMY^DGMTUTL	MTBULL+18
GETPAT^DGRPTU	EN+6
^DIE	ENRPAT+25, ENRPAT+32, ENROLL+36, ENROLL+44, ENROLL+52
^DIR	ASK+7, ASKDATE+2
PID^VADPT6	MTBULL+21
PAUSE^VALM1	ENROLL+7, CANCEL+12, DECLINE+8
^XMD	MTBULL+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+7
Function Call: WRITE	Prompt: !,">>> Another user is editing, try later ..." Line Location: ENROLL+6
Function Call: WRITE	Prompt: ! Line Location: ENROLL+13
Function Call: WRITE	Prompt: ! Line Location: CANCEL+13
Function Call: WRITE	Prompt: !,"and no later than "_$$VIEWDATE(END)_"." Line Location: ASKDATE+1
Function Call: WRITE	Prompt: !,">>> Another user is editing, try later ..." Line Location: DECLINE+7
Function Call: WRITE	Prompt: ! Line Location: DECLINE+10
Routine Call	DIE Line Location: ENRPAT+25 ENRPAT+32 ENROLL+36 ENROLL+44 ENROLL+52
Routine Call	DIR Line Location: ASK+7 ASKDATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	MTBULL+12
^DGMT(408.31 - [#408.31]	MTREQ+15
^DPT - [#2]	ENRPAT+17, ENROLL+26, ENROLL+28, ENROLL+39, ENROLL+47, MTBULL+24

Label References

Name	Line Occurrences
$$ASK	ENRPAT+6
$$CHK	EN1+6
$$ENROLL	ENRPAT+8
$$ENRPAT	EN1+8
$$MTREQ	ENROLL+25
$$VIEWDATE	CANCEL+21, ASKDATE, ASKDATE+1
ASKDATE	ASKDATE+4
CANCELQ	CANCEL+10, CANCEL+15, ASKDATE+7, ASKDATE+9
DECLINEQ	DECLINE+6, DECLINE+11, DECLINE+13, DECLINE+15
ENQ	EN+6
ENROLLQ	ENROLL+5, ENROLL+10
LINE	MTBULL+34, MTBULL+35, MTBULL+36, MTBULL+37, MTBULL+38, MTBULL+39, MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
MTBULL	ENROLL+25
MTBULLQ	MTBULL+15
MTREQQ	MTREQ+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ASK~, ASK+5
APPDATE	ENROLL+3~, ENROLL+14, ENROLL+18, DECLINE~, DECLINE+11, DECLINE+17
BEGIN	CANCEL+8~, CANCEL+17*, ASKDATE, ASKDATE+4
DA	ENRPAT+21~, ENRPAT+22, ENRPAT+26!, ENRPAT+28~, ENRPAT+30, ENRPAT+33!, ENROLL+32~, ENROLL+33, ENROLL+37!, ENROLL+40~ , ENROLL+42, ENROLL+45!, ENROLL+48~, ENROLL+50*, ENROLL+53!
DFN	EN+3~, EN+6, EN+9, EN1~, EN1+6, EN1+8, EN1+12, EN1+14, CHK~, CHK+6 , CHK+9, ENRPAT~, ENRPAT+8, ENRPAT+17, ENRPAT+22, ENRPAT+30, ENROLL~, ENROLL+5, ENROLL+10, ENROLL+18 , ENROLL+23, ENROLL+25, ENROLL+26, ENROLL+28, ENROLL+33, ENROLL+39, ENROLL+42, ENROLL+47, ENROLL+50, ENROLLQ , CANCEL~, CANCEL+10, ASKDATE+11, ASKDATE+18, DECLINE~, DECLINE+6, DECLINE+17, DECLINE+22, DECLINE+23, MTBULL~ , MTBULL+24, MTREQ~, MTREQ+12
DGAPPTAN	ENRPAT+18~, ENRPAT+19, ENROLL+27~, ENROLL+30
DGBULL	MTBULL+9~
DGBULL(	LINE+10*
DGDFLT	ENROLL+27~, ENROLL+28, ENROLL+29, ENROLL+30
DGENOUT	EN1+3~, EN1+8, EN1+12, ENRPAT~, ENRPAT+6, ENRPAT+11, ASK~, ASK+8*
DGENR	ENROLL+3~, ENROLL+18, ENROLL+20, ENROLL+25, CANCEL~, DECLINE+4~, DECLINE+17, DECLINE+19, MTBULL~
DGENR("APP"	CANCEL+17, ASKDATE+11
DGENR("DATE"	CANCEL+17, ASKDATE+11, MTBULL+40
DGENR("DATETIME"	MTBULL+43
DGENR("END"	CANCEL+18
DGENR("STATUS"	MTBULL+41
DGENR("USER"	MTBULL+42
DGENR2	CANCEL+8~, ASKDATE+11, ASKDATE+13
DGLINE	MTBULL+9~, MTBULL+33, MTBULL+34, MTBULL+35, MTBULL+36, MTBULL+37, MTBULL+38, MTBULL+39, MTBULL+40, MTBULL+41 , MTBULL+42, MTBULL+43, LINE~, LINE+9, LINE+10
DGMGRP	MTBULL+9~, MTBULL+12*, MTBULL+15, MTBULL+18
DGMTNODE	MTREQ+9~, MTREQ+12*, MTREQ+15, MTREQ+18
DGMTREQ	MTREQ+9~, MTREQ+20*, MTREQQ
DGNAME	MTBULL+9~, MTBULL+24*, MTBULL+30, MTBULL+37
DGOKF	ENRPAT+4~, ENRPAT+8, ENRPAT+15, ENRPATQ, ENROLL+3~, ENROLL+21, ENROLLQ+1, CANCEL+8~, ASKDATE+14, CANCELQ , DECLINE+4~, DECLINE+20*, DECLINEQ+1
DGREQF	ENROLL+3~
DGSXS	ENRPAT+18~, ENRPAT+19, ENRPAT+20, ENROLL+27~, ENROLL+30, ENROLL+31
DGTEXT	LINE~, LINE+10
DIE	ENRPAT+21~, ENRPAT+23, ENRPAT+26!, ENRPAT+28~, ENRPAT+29, ENRPAT+33!, ENROLL+32~, ENROLL+34, ENROLL+37!, ENROLL+40~ , ENROLL+41, ENROLL+45!, ENROLL+48~, ENROLL+49*, ENROLL+53!
DIFROM	MTBULL+9~
DIR	ASK+4~, CANCEL+16~
DIR("A"	ASK+5, CANCEL+20
DIR("B"	ASK+6, CANCEL+21
DIR(0	ASK+6, CANCEL+19
>> DIRUT	ASKDATE+3
DR	ENRPAT+21~, ENRPAT+24, ENRPAT+26!, ENRPAT+28~, ENRPAT+31, ENRPAT+33!, ENROLL+32~, ENROLL+35, ENROLL+37!, ENROLL+40~ , ENROLL+43, ENROLL+45!, ENROLL+48~, ENROLL+51*, ENROLL+53!
DT	ENROLL+14, CANCEL+21, DECLINE+11, DECLINE+17, MTREQ+15
DTOUT	ASK+4~, ASK+8
DUOUT	ASK+4~, ASK+8
EFFDATE	CANCEL~, CANCEL+15, ASKDATE+3, ASKDATE+4, ASKDATE+11
END	CANCEL+8~, CANCEL+18*, ASKDATE+1, ASKDATE+4
ERRMSG	CANCEL+8~, ASKDATE+13, ASKDATE+16
FMDATE	VIEWDATE~, VIEWDATE+3
REASON	CANCEL+8~, ASKDATE+7, ASKDATE+9, ASKDATE+11, DECLINE+4~, DECLINE+13, DECLINE+15, DECLINE+17
REMARKS	CANCEL+8~, ASKDATE+9, ASKDATE+11, DECLINE+4~, DECLINE+15, DECLINE+17
STATUS	CHK+3~, CHK+9*, CHK+11
VA	MTBULL+9~
VA("BID"	MTBULL+30
VA("PID"	MTBULL+38
VAERR	MTBULL+9~
XMDUZ	MTBULL+9~
XMSUB	MTBULL+9~, MTBULL+30*
XMTEXT	MTBULL+9~, MTBULL+27*
Y	CHK+3~, CHK+4, CHK+6, CHK+11, CHK+12, ASK+4~, ASK+9, ASKDATE+3, ASKDATE+4, VIEWDATE+2~ , VIEWDATE+3, VIEWDATE+5

Customize PDF page

Package: Registration

Routine: DGEN

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: