RA DAILY LOG (312)    SORT TEMPLATE (.401)

Used for sorting exams by exam date and hospital division.

• CROSS REFERENCE DATA:   ^RADPT("AR",^RADPT(^2
• COMPUTED FIELD CODE:   X DPP(2,"OVFLO",9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(2) I D1>0 S X(2)=X
• COMPUTED FIELD CODE:   S Y(1)=$S($D(^RADPT(D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X