Routine: ADEGRL3

Call Graph Total: 14

Package	Total	Call Graph
IHS Dental System	12	EN^ADEATT ^ADECLS (DEL,EXIT,FEE,TFEE)^ADEGRL31 VERIFY^ADEGRL32 ^ADEGRL33 (NOTE,PROV,REPD,VSTAT)^ADEGRL4 ^ADEGRL5 ^ADEGRL5A RETURN^ADEGRL5B ^ADEHELP EN^ADEMNG EN2^ADERVW
Kernel	1	EN^XQH
VA Fileman	1	^DIR

Package

Total

Call Graph

EN^ADEATT ^ADECLS (DEL,EXIT,FEE,TFEE)^ADEGRL31 VERIFY^ADEGRL32 ^ADEGRL33 (NOTE,PROV,REPD,VSTAT)^ADEGRL4 ^ADEGRL5 ^ADEGRL5A
RETURN^ADEGRL5B ^ADEHELP EN^ADEMNG EN2^ADERVW

Kernel

EN^XQH

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Dental System	9	ADEATT ADEATT2 ADEGRL ADEGRL31 ADEGRL32 ADEGRL34 ADEGRL4 ADEGRL5 ADELETE

Package

Total

Caller Graph

IHS Dental System

ADEATT ADEATT2 ADEGRL ADEGRL31 ADEGRL32 ADEGRL34 ADEGRL4 ADEGRL5
ADELETE

Entry Points

Name	Comments	DBIA/ICR reference
DEPEND(X,ADEV)	;DEPENDENCY CHECK
END
CTRL	;------->CTRL
LIST	;EP
HRN	;EP
VALID	;VALIDITY CHECKS -- Check that code is reportable given Pt Tx Hx.
QUANT	;
L3	;DISPLAY OP SITE
DIRE	;PRESS RETURN
L1
CHECKEX
L2
LINE
CON	;EP

External References

Name	Field # of Occurrence
EN^ADEATT	CHECKEX+9
^ADECLS	CHECKEX, LIST+2
DEL^ADEGRL31	CHECKEX+13
EXIT^ADEGRL31	CTRL+6
FEE^ADEGRL31	CTRL+14
TFEE^ADEGRL31	CHECKEX+8
VERIFY^ADEGRL32	CTRL+12
^ADEGRL33	ADEGRL3+14
NOTE^ADEGRL4	CHECKEX+5
PROV^ADEGRL4	CHECKEX+4
REPD^ADEGRL4	CHECKEX+3
VSTAT^ADEGRL4	ADEGRL3+10
^ADEGRL5	CTRL+16, CTRL+18
^ADEGRL5A	VALID+1
RETURN^ADEGRL5B	VALID+1
^ADEHELP	CHECKEX, CHECKEX+1
EN^ADEMNG	CHECKEX+6, CHECKEX+7
EN2^ADERVW	CHECKEX+12
^DIR	DIRE+1, QUANT+7
EN^XQH	CHECKEX

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"*DATA ENTRY ABORTED*" Line Location: ADEGRL3+8
Function Call: WRITE	Prompt: !!,"*UNEDITABLE RECORD (FAILED APPOINTMENT) -- USE DELETE OPTION TO DELETE",7 Line Location: ADEGRL3+9
Function Call: WRITE	Prompt: !!,"*DATA ENTRY ABORTED*" Line Location: ADEGRL3+10
Function Call: WRITE	Prompt: !!,"*UNEDITABLE RECORD (FAILED APPOINTMENT) -- USE DELETE OPTION TO DELETE",7 Line Location: ADEGRL3+11
Function Call: WRITE	Prompt: !!,"*DATA ENTRY ABORTED*" Line Location: ADEGRL3+17
Function Call: READ	Timeout: DTIME Variable: X Line Location: CTRL+4
Function Call: WRITE	Prompt: !,"Attending Dentist: ",ADERDNM,! Line Location: LIST+3
Function Call: WRITE	Prompt: "Dental Note: ",ADENOTE,! Line Location: LIST+4
Function Call: WRITE	Prompt: "Total Fees: $",$J(ADETFE,4,2),?30,"Total Charge this Visit: $",$J(ADETCH,4,2),! Line Location: LIST+6
Function Call: WRITE	Prompt: !,"ADA CODE",?10,"DESCRIPTION",?27,"QTY" Line Location: LIST+7
Function Call: WRITE	Prompt: !?2,J Line Location: L1+1
Function Call: WRITE	Prompt: "*" Line Location: L1+2
Function Call: WRITE	Prompt: ?10,ADEDES(J),?27,$J($P(ADEV(J),U),3) Line Location: L1+3
Function Call: WRITE	Prompt: ?32,$P(ADEV(J),U,3),?40,$P(ADEV(J),U,3)*$P(ADEV(J),U) Condition for execution: ADECON Line Location: L1+3
Function Call: WRITE	Prompt: !,"*=Unreportable Procedures" Condition for execution: $D(ADENONR) Line Location: L2+0
Function Call: WRITE	Prompt: !,ADELIN Line Location: L2+0
Function Call: WRITE	Prompt: $E(ADELIN,1,40-($L(ADETITL)/2)),ADETITL,$E(ADELIN,1,39-($L(ADETITL)/2)) Line Location: LINE+0
Function Call: READ	Prompt: "(Press ENTER to continue) " Formatting: ! Timeout: DTIME Variable: X Line Location: CON+1
Routine Call	DIR Line Location: DIRE+1 QUANT+7

