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

Used to sort procedures by Major Amis code.

• 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