RA PROCEDURES BY AMIS (308) SORT TEMPLATE (.401)

Name	Value
NAME	RA PROCEDURES BY AMIS
DESCRIPTION	Used to sort procedures by Major Amis code.
SORT FIELD DATA	COMPUTED FIELD CODE: S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^RAMIS(71.1,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) I D1>0 S X(1)=X COMPUTED FIELD CODE: S Y(1)=$S($D(^RAMIS(71,D0,2,D1,0)):^(0),1:"") S X=$S('$D(^RAMIS(71.1,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S X(2)=X CROSS REFERENCE DATA: ^RAMIS(71,"B",^RAMIS(71,^2
DATE CREATED	1985-12-12 00:00:00
FILE	RAD/NUC MED PROCEDURES