Name	Line Occurrences (* Changed, ! Killed)
^ADEOPS - [#9002010.03]	L3+2, L3+3
^AUPNPAT - [#9000001]	HRN+2
^DPT - [#2]	HRN+1

Label References

Name	Line Occurrences
$$DEPEND	CTRL+9
CHECKEX	CTRL+11
CTRL	CTRL+6, CTRL+9, CTRL+11, CTRL+12, CTRL+14, VALID+2
DIRE	DEPEND+2, DEPEND+4
END	ADEGRL3+10, ADEGRL3+11, CTRL+6
HRN	ADEGRL3+4
L1	L1+5
L2	L1
L3	L1+4
LINE	LIST+2
LIST	ADEGRL3+11, CTRL+2
QUANT	CTRL+15, CTRL+19
VALID	CTRL+15, CTRL+16, CTRL+18

Name	Field # of Occurrence
^(0	HRN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADECNT	L1+4, L3+6, L3+7*
>> ADECOD	VALID+1, QUANT+1, QUANT+3, QUANT+9
>> ADECON	CTRL+14, CTRL+15, CTRL+16, CHECKEX+4, CHECKEX+6, CHECKEX+7, CHECKEX+8, LIST+5, LIST+6, LIST+8 , LIST+9, L1+3, L3+7, L3+8
>> ADEDES(	CHECKEX+14!, L1+3
>> ADEDIR	ADEGRL3+5, CHECKEX+9, LIST+3, LIST+9, L3+7, L3+8
>> ADEFAST	CTRL+18, LIST+3
>> ADEHRN	LIST+3, HRN+2*
ADEHXC	ADEGRL3+13!
ADEHXF	ADEGRL3+13!
ADEHXO	ADEGRL3+13!
>> ADELIN	L2, LINE
>> ADELOE	LIST+3
>> ADENEWVS	ADEGRL3+11
ADENONR	LIST+1~, L1+2, L2, L3+5
>> ADENOTE	LIST+4
>> ADENOUPD	ADEGRL3+10, ADEGRL3+11, HRN+1*
ADENRP	VALID+1!
>> ADEPAT	HRN+1, HRN+2
>> ADEPC	L1+4, L3+1, L3+2, L3+3, L3+4, L3+5*, L3+6, L3+7, L3+8
ADEPLET	CHECKEX+10*, CHECKEX+11!, L3+2
>> ADEPNM	LIST+3, HRN+1*
>> ADEPVNM	LIST+3
>> ADERDNM	LIST+3
>> ADEREC	CHECKEX+6, CHECKEX+7
ADEREDO	VALID+1!
>> ADEREF	CHECKEX+6, CHECKEX+7
>> ADETCH	LIST+6*
>> ADETCHF	LIST+6
>> ADETFE	LIST+5*, LIST+6
ADETITL	ADEGRL3+5, CHECKEX+6~, CHECKEX+7~*, LINE
>> ADETYP	CHECKEX+6, CHECKEX+7
ADEV	CTRL+9, DEPEND~
ADEV(	VALID+1, CHECKEX+14!, QUANT+1, QUANT+9, LIST+5, L1, L1+2, L1+3, L1+4, L3+4 , L3+5
ADEV("0000"	ADEGRL3+10
ADEV("0190"	ADEGRL3+10
ADEV("9130"	ADEGRL3+10, ADEGRL3+11
ADEV("9140"	ADEGRL3+10, ADEGRL3+11
ADEV("9986"	ADEGRL3+10, ADEGRL3+11
ADEV("9987"	ADEGRL3+10, ADEGRL3+11
ADEV(9220	DEPEND+1
ADEV(9241	DEPEND+3
>> ADEVDATE	LIST+3
>> ADEWAI	CHECKEX+6, CHECKEX+7
ADEXFLG	VALID+1!
>> ADEY	CTRL+1, CTRL+11, CTRL+12, CTRL+14, CHECKEX, CHECKEX+1, CHECKEX+3, CHECKEX+4, CHECKEX+5, CHECKEX+6* , CHECKEX+7, CHECKEX+8, CHECKEX+9, CHECKEX+10, CHECKEX+11, CHECKEX+13, CHECKEX+14*
DIC	CHECKEX+3!, CHECKEX+4!
DIR	DIRE+1!, QUANT+4!
DIR("B"	QUANT+5*
DIR(0	DIRE+1, QUANT+6
DTIME	CTRL+4, CON+1
DTOUT	QUANT+4!, QUANT+8
>> DUOUT	QUANT+8
DUZ(2	HRN+2
J	LIST+10, L1, L1+1, L1+2, L1+3, L1+4, L2!, L3+4, L3+5
>> K	LIST+5, L1+4, L3+4, L3+5
>> L	LIST+5*
U	CTRL+15, CTRL+16, CTRL+18, QUANT+1, QUANT+9, LIST+5, L1+2, L1+3, L1+4, L3+2 , L3+4, L3+5, HRN+1, HRN+2
X	CTRL+4, CTRL+6, CTRL+9, DEPEND~, DEPEND+1, DEPEND+3, CHECKEX, CHECKEX+1, CHECKEX+3, CHECKEX+4 , CHECKEX+5, CHECKEX+6, CHECKEX+7, CHECKEX+8, CHECKEX+9, CHECKEX+10, CHECKEX+11, CHECKEX+12, CHECKEX+13, CHECKEX+14 , CON+1!
XQH	CHECKEX*!
>> Y	ADEGRL3+10, CTRL+6*, QUANT+9
>> Y(0	CTRL+15, CTRL+16, CTRL+18

Customize PDF page

Package: IHS Dental System

Routine: ADEGRL3

Information

Source Information