Routine: ADEFPC

Package	Total	Call Graph
IHS Dental System	5	^ADECLS ^ADEFPC1 PCOMP^ADEFPC3 $$REP^ADEFPC4 $$HAT^ADEPQA
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	^%DT EN1^DIP
IHS VA Utilities	1	^XBKVAR

Entry Points

Name	Comments	DBIA/ICR reference
PRE
ZTM	;EP TASKMAN ENTRY FOR PROCESSING PHASE
END
ROPT	;GET REPORT OPTIONS
PRNEND
PRINT	;EP TASKMAN ENTRY FOR PRINT PHASE
QUE	;
DATE	;GET DATE RANGE
ADEU()	;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
ADEU1
ASKDEV	;

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
^%ZIS	PRINT+12, ASKDEV+4
HOME^%ZIS	ASKDEV+12
^%ZTLOAD	QUE+9
^ADECLS	PRE
^ADEFPC1	ZTM+21
PCOMP^ADEFPC3	ZTM+22
$$REP^ADEFPC4	ROPT+2
$$HAT^ADEPQA	ROPT+3
EN1^DIP	PRINT+19
^XBKVAR	ADEFPC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DIVISION NOT SET IN USER FILE -- CONTACT SITE MANAGER OR ISC" Line Location: ADEFPC+3
Function Call: WRITE	Prompt: !,"DIVISION SET TO ZERO (UNIVERSAL). DIVISION MUST BE SET TO ONE OF THE ",!,"SITES IN THE DENTAL SITE PARAMETER FILE. -- CONTACT SITE MANAGER" Line Location: ADEFPC+4
Function Call: WRITE	Prompt: $J("",(80-$L(ADEXX))\2)_ADEXX,!,! Line Location: PRE+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: DATE+3
Function Call: WRITE	Prompt: ! Line Location: ROPT+1
Function Call: WRITE	Prompt: ! Line Location: ROPT+3
Function Call: WRITE	Prompt: !!,"No reports selected." Line Location: ROPT+4
Function Call: WRITE	Prompt: !! Line Location: ROPT+5
Function Call: WRITE	Prompt: "AREA" Line Location: ROPT+6
Function Call: WRITE	Prompt: ", " Condition for execution: $L(ADEROPT)>2 Line Location: ROPT+6
Function Call: WRITE	Prompt: " and " Condition for execution: ADEROPT=12 Line Location: ROPT+7
Function Call: WRITE	Prompt: "SERVICE UNIT" Line Location: ROPT+7
Function Call: WRITE	Prompt: " and " Condition for execution: $L(ADEROPT)>1 Line Location: ROPT+8
Function Call: WRITE	Prompt: "WATER SYSTEM" Line Location: ROPT+8
Function Call: WRITE	Prompt: " Report" Line Location: ROPT+9
Function Call: WRITE	Prompt: "s" Condition for execution: $L(ADEROPT)>1 Line Location: ROPT+9
Function Call: WRITE	Prompt: " will be printed.",! Line Location: ROPT+9
Function Call: WRITE	Prompt: !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background." Line Location: ASKDEV+2
Function Call: WRITE	Prompt: !,"REPORT IS QUEUED!" Line Location: ASKDEV+13
Routine Call	%ZIS Line Location: ASKDEV+12
Routine Call	%ZIS Line Location: PRINT+12 ASKDEV+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ADEDUM - [#9002006.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEFLU("B"	ZTM+19, ZTM+20
^ADEPARAM - [#9002006]	PRE+4
^ADEWS - [#9002004]	ZTM+5, ZTM+6
^AUTTAREA - [#9999999.21]	ZTM+16
^AUTTCOM - [#9999999.05]	ZTM+10
^AUTTSU - [#9999999.22]	ZTM+12
^TMP("ADEFPC"	ROPT+12!, ROPT+14, ROPT+17!, ZTM+1, ZTM+3, ZTM+23, END, PRINT+1, PRINT+2, PRINT+3 , PRNEND+1!, ADEU1, ADEU1+1

Label References

Name	Line Occurrences
$$ADEU	ROPT+11
ADEU1	ADEU1+1
ASKDEV	ROPT+16, ASKDEV+11
DATE	DATE+3, ROPT+3
END	DATE+2, DATE+3, ROPT+4, ROPT+17, ROPT+19, ZTM+1, ZTM+23, ZTM+25
PRINT	ZTM+28, ZTM+29
PRNEND	PRINT+1, PRINT+2, PRINT+3
QUE	ASKDEV+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1!, DATE+2!
%DT("A"	DATE+1, DATE+2
%DT(0	DATE+1, DATE+2
>> %ZIS	ASKDEV+3*
>> %ZIS("IOPAR"	PRINT+11, PRINT+14
ADEABS	END+1!
ADEABSMO	END+1!
ADEAREA	ZTM+15, ZTM+16, ZTM+17, ZTM+18*, END+4!
ADEARNAM	ZTM+17*, END+4!
ADEBD	DATE+2*, ZTM+2, ZTM+3, END+1!
ADEBM	END+1!
ADEBSU	END+1!
ADECML	END+1!
ADECOMM	ZTM+9, ZTM+10, ZTM+11, ZTM+15, END+1!
ADECOMP	PRE+4*, END+1!
ADECPPM	END+1!
ADECUR	END+1!
ADED0	END+5!, PRINT+9~, PRINT+16*
ADED1	END+5!, PRINT+9~, PRINT+16*
ADED2	END+5!, PRINT+9~
ADED3	END+5!, PRINT+9~
ADEDEF	END+1!
ADEED	DATE+3*, ZTM+2, ZTM+3, END+1!
ADEEM	END+1!
ADEESU	END+1!
ADEFLDFN	ZTM+20*, END+1!
ADEINC	END+1!
ADEIOP	ZTM+27, END+4!, PRINT+10, PRINT+13, ASKDEV+1!, ASKDEV+6*, ASKDEV+11!, QUE+8
ADEIOPAR	END+5!, PRINT+11, PRINT+14, ASKDEV+1!, ASKDEV+7*
ADEJ	ZTM+2, ZTM+3, END+2!, QUE+1~, QUE+3
ADEK	END+2!
ADELAT	END+2!
ADELIN	END+2!
ADEMCNT	END+2!
ADEMO	END+4!
ADEMOCNT	END+2!
ADEMPPM	END+2!
ADENAT	END+2!
ADENEX	END+2!
ADENEXMO	END+2!
ADENOD	END+6!
ADENOLOK	PRINT+3*, PRNEND+1, PRNEND+2!
ADEOPT	END+2!
ADEPAG	END+2!
ADEPOP	END+2!
ADEQ	END+2!
ADEQIT	END+2!
ADEROPT	PRE+3~, ROPT+2*, ROPT+4, ROPT+6, ROPT+7, ROPT+8, ROPT+9, END+6!, PRINT+6, PRINT+7 , PRINT+8
ADESHORT	END+2!
ADESL	END+2!
ADESTOP	END+3!
ADESU	ZTM+11, ZTM+12, ZTM+13, ZTM+14*, END+3!
ADESUCNT	END+3!
ADESUNAM	ZTM+13*, END+4!
ADESYCNT	END+3!
ADESYS	END+3!
ADETCNT	END+3!
ADETDAY	END+3!
ADETMON	END+4!
ADETPPM	END+3!
ADETST	END+3!
ADEU	ROPT+11, ROPT+12, ROPT+14, ROPT+17, ZTM+1, ZTM+3, ZTM+23, END, END+4!, PRINT+1 , PRINT+2, PRINT+3, PRNEND+1, ADEU+2, ADEU1, ADEU1+1, ADEU1+2
ADEWSDFN	ZTM+4, ZTM+5, ZTM+6, ZTM+19, ZTM+20, END+3!
ADEWSNAM	ZTM+7*, END+3!
ADEWSNOD	ZTM+6*, ZTM+7, ZTM+8, ZTM+9, END+3!
ADEX	END+3!
ADEXX	PRE+1*, PRE+2, END+3!
ADEYM	END+3!
ADEZTSK	END+5!, PRINT+18*, PRINT+20
BY	PRINT+9~, PRINT+15*
DHD	PRINT+9~
DIC	PRINT+9~, PRINT+15*
DT	DATE+1, DATE+3, ZTM+3
DUZ(2	ADEFPC+3, ADEFPC+4, PRE+4
FLDS	PRINT+4~, PRINT+5*, PRINT+6, PRINT+7, PRINT+8
>> FR	PRINT+15*
IO("HFSIO"	QUE+7
IO("Q"	ASKDEV+8
IOM	ASKDEV+6
ION	ASKDEV+6
IOP	PRINT+10, PRINT+13, ASKDEV+1!, ASKDEV+11!
>> IOPAR	ASKDEV+7
IOSL	ASKDEV+6
>> IOT	ZTM+26
>> POP	ROPT+17, ASKDEV+5
>> TO	PRINT+15*
U	PRE+4, DATE+1*, ZTM+3, ZTM+8, ZTM+13, ZTM+14, ZTM+17, ZTM+18, ZTM+27
>> X	DATE+3
Y	DATE+2, DATE+3, PRINT+9~
>> ZTDESC	QUE+2*
>> ZTIO	QUE+6, QUE+8
>> ZTQUEUED	ROPT+19, ZTM+1, ZTM+25, ZTM+29, PRINT+3, PRINT+18, PRNEND, ASKDEV+11
>> ZTREQ	ZTM+1, ZTM+27, PRNEND*
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+3*
>> ZTSAVE("ADEIOPAR"	QUE+4*
>> ZTSAVE("ADEROPT"	QUE+5*
ZTSK	PRINT+18!, PRINT+20*, ASKDEV+1!

Customize PDF page

Package: IHS Dental System

Routine: ADEFPC

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: