ORCHANGE NOTES AUTHOR (2391)    PROTOCOL (101)

View in ViViaN Menu
Name Value
NAME ORCHANGE NOTES AUTHOR
ITEM TEXT Signed Notes by Author
ENTRY ACTION N X,CTXT S CTXT=$P($G(^TMP("OR",$J,ORTAB,0)),U,3),X=$P(CTXT,";",4),X=$$AUTHOR^ORCHANGE(X) S:X $P(CTXT,";",1,5)=";;4;"_X_";",$P(^TMP("OR",$J,ORTAB,0),U,3,4)=CTXT_U
TYPE action
CREATOR USER,ONE
TIMESTAMP 1999-04-16 15:27:15