Routine: DENTAR14

Information

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

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