Routine: ADEDX

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HX	;EP
EOP1
BK
EOP
PKG1
LINE
ASKDEV
DQ1
DQ2
INIT	;
PA
PKG
EXTRACT	;EP Enter here to get extract log & count of unextracted records
END	;
DQRUN
BKGRND	;EP Enter here for status of background processor
PARAM	;
HEADER
EX	;Get extract log
HISTORY	;EP Enter here to get installation history & status
ALL	;EP
QUE
PAR1
ENTRIES	;

External References

Name	Field # of Occurrence
^%ZIS	ASKDEV
^%ZISC	END+1
^%ZTLOAD	QUE+2
^DIR	EOP1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"[INSTALLATION HISTORY AND CURRENT STATUS]",! Line Location: HX+2
Function Call: WRITE	Prompt: !!,"[DENTAL BACKGROUND PROCESSOR]",! Line Location: DQRUN+1
Function Call: WRITE	Prompt: !,$S(ADECNT=0:"No",1:ADECNT)," dental patient record(s) flagged as 'awaiting update'." Line Location: DQRUN+3
Function Call: WRITE	Prompt: !,$S(ADECNT=0:"No",1:ADECNT)," dental visit record(s) queued in the ADEPOST global." Line Location: DQRUN+6
Function Call: WRITE	Prompt: !,"^ADEPOST(0)=",^ADEPOST(0) Line Location: DQRUN+7
Function Call: WRITE	Prompt: !,$P(ADEMSG,U,2) Line Location: DQRUN+11
Function Call: WRITE	Prompt: !!,"*It appears that the dental background routine is NOT running",!,"but that the dental package THINKS that it is. To remedy, execute the",!,"EBAK option in the DEO submenu of the Dental Supervisor's menu.*" Line Location: DQ2+0
Function Call: WRITE	Prompt: !,"RPMS SITE: ",$P(^DIC(4,$P(^AUTTSITE($O(^AUTTSITE(0)),0),U),0),U) Line Location: PKG+2
Function Call: WRITE	Prompt: !,"No entry in PACKAGE file for IHS DENTAL" Line Location: PKG+4
Function Call: WRITE	Prompt: !,"CURRENT IHS DENTAL VERSION: ",$P(^DIC(9.4,ADEPKG,"VERSION"),U) Line Location: PKG+6
Function Call: WRITE	Prompt: !,"No Installation history in PACKAGE file" Line Location: PKG+7
Function Call: WRITE	Prompt: !,"INSTALLATION HISTORY--",!?5,"VERSION",?20,"DATE INSTALLED" Line Location: PKG+9
Function Call: WRITE	Prompt: !?5,$P(ADENOD,U) Line Location: PKG1+2
Function Call: WRITE	Prompt: ?20,Y Line Location: PKG1+4
Function Call: WRITE	Prompt: !!,"The DENTAL PROCEDURE File global (^ADEPCD) has ",$P(^ADEPCD(0),U,4)," entries." Line Location: ENTRIES+2
Function Call: WRITE	Prompt: !,"The first visit date in ADEPCD is " Line Location: ENTRIES+3
Function Call: WRITE	Prompt: Y,"." Line Location: ENTRIES+6
Function Call: WRITE	Prompt: !!,"DENTAL SITE PARAMETER FILE" Line Location: PARAM+2
Function Call: WRITE	Prompt: " HAS NOT BEEN SET UP!" Line Location: PARAM+4
Function Call: WRITE	Prompt: !?5,"DENTAL SITE NAME: ",$P(^DIC(4,$P(ADENOD,U),0),U) Line Location: PA+0
Function Call: WRITE	Prompt: !?5,"LIMITED DATA ENTRY: ",$P(ADENOD,U,2) Line Location: PA+1
Function Call: WRITE	Prompt: !?5,"BACKGROUND MODE: ",$P(ADENOD,U,4) Line Location: PA+2
Function Call: WRITE	Prompt: !?5,"PCC LINK ENABLED: ",$P(ADENOD,U,5) Line Location: PA+3
Function Call: WRITE	Prompt: !?5,"EXTRACT CONTRACT: ",$P(ADENOD,U,6) Line Location: PA+4
Function Call: WRITE	Prompt: !?5,"LOCAL FACILITIES:" Line Location: PA+5
Function Call: WRITE	Prompt: !,"REQUEST QUEUED." Line Location: ASKDEV+1
Function Call: WRITE	Prompt: ?(IOM\2)-($L("DENTAL SOFTWARE DIAGNOSTICS -- Page "_ADEPAG)\2),"DENTAL SOFTWARE DIAGNOSTICS -- Page "_ADEPAG,! Line Location: LINE+0
Routine Call	DIR Line Location: EOP1
Routine Call	%ZIS Line Location: ASKDEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEPARAM - [#9002006]	PARAM+5, PA+6, PAR1
^ADEPARAM(0	PARAM+3
^ADEPCD("AC"	ENTRIES+4
^ADEPCD(0	ENTRIES+2
^ADEPOST	DQRUN+4
^ADEPOST(0	DQRUN+4, DQRUN+7
^ADEUTL("ADEDQUE"	DQRUN+12
^ADEUTL("ADELOCK"	DQRUN+2
^AUTTSITE - [#9999999.39]	PKG+2
^AUTTSITE(0	PKG+2
^DD("DD"	DQ1+1, PKG1+4, ENTRIES+5
^DIC(4 - [#4]	PKG+2, PA, PAR1+1
^DIC(9.4 - [#9.4]	PKG+3, PKG+6, PKG+7, PKG+10, PKG1, PKG1+1
^XUTL("XQ"	DQRUN+9, DQ1+1

Label References

Name	Line Occurrences
BK	ALL+2, BKGRND+4
DQ1	DQRUN+9
DQ2	DQRUN+12
DQRUN	BK
END	ADEDX+7, ALL+1, ALL+2, ALL+4, HISTORY+3, HISTORY+5, BKGRND+3, BKGRND+5, EXTRACT+3, EXTRACT+5
ENTRIES	HX+4
EOP	HX+1, DQRUN, DQRUN+5, DQRUN+10, PKG, PKG+5, PKG+8, PKG+10, ENTRIES+1, PARAM+1 , PA+1, PA+2, PA+3, PA+4, PA+6
EX	ALL+3
HEADER	EOP, EOP1+1
HX	ALL+1, HISTORY+4, EXTRACT+4
INIT	ADEDX+6, HISTORY+2, BKGRND+2, EXTRACT+2
PAR1	PA+6
PARAM	HX+6
PKG	HX+3
PKG1	PKG+10
QUE	ASKDEV+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ASKDEV*
ADECNT	END+3!, DQRUN+2, DQRUN+3, DQRUN+4, DQRUN+6, DQRUN+7
ADEJ	END+3!, QUE+1*, QUE+3!
ADEJN	END+3!, DQRUN+2, DQRUN+4, DQRUN+9*, DQ1, DQ1+1
ADELF	END+3!, PA+6*, PAR1
ADELIN	END+3!, INIT+1*
ADEMSG	END+3!, DQRUN+8, DQRUN+11, DQRUN+12, DQ1, DQ1+1*
ADENOD	END+3!, PKG1+1, PKG1+2, PKG1+3, PKG1+4, PARAM+5, PA, PA+1, PA+2, PA+3 , PA+4, PAR1*, PAR1+1
ADEPAG	END+3!, INIT+1, EOP, HEADER, LINE, LINE+1
ADEPKG	END+3!, PKG+3*, PKG+4, PKG+6, PKG+7, PKG+10, PKG1, PKG1+1
ADEQIT	ALL+1, ALL+2, HX+1, HX+3, HX+4, END+3!, DQRUN, DQRUN+5, DQRUN+10, PKG , PKG+5, PKG+8, PKG+10, ENTRIES+1, PARAM+1, PA+1, PA+2, PA+3, PA+4, PA+6 , INIT+1, EOP1
ADESN	END+3!, PARAM+3*, PARAM+4, PARAM+5, PA+6, PAR1
ADEVER	END+3!, PKG+10*, PKG1, PKG1+1
>> DIR(0	EOP1*
>> DTOUT	EOP1
IO	ASKDEV+2
IO("Q"	ADEDX+7, HISTORY+3, BKGRND+3, EXTRACT+3, ASKDEV+1
IOF	HEADER
IOM	LINE
IOSL	EOP+1
IOST	EOP1
>> POP	ADEDX+7, HISTORY+3, BKGRND+3, EXTRACT+3, ASKDEV
U	DQRUN+11, PKG+2, PKG+6, PKG1+2, PKG1+3, PKG1+4, ENTRIES+2, PA, PA+1, PA+2 , PA+3, PA+4, PAR1+1, INIT+1*
>> Y	DQ1+1, PKG1+4, ENTRIES+4*, ENTRIES+6, EOP1
>> ZTDESC	QUE*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	ADEDX+5, HISTORY+1, BKGRND+1, EXTRACT+1
>> ZTSAVE(	QUE+1*

Customize PDF page

Package: IHS Dental System

Routine: ADEDX

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: