Routine: DGENU

Call Graph Total: 14

Package	Total	Call Graph
Registration	7	($$FINDCUR,$$GET,$$STATUS)^DGENA $$CATEGORY^DGENA4 $$YN^DGENCD1 ($$FINDCUR,$$GET)^DGENEGT $$PREF^DGENPTA $$EXT^DGENU $$SITE^VASITE
VA Fileman	5	EN^DDIOL $$GET1^DID $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Kernel	2	ENDR^%ZISS $$DIV4^XUSER

Package	Total	Caller Graph
Registration	20	DGEN DGENA1A DGENA2 DGENA3 DGENA6 DGENACL2 DGENCD DGENL1 DGENL2 DGENPT DGENRPA2 DGENRPB2 DGENRPC2 DGENRPD2 DGENU DGMTA DGMTHL DGMTU23 DGRRLU1 DPTLK

Package

Total

Caller Graph

Registration

DGEN  DGENA1A  DGENA2  DGENA3  DGENA6  DGENACL2  DGENCD  DGENL1
DGENL2  DGENPT  DGENRPA2  DGENRPB2  DGENRPC2  DGENRPD2  DGENU  DGMTA
DGMTHL  DGMTU23  DGRRLU1  DPTLK

Entry Points

Name	Comments	DBIA/ICR reference
INST(VADUZ,VACHK)	; ; Description: Determine the institution affiliation associated with a ; user.
DISPLAY(DFN)	;
REV	;Get variables to display text in reverse video
GETINST(DGPREFAC,DGINST)	;Get Institution file data ; Input -- DGPREFAC Institution file IEN ; Output -- 1=Successful and 0=Failure ; DGINST - Institution file Array
CUR(DFN)	;
EXT(SUB,VAL)	;
GETQ
PROMPT(FILE,FIELD,DEFAULT,RESPONSE,REQUIRE,PRMPTNM)	;
PATID(DFN)	;
FIELD(SUB)	;

External References

Name	Field # of Occurrence
ENDR^%ZISS	REV+3
EN^DDIOL	PATID+15, PATID+17
$$FINDCUR^DGENA	CUR+5, PATID+8
$$GET^DGENA	CUR+5, PATID+8
$$STATUS^DGENA	DISPLAY+8
$$CATEGORY^DGENA4	CUR+7
$$YN^DGENCD1	PROMPT+30
$$FINDCUR^DGENEGT	CUR+11
$$GET^DGENEGT	CUR+12
$$PREF^DGENPTA	CUR+14, PATID+12
$$EXT^DGENU	CUR+17, CUR+18, CUR+20, PATID+11
$$GET1^DID	PROMPT+22, PROMPT+23
$$EXTERNAL^DILFD	CUR+19, CUR+24, EXT+18, PROMPT+22, PROMPT+23
$$GET1^DIQ	CUR+16
^DIR	PROMPT+26
$$SITE^VASITE	INST+32
$$DIV4^XUSER	INST+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Patient is NOT enrolled in the VA Patient Enrollment System..." Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !?3,IORVON,"Enrollment Category : ",$S($G(DGENCAT)="":"-none-",1:$$EXTERNAL^DILFD(27.15,.02,"",DGENCAT)),IORVOFF Line Location: CUR+19
Function Call: WRITE	Prompt: !?3,"Enrollment Status",?35,": ",$S($G(DGENR("STATUS"))="":"-none-",1:$$EXT^DGENU("STATUS",DGENR("STATUS"))) Line Location: CUR+20
Function Call: WRITE	Prompt: !?3,"Enrollment Priority",?35,": ",$S($G(DGENR("PRIORITY"))="":"-none-",1:DGENR("PRIORITY")),$S($G(DGENR("SUBGRP"))="":"",1:$$EXT("SUBGRP",DGENR("SUBGRP"))) Line Location: CUR+21
Function Call: WRITE	Prompt: !?3,"Enrollment Group Threshold",?35,": ",$S($G(DGEGT("PRIORITY"))="":"-none-",1:$$EXTERNAL^DILFD(27.16,.02,"",$G(DGEGT("PRIORITY")))),$S($G(DGEGT("SUBGRP"))="":"",1:$$EXTERNAL^DILFD(27.16,.03,"",$G(DGEGT("SUBGRP")))) Line Location: CUR+24
Function Call: WRITE	Prompt: ! Line Location: CUR+25
Function Call: WRITE	Prompt: !,"This is a required response. Enter '^' to exit" Line Location: PROMPT+38
Routine Call	DIR Line Location: PROMPT+26

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGEN(27.11 - [#27.11]	EXTERNAL^DILFD
^DGEN(27.15 - [#27.15]	EXTERNAL^DILFD
^DGEN(27.16 - [#27.16]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	PATID+13, GETINST+5, GETINST+7

Name	Line Occurrences
$$EXT	CUR+21
$$FIELD	EXT+15
CUR	DISPLAY+17
GETQ	GETINST+5
REV	CUR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGAIN	PROMPT+18~, PROMPT+28, PROMPT+29, PROMPT+30
DA	PROMPT+18~
DEFAULT	PROMPT~, PROMPT+21, PROMPT+22, PROMPT+23, PROMPT+32
DFN	DISPLAY~, DISPLAY+8, DISPLAY+17, CUR~, CUR+5, CUR+7, CUR+14, CUR+16, PATID~, PATID+8 , PATID+12
DGEGT	CUR+4~, CUR+12*
DGEGT("PRIORITY"	CUR+24
DGEGT("SUBGRP"	CUR+24
DGEGTIEN	CUR+4~, CUR+11*, CUR+12
DGENCAT	CUR+4~, CUR+7*, CUR+19
DGENR	CUR+4~, CUR+5, PATID+7~, PATID+8
DGENR("APP"	CUR+18
DGENR("DATE"	CUR+17
DGENR("PRIORITY"	CUR+21, PATID+11
DGENR("STATUS"	CUR+20, PATID+11
DGENR("SUBGRP"	CUR+21
DGINST	GETINST~
DGINST("NAME"	GETINST+6*
DGINST("STANUM"	GETINST+8*
DGINST0	GETINST+4~, GETINST+5*, GETINST+6
DGINST99	GETINST+4~, GETINST+7*, GETINST+8
DGOKF	GETINST+4~, GETINST+9*, GETQ
DGPREFAC	GETINST~, GETINST+5, GETINST+7
DIR	PROMPT+18~
DIR("A"	PROMPT+22, PROMPT+23
DIR(0	PROMPT+20*
>> DTOUT	PROMPT+27, PROMPT+39
>> DUOUT	PROMPT+27, PROMPT+39
DUZ(2	INST+31
FACNAME	CUR+4~, CUR+14, CUR+22
FIELD	PROMPT~, PROMPT+15, PROMPT+20, PROMPT+22, PROMPT+23
FILE	PROMPT~, PROMPT+15, PROMPT+20, PROMPT+22, PROMPT+23
FLD	EXT+14~, EXT+15, EXT+17, EXT+18, FIELD+3~, FIELD+5, FIELD+6, FIELD+7, FIELD+8, FIELD+9* , FIELD+10, FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+15, FIELD+16, FIELD+17, FIELD+18, FIELD+19 , FIELD+20, FIELD+21, FIELD+22, FIELD+23, FIELD+24, FIELD+25, FIELD+26, FIELD+27, FIELD+28, FIELD+29 , FIELD+30, FIELD+31, FIELD+32, FIELD+33, FIELD+34, FIELD+35, FIELD+36, FIELD+37, FIELD+38, FIELD+39 , FIELD+40, FIELD+41, FIELD+42
IOM	PATID+14
IORVOFF	CUR+4~, CUR+19
IORVON	CUR+4~, CUR+19
OUTPUT	PATID+7~, PATID+9, PATID+11, PATID+13*, PATID+15, PATID+17
PFSRC	CUR+4~, CUR+16*, CUR+23
PREFAC	CUR+4~, CUR+14, PATID+7~, PATID+12, PATID+13
PRMPTNM	PROMPT~, PROMPT+17*, PROMPT+22, PROMPT+23
QUIT	PROMPT+18~, PROMPT+24, PROMPT+25, PROMPT+27, PROMPT+36, PROMPT+37
REQUIRE	PROMPT~, PROMPT+16*, PROMPT+20, PROMPT+30, PROMPT+37
RESPONSE	PROMPT~, PROMPT+31, PROMPT+32, PROMPT+33*, PROMPT+36
STATUS	DISPLAY+7~, DISPLAY+8*, DISPLAY+9, DISPLAY+10, DISPLAY+13
SUB	EXT~, EXT+12, EXT+15, FIELD~, FIELD+5, FIELD+6, FIELD+7, FIELD+8, FIELD+9, FIELD+10 , FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+15, FIELD+16, FIELD+17, FIELD+18, FIELD+19, FIELD+20 , FIELD+21, FIELD+22, FIELD+23, FIELD+24, FIELD+25, FIELD+26, FIELD+27, FIELD+28, FIELD+29, FIELD+30 , FIELD+31, FIELD+32, FIELD+33, FIELD+34, FIELD+35, FIELD+36, FIELD+37, FIELD+38, FIELD+39, FIELD+40 , FIELD+41
U	GETINST+6, GETINST+8
VACHK	INST~, INST+25, INST+30
VADUZ	INST~, INST+28, INST+29
VADUZ(2	INST+25, INST+26, INST+30, INST+31*, INST+32
VAL	EXT~, EXT+12, EXT+18
X	REV+1~, REV+2, PROMPT+28, PROMPT+32, INST+27~, INST+29, INST+30
>> Y	PROMPT+33
ZZ	INST+27~, INST+29
ZZ(	INST+30

Customize PDF page

Package: Registration

Routine: DGENU

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: