Routine: DGENCLN1

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$LJ^XLFSTR
Registration	4	$$EXT^DGENELA3 ($$NAME,$$SSN)^DGENPTA ($$ON,TURNOFF,TURNON)^DGENQRY $$SEND^DGENQRY1
VA Fileman	2	^DIK ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE()	;
GETPAT(DFN,PAT)	;
DATE(FMDATE)	;
PRINT(COUNT)	;
DEVICE()	;
PARSE(AUDIT,DFN,SEEDDATE,COND)	;
PLINE(PAGE,LINE)	;
DELETE(DGENSKIP)	;
CLEANUP	;This entry point will do the cleanup.
STRIP(STR)	;
ENTER	;
REPORT	;This entry point was provided for testing, so that before
HEADER(PAGE)	;
LJ(STR,LEN)	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+10
HOME^%ZIS	DEVICE+17
^%ZISC	ENTER+36, ENTER+40
^%ZTLOAD	DEVICE+15
$$EXT^DGENELA3	PARSE+12, PARSE+18, PARSE+23
$$NAME^DGENPTA	ENTER+24
$$SSN^DGENPTA	ENTER+25
$$ON^DGENQRY	ENTER+12
TURNOFF^DGENQRY	ENTER+32
TURNON^DGENQRY	ENTER+13
$$SEND^DGENQRY1	ENTER+23
^DIK	DELETE+20
^DIR	PAUSE+6
$$FMTE^XLFDT	HEADER+2, DATE+3
$$LJ^XLFSTR	LJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"* This is a one-time cleanup for the National Enrollment Seeding *" Line Location: CLEANUP+4
Function Call: WRITE	Prompt: !,"Patient records whose seeding update may not have completed will be" Line Location: CLEANUP+5
Function Call: WRITE	Prompt: !,"reported, and a query for each patient will be sent to HEC in order" Line Location: CLEANUP+6
Function Call: WRITE	Prompt: !,"to complete the cleanup. Also, records in the Patient file with no" Line Location: CLEANUP+7
Function Call: WRITE	Prompt: !,"zero node that were created by the seeding will be deleted." Line Location: CLEANUP+8
Function Call: WRITE	Prompt: !,"* This is a one-time report for the National Enrollment Seeding *" Line Location: REPORT+9
Function Call: WRITE	Prompt: !,"Patient records whose seeding update may not have completed will be" Line Location: REPORT+10
Function Call: WRITE	Prompt: !,"reported. Also, records in the Patient file with no zero node that" Line Location: REPORT+11
Function Call: WRITE	Prompt: !,"were created by the seeding will be listed by DFN" Line Location: REPORT+12
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+5
Function Call: WRITE	Prompt: !!," * Total #Patients Found: "_COUNT_" *" Line Location: PRINT+17
Function Call: WRITE	Prompt: !,LINE Line Location: PLINE+19
Function Call: WRITE	Prompt: !,?((IOM-77)/2),"Incomplete Patient Updates from National Enrollment Seeding",?(IOM-10),"PAGE: ",PAGE Line Location: HEADER+1
Function Call: WRITE	Prompt: !,?((IOM-24)\2),$$FMTE^XLFDT(DT,"D") Line Location: HEADER+2
Function Call: WRITE	Prompt: !!," Patient SSN Date Of Seeding" Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"____________________________________________________________________________",! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+5
Function Call: WRITE	Prompt: !,"BAD PATIENT RECORD FOUND, DFN= ",DFN Line Location: DELETE+17
Routine Call	%ZIS Line Location: DEVICE+17
Routine Call	DIR Line Location: PAUSE+6
Routine Call	%ZIS Line Location: DEVICE+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGENA(27.14 - [#27.14]	ENTER+14, ENTER+16, PARSE+6, PARSE+7
^DPT - [#2]	GETPAT+5, GETPAT+6, GETPAT+7, DELETE+10, DELETE+13
^TMP($J	ENTER+8!, ENTER+27, ENTER+28, ENTER+30!, PRINT+9, PRINT+11, PRINT+12, PRINT+15

Label References

Name	Line Occurrences
$$DATE	PRINT+13
$$DEVICE	CLEANUP+9, REPORT+13
$$LJ	ENTER+26, PARSE+13, PARSE+19, PARSE+25
$$PARSE	ENTER+21
$$PAUSE	PLINE+6
$$PLINE	PRINT+13, PRINT+15, PRINT+16
$$STRIP	PARSE+11, PARSE+17, PARSE+24
DELETE	ENTER+39
ENTER	CLEANUP+9, REPORT+13
GETPAT	PARSE+10, PARSE+16, PARSE+22
HEADER	PRINT+7, PLINE+10, PLINE+16
PRINT	ENTER+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+9*
ANODE	ENTER+7~, ENTER+16*, ENTER+17, ENTER+18
AUDIT	ENTER+7~, ENTER+9, ENTER+14, ENTER+16, ENTER+21, PARSE~, PARSE+6, PARSE+7
COND	ENTER+15~, ENTER+21, PARSE~
COND(	ENTER+28, PARSE+13, PARSE+19, PARSE+25*
COUNT	ENTER+7~, ENTER+9, ENTER+22, ENTER+29, PRINT~, PRINT+17, PARSE+4~, PARSE+5, PARSE+13, PARSE+19* , PARSE+25, DELETE+7~, DELETE+9, DELETE+16*, DELETE+21
CRT	PRINT+1~, PRINT+3*, PLINE+5, PLINE+13
DA	DELETE+19~, DELETE+20*
DATABASE	PARSE+4~, PARSE+12, PARSE+13, PARSE+18, PARSE+19, PARSE+23*, PARSE+25
DATE	DATE+1~, DATE+3, DATE+4
DFN	ENTER+7~, ENTER+18, ENTER+19, ENTER+20, ENTER+21, ENTER+23, ENTER+24, ENTER+25, ENTER+27, ENTER+28 , PRINT+1~, PRINT+10, PRINT+11, PRINT+12, PRINT+15, PARSE~, PARSE+10, PARSE+16, PARSE+22, GETPAT~ , GETPAT+5, GETPAT+6, GETPAT+7, DELETE+7~, DELETE+9, DELETE+10*, DELETE+13, DELETE+17, DELETE+20
DGENON	ENTER+7~, ENTER+12*, ENTER+13, ENTER+32
DGENSKIP	CLEANUP+2~, CLEANUP+3, REPORT+7~, REPORT+8, ENTER+11, ENTER+23, ENTER+31, ENTER+36, ENTER+39, ENTER+40 , DEVICE+13, DELETE~, DELETE+8, DELETE+17, DELETE+18, DELETE+21
DIK	DELETE+19~, DELETE+20*
DIR	PAUSE+3~
DIR(0	PAUSE+6*
DT	HEADER+2
FMDATE	DATE~, DATE+2*, DATE+3
FOUND	PARSE+4~, PARSE+5, PARSE+13, PARSE+19, PARSE+25, PARSE+26
GOOD	DELETE+7~, DELETE+12, DELETE+14, DELETE+15
I	STRIP+1~, STRIP+2, STRIP+3, STRIP+5, STRIP+6
IO	PRINT+4
IO("Q"	DEVICE+12
IOF	PRINT+5, PLINE+8, PLINE+14
IOM	HEADER+1, HEADER+2
IOSL	PLINE+5, PLINE+13, PAUSE+5
IOST	PRINT+3
LEN	LJ~, LJ+1
LINE	ENTER+7~, ENTER+28, PRINT+1~, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PARSE+4~, PARSE+5, PARSE+6 , PARSE+7, PLINE~, PLINE+11, PLINE+17, PLINE+19
NAME	ENTER+7~, ENTER+24, ENTER+26, PRINT+1~, PRINT+8, PRINT+9*, PRINT+11, PRINT+12, PRINT+13, PRINT+15
NAMESSN	ENTER+7~, ENTER+26*, ENTER+27, ENTER+28
NEWVALUE	PARSE+4~, PARSE+11, PARSE+13, PARSE+17, PARSE+19, PARSE+24*, PARSE+25
NODE	PRINT+1~, PARSE+4~, PARSE+7, PARSE+9, PARSE+11, PARSE+15, PARSE+17, PARSE+21, PARSE+24, GETPAT+4~ , GETPAT+7, GETPAT+8, GETPAT+9
OK	DEVICE+7~, DEVICE+8, DEVICE+11, DEVICE+12, DEVICE+18*, DEVICE+19
PAGE	PRINT+1~, PRINT+6, PRINT+13, PRINT+15, PRINT+16, PLINE~, PLINE+9, PLINE+10, PLINE+15*, PLINE+16 , HEADER~, HEADER+1
PAT	PARSE+4~, PARSE+10, PARSE+16, PARSE+22, GETPAT~
PAT("LAST ASK	ED" , PARSE+19, GETPAT+9*
PAT("MEDICAID"	PARSE+18, GETPAT+8*
PAT("POW"	PARSE+12, GETPAT+6*
PAT("VADISAB"	PARSE+23, GETPAT+5*
>> POP	DEVICE+11
QUIT	PRINT+1~, PRINT+2, PRINT+9, PRINT+13, PRINT+15, PRINT+16, PLINE+4~, PLINE+6, PLINE+7, PLINE+20 , PAUSE+3~, PAUSE+4, PAUSE+7, PAUSE+8
SEEDDATE	ENTER+7~, ENTER+17*, ENTER+21, ENTER+27, PARSE~, PARSE+19
SSN	ENTER+7~, ENTER+25*, ENTER+26
STR	LJ~, LJ+1, STRIP~, STRIP+2, STRIP+3, STRIP+4, STRIP+5, STRIP+6, STRIP+7, STRIP+8
SUB	DELETE+7~, DELETE+11, DELETE+13, DELETE+14
X	PAUSE+3~
XREFDFN	ENTER+7~, ENTER+9, ENTER+14, ENTER+20
Y	PAUSE+3~, PAUSE+7
>> ZTDESC	DEVICE+13*
>> ZTQUEUED	ENTER+41
>> ZTREQ	ENTER+41*
>> ZTRTN	DEVICE+13*
>> ZTSAVE("DGENSKIP"	DEVICE+14*
>> ZTSK	DEVICE+16

Customize PDF page

Package: Registration

Routine: DGENCLN1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: