Routine: ADEATT4

Package	Total	Call Graph
Kernel	1	^%ZISC

Package	Total	Caller Graph
IHS Dental System	1	ADEATT

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	END+1

Interaction Calls

Name	Line Occurrences
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: WRITE	Prompt: !! Line Location: CAR+0
Function Call: WRITE	Prompt: !,ADEINSN Line Location: CAR+1
Function Call: WRITE	Prompt: ! Line Location: CAR+2
Function Call: WRITE	Prompt: $P(ADENOD,U,2) Line Location: CAR+2
Function Call: WRITE	Prompt: ! Line Location: CAR+3
Function Call: WRITE	Prompt: $P(ADENOD,U,3) Line Location: CAR+3
Function Call: WRITE	Prompt: ?30,$P(^DIC(5,$P(ADENOD,U,4),0),U,2) Line Location: CAR+4
Function Call: WRITE	Prompt: ?40,$P(ADENOD,U,5) Line Location: CAR+5
Function Call: WRITE	Prompt: !! Line Location: PAT+0
Function Call: WRITE	Prompt: !,ADEPNM Line Location: PAT+1
Function Call: WRITE	Prompt: ?30,"Relationship to Sponsor: ",$P(^AUTTRLSH($P(ADENOD,U,5),0),U) Line Location: PAT+3
Function Call: WRITE	Prompt: !,"(Mailing Address Not Available)" Line Location: PAT+5
Function Call: WRITE	Prompt: !,$P(ADENOD,U) Line Location: PAT+7
Function Call: WRITE	Prompt: !,$P(ADENOD,U,4),?30,$P(^DIC(5,$P(ADENOD,U,5),0),U,2),?40,$P(ADENOD,U,6) Line Location: PAT+8
Function Call: WRITE	Prompt: !!,"(Signature on File)" Line Location: PAT+10
Function Call: WRITE	Prompt: !! Line Location: PROV+0
Function Call: WRITE	Prompt: !,ADERDNM Line Location: PROV+1
Function Call: WRITE	Prompt: !,$P(ADENOD,U,12) Line Location: PROV+3
Function Call: WRITE	Prompt: !,$P(ADENOD,U,13),?30,$P(^DIC(5,$P(ADENOD,U,14),0),U,2),?40,$P(ADENOD,U,15) Line Location: PROV+5
Function Call: WRITE	Prompt: !,"Dentist SSN: ",$P(^DIC(16,ADERDNMD,0),U,9) Line Location: PROV+6
Function Call: WRITE	Prompt: ! Line Location: PROC+0
Function Call: WRITE	Prompt: !,"Tooth",?10,"Description of Service",?35,"Date",?45,"Procedure",?60,"Fee" Line Location: PROC+1
Function Call: WRITE	Prompt: ! Line Location: PROC+1
Function Call: WRITE	Prompt: !,$S($P($P(ADEV(X),U,2),",",K)]"":^ADEOPS($P($P(ADEV(X),U,2),",",K),88),1:"") Line Location: PROC2+0
Function Call: WRITE	Prompt: ?10,ADEDES(X) Line Location: PROC2+1
Function Call: WRITE	Prompt: ?35,$E(ADEVFM,4,5),"/",$E(ADEVFM,6,7),"/",$E(ADEVFM,2,3) Line Location: PROC2+2
Function Call: WRITE	Prompt: ?45,X Line Location: PROC2+3
Function Call: WRITE	Prompt: ?60,$J($P(ADEV(X),U,3),7,2) Line Location: PROC2+4
Function Call: WRITE	Prompt: !! Line Location: TOT+0
Function Call: WRITE	Prompt: !?35,"Total Fee Charged: ",?59,$J(ADETCH,8,2) Line Location: TOT+1
Function Call: WRITE	Prompt: ! Line Location: TOT+2
Function Call: WRITE	Prompt: !!! Line Location: SIG+0
Function Call: WRITE	Prompt: X Line Location: SIG+0
Function Call: WRITE	Prompt: !,"Dentist Signature",?35,"Date" Line Location: SIG+1

Name	Line Occurrences (* Changed, ! Killed)
^ADEOPS - [#9002010.03]	PROC2
^AUPNPRVT - [#9000006]	PAT+2
^AUTNINS - [#9999999.18]	CAR+1
^AUTTLOC - [#9999999.06]	PROV+2
^AUTTRLSH - [#9999999.36]	PAT+3
^DIC(16 - [#16]	PROV+6
^DIC(5 - [#5]	CAR+4, PAT+8, PROV+5
^DPT - [#2]	PAT+5, PAT+6

Name	Line Occurrences
CAR	INIT+4
EOL	PROC+2
HEAD	INIT+2, EOL
LINE	HEAD, HEAD+1, CAR, PAT, PROV, PROC, PROC+1, TOT+2
PAT	INIT+6
PROC	INIT+10
PROC1	PROC+2
PROC2	PROC1+1
PROV	INIT+8
SIG	INIT+14
TOT	INIT+12

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADEDES(	PROC2+1
>> ADEINS	CAR+1, PAT+2
>> ADEINSN	CAR+1, PAT+2
ADELIN	INIT!, LINE, HEAD, HEAD+2*
>> ADENOD	CAR+1, CAR+2, CAR+3, CAR+4, CAR+5, PAT+2, PAT+3, PAT+4, PAT+6, PAT+7 , PAT+8, PROV+2, PROV+3, PROV+5
ADEPAG	INIT, END+3!, HEAD, HEAD+1
>> ADEPAT	PAT+2, PAT+5, PAT+6
>> ADEPNM	HEAD+1, PAT+1
>> ADERDNM	PROV+1
>> ADERDNMD	PROV+6
>> ADETCH	TOT+1
>> ADETITL	LINE, HEAD, HEAD+1, CAR, PAT, PROV, PROC, PROC+1, TOT
>> ADEV(	PROC+2, PROC1, PROC1+1, PROC2, PROC2+4
>> ADEVFM	PROC2+2
DUZ(2	PROV+2
IO	INIT
IOF	HEAD
IOSL	EOL
>> J	PROC+2*
>> K	PROC1+1*, PROC2
U	CAR+2, CAR+3, CAR+4, CAR+5, PAT+3, PAT+4, PAT+7, PAT+8, PROV+3, PROV+5 , PROV+6, PROC1, PROC1+1, PROC2, PROC2+4
>> X	PROC+2, PROC1, PROC1+1, PROC2, PROC2+1, PROC2+3, PROC2+4, SIG
>> ZTQUEUED	END+2
>> ZTREQ	END+2*

Customize PDF page

Package: IHS Dental System

Routine: ADEATT4

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: