Routine: DENTA14

Information

DENTA14 ;ISC2/SAW,HAG-TREATMENT DATA REPORT - INDIVIDUAL SITTINGS ;3/29/88

Source file <DENTA14.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,K,0),U,1),1,30),?79,1,! Line Location: P1+2
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,36,0),U,1),1,30),?79,1,! Line Location: P1+3
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+3
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,$P(X,U,41),0),U,1),1,30),?79,1,! Line Location: P1+4
Function Call: WRITE	Prompt: ?46,"ADMINISTRATIVE PROCEDURE",?79,1,! Line Location: P1+5
Function Call: WRITE	Prompt: ?46,$E($P(^DIC(220.3,X(2),0),U,1),1,30),?79,1,! Line Location: P1+6
Function Call: WRITE	Prompt: Q:Z5=U Line Location: P1+7
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 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