Routine: DGENRPD2

Package	Total	Call Graph
Registration	5	($$FINDCUR,$$STATUS)^DGENA ($$CATEGORY,$$EXTCAT)^DGENA4 ($$GET,$$VET)^DGENPTA $$EXT^DGENU $$SITE^VASITE
Kernel	3	^%ZISC $$FMTE^XLFDT $$LJ^XLFSTR
Scheduling	1	$$SDAPI^SDAMA301
VA Fileman	1	^DIR

Package

Total

Call Graph

Registration

($$FINDCUR,$$STATUS)^DGENA ($$CATEGORY,$$EXTCAT)^DGENA4 ($$GET,$$VET)^DGENPTA $$EXT^DGENU $$SITE^VASITE

Kernel

^%ZISC $$FMTE^XLFDT $$LJ^XLFSTR

Scheduling

$$SDAPI^SDAMA301

VA Fileman

^DIR

Package	Total	Caller Graph
Registration	3	DGENRPD1 DGQPTQ2 DGRP14

Package

Total

Caller Graph

Registration

DGENRPD1 DGQPTQ2 DGRP14

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	;
ERR	;
LJ(STRING,LENGTH)	;
DATE(DATE)	;
GETPAT	; ; Description: Gets patients to include in the report
HEADER	;
SETTMP(CLINIC,DFN,APPT)	; ; NOENREC is for patients without enrollment records ; SITE2 is for other excluded enrollment records
PATIENTS(SUBSCRPT)	;
VALREC(CLINIC,DFN)	;
PRINT	;
FAPCHK()	;
LINE(LINE)	;

External References

Name	Field # of Occurrence
^%ZISC	PRINT+16
$$FINDCUR^DGENA	SETTMP+10
$$STATUS^DGENA	SETTMP+11
$$CATEGORY^DGENA4	VALREC+10
$$EXTCAT^DGENA4	PATIENTS+31
$$GET^DGENPTA	PATIENTS+26
$$VET^DGENPTA	VALREC+14
$$EXT^DGENU	PATIENTS+30
^DIR	PAUSE+6
$$SDAPI^SDAMA301	GETPAT+4
$$SITE^VASITE	SETTMP+6
$$FMTE^XLFDT	HEADER+6, HEADER+10, DATE+1
$$LJ^XLFSTR	LJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+9
Function Call: WRITE	Prompt: !,LINE Line Location: LINE+15
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Appointments for Veterans with no Enrollment Application" Line Location: HEADER+5
Function Call: WRITE	Prompt: ?120,"Page ",PAGE Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+9
Function Call: WRITE	Prompt: ?70," Run Date: "_$$FMTE^XLFDT(DT) Line Location: HEADER+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"Name",?39,"PatientID",?57,"DOB",?70,"Appt Dt/Tm",?90,"EnrollStatus",?121,"Enroll Cat" Line Location: HEADER+13
Function Call: WRITE	Prompt: !,LINE,! Line Location: HEADER+15
Function Call: WRITE	Prompt: ! Line Location: PAUSE+4
Routine Call	DIR Line Location: PAUSE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	GETPAT+17, GETPAT+25, GETPAT+35
^SC - [#44]	GETPAT+14, GETPAT+16, GETPAT+23, GETPAT+24, GETPAT+33, GETPAT+34, SETTMP+7
^TMP($J	PRINT+2!, PRINT+18!, GETPAT+13, GETPAT+15, GETPAT+22, GETPAT+27, GETPAT+31, GETPAT+36, GETPAT+38!, ERR+5* , ERR+6!, VALREC+3, VALREC+6, SETTMP+10, SETTMP+11, PATIENTS+7, PATIENTS+12, PATIENTS+17, PATIENTS+20, PATIENTS+22 , PATIENTS+23, FAPCHK+2, FAPCHK+3

Label References

Name	Line Occurrences
$$DATE	PATIENTS+28, PATIENTS+29
$$FAPCHK	GETPAT+9
$$LJ	PATIENTS+9, PATIENTS+14, PATIENTS+27, PATIENTS+28, PATIENTS+29, PATIENTS+30, PATIENTS+31
ERR	GETPAT+9
GETPAT	PRINT+7
HEADER	PRINT+11, LINE+7, LINE+12
LINE	PATIENTS+8, PATIENTS+9, PATIENTS+10, PATIENTS+13, PATIENTS+14, PATIENTS+18, PATIENTS+32
PATIENTS	PRINT+13
PAUSE	PRINT+14, LINE+4
SETTMP	VALREC+16
VALREC	GETPAT+18, GETPAT+27, GETPAT+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPT	VALREC+2~, VALREC+3*, VALREC+6, VALREC+16, SETTMP~, SETTMP+6, SETTMP+10, SETTMP+11
APPTYPE	PATIENTS+3~, PATIENTS+25*
BEGIN	GETPAT+2~, GETPAT+3*
CATEGORY	GETPAT+2~, VALREC+10, VALREC+11, SETTMP+10, SETTMP+11, PATIENTS+3~, PATIENTS+16, PATIENTS+17*, PATIENTS+20, PATIENTS+22 , PATIENTS+23, PATIENTS+31
CLINIC	GETPAT+13, GETPAT+14, GETPAT+15, GETPAT+16, GETPAT+18, GETPAT+22, GETPAT+23, GETPAT+24, GETPAT+27, GETPAT+31* , GETPAT+32, GETPAT+33, GETPAT+34, GETPAT+36, VALREC~, VALREC+3, VALREC+6, VALREC+16, SETTMP~, SETTMP+7 , SETTMP+11, PATIENTS+3~, PATIENTS+11, PATIENTS+12, PATIENTS+14, PATIENTS+17, PATIENTS+20, PATIENTS+22, PATIENTS+23
CLNAME	SETTMP+5~, SETTMP+7, SETTMP+8, SETTMP+10, SETTMP+11
CRT	PRINT+1~, PRINT+5*, PRINT+9, PRINT+14, LINE+3, LINE+10
DATE	DATE~, DATE+1
DFN	GETPAT+15, GETPAT+18, GETPAT+27, GETPAT+36, VALREC~, VALREC+3, VALREC+6, VALREC+10, VALREC+14, VALREC+16 , SETTMP~, SETTMP+10, SETTMP+11, PATIENTS+21, PATIENTS+22*, PATIENTS+23, PATIENTS+26
DGARRAY	GETPAT+2~, GETPAT+4, GETPAT+38!, ERR+6!
DGARRAY("FLDS"	GETPAT+4*
DGARRAY(1	GETPAT+3*
>> DGENRP("ALL"	GETPAT+12
>> DGENRP("BEGIN"	GETPAT+3, HEADER+6
>> DGENRP("CLINIC"	GETPAT+30, GETPAT+32
>> DGENRP("DIVISION"	GETPAT+21, GETPAT+26
>> DGENRP("END"	GETPAT+3, HEADER+6
>> DGENRP("JUSTONCE"	VALREC+4
DGPAT	PATIENTS+3~, PATIENTS+26
DGPAT("DOB"	PATIENTS+28
DGPAT("NAME"	PATIENTS+27
DGPAT("PID"	PATIENTS+27
DIR	PAUSE+3~
DIR(0	PAUSE+5*
>> DIRUT	PAUSE+7
DIVISION	GETPAT+2~, GETPAT+16, GETPAT+17, GETPAT+24, GETPAT+25, GETPAT+26, GETPAT+34, GETPAT+35, SETTMP+6, PATIENTS+3~ , PATIENTS+6, PATIENTS+7, PATIENTS+9, PATIENTS+12, PATIENTS+14, PATIENTS+17, PATIENTS+20, PATIENTS+22, PATIENTS+23
DIVNAME	SETTMP+5~, SETTMP+6*, SETTMP+10, SETTMP+11
DT	ERR+5, HEADER+10
END	GETPAT+2~, GETPAT+3*
ENRSTAT	PATIENTS+3~, PATIENTS+24*, PATIENTS+30
ERR	FAPCHK+1~, FAPCHK+2*, FAPCHK+3
IO	PRINT+8
IOF	PRINT+9, LINE+6, LINE+11, HEADER+4
IOSL	LINE+3, LINE+10, PAUSE+4
IOST	PRINT+5
JUSTONCE	VALREC+2~, VALREC+3, VALREC+4
LENGTH	LJ~, LJ+1
LINE	LINE~, LINE+8, LINE+13, LINE+15, HEADER+3~, HEADER+14, HEADER+15, PATIENTS+27, PATIENTS+28, PATIENTS+29 , PATIENTS+30, PATIENTS+31, PATIENTS+32
NAM	GETPAT+2~, GETPAT+9, ERR+2, ERR+3, ERR+4, ERR+5, ERR+6!
NODE	PATIENTS+3~, PATIENTS+23*, PATIENTS+24, PATIENTS+25
PAGE	PRINT+1~, PRINT+4, PRINT+9, PRINT+10, HEADER+7, HEADER+8*
PATIENT	PATIENTS+3~
QUIT	PRINT+1~, PRINT+3, PRINT+14, LINE+5, PAUSE+7, PATIENTS+7, PATIENTS+8, PATIENTS+9, PATIENTS+10, PATIENTS+12 , PATIENTS+13, PATIENTS+15, PATIENTS+17, PATIENTS+18, PATIENTS+20, PATIENTS+22, PATIENTS+33
SDCNT	GETPAT+2~, GETPAT+4*, GETPAT+9, GETPAT+38!, ERR+6!
STATUS	VALREC+2~, VALREC+6*, VALREC+7
STRING	LJ~, LJ+1
SUBSCRPT	PRINT+1~, PRINT+12*, PRINT+13, PATIENTS~, PATIENTS+7, PATIENTS+12, PATIENTS+17, PATIENTS+20, PATIENTS+22, PATIENTS+23
TIME	PATIENTS+3~, PATIENTS+19, PATIENTS+20, PATIENTS+22, PATIENTS+23, PATIENTS+29
U	GETPAT+16, GETPAT+24, GETPAT+33, GETPAT+34, VALREC+6, VALREC+7, SETTMP+6, SETTMP+11
X	GETPAT+9~*, PAUSE+3~
Y	PAUSE+3~, PAUSE+7
>> ZTQUEUED	PRINT+15
>> ZTREQ	PRINT+15*

Customize PDF page

Package: Registration