Routine: DENTAR14

Information

DENTAR14 ;ISC2/SAW,HAG-REVIEW/RELEASE TREATMENT DATA REPORT - INDIVIDUAL SITTINGS ; 10/27/88 10:15 AM ;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Dental	3	EXIT1^DENTAR1 CHK^DENTAR15 (COMP,ERR,HDR)^DENTAR16
Kernel	2	^%ZIS ^%ZTLOAD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Dental	1	DENTAR1

Entry Points

Name	Comments	DBIA/ICR reference
QUE
RPT
RPT1
P1
W
SPOT
HDR1
DENTV
HOLD
HOLD1
NONE
EXIT
EXIT1
S	;;;04;05;;;;08;;09;15;16;33;10;20;21;22;;23;;11;12;13;14;17;;24;25;26;27;28;29;30;31;18;19;32;;;;34;06

Name	Field # of Occurrence
^%ZIS	DENTAR14+2
^%ZTLOAD	DENTAR14+3
EXIT1^DENTAR1	EXIT1
CHK^DENTAR15	P1+1
COMP^DENTAR16	EXIT+1
ERR^DENTAR16	EXIT
HDR^DENTAR16	RPT1, HDR1, HOLD1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,K,0),U,1),1,30),?79,1,! Line Location: P1+5
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,36,0),U,1),1,30),?79,1,! Line Location: P1+6
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,38,0),U,1),1,30),?79,$P(X,U,45),! Condition for execution: $P(X,U,45) Line Location: P1+6
Function Call: WRITE	Prompt: Q:Z5=U Line Location: P1+10
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,+$P($T(S),";",K),0),U,1),1,30),?77,$J($P(X,U,K),3),! Line Location: W+0
Function Call: WRITE	Prompt: !,Y,?19,$P(X,U,10),?25,$P(X,U,2),?36,$J($P(X,U,19),2),?41 Line Location: HDR1+1
Function Call: WRITE	Prompt: $J($P(X,U,6),2) Condition for execution: $P(X,U,19)<9 Line Location: HDR1+1
Function Call: READ	Timeout: DTIME Line Location: HOLD+0
Function Call: WRITE	Prompt: !,"There is no treatment data for review/release for the time frame you specified",*7 Line Location: NONE+0
Function Call: WRITE	Prompt: @IOF,*7 Line Location: EXIT+0
Function Call: WRITE	Prompt: !,^(J) Condition for execution: $D(^UTILITY($J,"DENTERR",H,J)) Line Location: EXIT+0
Routine Call	%ZIS Line Location: DENTAR14+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	EXIT1
^DD("DD"	HDR1+1
^DENT(221 - [#221]	RPT, RPT1, P1
^DIC(220.3 - [#220.3]	P1+5, P1+6, P1+7, P1+9, W
^UTILITY($J	P1+1, P1+2, P1+11*, EXIT

Label References

Name	Line Occurrences
DENTV	P1+4
EXIT	QUE
EXIT1	DENTAR14+2, DENTAR14+3, NONE, EXIT
HDR1	RPT1
HOLD	QUE, HDR1, HOLD1, EXIT, EXIT+1
HOLD1	P1+5, P1+6, P1+7, P1+8, P1+9, W
NONE	QUE
P1	RPT1
RPT	QUE
RPT1	RPT
S	W, W+1
SPOT	P1+5, P1+6
W	P1+10

Naked Globals

Name	Field # of Occurrence
^(	P1, EXIT
^(0	RPT1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DENTAR14+2*
DENT	RPT1*, P1, P1+1, EXIT1!
>> DENTC	QUE, P1+1, P1+2*, P1+11
>> DENTC(1	QUE, P1+2
DENTCAT	P1+3*, DENTV+1, EXIT1!
DENTDAT	SPOT, DENTV, DENTV+1, EXIT1!
DENTED	RPT, EXIT1!
DENTF	P1+1, EXIT1!
>> DENTF1	QUE, P1+1, P1+2, P1+4, P1+7, P1+8, P1+9, P1+11, W+1, SPOT , NONE, EXIT, EXIT+1
DENTSD	QUE, RPT, RPT1, P1+1, EXIT1!
>> DENTSTA	DENTV+1
DENTV	P1+4, P1+7, P1+8, P1+9, P1+11!, W+1, DENTV+1
DT	QUE, RPT
>> DT1	QUE*, RPT
DTIME	HOLD
H	EXIT*, EXIT1!
H1	EXIT1!
H2	EXIT1!
H3	EXIT1!
I	RPT, RPT1, EXIT, EXIT1!
IO	DENTAR14+2, QUE, P1+2, P1+4, P1+7, P1+8, P1+9, P1+11, W+1, SPOT , HOLD
IO("Q"	DENTAR14+2!, DENTAR14+3
IO(0	P1+2, P1+4, P1+7, P1+8, P1+9, P1+11, W+1, SPOT, HOLD
IOF	EXIT
IOSL	P1+5, P1+6, P1+7, P1+8, P1+9, W, HDR1, EXIT
J	RPT1, EXIT, EXIT1!
K	P1+5, P1+10, W, W+1, EXIT1!
>> Q	QUE, P1+2, P1+11
U	QUE, RPT1, P1, P1+3, P1+5, P1+6, P1+7, P1+8, P1+9, P1+10 , W, W+1, SPOT, HDR1, HDR1+1, DENTV, DENTV+1, HOLD, HOLD1, EXIT , EXIT+1
X	RPT1*, P1+3, P1+5, P1+6, P1+7, P1+8, P1+9, P1+10, W, W+1 , SPOT, HDR1+1, DENTV, DENTV+1, EXIT1!
X(1	P1+5, P1+6, DENTV*, DENTV+1
X(2	P1+7, P1+9, W+1*
X(3	W+1*
X1	P1+11*!
>> Y	HDR1+1*
>> Z3	RPT, RPT1
>> Z5	QUE, RPT1, P1+5, P1+6, P1+7, P1+8, P1+9, P1+10, W, HDR1 , HOLD*, HOLD1, EXIT, EXIT+1
ZTRTN	DENTAR14+3*!
ZTSAVE	DENTAR14+3!
ZTSAVE("DENT*"	DENTAR14+3*
ZTSAVE("DT"	DENTAR14+3*
ZTSAVE("H*"	DENTAR14+3*
ZTSAVE("U"	DENTAR14+3*
ZTSAVE("Z3"	DENTAR14+3*
ZTSAVE("Z5"	DENTAR14+3*
ZTSK	DENTAR14+3!, HOLD, EXIT1

Marked Items

Name	Field # of Occurrence
$T(S	W, W+1

Customize PDF page

Package: Dental