Routine: DGEN

Package	Total	Call Graph
Registration	14	$$CHK^DGEN ($$FINDCUR,$$STATUS)^DGENA ($$LOCK,$$STORECUR,UNLOCK)^DGENA1 $$CREATE^DGENA6 $$NATCODE^DGENELA EN^DGENL PREFER^DGENPT ($$GET,$$VET)^DGENPTA ($$EXT,$$INST,$$PROMPT,DISPLAY)^DGENU EN^DGMTR $$LST^DGMTU XMY^DGMTUTL GETPAT^DGRPTU PID^VADPT6
VA FileMan	5	DD^%DT $$FIND1^DIC (FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	1	$$NOW^XLFDT
List Manager	1	PAUSE^VALM1
MailMan	1	^XMD

Package	Total	Caller Graph
Registration	10	DGCOL DGDIS DGEN DGEN PATIENT ENROLLMENT DGEN1 DGENA3 DGENUPL9 DGREG0 DGRPC DGRPE1
Income Verification Match	2	IVMLDEM4 IVMLDEMB

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point for stand-alone enrollment option ; Input -- None ; Output -- None
ENQ
EN1(DFN)	;Entry point for enrollment from registration and disposition ; Input -- DFN Patient IEN ; Output -- None
EN1Q
CHK(DFN)	;Check if patient should be asked to enroll ; Input -- DFN Patient IEN ; Output -- 1=Yes and 0=No
CHK3(DFN)	;Check to restrict Register Only Patients to enroll from Patient Enrollment EP protocol ; Input -- DFN Patient IEN ; Output -- 1=Yes and 0=No
ENRPAT(DFN,DGENOUT,DGENRYN)	;Enroll patient DG5.3993 Added third parameter ; Input -- DFN Patient IEN ; -- DGENRYN (Optional) ENROLL Y/N question for registration 0=NO 1=YES ; Output -- 1=Successful and 0=Failure ; DGENOUT 1=Timeout or up-arrow
ENRPATQ
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
ENROLL(DFN,DGENRYN)	;Create new local unverified enrollment DG5.3993 Added 2nd parameter DGENRYN ; Input -- DFN Patient IEN ; -- DGENRYN (Optional) ENROLL Y/N question for registration 0=NO 1=YES ; Output -- 1=Successful and 0=Failure
ENROLLQ
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
ASKDATE
CANCELQ
DECLINE(DFN,APPDATE)	;Create Declined enrollment ; Input -- DFN Patient IEN ; APPDATE Application date (optional) ; Output -- 1=Successful and 0=Failure
DECLINEQ	;
MTBULL(DFN,DGENR)	;Create/Send means test 'REQUIRED' bulletin for PATIENT ENROLLMENT
MTBULLQ
LINE(DGTEXT,DGLINE)	;Add lines of text to mail message
MTREQ(DFN)	; --
MTREQQ
VIEWDATE(FMDATE)	;
REGONLY(DFN)	; ; DG5.31045 - capture ineligible reason DGINELREA

External References

Name	Field # of Occurrence
DD^%DT	VIEWDATE+4
$$CHK^DGEN	ENROLL+21
$$FINDCUR^DGENA	ENROLL+24, REGONLY+8
$$STATUS^DGENA	EN1+8, EN1+21, CHK+9, CHK3+6, ENROLL+10
$$LOCK^DGENA1	ENROLL+12, CANCEL+10, DECLINE+6, REGONLY+5
$$STORECUR^DGENA1	ENROLL+41, ASKDATE+13, DECLINE+19
UNLOCK^DGENA1	ENROLLQ, ASKDATE+18, DECLINE+23, REGONLY+13, REGONLY+42
$$CREATE^DGENA6	ENROLL+39, ASKDATE+11, DECLINE+17
$$NATCODE^DGENELA	REGONLY+38
EN^DGENL	EN+9
PREFER^DGENPT	ENROLL+44, DECLINE+22
$$GET^DGENPTA	REGONLY+3
$$VET^DGENPTA	EN1+17, EN1+21, CHK+6, CHK3+5
$$EXT^DGENU	MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
$$INST^DGENU	REGONLY+25
$$PROMPT^DGENU	ASKDATE+7, ASKDATE+9, DECLINE+11, DECLINE+13, DECLINE+15
DISPLAY^DGENU	EN1+22
EN^DGMTR	ENROLL+37
$$LST^DGMTU	MTREQ+12
XMY^DGMTUTL	MTBULL+18
GETPAT^DGRPTU	EN+6
$$FIND1^DIC	REGONLY+32
FILE^DIE	REGONLY+16, REGONLY+41
UPDATE^DIE	REGONLY+12
$$GET1^DIQ	ENROLL+25, REGONLY+38
^DIR	ASK+7, ASKDATE+2
PID^VADPT6	MTBULL+21
PAUSE^VALM1	ENROLL+14, CANCEL+12, DECLINE+8, REGONLY+7
$$NOW^XLFDT	ENROLL+9, REGONLY+39
^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+13
Function Call: WRITE	Prompt: ! Line Location: ENROLL+32
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
Function Call: WRITE	Prompt: !,">>> Another user is editing, try later ..." Line Location: REGONLY+6
Routine Call	DIC Line Location: REGONLY+32
Routine Call	DIE Line Location: REGONLY+16 REGONLY+41
Routine Call	DIE Line Location: REGONLY+12
Routine Call	DIR Line Location: ASK+7 ASKDATE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGEN(27.11 - [#27.11]	GET1^DIQ
^DG(408.43 - [#408.43]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	MTBULL+12
^DGMT(408.31 - [#408.31]	MTREQ+15
^DPT - [#2]	MTBULL+24

Label References

Name	Line Occurrences
$$ASK	ENRPAT+7
$$CHK	EN1+14
$$ENROLL	ENRPAT+10
$$ENRPAT	EN1+16
$$MTREQ	ENROLL+46
$$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+12, ENROLL+19, ENROLL+21
ENRPATQ	ENRPAT+9
LINE	MTBULL+34, MTBULL+35, MTBULL+36, MTBULL+37, MTBULL+38, MTBULL+39, MTBULL+40, MTBULL+41, MTBULL+42, MTBULL+43
MTBULL	ENROLL+46
MTBULLQ	MTBULL+15
MTREQQ	MTREQ+15
REGONLY	EN1+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ASK~, ASK+5
APPDATE	ENROLL+4~, ENROLL+28, ENROLL+31, ENROLL+39, DECLINE~, DECLINE+11, DECLINE+17
BEGIN	CANCEL+8~, CANCEL+17*, ASKDATE, ASKDATE+4
DFN	EN+3~, EN+6, EN+9, EN1~, EN1+8, EN1+14, EN1+16, EN1+17, EN1+21, EN1+22 , CHK~, CHK+6, CHK+9, CHK3~, CHK3+5, CHK3+6, ENRPAT~, ENRPAT+10, ENROLL~, ENROLL+10 , ENROLL+12, ENROLL+21, ENROLL+24, ENROLL+39, ENROLL+44, ENROLL+46, ENROLLQ, CANCEL~, CANCEL+10, ASKDATE+11 , ASKDATE+18, DECLINE~, DECLINE+6, DECLINE+17, DECLINE+22, DECLINE+23, MTBULL~, MTBULL+24, MTREQ~, MTREQ+12 , REGONLY~, REGONLY+3, REGONLY+5, REGONLY+8, REGONLY+11, REGONLY+13, REGONLY+16, REGONLY+38, REGONLY+42
DGAD	ENROLL+4~, ENROLL+7, ENROLL+28
DGAPDT	ENROLL+4~, ENROLL+25*, ENROLL+26
DGBULL	MTBULL+9~
DGBULL(	LINE+10*
DGCHK	EN1+14~*, EN1+15
DGDISP	EN1+3~, EN1+7, EN1+9, EN1+12*, EN1+15, ENRPAT+7
DGDSPM	ENROLL+4~, ENROLL+16*, ENROLL+18, ENROLL+21
DGEIEN	ENROLL+4~, ENROLL+24*, ENROLL+25
DGENOUT	EN1+3~, EN1+16, EN1+21, ENRPAT~, ENRPAT+7, ASK~, ASK+8*
DGENPTA	REGONLY+2~, REGONLY+3
DGENPTA("INELDATE"	REGONLY+3
DGENPTA("INELREA"	REGONLY+3
DGENR	ENROLL+4~, ENROLL+39, ENROLL+41, ENROLL+46, 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
>> DGENRDT	ENROLL+31, REGONLY+30
>> DGENRODT	ENROLL+23, REGONLY+33, REGONLY+36
DGENRP	ENROLL+4~, ENROLL+17*, ENROLL+18, ENROLL+19
>> DGENRRSN	REGONLY+32*, REGONLY+35
DGENRYN	EN1+9, EN1+10, EN1+11, EN1+16, ENRPAT~, ENRPAT+7, ENRPAT+8, ENRPAT+10, ENROLL~, ENROLL+23 , ENROLL+27, ENROLL+28, ENROLL+30, ENROLL+39, ENROLL+44, REGONLY+30
>> DGENSRCE	REGONLY+34*, REGONLY+37
DGEXST	ENROLL+4~, ENROLL+5, ENROLL+26, ENROLL+28
DGFDA	REGONLY+2~, REGONLY+14!, REGONLY+17!
DGFDA(	REGONLY+10, REGONLY+11, REGONLY+19, REGONLY+22, REGONLY+24, REGONLY+25, REGONLY+26, REGONLY+27, REGONLY+28, REGONLY+30 , REGONLY+35, REGONLY+36, REGONLY+37, REGONLY+38, REGONLY+39, REGONLY+40
DGFDA(2	REGONLY+16*
DGIENS	REGONLY+2~
DGIENS(1	REGONLY+13, REGONLY+16, REGONLY+19, REGONLY+22, REGONLY+24, REGONLY+25, REGONLY+26, REGONLY+27, REGONLY+28, REGONLY+30 , REGONLY+35, REGONLY+36, REGONLY+37, REGONLY+38, REGONLY+39, REGONLY+40
DGINELIG	REGONLY+2~, REGONLY+3*, REGONLY+21, REGONLY+30, REGONLY+32
DGINELREA	REGONLY+2~, REGONLY+3*, REGONLY+21
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
DGMNU	ENROLL+4~, ENROLL+6, ENROLL+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
DGNOPMT	EN1+3~, EN1+10*, ENRPAT+7
DGNOW	ENROLL+4~, ENROLL+9*, ENROLL+23, REGONLY+33
DGOKF	ENRPAT+10, ENRPATQ, ENROLL+4~, ENROLL+42, ENROLLQ+1, CANCEL+8~, ASKDATE+14, CANCELQ, DECLINE+4~, DECLINE+20 , DECLINEQ+1
DGPT	ENROLL+4~, ENROLL+25*, ENROLL+27, ENROLL+30
DGREGO	ENROLL+4~, ENROLL+8, ENROLL+27
DGREQF	ENROLL+4~
DGSTS	EN1+3~, EN1+8*, EN1+12
DGTEXT	LINE~, LINE+10
DGX	EN1+3~
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
DT	ENROLL+28, CANCEL+21, DECLINE+11, DECLINE+17, MTREQ+15, REGONLY+10, REGONLY+27
DTOUT	ASK+4~, ASK+8
DUOUT	ASK+4~, ASK+8
DUZ	REGONLY+40
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, CHK3+3~, CHK3+6, CHK3+7, ENROLL+4~, ENROLL+10*, ENROLL+27, ENROLL+28
U	EN1+7, ENROLL+16, ENROLL+17
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*
>> XQY0	EN1+7, ENROLL+16, ENROLL+17
Y	CHK+3~, CHK+4, CHK+6, CHK+11, CHK+12, CHK3+3~, CHK3+4, CHK3+5, CHK3+7, CHK3+8 , ENRPAT+6~, ENRPAT+7, 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: 22

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: